处理HTTP -conduit中的HTTP查询参数

Question

我想下载URL的内容

http://example.com/foobar?key1=value1&key2=value2

使用http-conduit (GET request)。

我该怎么做呢:

a)假设我已经知道完整的(即编码的URL)b)如果一些参数是动态的，因此不是url编码?

注:此问题以A-style回答，因此故意不显示任何研究努力。

Answer 1

关于a):

您可以使用simpleHttp和包含查询参数的URL，就像文档中的示例:

{-# LANGUAGE OverloadedStrings #-}
import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as LB
main :: IO ()
main =
    simpleHttp "http://example.com/foobar?key1=value1&key2=value2" >>= LB.putStr

关于b):

您需要一个包含查询参数的[(ByteString, Maybe ByteString)]类型的键/值元组列表。

{-# LANGUAGE OverloadedStrings #-}
import Network.HTTP.Conduit
import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy.Char8 as LB
queryParams :: [(ByteString, Maybe ByteString)]
queryParams = [
    ("key1", Just "value1"),
    ("key2", Just "value2")]
main :: IO ()
main = do
    request <- parseUrl "http://example.com/foobar"
    let request' = setQueryString queryParams request
    response <- withManager $ httpLbs request'
    LB.putStrLn $ responseBody response

注意:这至少需要http-conduit 2.1。还请注意，建议在适用的情况下重用Manager实例。