From: panne <unknown>
Date: Tue, 9 Sep 2003 08:40:38 +0000 (+0000)
Subject: [project @ 2003-09-09 08:40:38 by panne]
X-Git-Tag: Approx_11550_changesets_converted~483
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2bde7a3ed00cf16175b19d104895b5155332ed1d;p=ghc-hetmet.git

[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
--- 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 }
 }