From 2feb849fe45e680ed5cb67e6d04802463ab14f77 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Wed, 20 Dec 2023 22:01:39 +0400
Subject: [PATCH] reverse batches

---
 src/Simplex/Chat.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index f7ecbe8aa3..38beb1d5b0 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -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 =