dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-09-25 17:44:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

rename

Browse Source
This commit is contained in:
spaced4ndy
2023-12-20 19:39:14 +04:00
parent 8fb6bec762
commit ed59dcea82
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+4 -4
View File
@@ -5660,16 +5660,16 @@ batchChatMessages = mkBatch []
batches' = batch : batches
in maybe batches' (mkBatch batches') msgs_
encodeBatch :: Builder.Builder -> Int -> Int -> [SndMessage] -> NonEmpty SndMessage -> (ChatMessageBatch, Maybe (NonEmpty SndMessage))
encodeBatch builder size count batchedMsgs remainingMsgs@(msg :| msgs_)
| size' <= maxChatMsgSize - 1 =
encodeBatch builder length count batchedMsgs remainingMsgs@(msg :| msgs_)
| length' <= maxChatMsgSize - 1 =
case L.nonEmpty msgs_ of
Just msgs' -> encodeBatch builder' size' count' batchedMsgs' msgs'
Just msgs' -> encodeBatch builder' length' count' batchedMsgs' msgs'
Nothing -> (CMBMessages $ MessagesBatch (builder' <> "]") (reverse batchedMsgs'), Nothing)
| count == 0 = (CMBLargeMessage msg, L.nonEmpty msgs_)
| otherwise = (CMBMessages $ MessagesBatch (builder <> "]") (reverse batchedMsgs), Just remainingMsgs)
where
SndMessage {msgBody} = msg
size' = size + B.length msgBody
length' = length + B.length msgBody
builder'
| count == 0 = builder <> Builder.byteString msgBody
| otherwise = builder <> "," <> Builder.byteString msgBody