From 813d6affd1631b6fbacaf2af6c43c1a1210067f2 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sat, 22 Mar 2008 18:02:43 +0000
Subject: [PATCH] Fixed an error message in RainTypes

---
 frontends/RainTypes.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/frontends/RainTypes.hs b/frontends/RainTypes.hs
index 12203de..593323b 100644
--- a/frontends/RainTypes.hs
+++ b/frontends/RainTypes.hs
@@ -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