don't broadcast x.grp.mem.del when removing group member with status "invited" (#169)

2021-12-30 17:36:24 +04:00
parent 74cb3a3cc0
commit 3160a9559a
1 changed files with 1 additions and 1 deletions
--- 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)