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

add test

Browse Source
This commit is contained in:
Evgeny Poberezkin
2023-09-16 22:27:06 +01:00
parent cb7d847c6c
commit 58a17ebb8a
6 changed files with 49 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Simplex/Chat/Store/Groups.hs
View File

@@ -1271,7 +1271,8 @@ matchReceivedProbeHash db user@User {userId} _from@Contact {contactId} (ProbeHas
[] ->
getMembers >>= \case
[] -> pure Nothing
(gId, mId, probe) : _ -> get CGMGroupMember probe $ getGroupMember db user gId mId
(gId, mId, probe) : _ ->
get (uncurry CGMGroupMember) probe $ (,) <$> getGroupInfo db user gId <*> getGroupMember db user gId mId
(cId, probe) : _ -> get CGMContact probe $ getContact db user cId
currentTs <- getCurrentTime
DB.execute
@@ -1389,6 +1390,7 @@ updateMemberContact
GroupMember {groupId, groupMemberId, localDisplayName = memLDN, memberProfile = LocalProfile {profileId = memProfileId}} = do
-- TODO possibly, we should update profiles and local_display_names of all members linked to the same remote user,
-- once we decide on how we identify it, either based on shared contact_profile_id or on local_display_name
currentTs <- getCurrentTime
DB.execute
db
[sql|
@@ -1396,7 +1398,7 @@ updateMemberContact
SET contact_id = ?, local_display_name = ?, contact_profile_id = ?, updated_at = ?
WHERE user_id = ? AND group_id = ? AND group_member_id = ?
|]
(contactId, localDisplayName, profileId, userId, groupId, groupMemberId)
(contactId, localDisplayName, profileId, currentTs, userId, groupId, groupMemberId)
when (memProfileId /= profileId) $ deleteUnusedProfile_ db userId memProfileId
when (memLDN /= localDisplayName) $ deleteUnusedDisplayName_ db userId memLDN