[commit: ghc] master: Better debug printing (0849d02)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0849d0243192ac10798b2095a25e18b7f611988c/ghc

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

commit 0849d0243192ac10798b2095a25e18b7f611988c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Dec 10 17:49:48 2013 +0000

    Better debug printing


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

0849d0243192ac10798b2095a25e18b7f611988c
 compiler/typecheck/TcRnTypes.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index e71d73a..b7c9790 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -1294,8 +1294,8 @@ instance Outputable Implication where
               , ic_binds = binds, ic_info = info })
    = ptext (sLit "Implic") <+> braces
      (sep [ ptext (sLit "Untouchables =") <+> ppr untch
-          , ptext (sLit "Skolems =") <+> ppr skols
-          , ptext (sLit "Flatten-skolems =") <+> ppr fsks
+          , ptext (sLit "Skolems =") <+> pprTvBndrs skols
+          , ptext (sLit "Flatten-skolems =") <+> pprTvBndrs fsks
           , ptext (sLit "Given =") <+> pprEvVars given
           , ptext (sLit "Wanted =") <+> ppr wanted
           , ptext (sLit "Binds =") <+> ppr binds