diff --git a/src/Quasar/Wayland/Core.hs b/src/Quasar/Wayland/Core.hs
index 18720781f46b1a14d0fc38b6dae0ec9af94783f7..5fcfac87cca6cc36ef21dda526893a7e8a6eaf51 100644
--- a/src/Quasar/Wayland/Core.hs
+++ b/src/Quasar/Wayland/Core.hs
@@ -6,8 +6,8 @@ module Quasar.Wayland.Core (
   Side(..),
   IsSide,
   Object,
-  IsSomeObject(..),
-  IsSomeObject,
+  IsObject(..),
+  IsObject,
   IsMessage(..),
   ProtocolState,
   ClientProtocolState,
@@ -164,7 +164,7 @@ class IsObjectSide a where
   describeUpMessage :: a -> Opcode -> BSL.ByteString -> String
   describeDownMessage :: a -> Opcode -> BSL.ByteString -> String
 
-instance forall s m i. IsInterface i => IsSomeObject (Object s m i) where
+instance forall s m i. IsInterface i => IsObject (Object s m i) where
   objectId (Object oId _) = oId
   objectInterfaceName _ = interfaceName @i
 
@@ -183,7 +183,7 @@ data SomeObject s m
   = forall i. IsInterfaceSide s i => SomeObject (Object s m i)
   | UnknownObject String ObjectId
 
-instance IsSomeObject (SomeObject s m) where
+instance IsObject (SomeObject s m) where
   objectId (SomeObject object) = objectId object
   objectId (UnknownObject _ oId) = oId
   objectInterfaceName (SomeObject object) = objectInterfaceName object