[project @ 2003-09-09 09:12:36 by simonmar]

Back out previous revision

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index 855c27e..344f0c4 100644 (file)
--- a/ghc/compiler/parser/Lexer.x
+++ b/ghc/compiler/parser/Lexer.x
@@ -241,7 +241,7 @@ $white_no_nl+                               ;
 
 <glaexts> {
   @qual @varid "#"+            { idtoken qvarid }
-  @qual (@conid "#"+ | "()")   { idtoken qconid }
+  @qual @conid "#"+            { idtoken qconid }
   @varid "#"+                  { varid }
   @conid "#"+                  { idtoken conid }
 }