+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
-----------------------------------------------------------------------------
--
-- Fast write-buffered Handles
import FastString
import FastMutInt
-import Panic ( panic )
import Control.Monad ( when )
import Data.Char ( ord )
import System.IO
import GHC.IOBase ( IO(..) )
-import System.IO ( hPutBuf )
import GHC.Ptr ( Ptr(..) )
import GHC.Exts ( Int(..), Int#, Addr# )