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

QCONSYM added

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

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