fraport/fradrive-old
Archived
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

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

@ -153,6 +153,7 @@ 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
unless keep $
lift . lift $ deleteWhere [ PersonalisedSheetFileSheet <-. sinkSheets lift . lift $ deleteWhere [ PersonalisedSheetFileSheet <-. sinkSheets
, PersonalisedSheetFileUser /<-. sinkUsers , PersonalisedSheetFileUser /<-. sinkUsers
] ]