fix(haskell): don't attempt to remove VCS dirs if they don't exist

Fixes #829
fosskers · Jun 27, 2024 · f1a518a · f1a518a
1 parent b760b0a
commit f1a518a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/haskell/aura/exec/Aura/Commands/C.hs b/haskell/aura/exec/Aura/Commands/C.hs
@@ -200,5 +200,7 @@ cleanDir :: RIO Env ()
 cleanDir = do
   ss <- asks settings
   let !vcsPath = fromMaybe vcsStore . vcsPathOf $ buildConfigOf ss
-  notify ss cleanCache_6
-  listDirectory vcsPath >>= traverse_ (removeDirectoryRecursive . (</>) vcsPath)
+  exists <- doesDirectoryExist vcsPath
+  when exists $ do
+    notify ss cleanCache_6
+    listDirectory vcsPath >>= traverse_ (removeDirectoryRecursive . (</>) vcsPath)