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

fa7b383d · Simon Peyton Jones · b187c221 · fa7b383d
Commit fa7b383d authored Apr 20, 2011 by Simon Peyton Jones
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -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