From: sof <unknown>
Date: Fri, 25 Jul 1997 22:41:04 +0000 (+0000)
Subject: [project @ 1997-07-25 22:41:04 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~232
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fed91d4d411b583c92a5f80545e124daab0b8be5;p=ghc-hetmet.git

[project @ 1997-07-25 22:41:04 by sof]
Outputable Int instance
---

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)))