X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FUnpretty.lhs;h=3b0b912cd5db8790e3f83f7a163c8226ccef87ec;hb=1fb1ab5d53a09607e7f6d2450806760688396387;hp=aa0f7536ed0519a0e1dd31230d35faf1ec010765;hpb=573ef10b2afd99d3c6a36370a9367609716c97d2;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Unpretty.lhs b/ghc/compiler/utils/Unpretty.lhs
index aa0f753..3b0b912 100644
--- a/ghc/compiler/utils/Unpretty.lhs
+++ b/ghc/compiler/utils/Unpretty.lhs
@@ -82,7 +82,7 @@ uppPutStr	:: Handle -> Int -> Unpretty -> IO ()
 \begin{code}
 uppShow _ p	= cShow p
 
-uppPutStr f _ p = cPutStr f p
+uppPutStr f _ p = _scc_ "uppPutStr" (cPutStr f p)
 
 uppNil		= cNil
 uppStr s	= cStr s