From 6ff7d4a73c07a1d9dc8c58bdaa0977beb80f0649 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Wed, 4 Dec 2024 12:12:30 +0400
Subject: [PATCH] core: fix business chat state on accept (fixes icon) (#5312)

---
 src/Simplex/Chat/Store/Groups.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Simplex/Chat/Store/Groups.hs b/src/Simplex/Chat/Store/Groups.hs
index 2c938ecc44..dec4b6847e 100644
--- a/src/Simplex/Chat/Store/Groups.hs
+++ b/src/Simplex/Chat/Store/Groups.hs
@@ -919,9 +919,9 @@ createBusinessRequestGroup
     currentTs <- liftIO getCurrentTime
     groupInfo <- insertGroup_ currentTs
     (groupMemberId, memberId) <- insertClientMember_ currentTs groupInfo
-    liftIO $ setBusinessMemberId groupInfo memberId
+    groupInfo' <- liftIO $ setBusinessMemberId groupInfo memberId
     clientMember <- getGroupMemberById db vr user groupMemberId
-    pure (groupInfo, clientMember)
+    pure (groupInfo', clientMember)
     where
       insertGroup_ currentTs = ExceptT $
         withLocalDisplayName db userId displayName $ \localDisplayName -> runExceptT $ do
@@ -969,8 +969,9 @@ createBusinessRequestGroup
               )
             groupMemberId <- liftIO $ insertedRowId db
             pure (groupMemberId, MemberId memId)
-      setBusinessMemberId GroupInfo {groupId} businessMemberId = do
-        DB.execute db "UPDATE groups SET business_member_id = ? WHERE group_id = ?" (businessMemberId, groupId)
+      setBusinessMemberId groupInfo@GroupInfo {groupId} memberId = do
+        DB.execute db "UPDATE groups SET business_member_id = ? WHERE group_id = ?" (memberId, groupId)
+        pure (groupInfo {businessChat = Just BusinessChatInfo {memberId, chatType = BCCustomer}} :: GroupInfo)
 
 getContactViaMember :: DB.Connection -> VersionRangeChat -> User -> GroupMember -> ExceptT StoreError IO Contact
 getContactViaMember db vr user@User {userId} GroupMember {groupMemberId} = do