Remove old code

src/Quasar/Wayland/Core.hs

@@ -12,8 +12,6 @@ module Quasar.Wayland.Core (
   ClientCallback,
   ServerCallback,
   Callback(..),
-  Request,
-  Event,
   ProtocolStep,
   initialProtocolState,
   sendMessage,
@@ -181,11 +179,6 @@ data ProtocolState (s :: Side) m = ProtocolState {
   objects :: HashMap ObjectId SomeObject
 }
 
-data Request = Request ObjectId Opcode BSL.ByteString
-  deriving stock Show
-data Event = Event ObjectId Opcode (Either BSL.ByteString (Word32, BSL.ByteString, Word32))
-  deriving stock Show
-
 
 type ClientCallback m i = Callback 'Client m i
 type ServerCallback m i = Callback 'Server m i