test-http-client-tls.hs

{-# LANGUAGE OverloadedStrings #-}

import Data.Default

import Network.HTTP.Client
import Network.HTTP.Client.TLS
import Network.HTTP.Types.Status (statusCode)

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

    request <- parseRequest "https://paste.debian.net"
    response <- httpLbs request manager

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