[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 (file)
--- 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 } }