From 476f65aece81f1ced7ac73b694d7d258ce9df4f7 Mon Sep 17 00:00:00 2001 From: Pere Lev Date: Sat, 27 Apr 2024 12:40:29 +0300 Subject: [PATCH] S2S: Project: Remove: Child-active: Fig bug, forgot to remove SourceUsLeaf records --- src/Vervis/Actor/Project.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Vervis/Actor/Project.hs b/src/Vervis/Actor/Project.hs index 5477bfb..c89d944 100644 --- a/src/Vervis/Actor/Project.hs +++ b/src/Vervis/Actor/Project.hs @@ -4288,6 +4288,7 @@ projectRemove now projectID (Verse authorIdMsig body) remove = do deleteWhere [SourceUsLeafFromRemoteLeaf <-. leafIDs] deleteWhere [SourceUsLeafToLocalLeaf <-. leafIDs] deleteWhere [SourceUsLeafToRemoteLeaf <-. leafIDs] + deleteWhere [SourceUsLeafId <-. leafIDs] case topic of Left (localID, _, _) -> do deleteWhere [SourceThemDelegateLocalSource ==. localID]