diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2013-06-28 09:35:51 +0100 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2013-06-28 09:35:51 +0100 |
| commit | 01234ecfd712d12b9f295540e9389090bbda1384 (patch) | |
| tree | f30b1f987afa91114b8662249839995b6057078c /compiler/utils/Outputable.lhs | |
| parent | 6a25e9272c8799aff2f869a1bb390551496641b9 (diff) | |
| parent | fe44d053e10df05b4648bb23fb09e2beb9b43f22 (diff) | |
| download | haskell-01234ecfd712d12b9f295540e9389090bbda1384.tar.gz | |
Merge branch 'master' of ssh://darcs.haskell.org/srv/darcs/ghc
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 88a8a75c62..da8ffb3f10 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -90,6 +90,7 @@ import Data.ByteString (ByteString) import qualified Data.ByteString as BS import Data.Char import qualified Data.Map as M +import Data.Int import qualified Data.IntMap as IM import Data.Set (Set) import qualified Data.Set as Set @@ -619,6 +620,12 @@ instance Outputable Bool where ppr True = ptext (sLit "True") ppr False = ptext (sLit "False") +instance Outputable Int32 where + ppr n = integer $ fromIntegral n + +instance Outputable Int64 where + ppr n = integer $ fromIntegral n + instance Outputable Int where ppr n = int n |