[project @ 2003-09-09 08:40:38 by panne]

Recognize the qualified unit as a lexeme when -fglasgow-exts is on
(which is the case when lexing .hi-boot files).

Note: Should `[]' and `(->)' be recognized similarly?

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index 344f0c4..855c27e 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 }
 }