diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs
index 4a65398f49..d7f3aa2a5d 100644
--- a/src/Simplex/Chat/Library/Internal.hs
+++ b/src/Simplex/Chat/Library/Internal.hs
@@ -2248,7 +2248,7 @@ sendGroupMemberMessages user gInfo@GroupInfo {groupId} conn events = do
 
 batchSendConnMessages :: GroupInfo -> User -> Connection -> MsgFlags -> NonEmpty SndMessage -> CM ([Either ChatError SndMessage], Maybe PQEncryption)
 batchSendConnMessages gInfo user conn msgFlags msgs =
-  batchSendConnMessagesB mode user conn msgFlags (L.map Right msgs)
+  batchSendConnMessagesB mode user conn msgFlags $ L.map Right msgs
   where
     mode
       | useRelays' gInfo || maxVersion (peerChatVRange conn) >= relayWebCapVersion = BMBinary