finish implementing wayland server api

1 files changed, 5 insertions, 3 deletions

diff --git a/protocols/Wayland/Protocols/Core/WLOutput.hs b/protocols/Wayland/Protocols/Core/WLOutput.hs
index 3c4a8f5..625ccd9 100644
--- a/protocols/Wayland/Protocols/Core/WLOutput.hs
+++ b/protocols/Wayland/Protocols/Core/WLOutput.hs
@@ -13,8 +13,8 @@ module Wayland.Protocols.Core.WLOutput
   ) where
 
 import Data.Data (Typeable)
-import Wayland.Server (Object(..), RequestClass, InterfaceDesc(..), MessageDesc(..), ArgumentDesc(..), Nullability(..), AnyObject, EventClass, marshalInt, marshalString, marshalUInt)
 import Data.Hashable (Hashable(..))
+import Wayland.Server
 
 newtype WLOutput = WLOutput AnyObject
   deriving (Show, Eq, Ord, Hashable)
@@ -191,7 +191,8 @@ data Request
   = ReqRelease WLOutput
   deriving (Typeable, Show)
 
-instance RequestClass Request where
+instance MessageClass Request
+instance RequestClass Request
 
 data Event
   = EvGeometry    Geometry
@@ -202,4 +203,5 @@ data Event
   | EvDone
   deriving (Typeable, Show)
 
-instance EventClass Event where
+instance MessageClass Event
+instance EventClass Event