From 64880a4e1fc756ad2e2bb818356b9b3e9ba3c402 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sun, 14 Aug 2022 07:51:14 +0100 Subject: Check type of expressions in calls to be callable --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 0b4325c..3c75d02 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -15,7 +15,7 @@ main = do case res of Left err -> hPutStrLn stderr ("error: " ++ show err) >> exitFailure Right ast -> do - res <- return $ evalState (compile ast) startState + res <- return $ evalState (compileAll ast) startState case res of Right _ -> print ast Left errs -> hPutStrLn stderr $ showErrorList errs -- cgit v1.2.3