Haskell Network.HTTP.Client withResponse headers

Question

Network.HTTP.Clientを使用していて、ストリーミング応答のヘッダーを読み取ろうとしています。

私は型シグネチャがあることをfrom documentationを参照してください。

withResponse :: Request -> Manager -> (Response BodyReader -> IO a) -> IO a 

次のように定義される。

withResponse req man f = bracket (responseOpen req man) responseClose f 

そして、私は正確に定義しようとしている - のことができるようにする（\ f>のものを行います）応答のすべてのヘッダーを表示するだけです。私は、\はresは理解

getheaders :: String -> IO() 
getheaders url = do 
    man <- newManager tlsManagerSettings 
    req' <- parseUrlThrow url 
    putStrLn url 
    let req = req' { responseTimeout = Just 1000000} 
    withResponse req man $ (\res -> do 
    (r _) <- res 
    putStrLn $ show r 
    ) 

は実際には次のとおりです。

(Response BodyReader -> IO a) 

私はそれからヘッダを抽出することができますどのように？

responseHeaders :: Response body -> ResponseHeaders 

ghciでこれらのタイプをどのように調査するかについてのヒントもありがとうございます。

Answer 1

アクセッサファンクタresponseHeadersを使用できます。あなたは型の署名で正しい直感を持っていました。実際には、searching for that type signature on Stackage's Hoogle yields this function at the first result。元のコードで

、あなたのような何かを探している：

withResponse req man $ print . responseHeaders