-instance Outputable IfaceKind where
- ppr k = pprIfaceKind tOP_PREC k
-
-pprParendIfaceKind :: IfaceKind -> SDoc
-pprParendIfaceKind k = pprIfaceKind tYCON_PREC k
-
-pprIfaceKind prec IfaceLiftedTypeKind = ptext SLIT("*")
-pprIfaceKind prec IfaceUnliftedTypeKind = ptext SLIT("#")
-pprIfaceKind prec IfaceOpenTypeKind = ptext SLIT("?")
-pprIfaceKind prec (IfaceFunKind k1 k2) = maybeParen prec fUN_PREC $
- sep [ pprIfaceKind fUN_PREC k1, arrow <+> ppr k2]
-
----------------------------------