test-tls.hs

{-# LANGUAGE OverloadedStrings #-}

import Data.Default
import Network.Connection
import qualified Data.ByteString as B
import Control.Monad

main :: IO ()
main = do
    ctx <- initConnectionContext
    conn <- connectTo ctx ConnectionParams
        {
                connectionHostname = "paste.debian.net"
              , connectionPort = 443
              , connectionUseSecure = Just def
              , connectionUseSocks = Nothing
        }

    connectionPut conn "GET / \r\n"

    forever $ do
        line <- connectionGetLine 1024 conn
        B.putStrLn line