From 4cabdd96e068e36141d94a0b5cb15abd5d714eb7 Mon Sep 17 00:00:00 2001 From: Henner Zeller Date: Mon, 16 Sep 2019 11:31:40 -0700 Subject: [PATCH] Describe Lexical Error as such in error message. Signed-off-by: Henner Zeller --- src/Language/SystemVerilog/Parser/Lex.x | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Language/SystemVerilog/Parser/Lex.x b/src/Language/SystemVerilog/Parser/Lex.x index 96da705..0a59174 100644 --- a/src/Language/SystemVerilog/Parser/Lex.x +++ b/src/Language/SystemVerilog/Parser/Lex.x @@ -518,12 +518,12 @@ lexFile includePaths env path = do alexEOF :: Alex () alexEOF = return () --- raises an alexError with the current file position appended +-- raises an alexError with the current file position lexicalError :: String -> Alex a lexicalError msg = do (pn, _, _, _) <- alexGetInput pos <- toTokPos pn - alexError $ show pos ++ "error: " ++ msg + alexError $ show pos ++ ": Lexical error: " ++ msg -- get the current user state get :: Alex AlexUserState