network-conduit-tls-1.0.3: Data/Conduit/Network/TLS/Internal.hs

{-# OPTIONS_HADDOCK not-home #-}
module Data.Conduit.Network.TLS.Internal
    ( TLSConfig (..)
    , TlsCertData (..)
    ) where

import Prelude hiding (FilePath)
import Data.Conduit.Network (HostPreference)
import Filesystem.Path.CurrentOS (FilePath)
import qualified Data.ByteString as S

-- structure providing access to certificate and key data through call backs 
data TlsCertData = TlsCertData { getTLSCert :: IO S.ByteString
                               , getTLSKey :: IO S.ByteString }


data TLSConfig = TLSConfig
    { tlsHost :: HostPreference
    , tlsPort :: Int
    , tlsCertData :: TlsCertData
    , tlsNeedLocalAddr :: Bool
    }