From f30f021556c5c484149fb7f00ffcb89b29c74a52 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Tue, 14 Sep 2021 18:43:14 +0200
Subject: [PATCH] Strengthen constraint
---
src/Quasar/Wayland/Protocol/Core.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index 9ac4b54..7ec275b 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -419,13 +419,14 @@ handleMessage rawMessage@(oId, opcode, body) = do
throwM $ ProtocolException $ "Received message for object without handler: " <> interface <> "@" <> show oId
getMessageAction
- :: (IsSide s, IsInterface i, MonadCatch m)
+ :: (IsInterfaceSide s i, MonadCatch m)
=> HashMap ObjectId (SomeObject s m)
-> Object s m i
-> RawMessage
-> Get (ProtocolAction s m ())
getMessageAction objects object@(Object _ callback) (oId, opcode, body) = do
message <- getDown object opcode
+ -- TODO apply message to object
pure $ traceM $ "<- " <> showObjectMessage object message
type ProtocolAction s m a = StateT (ProtocolState s m) m a
--
GitLab