reverse batches

This commit is contained in:
spaced4ndy
2023-12-20 22:01:39 +04:00
parent 5819dada32
commit 2feb849fe4
+1 -1
View File
@@ -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 =