From 60783fd9ddc9b3c8059c64d3b75a2e62ec6b4c2d Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Mon, 26 Aug 2024 10:21:22 +0100 Subject: [PATCH] shadowing --- src/Simplex/Messaging/Server.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Messaging/Server.hs b/src/Simplex/Messaging/Server.hs index d3a3a5286..1b1aac269 100644 --- a/src/Simplex/Messaging/Server.hs +++ b/src/Simplex/Messaging/Server.hs @@ -732,9 +732,9 @@ send th c@Client {sndQ, msgQ, sessionId} stats = do -- with other requests responses. mapM_ (atomically . writeTBQueue msgQ) $ L.nonEmpty msgs_ splitMessages :: [Transmission BrokerMsg] -> Transmission BrokerMsg -> ([Transmission BrokerMsg], Transmission BrokerMsg) - splitMessages msgs t@(corrId, entId, cmd) = case cmd of + splitMessages msgs t@(corrId, entId, cmd') = case cmd' of -- replace MSG response with OK, accumulating MSG in a separate list. - MSG {} -> ((CorrId "", entId, cmd) : msgs, (corrId, entId, OK)) + MSG {} -> ((CorrId "", entId, cmd') : msgs, (corrId, entId, OK)) _ -> (msgs, t) sendMsg :: Transport c => MVar (THandleSMP c 'TServer) -> Client -> IO ()