- ((local_ccs, extern_ccs, cc_stacks),
- stg_binds2)
- = initMM mod_name us (do_top_bindings stg_binds)
-
- (fixed_ccs, fixed_cc_stacks)
- = if opt_AutoSccsOnIndividualCafs
- then ([],[]) -- don't need "all CAFs" CC
- -- (for Prelude, we use PreludeCC)
- else ([all_cafs_cc], [all_cafs_ccs])
-
- local_ccs_no_dups = fst (removeDups cmpCostCentre local_ccs)
- extern_ccs_no_dups = fst (removeDups cmpCostCentre extern_ccs)
+ ((local_ccs, extern_ccs, cc_stacks),
+ stg_binds2)
+ = initMM mod_name us (do_top_bindings stg_binds)
+
+ (fixed_ccs, fixed_cc_stacks)
+ = if opt_AutoSccsOnIndividualCafs
+ then ([],[]) -- don't need "all CAFs" CC
+ -- (for Prelude, we use PreludeCC)
+ else ([all_cafs_cc], [all_cafs_ccs])
+
+ local_ccs_no_dups = fst (removeDups cmpCostCentre local_ccs)
+ extern_ccs_no_dups = fst (removeDups cmpCostCentre extern_ccs)