diff -ru /tmp/cabal-install-0.6.2/Distribution/Client/Fetch.hs ./Distribution/Client/Fetch.hs
--- /tmp/cabal-install-0.6.2/Distribution/Client/Fetch.hs	2009-02-19 15:07:52.000000000 +0200
+++ ./Distribution/Client/Fetch.hs	2009-09-18 18:34:41.989206160 +0300
@@ -73,6 +73,7 @@
          ( Response(..) )
 import Network.Stream
          ( ConnError(..) )
+import Data.ByteString.Lazy ( fromChunks )
 
 
 downloadURI :: Verbosity
@@ -89,7 +90,7 @@
     Right rsp
       | rspCode rsp == (2,0,0)
      -> do info verbosity ("Downloaded to " ++ path)
-           writeFileAtomic path (rspBody rsp)
+           writeFileAtomic path $ fromChunks [rspBody rsp]
      --FIXME: check the content-length header matches the body length.
      --TODO: stream the download into the file rather than buffering the whole
      --      thing in memory.
diff -ru /tmp/cabal-install-0.6.2/Distribution/Client/HttpUtils.hs ./Distribution/Client/HttpUtils.hs
--- /tmp/cabal-install-0.6.2/Distribution/Client/HttpUtils.hs	2009-02-19 15:07:52.000000000 +0200
+++ ./Distribution/Client/HttpUtils.hs	2009-09-18 18:35:34.722456689 +0300
@@ -15,8 +15,8 @@
          , setOutHandler, setErrHandler, setProxy, request)
 import Control.Monad
          ( mplus, join, liftM2 )
-import qualified Data.ByteString.Lazy as ByteString
-import Data.ByteString.Lazy (ByteString)
+import qualified Data.ByteString as ByteString
+import Data.ByteString (ByteString)
 #ifdef WIN32
 import System.Win32.Types
          ( DWORD, HKEY )