From af5abae55874cb56da5423166d0a545a80b7ec9d Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
Date: Sat, 12 Feb 2022 13:17:11 +0400
Subject: [PATCH] fix group leave (#294)

Co-authored-by: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
---
 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 ff7932c709..a055f9434f 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -1181,7 +1181,7 @@ throwChatError = throwError . ChatError
 deleteMemberConnection :: ChatMonad m => GroupMember -> m ()
 deleteMemberConnection m@GroupMember {activeConn} = do
   -- User {userId} <- asks currentUser
-  withAgent $ forM_ (memberConnId m) . suspendConnection
+  withAgent (forM_ (memberConnId m) . deleteConnection) `catchError` const (pure ())
   -- withStore $ \st -> deleteGroupMemberConnection st userId m
   forM_ activeConn $ \conn -> withStore $ \st -> updateConnectionStatus st conn ConnDeleted