diff options
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index 2da539b1e9..1224ad1d5a 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -105,10 +105,9 @@ emitTickyCounter cl_info args zeroCLit -- Link ] } where - name = closureName cl_info - ticky_ctr_label = mkRednCountsLabel name $ clHasCafRefs cl_info + ticky_ctr_label = closureRednCountsLabel cl_info arg_descr = map (showTypeCategory . idType) args - fun_descr mod_name = ppr_for_ticky_name mod_name name + fun_descr mod_name = ppr_for_ticky_name mod_name (closureName cl_info) -- When printing the name of a thing in a ticky file, we want to -- give the module name even for *local* things. We print |