diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-04 10:08:22 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-04 10:08:22 +0100 |
| commit | f5730b3fda45b1cd3efe1ce276419aeaa3e7915b (patch) | |
| tree | aa3837ed30c3d2eec285313f6801099c2468b92d /src | |
| parent | d4d7e4faa62bf32ca99e7fe2277bea905cda508d (diff) | |
| download | micro-lang-hs-f5730b3fda45b1cd3efe1ce276419aeaa3e7915b.tar.gz micro-lang-hs-f5730b3fda45b1cd3efe1ce276419aeaa3e7915b.zip | |
Comment
Diffstat (limited to 'src')
| -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 f0169be..c59c2e3 100644 --- a/src/Compiler.hs +++ b/src/Compiler.hs @@ -74,7 +74,7 @@ typecheckVal value typ = do if r == typ then return $ Nothing else return $ Just $ "type mismatch\n found: " ++ showMaybet r ++ "\n expected: " ++ showMaybet typ - Left _ -> return $ Nothing -- error resolving return value + Left _ -> return $ Nothing -- error resolving value -- | @typecheckReturn value fret@ resolves @value@ and compares it with @fret@, -- returning a string decribing an error or Nothing in case of a type match. |