From f6648348c41c7fc76eb656254d27defd6a23e8f2 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 28 Jul 2009 13:44:36 +0000 Subject: [PATCH] Add an (Outputable Word16) instance --- compiler/utils/Outputable.lhs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 7350f0a..fc5a87e 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 -- 1.7.10.4