type-o

1 files changed, 1 insertions, 1 deletions

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