diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-14 08:08:41 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-14 08:08:41 +0100 |
| commit | f6a4fbe5c5c3e06b7c9515c479e14dd445efe2ae (patch) | |
| tree | c6029ac3fe3ee9bb5deabb692bc9361237d4de9b /src/Compiler.hs | |
| parent | 646e018c9f09bb122b7fa1d9270f6cfc6bd06dd7 (diff) | |
| download | micro-lang-hs-f6a4fbe5c5c3e06b7c9515c479e14dd445efe2ae.tar.gz micro-lang-hs-f6a4fbe5c5c3e06b7c9515c479e14dd445efe2ae.zip | |
Slightly better error message
Diffstat (limited to 'src/Compiler.hs')
| -rw-r--r-- | src/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Compiler.hs b/src/Compiler.hs index c8889b6..d39a184 100644 --- a/src/Compiler.hs +++ b/src/Compiler.hs @@ -57,7 +57,7 @@ compile x = do p@(Right (Just (A.FuncType _ _))) -> return $ p Right _ -> do (ev, errs) <- get - put (ev, Error ("value is not callable") pos : errs) + put (ev, Error ("non callable value in function call") pos : errs) return $ Right Nothing Left r -> return $ Right Nothing (A.Return value pos) -> case value of |