Rain: indicated more clearly when a parse fails on lexing

This commit is contained in:
Neil Brown 2007-08-28 17:05:21 +00:00
parent bf0dc577a8
commit c8cf8a9963

View File

@ -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