Implement --keep

2020-04-22 18:12:40 +02:00
parent 818a5d2d85
commit bcaccaaf31
5 changed files with 92 additions and 46 deletions
--- a/app/ghcup-gen/Validate.hs
+++ b/app/ghcup-gen/Validate.hs
@@ -175,7 +175,7 @@ validateTarballs dls = do

 where
  downloadAll dli = do
-    let settings = Settings True False
+    let settings = Settings True False Never
    let runLogger = myLoggerT LoggerConfig { lcPrintDebug = True
                                           , colorOutter  = B.hPut stderr
                                           , rawOutter    = (\_ -> pure ())