我正在尝试用 Haskell Servant 复制这个curl 请求
curl -v -H 'Accept: application/vnd.twitchtv.v5+json' \
-H 'Client-ID: someapikey' \
-X GET 'https://api.twitch.tv/kraken/clips/top?game=Overwatch&period=week&trending=false&limit=3'
使用 Twitch API。文档在这里
这就是我到目前为止所得到的
type Game = Text
type Cursor = Text
type Language = Text
type Limit = Int
type Period = Text
type Trending = Bool
type Application = Text
type ClientID = Text
type SearchClips = "kraken"
:> "clips"
:> "top"
:> QueryParam "game" Game
:> QueryParam "cursor" Cursor
:> QueryParam "language" Language
:> QueryParam "limit" Limit
:> QueryParam "period" Period
:> QueryParam "trending" Trending
:> Header "Accept" Application
:> Header "Client-ID" ClientID
:> Get '[JSON] Search
searchClipAPI :: Proxy SearchClips
searchClipAPI = Proxy
search
:: Maybe Game
-> Maybe Cursor
-> Maybe Language
-> Maybe Limit
-> Maybe Period
-> Maybe Trending
-> Maybe Application
-> Maybe ClientID
-> ClientM Search
search = client searchClipAPI
baseURL :: BaseUrl
baseURL = BaseUrl Https "api.twitch.tv" 443 ""
这就是我用 http-tls '运行'它的方式
runGameClipsSearchClient :: Maybe Text -> IO ()
runGameClipsSearchClient game = do
mn <- NT.newTlsManager
let args = search
game
(Just "")
(Just "en")
(Just 50)
(Just "day")
(Just False)
(Just "application/vnd.twitchtv.v5+json")
(Just "someapikey")
envClient = mkClientEnv mn baseURL
pPrint =<< runClientM args envClient
但我一定做错了什么，因为我在 haskell 代码中收到“404：未找到”错误，但在curl 请求中却没有。
我怀疑我的标题有问题，因为当我删除
'Accept: application/vnd.twitchtv.v5+json'
从卷曲请求中，我得到了完全相同的响应。
是的，对和标头servant-client有特殊处理- 如果您尝试使用该机制包含它们，它们会从.AcceptContent-Type:> Header ...requestToClientRequestServant.Client.Internal.HttpClient
我认为强制标头的最简单方法Accept是向您的Manager. 这绝对是一个丑陋的黑客，但它似乎有效。（我没有要测试的 Twitch 客户端 ID，但通过此修复，我收到 400 而不是 404 错误，我相信这是进步。）
mn <- NT.newTlsManagerWith (NT.tlsManagerSettings { managerModifyRequest = fixAccept })
...
where fixAccept req
= return $ req { requestHeaders = ("Accept", "application/vnd.twitchtv.v5+json") :
filter (("Accept" /=) . fst) (requestHeaders req) }