diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 13:50:12 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 13:54:06 +0100 |
| commit | b2ec66c38731d6ee90659f95d03206e036947faf (patch) | |
| tree | ec0c9ee7bf81284a3cbd6d4dee7eac923b180fcd /compiler/profiling | |
| parent | 4c5dd2798a2742f597c01ba65d4fcd44c36c4f1d (diff) | |
| download | haskell-b2ec66c38731d6ee90659f95d03206e036947faf.tar.gz | |
Don't needlessly go via SDoc in mkAutoCC
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/CostCentre.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs index a4d7d1a398..b342c31380 100644 --- a/compiler/profiling/CostCentre.lhs +++ b/compiler/profiling/CostCentre.lhs @@ -149,9 +149,9 @@ mkAutoCC id mod is_caf -- Unique. -- See bug #249, tests prof001, prof002, also #2411 str | isExternalName name = occNameFS (getOccName id) - | otherwise = mkFastString $ showSDoc $ - ftext (occNameFS (getOccName id)) - <> char '_' <> pprUnique (getUnique name) + | otherwise = occNameFS (getOccName id) + `appendFS` + mkFastString ('_' : show (getUnique name)) mkAllCafsCC :: Module -> SrcSpan -> CostCentre mkAllCafsCC m loc = AllCafsCC { cc_mod = m, cc_loc = loc } |