Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a622ea14e2af31a8db2cace6e8877146cf0acd76 >--------------------------------------------------------------- commit a622ea14e2af31a8db2cace6e8877146cf0acd76 Author: Simon Peyton Jones <[email protected]> Date: Wed May 4 15:46:09 2011 +0100 Print contraint step counts only with -dppr-debug >--------------------------------------------------------------- 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 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
