Rain: indicated more clearly when a parse fails on lexing
This commit is contained in:
parent
bf0dc577a8
commit
c8cf8a9963
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user