diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-14 07:51:14 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-14 07:51:14 +0100 |
| commit | 64880a4e1fc756ad2e2bb818356b9b3e9ba3c402 (patch) | |
| tree | 8125b5a9a72c6ff99a3dbe57be1f177645230563 /src/Main.hs | |
| parent | 8c392eb76c143ea7667fe8529e697ac4777b567f (diff) | |
| download | micro-lang-hs-64880a4e1fc756ad2e2bb818356b9b3e9ba3c402.tar.gz micro-lang-hs-64880a4e1fc756ad2e2bb818356b9b3e9ba3c402.zip | |
Check type of expressions in calls to be callable
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |