From 689f7fbc7012226ce6f4c230746b19f279455926 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 9 Sep 2021 14:42:26 +0200
Subject: [PATCH] Rename IsSomeObject to IsObject

---
 src/Quasar/Wayland/Core.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Quasar/Wayland/Core.hs b/src/Quasar/Wayland/Core.hs
index 1872078..5fcfac8 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
-- 
GitLab