From fa7b383da0665fbb9c4a102507b16b02d1b3b77b Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Wed, 20 Apr 2011 17:18:45 +0100 Subject: [PATCH] Dont print "Constraint solver steps = n" if -dno-debug-output is on --- compiler/typecheck/TcSMonad.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 1.7.10.4