module Network.HTTP2.TLS.Client.Settings where
import Data.X509.CertificateStore (CertificateStore)
import Network.Socket
data Settings = Settings
{ Settings -> String -> IO ()
settingsKeyLogger :: String -> IO ()
, Settings -> Bool
settingsValidateCert :: Bool
, Settings -> CertificateStore
settingsCAStore :: CertificateStore
, Settings -> [AddrInfoFlag]
settingsAddrInfoFlags :: [AddrInfoFlag]
}
defaultSettings :: Settings
defaultSettings :: Settings
defaultSettings =
Settings
{ settingsKeyLogger :: String -> IO ()
settingsKeyLogger = \String
_ -> forall (m :: * -> *) a. Monad m => a -> m a
return ()
, settingsValidateCert :: Bool
settingsValidateCert = Bool
True
, settingsCAStore :: CertificateStore
settingsCAStore = forall a. Monoid a => a
mempty
, settingsAddrInfoFlags :: [AddrInfoFlag]
settingsAddrInfoFlags = []
}