增加了network.http.conduit的请求超时

Question

i使用http-conduit库2.0 从HTTP WebService获取内容：

import Network.HTTP.Conduit
main = do content <- simpleHttp "http://stackoverflow.com"
          print $ content

如文档中所述，默认超时为5秒。

注意：我立即回答了这个问题，因此故意没有显示进一步的研究工作。

Answer 1

与以前的问题相似，您不能单独使用simpleHttp这样做。您需要将Manager与httpLbs一起使用，才能设置超时。

请注意，您不需要在管理器中设置超时，但是可以单独设置每个请求。

这是一个完整的示例，其行为类似于您的功能，但允许您修改超时：

import Network.HTTP.Conduit
import Control.Monad (liftM)
import qualified Data.ByteString.Lazy.Char8 as LB
-- | A simpleHttp alternative that allows to specify the timeout
-- | Note that the timeout parameter is in microseconds!
downloadHttpTimeout :: Manager -> String -> Int -> IO LB.ByteString
downloadHttpTimeout manager url timeout = do req <- parseUrl url
                                             let req' = req {responseTimeout = Just timeout}
                                             liftM responseBody $ httpLbs req' manager
main = do manager <- newManager conduitManagerSettings
          let timeout = 15000000 -- Microseconds --> 15 secs
          content <- downloadHttpTimeout manager "http://stackoverflow.com" timeout
          print $ content

Answer 2

我发现以下是ULI的downloadHttpTimeout版本，它更像simpleHTTP：

simpleHTTPWithTimeout :: Int -> Request a -> IO (Response LB.ByteString)
simpleHTTPWithTimeout timeout req =
  do mgr <- newManager tlsManagerSettings
     let req = req { responseTimeout = Just timeout }
     httpLbs req mgr

simpleHTTP的唯一区别是略有不同的返回类型，因此提取响应主体，使用导管的responseBody不是Network.HTTP.getResponseBody。