diff options
| author | sof <unknown> | 1997-07-25 22:41:04 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-07-25 22:41:04 +0000 |
| commit | fed91d4d411b583c92a5f80545e124daab0b8be5 (patch) | |
| tree | 290d49ebc280bf8483642ac1332115e4842ba353 /ghc/compiler/utils/Outputable.lhs | |
| parent | 465d1c07cc5afd809bba071b0c1b54cb8ea8e102 (diff) | |
| download | haskell-fed91d4d411b583c92a5f80545e124daab0b8be5.tar.gz | |
[project @ 1997-07-25 22:41:04 by sof]
Outputable Int instance
Diffstat (limited to 'ghc/compiler/utils/Outputable.lhs')
| -rw-r--r-- | ghc/compiler/utils/Outputable.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index 8dc611b39b..f7fb7fc316 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))) |