Commit f5700001 authored by Simon Peyton Jones's avatar Simon Peyton Jones

A bit more tc-tracing

parent 0a851903
......@@ -1451,7 +1451,9 @@ kcHsTyVarBndrs name flav cusk all_kind_vars
tycon = mkTcTyCon name binders res_kind
(scoped_kvs ++ binderVars binders) flav
; traceTc "kcHsTyVarBndrs: not-cusk" (ppr name <+> ppr binders)
; traceTc "kcHsTyVarBndrs: not-cusk" $
vcat [ ppr name, ppr kv_ns, ppr hs_tvs, ppr dep_names
, ppr binders, ppr (mkTyConKind binders res_kind) ]
; return (tycon, stuff) }
where
open_fam = tcFlavourIsOpen flav
......
......@@ -1634,7 +1634,10 @@ tcGetTyVar_maybe (TyVarTy tv) = Just tv
tcGetTyVar_maybe _ = Nothing
tcGetTyVar :: String -> Type -> TyVar
tcGetTyVar msg ty = expectJust msg (tcGetTyVar_maybe ty)
tcGetTyVar msg ty
= case tcGetTyVar_maybe ty of
Just tv -> tv
Nothing -> pprPanic msg (ppr ty)
tcIsTyVarTy :: Type -> Bool
tcIsTyVarTy ty | Just ty' <- tcView ty = tcIsTyVarTy 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