From 0ff032a292a3d90a9f4f0b8fc9b44c781675b86f Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 19 Aug 2022 13:27:32 +0200
Subject: [PATCH] WIP
---
src/Quasar/Wayland/Server/LayerShell.hs | 7 +++++++
src/Quasar/Wayland/Surface.hs | 7 +++++++
2 files changed, 14 insertions(+)
create mode 100644 src/Quasar/Wayland/Server/LayerShell.hs
diff --git a/src/Quasar/Wayland/Server/LayerShell.hs b/src/Quasar/Wayland/Server/LayerShell.hs
new file mode 100644
index 0000000..3b76a3d
--- /dev/null
+++ b/src/Quasar/Wayland/Server/LayerShell.hs
@@ -0,0 +1,7 @@
+module Quasar.Wayland.Server.LayerShell (
+) where
+
+import Quasar.Prelude
+
+layerShellGlobal :: Global
+layerShellGlobal = undefined
diff --git a/src/Quasar/Wayland/Surface.hs b/src/Quasar/Wayland/Surface.hs
index 9bea2f8..3759657 100644
--- a/src/Quasar/Wayland/Surface.hs
+++ b/src/Quasar/Wayland/Surface.hs
@@ -105,6 +105,13 @@ data SurfaceCommit b = SurfaceCommit {
bufferDamage :: Damage
}
+--instance Semigroup (SurfaceCommit b) where
+-- old <> new = SurfaceCommit {
+-- buffer = new.buffer,
+-- offset = new.offset,
+-- bufferDamage = old.bufferDamage <> new.bufferDamage
+-- }
+
type SurfaceDownstream b = SurfaceCommit b -> STM ()
defaultSurfaceCommit :: Damage -> SurfaceCommit b
--
GitLab