From 0e1add6fae63eb51c5f73caf4dd42838ec955a86 Mon Sep 17 00:00:00 2001
From: Hannes Schulze <haschu0103@outlook.de>
Date: Sun, 4 Aug 2024 17:31:56 +0200
Subject: implement signal handling

---
 protocols/Wayland/Protocols/Core/WLOutput.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'protocols/Wayland/Protocols/Core/WLOutput.hs')

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
-- 
cgit v1.3.1