From a0538cc4f4b7c7d742a1da77f82709647c90003b Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 15 Sep 2021 00:31:38 +0200
Subject: [PATCH] Rename receiveMessages
---
src/Quasar/Wayland/Protocol/Core.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/Quasar/Wayland/Protocol/Core.hs b/src/Quasar/Wayland/Protocol/Core.hs
index efc41a8..fa16a38 100644
--- a/src/Quasar/Wayland/Protocol/Core.hs
+++ b/src/Quasar/Wayland/Protocol/Core.hs
@@ -405,7 +405,7 @@ initialProtocolState wlDisplayCallback wlRegistryCallback = sendInitialMessage i
feedInput :: (IsSide s, MonadCatch m) => ByteString -> ProtocolStep s m ()
feedInput bytes = protocolStep do
feed
- runCallbacks
+ receiveMessages
where
feed = State.modify \st -> st {
bytesReceived = st.bytesReceived + fromIntegral (BS.length bytes),
@@ -434,12 +434,12 @@ takeOutbox st = (maybeOutboxBytes, st{outbox = Nothing})
sendInitialMessage :: ProtocolState s m -> ProtocolState s m
sendInitialMessage = sendMessageInternal 1 1 [DynamicNewIdArgument 2]
-runCallbacks :: (IsSide s, MonadCatch m) => StateT (ProtocolState s m) m ()
-runCallbacks = receiveRawMessage >>= \case
+receiveMessages :: (IsSide s, MonadCatch m) => StateT (ProtocolState s m) m ()
+receiveMessages = receiveRawMessage >>= \case
Nothing -> pure ()
Just rawMessage -> do
handleRawMessage rawMessage
- runCallbacks
+ receiveMessages
handleRawMessage :: forall s m. (IsSide s, MonadCatch m) => RawMessage -> StateT (ProtocolState s m) m ()
handleRawMessage rawMessage@(oId, opcode, body) = do
--
GitLab