From 3948980000cd0cbf47aa8fd524a5022cfeaee41d Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Sun, 8 Jun 2025 22:30:00 +0100 Subject: [PATCH] only use batch logic if there is more than one transmission --- 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 d727ed8e4..63b24b8b3 100644 --- a/src/Simplex/Messaging/Server.hs +++ b/src/Simplex/Messaging/Server.hs @@ -1083,10 +1083,10 @@ receive h@THandle {params = THandleParams {thAuth, sessionId}} ms Client {rcvQ, let (es, ts') = partitionEithers $ L.toList ts errs = map (second ERR) es case ts' of - (_, _, (_, _, Cmd p cmd)) : _ -> do + (_, _, (_, _, Cmd p cmd)) : rest -> do let service = peerClientService =<< thAuth (errs', cmds) <- partitionEithers <$> case batchParty p of - Just Dict | all (sameParty p) ts'-> do + Just Dict | not (null rest) && all (sameParty p) ts'-> do updateBatchStats stats cmd -- even if nothing is verified let queueId (_, _, (_, qId, _)) = qId qs <- getQueueRecs ms p $ map queueId ts'