Improve trace

9246f7c8 · Simon Peyton Jones · b01edb03 · 9246f7c8
Commit 9246f7c8 authored Oct 26, 2012 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

compiler/typecheck/Inst.lhs compiler/typecheck/Inst.lhs +2 -2

No files found.
--- 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