From 97583b57b68d646a5735c995cf7be217a8e83ffe Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Tue, 13 Jan 2009 17:09:48 +0000 Subject: [PATCH] Fix Trac #2931 Fix the lexical analyser when it encounters 'x and Template Haskell is on. --- compiler/parser/Lexer.x | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index e8f54ba..b3b2336 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1243,11 +1243,11 @@ lex_char_tok span _buf _len = do -- We've seen ' -- We've seen 'x, where x is a valid character -- (i.e. not newline etc) but not a quote or backslash case alexGetChar' i2 of -- Look ahead one more character - Nothing -> lit_error Just ('\'', i3) -> do -- We've seen 'x' setInput i3 finish_char_tok loc c _other -> do -- We've seen 'x not followed by quote + -- (including the possibility of EOF) -- If TH is on, just parse the quote only th_exts <- extension thEnabled let (AI end _ _) = i1 -- 1.7.10.4