Improve trace
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 26 Oct 2012 09:55:31 +0000 (10:55 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 26 Oct 2012 09:55:31 +0000 (10:55 +0100)
compiler/typecheck/Inst.lhs

index 305e05c..5b6364b 100644 (file)
@@ -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