[commit: ghc] master: Don't needlessly go via SDoc in mkAutoCC (b2ec66c)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/b2ec66c38731d6ee90659f95d03206e036947faf

>---------------------------------------------------------------

commit b2ec66c38731d6ee90659f95d03206e036947faf
Author: Ian Lynagh <igloo at earth.li>
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 }