From 3160a9559ada76947482c80e5f1907df6ac82513 Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
Date: Thu, 30 Dec 2021 17:36:24 +0400
Subject: [PATCH] don't broadcast x.grp.mem.del when removing group member with
 status "invited" (#169)

---
 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 a073b72517..f87b62ef50 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -281,7 +281,7 @@ processChatCommand user@User {userId, profile} = \case
       Just member -> do
         let userRole = memberRole membership
         when (userRole < GRAdmin || userRole < memberRole member) $ chatError CEGroupUserRole
-        sendGroupMessage members . XGrpMemDel $ memberId member
+        when (memberStatus member /= GSMemInvited) . sendGroupMessage members $ XGrpMemDel (memberId member)
         deleteMemberConnection member
         withStore $ \st -> updateGroupMemberStatus st userId member GSMemRemoved
         showDeletedMember gName Nothing (Just member)