diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-07-28 13:44:36 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-07-28 13:44:36 +0000 |
| commit | f6648348c41c7fc76eb656254d27defd6a23e8f2 (patch) | |
| tree | e4c23db79a7354a37308754d023bf22f0f12c3b0 /compiler/utils | |
| parent | c1c6e20370478ab63c52e6ce5cd704ee95f702e2 (diff) | |
| download | haskell-f6648348c41c7fc76eb656254d27defd6a23e8f2.tar.gz | |
Add an (Outputable Word16) instance
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 7350f0ad89..fc5a87ee29 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -74,7 +74,7 @@ import Pretty ( Doc, Mode(..) ) import Panic import Data.Char -import Data.Word ( Word32 ) +import Data.Word import System.IO ( Handle, stderr, stdout, hFlush ) import System.FilePath \end{code} @@ -495,6 +495,9 @@ instance Outputable Bool where instance Outputable Int where ppr n = int n +instance Outputable Word16 where + ppr n = integer $ fromIntegral n + instance Outputable Word32 where ppr n = integer $ fromIntegral n |