naoto-ogawa/TLS_sample.hs

## TLS_sample.hs
{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Prelude               hiding (getContents)
import qualified Data.ByteString       as B
import qualified Data.ByteString.Char8 as C
import           Data.Default.Class
import           Network.Connection
import           Network.TLS

main = do
  ctx <- initConnectionContext
  con <- connectTo ctx ConnectionParams
    { connectionHostname  = "somewehre"
    , connectionPort      = 443
    , connectionUseSecure = Nothing
    , connectionUseSocks  = Nothing
    }
  connectionSetSecure ctx con def

  connectionPut con "Password=QWERT\n"  -- invalid date

  contents <- getContents con B.empty
  mapM_ print (C.split '\n' contents)

  connectionClose con

getContents :: Connection -> B.ByteString -> IO B.ByteString
getContents con acc = do
  lines <- connectionGetChunk con
  -- putStrLn $ show lines
  -- putStrLn $ show $ B.null lines
  if B.null lines
    then return acc
    else getContents con $ acc `B.append` lines
	{-# LANGUAGE OverloadedStrings #-}

	module Main where

	import Prelude hiding (getContents)
	import qualified Data.ByteString as B
	import qualified Data.ByteString.Char8 as C
	import Data.Default.Class
	import Network.Connection
	import Network.TLS

	main = do
	ctx <- initConnectionContext
	con <- connectTo ctx ConnectionParams
	{ connectionHostname = "somewehre"
	, connectionPort = 443
	, connectionUseSecure = Nothing
	, connectionUseSocks = Nothing
	}
	connectionSetSecure ctx con def

	connectionPut con "Password=QWERT\n" -- invalid date

	contents <- getContents con B.empty
	mapM_ print (C.split '\n' contents)

	connectionClose con

	getContents :: Connection -> B.ByteString -> IO B.ByteString
	getContents con acc = do
	lines <- connectionGetChunk con
	-- putStrLn $ show lines
	-- putStrLn $ show $ B.null lines
	if B.null lines
	then return acc
	else getContents con $ acc `B.append` lines