Add an `Outputable` instance for `HsTyLit`
authorIavor S. Diatchki <iavor.diatchki@gmail.com>
Sun, 18 Mar 2012 21:41:26 +0000 (14:41 -0700)
committerIavor S. Diatchki <iavor.diatchki@gmail.com>
Sun, 18 Mar 2012 21:41:26 +0000 (14:41 -0700)
compiler/hsSyn/HsTypes.lhs

index bd8ffa0..39181f7 100644 (file)
@@ -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