[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