sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 16:54:53 +09:00
Code Issues Activity

S2S: Common: Remove: When deleting Collab record, delete CollabDeleg*s too

Browse source
This commit is contained in:
Pere Lev 2023-12-07 18:21:35 +02:00
parent 6dceaa1cff
commit cfc8add212
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Actor/Common.hs
View file

@ -1379,6 +1379,8 @@ topicRemove grabActor topicResource topicField topicCollabField now topicKey (Ve
lift $ for maybeRemoveDB $ \ _removeDB -> do lift $ for maybeRemoveDB $ \ _removeDB -> do
-- Delete the whole Collab record -- Delete the whole Collab record
deleteBy $ UniqueCollabDelegLocal enableID
deleteBy $ UniqueCollabDelegRemote enableID
delete enableID delete enableID
case recipID of case recipID of
Left (E.Value l) -> do Left (E.Value l) -> do