読者です 読者をやめる 読者になる 読者になる

or1ko's diary

日々を書きます

基本認証があるHTTPS GETでコンテンツを取得する例

Haskell

Network.HTTPでHTTPSをサポートしていないとのことであったので、
http-conduitをパッケージを使用

http-conduitでは特になにもせずに、HTTPSが利用可能(サンプルの転記)

import Network.HTTP.Conduit

main = withSocketsDo $ do
     request' <- parseUrl url >>= return . applyBasicAuth user pass
     let request = request' { checkStatus = \_ _ -> Nothing }
     res <- withManager $ httpLbs request
     print res

url  = undefined -- 実際はURLを指定する
user = undefined -- 実際はURLを指定する
pass = undefined -- 実際はURLを指定する