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

[project @ 1997-09-04 20:14:52 by sof]
QCONSYM added; removed unused productions (qdata_name, any_var_name)
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 813a0f9..ae6faae 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -372,10 +372,6 @@ val_occs1	:: { [OccName] }
 		|  val_occ val_occs1	{ $1 : $2 }
 
 
-qvar_name	:: { RdrName }
-		:  QVARID		{ lexVarQual $1 }
-		|  QVARSYM		{ lexVarQual $1 }
-
 var_name	:: { RdrName }
 var_name	:  var_occ		{ Unqual $1 }
 
@@ -383,19 +379,10 @@ var_names1	:: { [RdrName] }
 var_names1	: var_name		{ [$1] }
 		| var_name var_names1	{ $1 : $2 }
 
-any_var_name	:: {RdrName}
-any_var_name	:  var_name		{ $1 }
-		|  qvar_name		{ $1 }
-
-qdata_name	:: { RdrName }
-qdata_name	:  QCONID		{ lexVarQual $1 }
-		|  QCONSYM		{ lexVarQual $1 }
-
 data_name	:: { RdrName }
 data_name	:  CONID		{ Unqual (VarOcc $1) }
 		|  CONSYM		{ Unqual (VarOcc $1) }
 
-
 tc_names1	:: { [RdrName] }
 		: tc_name			{ [$1] }
 		| tc_name COMMA tc_names1	{ $1 : $3 }
@@ -403,6 +390,7 @@ tc_names1	:: { [RdrName] }
 tc_name		:: { RdrName }
 tc_name		: tc_occ			{ Unqual $1 }
 		| QCONID			{ lexTcQual $1 }
+		| QCONSYM			{ lexTcQual $1 }
 
 tv_name		:: { RdrName }
 tv_name		:  VARID 		{ Unqual (TvOcc $1) }