diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 19:20:11 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 19:20:11 +0100 |
| commit | 808f960c6aa800b0d3dcde897959a8e26303ef7d (patch) | |
| tree | 3e0f578e401128ec31f25c7c51c6a1852bc7b882 /app | |
| parent | a874ede2abd668b4db35b27d85a25777d6e4bc3c (diff) | |
| download | micro-lang-hs-808f960c6aa800b0d3dcde897959a8e26303ef7d.tar.gz micro-lang-hs-808f960c6aa800b0d3dcde897959a8e26303ef7d.zip | |
Better interface
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index e1be59d..9cf5d75 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -68,7 +68,7 @@ compileFile filename onlyParse = do case res of Left err -> hPutStrLn stderr (showParserError err) >> exitFailure Right ast -> do - res <- return $ evalState (compileAll ast) startState + res <- return $ compile ast case crExit res of Right out -> if onlyParse then exitSuccess else hPutStrLn stdout out Left errs -> hPutStr stderr (showErrorList errs) >> exitFailure |