src/Wetterhorn/Core/SurfaceEvent.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module Wetterhorn.Core.SurfaceEvent
  ( SurfaceEvent (..),
    SurfaceState (..),
  )
where

import Wetterhorn.Foreign.WlRoots

data SurfaceState = Map | Unmap | Destroy
  deriving (Eq, Ord, Show, Read, Enum)

data SurfaceEvent = SurfaceEvent
  { state :: SurfaceState,
    surface :: Surface
  }
  deriving (Eq, Ord, Show)