From 49cc29372fb3081ae7a2ff63351a91656bb9d8e2 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 Dec 1999 16:45:57 +0000
Subject: [PATCH] [project @ 1999-12-09 16:45:57 by simonmar] allow certain
keywords as scc labels.
---
ghc/compiler/rename/ParseIface.y | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index f8943492f580..7661607f4314 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -469,7 +469,6 @@ mod_name :: { ModuleName }
---------------------------------------------------
var_fs :: { EncodedFS }
: VARID { $1 }
- | VARSYM { $1 }
| '!' { SLIT("!") }
| 'as' { SLIT("as") }
| 'qualified' { SLIT("qualified") }
@@ -793,7 +792,7 @@ scc :: { CostCentre }
cc_name :: { EncodedFS }
: CONID { $1 }
- | VARID { $1 }
+ | var_fs { $1 }
cc_dup :: { IsDupdCC }
cc_dup : { OriginalCC }
--
GitLab