From: Ian Lynagh <igloo@earth.li>
Date: Tue, 28 Jul 2009 13:44:36 +0000 (+0000)
Subject: Add an (Outputable Word16) instance
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f6648348c41c7fc76eb656254d27defd6a23e8f2

Add an (Outputable Word16) instance
---

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