forge/Vervis
1
0
Fork 0
Code Pull requests Activity

S2S: Project: Remove: Child-active: Fig bug, forgot to remove SourceUsLeaf records

Browse source
This commit is contained in:
Pere Lev 2024-04-27 12:40:29 +03:00
parent c2da1da9f4
commit 476f65aece
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Vervis/Actor/Project.hs
View file

@ -4288,6 +4288,7 @@ projectRemove now projectID (Verse authorIdMsig body) remove = do
deleteWhere [SourceUsLeafFromRemoteLeaf <-. leafIDs] deleteWhere [SourceUsLeafFromRemoteLeaf <-. leafIDs]
deleteWhere [SourceUsLeafToLocalLeaf <-. leafIDs] deleteWhere [SourceUsLeafToLocalLeaf <-. leafIDs]
deleteWhere [SourceUsLeafToRemoteLeaf <-. leafIDs] deleteWhere [SourceUsLeafToRemoteLeaf <-. leafIDs]
deleteWhere [SourceUsLeafId <-. leafIDs]
case topic of case topic of
Left (localID, _, _) -> do Left (localID, _, _) -> do
deleteWhere [SourceThemDelegateLocalSource ==. localID] deleteWhere [SourceThemDelegateLocalSource ==. localID]