增加Network.HTTP.Conduit的请求超时
增加Network.HTTP.Conduit的请求超时
提问于 2014-01-24 16:03:04
我使用http-conduit库版本2.0+从HTTP获取内容：
import Network.HTTP.Conduit
main = do content <- simpleHttp "http://stackoverflow.com"
print $ content正如所述的在医生里，默认超时为5秒。
注:我立即回答了这个问题，因此有意不作进一步的研究。
回答 2
Stack Overflow用户
回答已采纳
发布于 2014-01-24 16:03:04
与前一个问题类似，您不能单独使用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 $ contentStack Overflow用户
发布于 2015-11-27 13:13:13
我发现以下是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。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/21337128
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号