http-conduit with client certificate example

Main.hs

module Main where

import Network.TLS (PrivateKey)
import Network.TLS.Extra as TLS
import Network.HTTP.Conduit
import Data.Certificate.X509 (X509)

import qualified Data.ByteString.Lazy.Char8 as LBS

import System.Environment (getArgs)

import GW.PaySafeCard
import Private

main :: IO ()
main = do
    (confName:args) <- getArgs

    let conf = case confName of
                   "test" -> testConf
                   _ -> error "unknown conf"

    certs <- loadClientCerts "test.pem" "test.key"

    req <- parseUrl (pscURL conf)
    let req' = req { clientCertificates = certs }

    Response _ _ _ lbs <- withManager $ httpLbs req'
    LBS.putStrLn lbs


loadClientCerts :: FilePath -> FilePath -> IO [(X509, Maybe PrivateKey)]
loadClientCerts certPath keyPath = do
    cert <- TLS.fileReadCertificate certPath
    pkey <- TLS.fileReadPrivateKey keyPath

    return [(cert, Just pkey)]