core: correct group event

This commit is contained in:
JRoberts
2022-07-21 11:01:04 +04:00
parent a509e85195
commit de9c112725
+1 -1
View File
@@ -2053,7 +2053,7 @@ processAgentMessage (Just user@User {userId, profile}) agentConnId agentMessage
updateGroupMemberStatus db userId membership GSMemGroupDeleted
pure members
mapM_ deleteMemberConnection ms
ci <- saveRcvChatItem user (CDGroupRcv gInfo m) msg msgMeta (CIRcvGroupEvent RGEMemberLeft) Nothing
ci <- saveRcvChatItem user (CDGroupRcv gInfo m) msg msgMeta (CIRcvGroupEvent RGEGroupDeleted) Nothing
groupMsgToView gInfo m ci msgMeta
toView $ CRGroupDeleted gInfo {membership = membership {memberStatus = GSMemGroupDeleted}} m