Commit 3fcde749 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent 9bc5b530
......@@ -416,7 +416,10 @@ toHsType ty
to_hs_type (TyVarTy tv) = nlHsTyVar (getRdrName tv)
to_hs_type (AppTy t1 t2) = nlHsAppTy (toHsType t1) (toHsType t2)
to_hs_type (TyConApp tc args) = nlHsTyConApp (getRdrName tc) (map toHsType args')
where args' = filter (not . isKind) args
where
args' = filterOut isKind args
-- Source-language types have _implicit_ kind arguments,
-- so we must remove them here (Trac #8563)
to_hs_type (FunTy arg res) = ASSERT( not (isConstraintKind (typeKind arg)) )
nlHsFunTy (toHsType arg) (toHsType res)
to_hs_type t@(ForAllTy {}) = pprPanic "toHsType" (ppr t)
......
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