From cf162f10a81a9e1d14ed61e3c705767c90033ad2 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Tue, 14 Sep 2021 23:11:04 +0200
Subject: [PATCH] Remove unused trace

---
 src/Quasar/Wayland/Protocol/Core.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index cfd75c7..762b5f1 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -465,9 +465,7 @@ getMessageAction
   -> Get (ProtocolAction s m ())
 getMessageAction objects object@(Object _ objectHandler) (oId, opcode, body) = do
   message <- getDown object opcode
-  pure do
-    --traceM $ "<- " <> showObjectMessage object message
-    handleMessage objectHandler object message
+  pure $ handleMessage objectHandler object message
 
 type ProtocolAction s m a = StateT (ProtocolState s m) m a
 
-- 
GitLab