From 77452bc2888f3fd071774b1177868e95f85a43dc Mon Sep 17 00:00:00 2001 From: "simonmar@microsoft.com" Date: Thu, 1 Jun 2006 11:53:06 +0000 Subject: [PATCH] improvements to lexical error reporting --- compiler/parser/Lexer.x | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 5015ca7..f6863c6 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1445,15 +1445,13 @@ lexToken = do span `seq` setLastToken span bytes t span buf bytes --- ToDo: Alex reports the buffer at the start of the erroneous lexeme, --- but it would be more informative to report the location where the --- error was actually discovered, especially if this is a decoding --- error. -reportLexError loc1 loc2 buf str = +reportLexError loc1 loc2 buf str + | atEnd buf = failLocMsgP loc1 loc2 (str ++ " at end of input") + | otherwise = let c = fst (nextChar buf) in if c == '\0' -- decoding errors are mapped to '\0', see utf8DecodeChar# - then failLocMsgP loc2 loc2 "UTF-8 decoding error" + then failLocMsgP loc2 loc2 (str ++ " (UTF-8 decoding error)") else failLocMsgP loc1 loc2 (str ++ " at character " ++ show c) } -- 1.7.10.4