Use untracked version of doesDirectoryExist in GitClone

input-output-hk · Nov 13, 2023 · 46b371d · 46b371d
1 parent 6225a51
commit 46b371d
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/app/Foliage/GitClone.hs b/app/Foliage/GitClone.hs
@@ -10,12 +10,13 @@ module Foliage.GitClone (
 )
 where
 
-import Development.Shake
+import Development.Shake hiding (doesDirectoryExist)
 import Development.Shake.Classes
 import Development.Shake.FilePath
 import Development.Shake.Rule
 import Foliage.Meta (GitHubRepo)
 import GHC.Generics (Generic)
+import System.Directory (doesDirectoryExist)
 
 newtype GitClone = GitClone {repo :: GitHubRepo}
   deriving (Eq, Generic)
@@ -45,7 +46,7 @@ addGitCloneRule cacheDir = addBuiltinRule noLint noIdentity run
   run GitClone{repo} _old _mode = do
     let path = cacheDir </> "git" </> show repo
 
-    alreadyCloned <- doesDirectoryExist path
+    alreadyCloned <- liftIO $ doesDirectoryExist path
     if alreadyCloned
       then command_ [Cwd path] "git" ["fetch"]
       else do