[commit: ghc] master: Dont print "Constraint solver steps = n" if -dno-debug-output is on (fa7b383)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/fa7b383da0665fbb9c4a102507b16b02d1b3b77b

>---------------------------------------------------------------

commit fa7b383da0665fbb9c4a102507b16b02d1b3b77b
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Apr 20 17:18:45 2011 +0100

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

>---------------------------------------------------------------

 compiler/typecheck/TcSMonad.lhs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs
index cbf9330..647f22f 100644
--- 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