Commit 15dc80ea authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Nuke tc-trace that makes the typechecker loop

The trace was being over-eager, which disturbs the typecheckers
careful knot-tying
parent 3462534c
...@@ -306,7 +306,6 @@ tcCheckHsTypeAndGen :: HsType Name -> Kind -> TcM Type ...@@ -306,7 +306,6 @@ tcCheckHsTypeAndGen :: HsType Name -> Kind -> TcM Type
tcCheckHsTypeAndGen hs_ty kind tcCheckHsTypeAndGen hs_ty kind
= do { ty <- tc_hs_type hs_ty (EK kind expectedKindMsg) = do { ty <- tc_hs_type hs_ty (EK kind expectedKindMsg)
; traceTc "tcCheckHsTypeAndGen" (ppr hs_ty) ; traceTc "tcCheckHsTypeAndGen" (ppr hs_ty)
; traceTc "tcCheckHsTypeAndGen" (ppr ty)
; kvs <- zonkTcTypeAndFV ty ; kvs <- zonkTcTypeAndFV ty
; kvs <- kindGeneralize kvs ; kvs <- kindGeneralize kvs
; return (mkForAllTys kvs ty) } ; return (mkForAllTys kvs ty) }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment