[commit: ghc] master: Remove some traceTc calls (8104f7c)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8104f7c674d7ef2db0c25312f48763202dcef57f/ghc

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

commit 8104f7c674d7ef2db0c25312f48763202dcef57f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Sun Jun 12 22:01:49 2016 +0100

    Remove some traceTc calls
    
    During the kind-checking "knot" we have to be careful not
    to print too eagerly.


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

8104f7c674d7ef2db0c25312f48763202dcef57f
 compiler/typecheck/TcHsType.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/typecheck/TcHsType.hs b/compiler/typecheck/TcHsType.hs
index 5492a8a..7fb77e6 100644
--- a/compiler/typecheck/TcHsType.hs
+++ b/compiler/typecheck/TcHsType.hs
@@ -769,10 +769,7 @@ tc_infer_args :: Outputable fun
               -> Int                      -- ^ number to start arg counter at
               -> TcM (TCvSubst, [TyBinder], [TcType], [LHsType Name], Int)
 tc_infer_args mode orig_ty binders mb_kind_info orig_args n0
-  = do { traceTc "tc_infer_args {" (ppr binders $$ ppr orig_args)
-       ; stuff <- go emptyTCvSubst binders orig_args n0 []
-       ; traceTc "tc_infer_args }" (ppr stuff)
-       ; return stuff }
+  = go emptyTCvSubst binders orig_args n0 []
   where
     go subst binders []   n acc
       = return ( subst, binders, reverse acc, [], n )