Haskell:使用 Curl 延迟下载

Question

如何利用这个懒惰 package或者可能是其他一些包以及如何修复此代码，因此它不会下载整个文件，而只会下载一些第一个字节？

import qualified  Data.ByteString.Lazy as B
import Network.Curl.Download.Lazy

main = do
  Right body <- openLazyURI "http://www.haskell.org/ghc/dist/7.6.3/ghc-7.6.3-x86_64-unknown-linux.tar.bz2"
  return $ B.take 32 body

Answer 1

以下应该可以解决问题:

import Network.Curl.Download
import Network.Curl.Opts

...
Right body <- openURIWithOpts [CurlMaxFileSize 32] someUrl