Merge remote-tracking branch 'origin/merge-requests/149'

2021-08-26 20:12:19 +02:00
parent 8c098d4e17 df758d828b
commit b086261c3c
2 changed files with 36 additions and 8 deletions
--- a/lib/GHCup/Utils/File/Common.hs
+++ b/lib/GHCup/Utils/File/Common.hs
@@ -102,3 +102,6 @@ findFiles path regex = do
  contents <- listDirectory path
  pure $ filter (match regex) contents

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