From 7345a096d5d3c24dae0b3ef480c2f16ad0e83629 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 10 Jul 2007 20:39:24 +0000 Subject: [PATCH] 'a'# syntax is enabled by the MagicHash extension --- compiler/parser/Lexer.x | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4