From 8f9ef383c66ca81da275c557a25659625e424ebb Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Tue, 12 Dec 2023 15:21:49 +0400
Subject: [PATCH] wip

---
 src/Simplex/Chat.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index 23540ad9f6..b1a657b694 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -3600,10 +3600,9 @@ processAgentMessageConn user@User {userId} corrId agentConnId agentMessage = do
               processIntro intro@GroupMemberIntro {introId} = do
                 void $ sendDirectMessage conn (XGrpMemIntro $ memberInfo (reMember intro)) (GroupId groupId)
                 withStore' $ \db -> updateIntroStatus db introId GMIntroSent
-              -- TODO [batch send] send history batched
-              sendHistory = do
-                -- - check member version range is compatible with batchSendVRange
-                --   - send not batched if not compatible, or don't send?
+              sendHistory =
+                when (isCompatibleRange (memberChatVRange' m) batchSendVRange) $
+                  pure ()
                 -- - build list of messages forming latest history, possible approaches:
                 --   - retrieve events from 'messages' table as is and filter based on event type
                 --     - downside is that they are periodically cleaned up,
@@ -3620,7 +3619,6 @@ processAgentMessageConn user@User {userId} corrId agentConnId agentMessage = do
                 --     - more complex - custom reconstruction of reactions, file descriptions, etc.
                 --   - in any case use XGrpMsgForward to wrap messages together with their original ts and sender id
                 -- - send messages in batches (sendBatchedDirectMessages)
-                pure ()
           _ -> do
             -- TODO notify member who forwarded introduction - question - where it is stored? There is via_contact but probably there should be via_member in group_members table
             let memCategory = memberCategory m