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

[ghc-hetmet.git] / ghc / compiler / rename / ParseUnfolding.y

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