From de9c112725691ee7976dc23c828518ce73a8b8ed Mon Sep 17 00:00:00 2001
From: JRoberts <8711996+jr-simplex@users.noreply.github.com>
Date: Thu, 21 Jul 2022 11:01:04 +0400
Subject: [PATCH] core: correct group event

---
 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 35fea2f1bb..dbf4fd775a 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -2053,7 +2053,7 @@ processAgentMessage (Just user@User {userId, profile}) agentConnId agentMessage
         updateGroupMemberStatus db userId membership GSMemGroupDeleted
         pure members
       mapM_ deleteMemberConnection ms
-      ci <- saveRcvChatItem user (CDGroupRcv gInfo m) msg msgMeta (CIRcvGroupEvent RGEMemberLeft) Nothing
+      ci <- saveRcvChatItem user (CDGroupRcv gInfo m) msg msgMeta (CIRcvGroupEvent RGEGroupDeleted) Nothing
       groupMsgToView gInfo m ci msgMeta
       toView $ CRGroupDeleted gInfo {membership = membership {memberStatus = GSMemGroupDeleted}} m