On Mon, Dec 10, 2012 at 9:46 PM, Michael Snoyman <michael@snoyman.com> wrote:

Here's an example of printing the total number of bytes consumed using http-conduit:

import Control.Monad.IO.Class (liftIO)
import qualified Data.ByteString as S

import Data.Conduit
import Data.Conduit.Binary as CB
import Network.HTTP.Conduit

main :: IO ()
main = withManager $ \manager -> do

req <- parseUrl "http://www.yesodweb.com/"
res <- http req manager
responseBody res $$+- printProgress =$ CB.sinkFile "yesodweb.html"

printProgress :: Conduit S.ByteString (ResourceT IO) S.ByteString
printProgress =
loop 0
where
loop len = await >>= maybe (return ()) (\bs -> do

let len' = len + S.length bs
liftIO $ putStrLn $ "Bytes consumed: " ++ show len'
yield bs
loop len')

HTH,
Michael

On Mon, Dec 10, 2012 at 3:34 PM, Cedric Fung <root@vec.io> wrote:

Hi,

Are there any suggestions to download a large file with Haskell? I have read the docs for Network, Network.HTTP and Network.HTTP.Conduit, but can't find anything which fit my requirements.

I want to download a large file from an HTTP URL, and show the progress instantly. Maybe some functions which read HTTP connection and return a lazy ByteString could do this work?

Though I found a low-level socket lazy package, which seems to work, I just want a more high level API.

Thanks and regards.

_______________________________________________
Beginners mailing list
Beginners@haskell.org
http://www.haskell.org/mailman/listinfo/beginners