mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2024-12-17 17:20:21 +01:00
reverse batches
This commit is contained in:
+1
-1
@@ -5653,7 +5653,7 @@ data ChatMessageBatch
|
||||
| CMBLargeMessage SndMessage
|
||||
|
||||
batchChatMessages :: NonEmpty SndMessage -> [ChatMessageBatch]
|
||||
batchChatMessages = mkBatch []
|
||||
batchChatMessages = reverse . mkBatch []
|
||||
where
|
||||
mkBatch :: [ChatMessageBatch] -> NonEmpty SndMessage -> [ChatMessageBatch]
|
||||
mkBatch batches msgs =
|
||||
|
||||
Reference in New Issue
Block a user