Setup dir if input file exists

andwu137 · Oct 4, 2024 · 47f4c4b · 47f4c4b
1 parent 4abb4b0
commit 47f4c4b
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -87,12 +87,11 @@ main = do
         choiceM = fromMaybe (pure ()) . asum
 
     choiceM
-        [ input <&> \inF ->
+        [ input <&> \inF -> do
+            setupDirs [outDir, outTemp]
             choiceM
                 [ output <&> compile debug inF outTemp outDir
-                , pure $ do
-                    setupDirs [outDir, outTemp]
-                    compileFile inF
+                , pure $ compileFile inF
                 ]
         , inDir <&> \d -> do
             setupDirs [outDir, outTemp]