diff --git a/src/Quasar/Wayland/Server/LayerShell.hs b/src/Quasar/Wayland/Server/LayerShell.hs
new file mode 100644
index 0000000000000000000000000000000000000000..3b76a3d3b6c623ff5b1d1a108402eca45d0bffa7
--- /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 9bea2f8a793103c159bce4cff6651071800280ac..37596571c474183f28f0bcf2462ddeec6173a5ec 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