From 808f960c6aa800b0d3dcde897959a8e26303ef7d Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sat, 10 Sep 2022 19:20:11 +0100 Subject: Better interface --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app') 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 -- cgit v1.2.3