From d341795a18356767381a960ee5e92dbe39eba269 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Wed, 13 Dec 2023 22:00:45 +0400
Subject: [PATCH] rename

---
 src/Simplex/Chat/Protocol.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Chat/Protocol.hs b/src/Simplex/Chat/Protocol.hs
index bd03e5d3f8..47acd15a96 100644
--- a/src/Simplex/Chat/Protocol.hs
+++ b/src/Simplex/Chat/Protocol.hs
@@ -291,7 +291,7 @@ forwardedGroupMsg msg@ChatMessage {chatMsgEvent} = case encoding @e of
   _ -> Nothing
 
 msgIncludedInHistory :: forall e. MsgEncodingI e => ChatMessage e -> Set SharedMsgId -> Maybe (ChatMessage 'Json)
-msgIncludedInHistory msg@ChatMessage {chatMsgEvent} accMsgIds = case encoding @e of
+msgIncludedInHistory msg@ChatMessage {chatMsgEvent} refMsgIds = case encoding @e of
   SJson -> case chatMsgEvent of
     XMsgNew mc -> case mcExtMsgContent mc of
       ExtMsgContent {file = Just FileInvitation {fileInline = Just _}} -> Nothing
@@ -304,7 +304,7 @@ msgIncludedInHistory msg@ChatMessage {chatMsgEvent} accMsgIds = case encoding @e
     _ -> Nothing
     where
       refIncluded msgId
-        | msgId `elem` accMsgIds = Just msg
+        | msgId `elem` refMsgIds = Just msg
         | otherwise = Nothing
   _ -> Nothing