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