refactor(flag): refactor flag file compilation

AxelHumeau · Jan 14, 2024 · ac0f36c · ac0f36c
1 parent 11b5db6
commit ac0f36c
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/LobsterLang/app/Main.hs b/LobsterLang/app/Main.hs
@@ -76,10 +76,11 @@ checkArgs ("-c":file:_) = either
 --                         (\_ -> print "File doesn't exist" >> exitWith (ExitFailure 84))
 --                         (interpretateVM file)
 --                         =<< (try (readFile file) :: IO (Either SomeException String))
--- checkArgs (file:_) = either
---                         (\_ -> print "File doesn't exist" >> exitWith (ExitFailure 84))
---                         (compileLobster file)
---                         =<< (try (readFile file) :: IO (Either SomeException String))
+checkArgs (file:_) = either
+                        (\_ -> print "File doesn't exist" >> exitWith (ExitFailure 84))
+--                        (compileLobster file)
+                        (compileFile file)
+                        =<< (try (readFile file) :: IO (Either SomeException String))
 
 -- | Main
 main :: IO ()