dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-05-24 06:35:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: Fix member role that wasn't applied to a member object (#1190)

Browse Source
This commit is contained in:
Stanislav Dmitrenko
2022-10-08 21:49:42 +03:00
committed by GitHub
parent 54705c07bd
commit cf001054c2
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+1 -1
View File
@@ -2395,7 +2395,7 @@ processAgentMessage (Just user@User {userId, profile}) corrId agentConnId agentM
withStore' $ \db -> updateGroupMemberRole db user member memRole
ci <- saveRcvChatItem user (CDGroupRcv gInfo m) msg msgMeta (CIRcvGroupEvent gEvent) Nothing
groupMsgToView gInfo m ci msgMeta
toView CRMemberRole {groupInfo = gInfo', byMember = m, member, fromRole, toRole = memRole}
toView CRMemberRole {groupInfo = gInfo', byMember = m, member = member {memberRole = memRole}, fromRole, toRole = memRole}
checkHostRole :: GroupMember -> GroupMemberRole -> m ()
checkHostRole GroupMember {memberRole, localDisplayName} memRole =