Fixed an error message in RainTypes

This commit is contained in:
Neil Brown 2008-03-22 18:02:43 +00:00
parent b1f962d7c2
commit 813d6affd1

View File

@ -258,7 +258,8 @@ checkExpressionTypes = applyDepthM checkExpression
then return e
else if isImplicitConversionRain src dest
then return e
else diePC m $ formatCode "Invalid cast from: % to: %" dest src
else diePC m $ formatCode "Invalid cast from: % to: %"
src dest
checkExpression e = return e
convert :: A.Type -> A.Type -> A.Expression -> A.Expression