[commit: ghc] master: Improve trace (9246f7c)

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9246f7c8ad8c9be1a855f278236f2153811a27ea

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

commit 9246f7c8ad8c9be1a855f278236f2153811a27ea
Author: Simon Peyton Jones <[email protected]>
Date:   Fri Oct 26 10:55:31 2012 +0100

    Improve trace

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

 compiler/typecheck/Inst.lhs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/Inst.lhs b/compiler/typecheck/Inst.lhs
index 305e05c..5b6364b 100644
--- a/compiler/typecheck/Inst.lhs
+++ b/compiler/typecheck/Inst.lhs
@@ -216,8 +216,8 @@ instCallConstraints orig preds
   | null preds 
   = return idHsWrapper
   | otherwise
-  = do { traceTc "instCallConstraints" (pprTheta preds)
-       ; evs <- mapM go preds
+  = do { evs <- mapM go preds
+       ; traceTc "instCallConstraints" (ppr evs)
        ; return (mkWpEvApps evs) }
   where
     go pred