projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
58652c5
)
'a'# syntax is enabled by the MagicHash extension
author
Ian Lynagh
<igloo@earth.li>
Tue, 10 Jul 2007 20:39:24 +0000
(20:39 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 10 Jul 2007 20:39:24 +0000
(20:39 +0000)
compiler/parser/Lexer.x
patch
|
blob
|
history
diff --git
a/compiler/parser/Lexer.x
b/compiler/parser/Lexer.x
index
39ce371
..
520e682
100644
(file)
--- 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