Commit f6648348 authored by Ian Lynagh's avatar Ian Lynagh

Add an (Outputable Word16) instance

parent c1c6e203
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment