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

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

diff --git a/ghc/compiler/simplCore/SimplMonad.lhs b/ghc/compiler/simplCore/SimplMonad.lhs
index bb48d8f..d0b4358 100644
--- a/ghc/compiler/simplCore/SimplMonad.lhs
+++ b/ghc/compiler/simplCore/SimplMonad.lhs
@@ -210,10 +210,6 @@ showSimplCount (SimplCount _ stuff (_, unf1, unf2))
     shw ((t,n):tns) | n /= 0	= show t ++ ('\t' : show n) ++ ('\n' : shw tns)
 		    | otherwise = shw tns
 
-	-- ToDo: move to Outputable
-instance Outputable Int where
-   ppr sty n = int n
-
 zeroSimplCount :: SimplCount
 zeroSimplCount
   = SimplCount ILIT(0) stuff (0, [], [])