diff options
Diffstat (limited to 'ghc/compiler/profiling/SCCfinal.lhs')
| -rw-r--r-- | ghc/compiler/profiling/SCCfinal.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs index 46878b7783..42f0a32950 100644 --- a/ghc/compiler/profiling/SCCfinal.lhs +++ b/ghc/compiler/profiling/SCCfinal.lhs @@ -116,7 +116,7 @@ stgMassageForProfiling mod_name grp_name us stg_binds -- Top level CAF without a cost centre attached -- Attach CAF cc (collect if individual CAF ccs) = (if opt_AutoSccsOnIndividualCafs - then let cc = mkAutoCC binder mod_name grp_name IsCafCC + then let cc = mkAutoCC binder mod_name grp_name CafCC ccs = mkSingletonCCS cc in collectCC cc `thenMM_` |