From 3a85982db642481dc2e6c8bc1367862e1b096058 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 20:13:34 +0000
Subject: [PATCH] [project @ 1997-09-04 20:13:03 by sof] QCONSYM added

---
 ghc/compiler/rename/ParseType.y      |    2 ++
 ghc/compiler/rename/ParseUnfolding.y |    1 +
 2 files changed, 3 insertions(+)

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("->")) }
-- 
1.7.10.4