[commit: ghc] master: Remove bad debugging output. (9768c94)

git at git.haskell.org git at git.haskell.org
Wed Jul 11 02:26:51 UTC 2018


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9768c946ef1e15c636c098154eac082c813c87b7/ghc

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

commit 9768c946ef1e15c636c098154eac082c813c87b7
Author: Richard Eisenberg <rae at cs.brynmawr.edu>
Date:   Tue Jul 10 22:00:36 2018 -0400

    Remove bad debugging output.
    
    The removed line could cause GHC to hang by printing a
    knot-tied type.


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

9768c946ef1e15c636c098154eac082c813c87b7
 compiler/typecheck/TcHsType.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/compiler/typecheck/TcHsType.hs b/compiler/typecheck/TcHsType.hs
index 6039eea..1b3ae90 100644
--- a/compiler/typecheck/TcHsType.hs
+++ b/compiler/typecheck/TcHsType.hs
@@ -977,7 +977,6 @@ tcInferApps mode mb_kind_info orig_hs_ty fun_ty fun_ki orig_hs_args
            ; arg' <- addErrCtxt (funAppCtxt orig_hs_ty arg n) $
                      tc_lhs_type mode arg exp_kind
            ; traceTc "tcInferApps (vis 1)" (vcat [ ppr exp_kind
-                                                 , ppr arg'
                                                  , ppr (typeKind arg') ])
            ; let subst' = extendTvSubstBinderAndInScope subst ki_binder arg'
            ; go (n+1) (arg' : acc_args) subst'



More information about the ghc-commits mailing list