Make GHCup isolate installs non-overwriting by default

2021-08-23 20:18:45 +05:30
parent a0c2a5ccec
commit 8c486e8d46
2 changed files with 38 additions and 9 deletions
--- a/lib/GHCup/Utils/File/Common.hs
+++ b/lib/GHCup/Utils/File/Common.hs
@@ -104,3 +104,6 @@ findFiles path regex = do
  contents <- listDirectory path
  pure $ filter (match regex) contents

+
+checkFileAlreadyExists :: (MonadIO m) => FilePath -> m Bool
+checkFileAlreadyExists fp = liftIO $ doesFileExist fp