From fed91d4d411b583c92a5f80545e124daab0b8be5 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 25 Jul 1997 22:41:04 +0000 Subject: [PATCH] [project @ 1997-07-25 22:41:04 by sof] Outputable Int instance --- ghc/compiler/utils/Outputable.lhs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index 8dc611b..f7fb7fc 100644 --- a/ghc/compiler/utils/Outputable.lhs +++ b/ghc/compiler/utils/Outputable.lhs @@ -130,6 +130,9 @@ instance Outputable Bool where ppr sty True = ptext SLIT("True") ppr sty False = ptext SLIT("False") +instance Outputable Int where + ppr sty n = int n + instance (Outputable a) => Outputable [a] where ppr sty xs = brackets (fsep (punctuate comma (map (ppr sty) xs))) -- 1.7.10.4