From: Ian Lynagh <igloo@earth.li>
Date: Tue, 10 Jul 2007 20:39:24 +0000 (+0000)
Subject: 'a'# syntax is enabled by the MagicHash extension
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7345a096d5d3c24dae0b3ef480c2f16ad0e83629

'a'# syntax is enabled by the MagicHash extension
---

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 39ce371..520e682 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1197,9 +1197,9 @@ lex_char_tok span buf len = do	-- We've seen '
 finish_char_tok :: SrcLoc -> Char -> P (Located Token)
 finish_char_tok loc ch	-- We've already seen the closing quote
 			-- Just need to check for trailing #
-  = do	glaexts <- extension glaExtsEnabled
+  = do	magicHash <- extension magicHashEnabled
 	i@(AI end _ _) <- getInput
-	if glaexts then do
+	if magicHash then do
 		case alexGetChar' i of
 			Just ('#',i@(AI end _ _)) -> do
 				setInput i