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

Dont print "Constraint solver steps = n" if -dno-debug-output is on

parent b187c221
......@@ -528,7 +528,8 @@ runTcS context untouch tcs
#ifdef DEBUG
; count <- TcM.readTcRef step_count
; when (count > 0) $
TcM.dumpTcRn (ptext (sLit "Constraint solver steps =") <+> int count <+> ppr context)
TcM.debugDumpTcRn (ptext (sLit "Constraint solver steps =")
<+> int count <+> ppr context)
#endif
-- And return
; ev_binds <- TcM.readTcRef evb_ref
......
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