"Foo"# syntax is enabled by the MagicHash extension

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index be388d4..39ce371 100644 (file)
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1112,8 +1112,8 @@ lex_string s = do
 
     Just ('"',i)  -> do
        setInput i
-       glaexts <- extension glaExtsEnabled
-       if glaexts
+       magicHash <- extension magicHashEnabled
+       if magicHash
          then do
            i <- getInput
            case alexGetChar' i of