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