From ad26e9a641b8bd33dca8120a3352b1f1b6a4e746 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Fri, 22 Mar 2024 12:53:31 +0400
Subject: [PATCH] reorder

---
 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 d38eb4d78e..636ade4b0a 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -5493,8 +5493,8 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage =
     xGrpMemRole gInfo@GroupInfo {membership} m@GroupMember {memberRole = senderRole} memId memRole msg brokerTs
       | membershipMemId == memId =
           checkRole membership $ do
-            let gInfo' = gInfo {membership = membership {memberRole = memRole}}
             when (memRole < GRAdmin) $ deleteGroupLinkIfExists user gInfo
+            let gInfo' = gInfo {membership = membership {memberRole = memRole}}
             changeMemberRole gInfo' membership $ RGEUserRole memRole
       | otherwise =
           withStore' (\db -> runExceptT $ getGroupMemberByMemberId db vr user gInfo memId) >>= \case