From: simonpj@microsoft.com <unknown>
Date: Tue, 13 Jan 2009 17:09:48 +0000 (+0000)
Subject: Fix Trac #2931
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=97583b57b68d646a5735c995cf7be217a8e83ffe;hp=62eeda5aed31173b234b2965ccf4bd6979ffd9a4

Fix Trac #2931

Fix the lexical analyser when it encounters 'x<EOF> and Template
Haskell is on.
---

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