[commit: ghc] master: Only steal ~# as a reserved operator when MagicHash is enabled; fixes #7776 (01efdd6)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/01efdd6c4b066fbfdf17c6d2b1cad0fd651d334a

>---------------------------------------------------------------

commit 01efdd6c4b066fbfdf17c6d2b1cad0fd651d334a
Author: Ian Lynagh <ian at well-typed.com>
Date:   Mon Mar 18 10:12:57 2013 +0000

    Only steal ~# as a reserved operator when MagicHash is enabled; fixes #7776

>---------------------------------------------------------------

 compiler/parser/Lexer.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index fdf75cf..6871210 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -679,7 +679,7 @@ reservedSymsFM = listToUFM $
        ,("->",  ITrarrow,   always)
        ,("@",   ITat,       always)
        ,("~",   ITtilde,    always)
-       ,("~#",  ITtildehsh, always)
+       ,("~#",  ITtildehsh, magicHashEnabled)
        ,("=>",  ITdarrow,   always)
        ,("-",   ITminus,    always)
        ,("!",   ITbang,     always)