[project @ 1996-05-06 11:01:29 by partain]

[ghc-hetmet.git] / ghc / compiler / simplStg / SimplStg.lhs

diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs
index 4335884..f0aa84f 100644 (file)
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -53,8 +53,7 @@ stg2stg :: [StgToDo]          -- spec of what stg-to-stg passes to do
              [CostCentre]))    -- "extern" cost-centres
 
 stg2stg stg_todos module_name ppr_style us binds
-  = _scc_ "Stg2Stg"
-    case (splitUniqSupply us)  of { (us4now, us4later) ->
+  = case (splitUniqSupply us)  of { (us4now, us4later) ->
 
     (if do_verbose_stg2stg then
        hPutStr stderr "VERBOSE STG-TO-STG:\n" >>