Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-kinds
http://hackage.haskell.org/trac/ghc/changeset/f5fe3d3dc6459f7d8639eb3514024f8f1ae1c462 >--------------------------------------------------------------- commit f5fe3d3dc6459f7d8639eb3514024f8f1ae1c462 Author: Jose Pedro Magalhaes <[email protected]> Date: Wed Nov 2 08:35:31 2011 +0000 Do not print IfaceTvBndr kinds when kind == * >--------------------------------------------------------------- compiler/iface/IfaceType.lhs | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/compiler/iface/IfaceType.lhs b/compiler/iface/IfaceType.lhs index 882d90e..3bbaedd 100755 --- a/compiler/iface/IfaceType.lhs +++ b/compiler/iface/IfaceType.lhs @@ -207,8 +207,7 @@ pprIfaceIdBndr :: (IfLclName, IfaceType) -> SDoc pprIfaceIdBndr (name, ty) = hsep [ppr name, dcolon, ppr ty] pprIfaceTvBndr :: IfaceTvBndr -> SDoc -pprIfaceTvBndr (tv, IfaceTyConApp (IfaceTc n) []) - | n == liftedTypeKindTyConName +pprIfaceTvBndr (tv, IfaceTyConApp IfaceLiftedTypeKindTc []) = ppr tv pprIfaceTvBndr (tv, kind) = parens (ppr tv <> dcolon <> ppr kind) pprIfaceTvBndrs :: [IfaceTvBndr] -> SDoc _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
