[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 (file)
--- 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, [], [])