diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-14 17:49:02 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-14 17:49:02 +0100 |
| commit | fa4d7737f2a738fd82e62b84c8849bf67d12ceec (patch) | |
| tree | 577657081be6eaa5eb9dc9fd3c82295de0a8b3ec | |
| parent | 28dff65744f89de563ae41ba717d60fc7e300f29 (diff) | |
| download | micro-lang-hs-fa4d7737f2a738fd82e62b84c8849bf67d12ceec.tar.gz micro-lang-hs-fa4d7737f2a738fd82e62b84c8849bf67d12ceec.zip | |
Case removed by mistake
| -rw-r--r-- | src/Compiler.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Compiler.hs b/src/Compiler.hs index f86c973..65f635b 100644 --- a/src/Compiler.hs +++ b/src/Compiler.hs @@ -114,6 +114,7 @@ compile x = do case r of Just err -> addError $ Error err pos Nothing -> return $ Right rtyp + Right _ -> addError $ Error ("non callable value in function call") pos _ -> return $ Right Nothing (A.Return value pos) -> do (ev, errs) <- get |