通过http-conduit-0.1.9.3访问Mt Gox API：查询字符串导致超时

Question

我正在尝试使用http-conduit访问Mt Gox REST API。 仅具有路径的查询（例如https://data.mtgox.com/api/2/BTCUSD/money/ticker ）可以正常工作，但是当我向请求中添加queryString时，它会超时。

所以这有效：

mtGoxRequest :: String -> QueryText -> Request m
mtGoxRequest p qt = def {
   secure = True,
   host = "data.mtgox.com",
   port = 443,
   method = "GET",
   path = fromString $ "api/2/" ++ p,
   queryString = renderQuery False $ queryTextToQuery qt,
   responseTimeout = Just 10000000
}

currencyTicker :: Request m
currencyTicker = mtGoxRequest "BTCUSD/money/ticker" []

但这超时了：

tradeStream :: Currency -> UTCTime -> Request m
tradeStream t = mtGoxRequest
   "BTCUSD/money/trades/fetch"
   [("since", Just $ T.pack $ utcToGoxTime t)]

区别似乎在于对queryString的使用：当我将假查询“ foo = bar”添加到也超时的currencyTicker时。

但是，所有这些操作在Web浏览器中都可以正常工作：转到https://data.mtgox.com/api/2/BTCUSD/money/ticker?foo=bar立即返回正确的错误消息，而不是超时。 交易提取网址也能正常工作，尽管我不会包含链接，因为“自”参数说明了可追溯的距离。 相反，如果我从交易列表请求中删除queryString，它将正确返回整个可用交易历史记录。

因此，关于http-conduit查询字符串的内容显然有所不同。 有人知道这可能是什么吗？

这是发送的Haskell请求对象（如“显示”所示）：

Request {
  host                 = "data.mtgox.com"
  port                 = 443
  secure               = True
  clientCertificates   = []
  requestHeaders       = []
  path                 = "api/2/BTCUSD/money/trades/fetch"
  queryString          = "since=1367142721624293"
  requestBody          = RequestBodyLBS Empty
  method               = "GET"
  proxy                = Nothing
  rawBody              = False
  redirectCount        = 10
  responseTimeout      = Just 10000000
}

根据返回的标头，Mt Gox正在使用cloudflare-nginx和PHP 5。

编辑：忘了提到，当我使用http-conduit将带有queryString的请求发送到http://scooterlabs.com/echo时，我也得到了正确的响应，因此似乎是Mt Gox网络服务器与HTTP的管道。

Answer 1

明白了。 您需要添加用户代理字符串。 所以

requestHeaders = [(CI.mk "User-Agent", "Test/0.0.1")],

在request函数的中间使其起作用。

Answer 2

$ time curl https://data.mtgox.com/api/2/BTCUSD/money/trades/fetch?since=1367142721624293
...
real    0m20.993s

在我看来，一切都工作正常：API调用需要一段时间才能返回，因此http-conduit会引发超时异常，因为20s大于10s。