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 1039a42effe6..8799da46b42e 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 a2351a450571..5c180eb4fadf 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("->")) }
--
GitLab