dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-05-15 03:46:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: fix business chat state on accept (fixes icon) (#5312)

Browse Source
This commit is contained in:
spaced4ndy
2024-12-04 12:12:30 +04:00
committed by GitHub
parent 3acc69c6d8
commit 6ff7d4a73c
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Store/Groups.hs
+5 -4
View File
@@ -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