[commit: ghc] type-nats: Add an `Outputable` instance for `HsTyLit` (5e10022)

[Iavor Diatchki]

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 <iavor.diatchki at gmail.com>
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