diff --git a/src/Vervis/Actor/Common.hs b/src/Vervis/Actor/Common.hs index 145727a..5468e6d 100644 --- a/src/Vervis/Actor/Common.hs +++ b/src/Vervis/Actor/Common.hs @@ -1379,6 +1379,8 @@ topicRemove grabActor topicResource topicField topicCollabField now topicKey (Ve lift $ for maybeRemoveDB $ \ _removeDB -> do -- Delete the whole Collab record + deleteBy $ UniqueCollabDelegLocal enableID + deleteBy $ UniqueCollabDelegRemote enableID delete enableID case recipID of Left (E.Value l) -> do