From 0e585d5e5b69448d1e97f59b8628c263adab1d4f Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Fri, 26 Jan 2024 20:30:21 +0400 Subject: [PATCH] core: fix group invitation marked deleted --- 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 67a63dcbe0..dcd392629c 100644 --- a/src/Simplex/Chat.hs +++ b/src/Simplex/Chat.hs @@ -1028,6 +1028,7 @@ processChatCommand' vr = \case when (memberActive membership && isOwner) . void $ sendGroupMessage' user gInfo members XGrpDel deleteGroupLinkIfExists user gInfo deleteMembersConnections user members + updateCIGroupInvitationStatus user gInfo CIGISRejected `catchChatError` \_ -> pure () -- functions below are called in separate transactions to prevent crashes on android -- (possibly, race condition on integrity check?) withStore' $ \db -> deleteGroupConnectionsAndFiles db user gInfo members @@ -1035,7 +1036,6 @@ processChatCommand' vr = \case withStore' $ \db -> deleteGroup db user gInfo let contactIds = mapMaybe memberContactId members deleteAgentConnectionsAsync user . concat =<< mapM deleteUnusedContact contactIds - updateCIGroupInvitationStatus user gInfo CIGISRejected `catchChatError` \_ -> pure () pure $ CRGroupDeletedUser user gInfo where deleteUnusedContact :: ContactId -> m [ConnId]