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