From 6008cb040dea268e0a096f6c2fafa87f321d115f Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Mon, 9 Nov 2020 17:07:17 +0100
Subject: [PATCH] fix(personalised-sheet-files): don't delete files when "keep"

---
 src/Handler/Sheet/PersonalisedFiles.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Handler/Sheet/PersonalisedFiles.hs b/src/Handler/Sheet/PersonalisedFiles.hs
index 91da0bcc2..53f3b41f0 100644
--- a/src/Handler/Sheet/PersonalisedFiles.hs
+++ b/src/Handler/Sheet/PersonalisedFiles.hs
@@ -153,9 +153,10 @@ sinkPersonalisedSheetFiles cid sid keep
      openSinks <- State.get
      lift . lift . mapM_ closeResumableSink $ openSinks ^.. folded . folded
      let (nub -> sinkSheets, nub -> sinkUsers) = unzip $ Map.keys openSinks
-     lift . lift $ deleteWhere [ PersonalisedSheetFileSheet  <-. sinkSheets
-                               , PersonalisedSheetFileUser  /<-. sinkUsers
-                               ]
+     unless keep $
+       lift . lift $ deleteWhere [ PersonalisedSheetFileSheet  <-. sinkSheets
+                                 , PersonalisedSheetFileUser  /<-. sinkUsers
+                                 ]
 
    msgUnreferenced ((), unreferenced) = unless (null collated && null uncollated) $
      addMessageModal msgStatus msgTrigger $ Right msgWidget