From cfc8add212027a9794908c272dbe13bc40847207 Mon Sep 17 00:00:00 2001
From: Pere Lev <pere@towards.vision>
Date: Thu, 7 Dec 2023 18:21:35 +0200
Subject: [PATCH] S2S: Common: Remove: When deleting Collab record, delete
 CollabDeleg*s too

---
 src/Vervis/Actor/Common.hs | 2 ++
 1 file changed, 2 insertions(+)

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