diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-26 10:55:31 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-26 10:55:31 +0100 |
| commit | 9246f7c8ad8c9be1a855f278236f2153811a27ea (patch) | |
| tree | b36614558a825236c140cd99abf67fa496296c12 | |
| parent | b01edb03b0b1c61e170eb325e643b77c99042e68 (diff) | |
| download | haskell-9246f7c8ad8c9be1a855f278236f2153811a27ea.tar.gz | |
Improve trace
| -rw-r--r-- | 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 305e05c55e..5b6364b196 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 |