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 f894349..7661607 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 }
-- 
1.7.10.4