From c8cf8a9963bbaf866cc3348440b2cac6708bb793 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 28 Aug 2007 17:05:21 +0000
Subject: [PATCH] Rain: indicated more clearly when a parse fails on lexing

---
 RainParse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RainParse.hs b/RainParse.hs
index 44e32db..6a6e4be 100644
--- a/RainParse.hs
+++ b/RainParse.hs
@@ -347,7 +347,7 @@ parseRainProgram filename
     =  do source <- liftIO $ readFile filename
           lexOut <- liftIO $ L.runLexer filename source          
           case lexOut of
-            Left merr -> dieIO $ "Parse error at: " ++ (show merr)
+            Left merr -> dieIO $ "Parse (lexing) error at: " ++ (show merr)
             Right toks ->
               do cs <- get
                  case runParser rainSourceFile cs filename toks of