From a622ea14e2af31a8db2cace6e8877146cf0acd76 Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Wed, 4 May 2011 15:46:09 +0100
Subject: [PATCH] Print contraint step counts only with -dppr-debug

---
 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 647f22f..414c63a 100644
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -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
-- 
1.7.10.4