X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FBufWrite.hs;h=140d4b2367c5889016303dd044f6abdcf1692872;hb=aafdba3bce91afb003f5f50e001e141744837bae;hp=a03db3d0842d2d42e1576c7a47c2abe584c94847;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/utils/BufWrite.hs b/compiler/utils/BufWrite.hs
index a03db3d..140d4b2 100644
--- a/compiler/utils/BufWrite.hs
+++ b/compiler/utils/BufWrite.hs
@@ -1,8 +1,15 @@
+{-# 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
 --
--- (c) The University of Glasgow 2005
+-- (c) The University of Glasgow 2005-2006
 --
 -- This is a simple abstraction over Handles that offers very fast write
 -- buffering, but without the thread safety that Handles provide.  It's used
@@ -24,18 +31,16 @@ module BufWrite (
 
 import FastString
 import FastMutInt
-import Panic		( panic )
 
-import Monad		( when )
-import Char		( ord )
+import Control.Monad	( when )
+import Data.Char	( ord )
 import Foreign
-import IO
+import System.IO
 
 import GHC.IOBase	( IO(..) )
-import System.IO	( hPutBuf )
 import GHC.Ptr		( Ptr(..) )
 
-import GLAEXTS		( Int(..), Int#, Addr# )
+import GHC.Exts		( Int(..), Int#, Addr# )
 
 -- -----------------------------------------------------------------------------