From b8f4f48518fbf34645d1b067f91831927b6f8602 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Thu, 26 Jan 2017 07:38:58 +0100 Subject: type-o --- codegen.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/codegen.hs b/codegen.hs index 95068be..1bdf7fd 100644 --- a/codegen.hs +++ b/codegen.hs @@ -272,7 +272,7 @@ castOperand orig@(A.LocalReference (A.IntegerType s1) _) t2@(TypeInt s2) castOperand orig@(A.ConstantOperand (A.C.Int s1 val)) t2@(TypeInt s2) | fromIntegral s1 == s2 = return orig | fromIntegral s1 < s2 = return $ A.ConstantOperand (A.C.Int (fromIntegral s2) val) - | fromIntegral s1 > s2 = throwError $ "Integer " ++ show val ++ " too large for tyoe '" ++ pshow t2 ++ "'" + | fromIntegral s1 > s2 = throwError $ "Integer " ++ show val ++ " too large for type '" ++ pshow t2 ++ "'" castOperand _ _ = undefined -- cgit v1.2.3-70-g09d2