Commit a622ea14 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Print contraint step counts only with -dppr-debug

parent 880046bb
......@@ -102,6 +102,7 @@ import FastString
import HsBinds -- for TcEvBinds stuff
import Id
import StaticFlags( opt_PprStyle_Debug )
import TcRnTypes
#ifdef DEBUG
import Control.Monad( when )
......@@ -527,7 +528,7 @@ runTcS context untouch tcs
#ifdef DEBUG
; count <- TcM.readTcRef step_count
; when (count > 0) $
; when (opt_PprStyle_Debug && count > 0) $
TcM.debugDumpTcRn (ptext (sLit "Constraint solver steps =")
<+> int count <+> ppr context)
#endif
......
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