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]