Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b2ec66c38731d6ee90659f95d03206e036947faf >--------------------------------------------------------------- commit b2ec66c38731d6ee90659f95d03206e036947faf Author: Ian Lynagh <[email protected]> Date: Tue Jun 12 13:50:12 2012 +0100 Don't needlessly go via SDoc in mkAutoCC >--------------------------------------------------------------- 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 a4d7d1a..b342c31 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 } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
