セッションhttpクライアントとのセッション

Question

私は2つの要求をしたいと言います。最初のものはサーバーにログイン情報を送信し、もう1つは認証を必要とするデータを取得します。

http-clientでこの動作を行うために必要なことはありますか？ wreqで動作する方法は、両方の要求で同じSession値を共有することです。クッキーとすべてが自動的に処理されました。

同じを共有すると同じことがhttp-clientと一致すると仮定しましたが、これは当てはまりません。私はログインしていないことを示す応答を受け取ります。

残念ながら私は実際にはさまざまな理由でコンパイル可能なコードサンプルを提供することはできません。

Answer 1

機能createCookieJar、updateCookieJar、insertCookiesIntoRequestを使用して、cookie jarを自分で管理する必要があるようです。

いくつかのコード例：それはマネージャーに巻き付けちょうど読者の

import Network.HTTP.Client 
import Network.HTTP.Types.Status (statusCode) 
import Data.Time.Clock 

main :: IO() 
main = do 
    manager <- newManager defaultManagerSettings 

    now1 <- getCurrentTime 
    request1 <- parseRequest "http://cnn.com" 
    response1 <- httpLbs request1 manager 

    putStrLn $ "The status code was: " ++ (show $ statusCode $ responseStatus response1) 
    -- print $ responseBody response 

    let (jar1, _) = updateCookieJar response1 request1 now1 (createCookieJar []) 
    putStrLn $ "new jar: " ++ show jar1 

    req2 <- parseRequest "http://cnn.com" 
    now2 <- getCurrentTime 
    let (request2, jar2) = insertCookiesIntoRequest req2 jar1 now2 

    response2 <- httpLbs request2 manager 

    putStrLn $ "\nThe status code was: " ++ (show $ statusCode $ responseStatus response2) 
    -- print $ responseBody response2