implement signal handling

1 files changed, 4 insertions, 2 deletions

diff --git a/protocols/Wayland/Protocols/Core/WLOutput.hs b/protocols/Wayland/Protocols/Core/WLOutput.hs
index f943169..2989fe5 100644
--- a/protocols/Wayland/Protocols/Core/WLOutput.hs
+++ b/protocols/Wayland/Protocols/Core/WLOutput.hs
@@ -12,13 +12,13 @@ module Wayland.Protocols.Core.WLOutput
   ) where
 
 import Data.Data (Typeable)
-import Wayland.Server (ResourceClass(..), ObjectID)
+import Wayland.Server (ResourceClass(..), RequestClass(..), ObjectID)
 
 newtype Handle = Handle ObjectID
   deriving (Show, Eq, Ord)
 
 instance ResourceClass Handle where
-  type ResourceEvent Handle = Event
+  type ResourceEvent   Handle = Event
   type ResourceRequest Handle = Request
   objectID (Handle h) = h
   interface _ = undefined
@@ -59,6 +59,8 @@ data Request
   = ReqRelease Handle
   deriving (Typeable, Show)
 
+instance RequestClass Request
+
 data Event
   = EvGeometry    Geometry
   | EvMode        Mode