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 <simo...@microsoft.com> 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 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
