blade/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2024-12-17 17:20:21 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

core: fully remove invited member (#901)

Browse Source 
* core: fully remove invited member

* deleteMemberConnection
This commit is contained in:
Evgeny Poberezkin
2022-08-04 18:39:31 +01:00
committed by GitHub
parent 46319044f8
commit 13e7925348
2 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Store.hs
+8 -2
View File
@@ -81,6 +81,7 @@ module Simplex.Chat.Store
createMemberConnection,
updateGroupMemberStatus,
createNewGroupMember,
deleteGroupMember,
deleteGroupMemberConnection,
createIntroductions,
updateIntroStatus,
@@ -1585,8 +1586,13 @@ createNewMember_
groupMemberId <- insertedRowId db
pure GroupMember {..}
deleteGroupMemberConnection :: DB.Connection -> UserId -> GroupMember -> IO ()
deleteGroupMemberConnection db userId GroupMember {groupMemberId} =
deleteGroupMember :: DB.Connection -> User -> GroupMember -> IO ()
deleteGroupMember db user@User {userId} m@GroupMember {groupMemberId} = do
deleteGroupMemberConnection db user m
DB.execute db "DELETE FROM group_members WHERE user_id = ? AND group_member_id = ?" (userId, groupMemberId)
deleteGroupMemberConnection :: DB.Connection -> User -> GroupMember -> IO ()
deleteGroupMemberConnection db User {userId} GroupMember {groupMemberId} =
DB.execute db "DELETE FROM connections WHERE user_id = ? AND group_member_id = ?" (userId, groupMemberId)
createIntroductions :: DB.Connection -> [GroupMember] -> GroupMember -> IO [GroupMemberIntro]