[commit: ghc] master: Tidy up trace message (bfd0064)

[git at git.haskell.org]

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

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

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

commit bfd00648c0b8527d56974d5af71fd5c149dbc565
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Apr 14 10:01:12 2014 +0100

    Tidy up trace message


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

bfd00648c0b8527d56974d5af71fd5c149dbc565
 compiler/typecheck/TcInteract.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs
index 75835ad..b8c4c81 100644
--- a/compiler/typecheck/TcInteract.lhs
+++ b/compiler/typecheck/TcInteract.lhs
@@ -1830,7 +1830,7 @@ matchClassInst _ clas [ ty ] _
 
 matchClassInst _ clas [ _k, ty1, ty2 ] loc
   | clas == coercibleClass =  do
-      traceTcS "matchClassInst for" $ ppr clas <+> ppr ty1 <+> ppr ty2 <+> text "at depth" <+> ppr (ctLocDepth loc)
+      traceTcS "matchClassInst for" $ quotes (pprClassPred clas [ty1,ty2]) <+> text "at depth" <+> ppr (ctLocDepth loc)
       ev <- getCoercibleInst loc ty1 ty2
       traceTcS "matchClassInst returned" $ ppr ev
       return ev