diff --git a/src/Quasar/Wayland/Core.hs b/src/Quasar/Wayland/Core.hs
index 75c160416d696d9e3affbb04d0d88a1943959d2a..7dc6c5dfa50d0e3137d3dcb6c5fa2b13253b2284 100644
--- a/src/Quasar/Wayland/Core.hs
+++ b/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