From: sof <unknown>
Date: Thu, 4 Sep 1997 20:13:34 +0000 (+0000)
Subject: [project @ 1997-09-04 20:13:03 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~13
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3a85982db642481dc2e6c8bc1367862e1b096058;p=ghc-hetmet.git

[project @ 1997-09-04 20:13:03 by sof]
QCONSYM added
---

diff --git a/ghc/compiler/rename/ParseType.y b/ghc/compiler/rename/ParseType.y
index 1039a42..8799da4 100644
--- a/ghc/compiler/rename/ParseType.y
+++ b/ghc/compiler/rename/ParseType.y
@@ -66,6 +66,7 @@ parseType ls =
 	VARSYM		    { ITvarsym 	 $$ }
 	CONSYM		    { ITconsym 	 $$ }
 	QCONID		    { ITqconid   $$ }
+	QCONSYM		    { ITqconsym  $$ }
 
 	UNKNOWN             { ITunknown $$ }
 %%
@@ -137,6 +138,7 @@ tv_names	:: { [RdrName] }
 
 tc_name		:: { RdrName }
 tc_name		:  QCONID		{ lexTcQual $1 }
+		|  QCONSYM		{ lexTcQual $1 }
 		|  CONID		{ Unqual (TCOcc $1) }
 		|  CONSYM		{ Unqual (TCOcc $1) }
 		|  OPAREN RARROW CPAREN	{ Unqual (TCOcc SLIT("->")) }
diff --git a/ghc/compiler/rename/ParseUnfolding.y b/ghc/compiler/rename/ParseUnfolding.y
index a2351a4..5c180eb 100644
--- a/ghc/compiler/rename/ParseUnfolding.y
+++ b/ghc/compiler/rename/ParseUnfolding.y
@@ -347,6 +347,7 @@ tv_names	:: { [RdrName] }
 
 tc_name		:: { RdrName }
 tc_name		:  QCONID		{ lexTcQual $1 }
+		|  QCONSYM		{ lexTcQual $1 }
 		|  CONID		{ Unqual (TCOcc $1) }
 		|  CONSYM		{ Unqual (TCOcc $1) }
 		|  OPAREN RARROW CPAREN	{ Unqual (TCOcc SLIT("->")) }