import FastTypes
import qualified Pretty
import Pretty ( Doc, Mode(..) )
-import Char ( isAlpha )
import Panic
-import Data.Word ( Word32 )
+import Data.Char
+import Data.Word
import System.IO ( Handle, stderr, stdout, hFlush )
-import Data.Char ( ord )
import System.FilePath
\end{code}
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
+instance Outputable Word where
+ ppr n = integer $ fromIntegral n
+
instance Outputable () where
ppr _ = text "()"