Commit 8b7bf474 authored by sof's avatar sof
Browse files

[project @ 1997-07-25 22:41:46 by sof]

moved Outputable Int instance to Outputable
parent fed91d4d
......@@ -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, [], [])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment