From 3a37202b5a4d85cc43f1dc5678e9b89cec046c8f Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 9 Sep 2021 14:45:17 +0200
Subject: [PATCH] Add comment

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

diff --git a/src/Quasar/Wayland/Core.hs b/src/Quasar/Wayland/Core.hs
index 5fcfac8..0b600fb 100644
--- a/src/Quasar/Wayland/Core.hs
+++ b/src/Quasar/Wayland/Core.hs
@@ -141,14 +141,9 @@ instance IsSide 'Server where
   getDown :: forall m i. IsInterface i => Object 'Server m i -> Opcode -> Get (Down 'Server i)
   getDown = getMessage @(Down 'Server i)
 
-class
-  (
-    IsSide s,
-    IsInterface i,
-    IsMessage (Up s i),
-    IsMessage (Down s i)
-  )
-  => IsInterfaceSide (s :: Side) i where
+
+-- | Empty class, only required to combine constraints
+class (IsSide s, IsInterface i, IsMessage (Up s i), IsMessage (Down s i)) => IsInterfaceSide (s :: Side) i
 
 
 -- | Data kind
-- 
GitLab