diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-07-10 20:39:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-07-10 20:39:24 +0000 |
| commit | 7345a096d5d3c24dae0b3ef480c2f16ad0e83629 (patch) | |
| tree | 9bd8c2aad4557351bcbe1313cd5bc50549f9d787 /compiler/parser | |
| parent | 58652c5c3faffc48dd36eb49dad33391d2300459 (diff) | |
| download | haskell-7345a096d5d3c24dae0b3ef480c2f16ad0e83629.tar.gz | |
'a'# syntax is enabled by the MagicHash extension
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Lexer.x | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 39ce371258..520e6825c5 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 |