X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Flex.icl;h=b3c76cd1ff70053bf30c57b575a2a96f7ec1a248;hb=0deec3b5e205945dc8cf8a00ca8cff4c96f42552;hp=ac5168f4d36ffcebd808061c60e8019996c07bb7;hpb=65f6bf827fa2f4d2f79f9e3bda990b7e4c4df5f1;p=cc1516.git

diff --git a/src/lex.icl b/src/lex.icl
index ac5168f..b3c76cd 100644
--- a/src/lex.icl
+++ b/src/lex.icl
@@ -72,4 +72,4 @@ lexToken =
 		lexEscape = fromJust <$> ((
 			lexOp "a" (toChar 7) <|> lexOp "b" '\b' <|> lexOp "f" '\f' <|>
 			lexOp "n" '\n' <|> lexOp "r" '\t' <|> lexOp "v" '\v' <|>
-			lexOp "'" '\'') <?> ("Unknown escape", 0))
+			lexOp "'" '\'') <?> LexError "Unknown escape")