From: simonm <unknown>
Date: Fri, 26 Mar 1999 15:17:45 +0000 (+0000)
Subject: [project @ 1999-03-26 15:17:45 by simonm]
X-Git-Tag: Approximately_9120_patches~6347
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c3a20f9d324b51ec641840ce1c5a1501503ec539;p=ghc-hetmet.git

[project @ 1999-03-26 15:17:45 by simonm]
Fix for parsing __scc expressions.
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 4cf9211..bcf592d 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -682,7 +682,7 @@ ccall_string	:: { FAST_STRING }
 ------------------------------------------------------------------------
 scc     :: { CostCentre }
         :  '__sccC' '{' mod_name STRING '}'                      { AllCafsCC $3 $4 }
-        |  '__scc' '(' cc_name mod_name STRING cc_dup cc_caf '}'
+        |  '__scc' '{' cc_name mod_name STRING cc_dup cc_caf '}'
                              { NormalCC { cc_name = $3, cc_mod = $4, cc_grp = $5,
                                           cc_is_dupd = $6, cc_is_caf = $7 } }