From 2bde7a3ed00cf16175b19d104895b5155332ed1d Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Tue, 9 Sep 2003 08:40:38 +0000
Subject: [PATCH] [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?
---
 ghc/compiler/parser/Lexer.x |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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