From f5730b3fda45b1cd3efe1ce276419aeaa3e7915b Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sun, 4 Sep 2022 10:08:22 +0100 Subject: Comment --- src/Compiler.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Compiler.hs') 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. -- cgit v1.2.3