bsrkaditya

import qualified Data.ByteString.Char8 as BS
import Network.Http.Client
import OpenSSL (withOpenSSL)

main = withOpenSSL $ do
   ctx <- baselineContextSSL
   c <- openConnectionSSL ctx (BS.pack "www.google.com") 443
   closeConnection c

bsrkaditya

import qualified Data.ByteString.Char8 as BS

import Network.Http.Client
import OpenSSL (withOpenSSL)

main = withOpenSSL $ do
   ctx <- baselineContextSSL
   c <- openConnectionSSL ctx (BS.pack "accounts.google.com") 443
   closeConnection c