X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FBufWrite.hs;fp=compiler%2Futils%2FBufWrite.hs;h=049a698708188c8913a66a6d3c7c7823fa827b5e;hb=046ee54f048ddd721dcee41916d6a6f68db3b15b;hp=a03db3d0842d2d42e1576c7a47c2abe584c94847;hpb=5199290f732017432869c9939934871e62c50b74;p=ghc-hetmet.git diff --git a/compiler/utils/BufWrite.hs b/compiler/utils/BufWrite.hs index a03db3d..049a698 100644 --- a/compiler/utils/BufWrite.hs +++ b/compiler/utils/BufWrite.hs @@ -2,7 +2,7 @@ -- -- 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 @@ -26,16 +26,16 @@ 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# ) -- -----------------------------------------------------------------------------