Haskell Servant (Client) - 带有标头的 GET 请求

Question

我正在尝试用 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。文档here

这就是我目前所得到的

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'

从 curl 请求中，我得到了完全相同的响应。

Answer 1

是的，servant-client 对 Accept 和 Content-Type 标头进行了特殊处理——如果您尝试使用 :> Header ... 机制包含它们，它们会在函数 requestToClientRequest 中从请求中删除Servant.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) }