fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(personalised-sheet-files): don't delete files when "keep"

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-09 17:07:17 +01:00
parent 6185138a39
commit 6008cb040d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/Sheet/PersonalisedFiles.hs
View File

@ -153,9 +153,10 @@ sinkPersonalisedSheetFiles cid sid keep
openSinks <- State.get openSinks <- State.get
lift . lift . mapM_ closeResumableSink $ openSinks ^.. folded . folded lift . lift . mapM_ closeResumableSink $ openSinks ^.. folded . folded
let (nub -> sinkSheets, nub -> sinkUsers) = unzip $ Map.keys openSinks let (nub -> sinkSheets, nub -> sinkUsers) = unzip $ Map.keys openSinks
lift . lift $ deleteWhere [ PersonalisedSheetFileSheet <-. sinkSheets unless keep $
, PersonalisedSheetFileUser /<-. sinkUsers lift . lift $ deleteWhere [ PersonalisedSheetFileSheet <-. sinkSheets
] , PersonalisedSheetFileUser /<-. sinkUsers
]
msgUnreferenced ((), unreferenced) = unless (null collated && null uncollated) $ msgUnreferenced ((), unreferenced) = unless (null collated && null uncollated) $
addMessageModal msgStatus msgTrigger $ Right msgWidget addMessageModal msgStatus msgTrigger $ Right msgWidget