This commit is contained in:
Evgeny Poberezkin
2026-07-27 12:34:37 +01:00
parent 98247def0d
commit b94620bd72
+1 -1
View File
@@ -980,7 +980,7 @@ processAgentMessageConn cxt user@User {userId} corrId agentConnId agentMessage =
gInfo'' <- ensureUserMemberKey gInfo'''
let incognitoProfile = ExistingIncognito <$> incognitoMembershipProfile gInfo''
profileToSend <- presentUserBadge user incognitoProfile $ userProfileInGroup user gInfo'' (fromIncognitoProfile <$> incognitoProfile)
sendGroupMemberMessages user gInfo'' conn (XGrpLinkMem profileToSend (groupMemberKey gInfo'') :| [])
sendGroupMemberMessages user gInfo'' conn [XGrpLinkMem profileToSend (groupMemberKey gInfo'')]
withStore' $ \db -> setMembersMemberKeySent db [groupMemberId' m']
_ -> do
unless (memberPending m) $ withStore' $ \db -> updateGroupMemberStatus db userId m GSMemConnected