[commit: ghc] master: Add a tiny bit more tracing (6e30aea)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/6e30aeae5b37636c221d5627e9a9649894075ce8/ghc

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

commit 6e30aeae5b37636c221d5627e9a9649894075ce8
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Oct 24 15:55:20 2013 +0100

    Add a tiny bit more tracing


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

6e30aeae5b37636c221d5627e9a9649894075ce8
 compiler/typecheck/TcSimplify.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcSimplify.lhs b/compiler/typecheck/TcSimplify.lhs
index 16cabeb..1d8a920 100644
--- a/compiler/typecheck/TcSimplify.lhs
+++ b/compiler/typecheck/TcSimplify.lhs
@@ -674,7 +674,8 @@ simpl_loop n implics
   | n > 10 
   = traceTcS "solveWanteds: loop!" empty >> return implics
   | otherwise 
-  = do { (floated_eqs, unsolved_implics) <- solveNestedImplications implics
+  = do { traceTcS "simpl_loop, iteration" (int n)
+       ; (floated_eqs, unsolved_implics) <- solveNestedImplications implics
        ; if isEmptyBag floated_eqs 
          then return unsolved_implics 
          else