Skip to content
Snippets Groups Projects
Commit 0ff032a2 authored by Jens Nolte's avatar Jens Nolte
Browse files

WIP

parent 26c34d41
No related branches found
No related tags found
No related merge requests found
module Quasar.Wayland.Server.LayerShell (
) where
import Quasar.Prelude
layerShellGlobal :: Global
layerShellGlobal = undefined
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment