diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index cfd75c758f56d3d0a85b26ed6c0fb978f4bf345f..762b5f193b77587dcd3e976df1a99e183156f041 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