Commit 9246f7c8 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Improve trace

parent b01edb03
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment