Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : type-nats
http://hackage.haskell.org/trac/ghc/changeset/5e10022dee2d52a4284eaf6556e27c795e20aa66 >--------------------------------------------------------------- commit 5e10022dee2d52a4284eaf6556e27c795e20aa66 Author: Iavor S. Diatchki <[email protected]> Date: Sun Mar 18 14:41:26 2012 -0700 Add an `Outputable` instance for `HsTyLit` >--------------------------------------------------------------- compiler/hsSyn/HsTypes.lhs | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/compiler/hsSyn/HsTypes.lhs b/compiler/hsSyn/HsTypes.lhs index bd8ffa0..39181f7 100644 --- a/compiler/hsSyn/HsTypes.lhs +++ b/compiler/hsSyn/HsTypes.lhs @@ -498,6 +498,9 @@ splitHsFunType other = ([], other) instance (OutputableBndr name) => Outputable (HsType name) where ppr ty = pprHsType ty +instance Outputable HsTyLit where + ppr = ppr_tylit + instance (Outputable sig) => Outputable (HsBndrSig sig) where ppr (HsBSig ty _) = ppr ty _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
