[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / utils / Unpretty.lhs

diff --git a/ghc/compiler/utils/Unpretty.lhs b/ghc/compiler/utils/Unpretty.lhs
index aa0f753..3b0b912 100644 (file)
--- 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