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