X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FBufWrite.hs;h=db86aa060aba4e50de21e65e9bf5e5b1572aa630;hp=049a698708188c8913a66a6d3c7c7823fa827b5e;hb=ad94d40948668032189ad22a0ad741ac1f645f50;hpb=046ee54f048ddd721dcee41916d6a6f68db3b15b

diff --git a/compiler/utils/BufWrite.hs b/compiler/utils/BufWrite.hs
index 049a698..db86aa0 100644
--- a/compiler/utils/BufWrite.hs
+++ b/compiler/utils/BufWrite.hs
@@ -10,6 +10,13 @@
 --
 -----------------------------------------------------------------------------
 
+{-# 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/CodingStyle#Warnings
+-- for details
+
 module BufWrite (
 	BufHandle(..),
 	newBufHandle,
@@ -24,7 +31,6 @@ module BufWrite (
 
 import FastString
 import FastMutInt
-import Panic		( panic )
 
 import Control.Monad	( when )
 import Data.Char	( ord )
@@ -32,7 +38,6 @@ import Foreign
 import System.IO
 
 import GHC.IOBase	( IO(..) )
-import System.IO	( hPutBuf )
 import GHC.Ptr		( Ptr(..) )
 
 import GHC.Exts		( Int(..), Int#, Addr# )