module Network.HTTP2.TLS.Server.Settings where
import Network.Control
import Network.HTTP2.Server (
defaultServerConfig,
numberOfWorkers,
)
import Network.Run.TCP.Timeout
import Network.Socket
import Network.TLS (SessionManager, noSessionManager)
data Settings = Settings
{ Settings -> Int
settingsTimeout :: Int
, Settings -> Int
settingsSendBufferSize :: Int
, Settings -> Int
settingsSlowlorisSize :: Int
, Settings -> Int
settingsReadBufferSize :: Int
, Settings -> Int
settingsReadBufferLowerLimit :: Int
, Settings -> String -> IO ()
settingsKeyLogger :: String -> IO ()
, Settings -> Int
settingsNumberOfWorkers :: Int
, Settings -> Int
settingsConcurrentStreams :: Int
, Settings -> Int
settingsStreamWindowSize :: Int
, Settings -> Int
settingsConnectionWindowSize :: Int
, Settings -> SessionManager
settingsSessionManager :: SessionManager
, Settings -> AddrInfo -> IO Socket
settingsOpenServerSocket :: AddrInfo -> IO Socket
, Settings -> Int
settingsEarlyDataSize :: Int
}
defaultSettings :: Settings
defaultSettings :: Settings
defaultSettings =
Settings
{ settingsTimeout :: Int
settingsTimeout = Int
30
, settingsSendBufferSize :: Int
settingsSendBufferSize = Int
4096
, settingsSlowlorisSize :: Int
settingsSlowlorisSize = Int
50
, settingsReadBufferSize :: Int
settingsReadBufferSize = Int
16384
, settingsReadBufferLowerLimit :: Int
settingsReadBufferLowerLimit = Int
2048
, settingsKeyLogger :: String -> IO ()
settingsKeyLogger = \String
_ -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
, settingsNumberOfWorkers :: Int
settingsNumberOfWorkers = ServerConfig -> Int
numberOfWorkers ServerConfig
defaultServerConfig
, settingsConcurrentStreams :: Int
settingsConcurrentStreams = Int
defaultMaxStreams
, settingsStreamWindowSize :: Int
settingsStreamWindowSize = Int
defaultMaxStreamData
, settingsConnectionWindowSize :: Int
settingsConnectionWindowSize = Int
defaultMaxData
, settingsSessionManager :: SessionManager
settingsSessionManager = SessionManager
noSessionManager
, settingsOpenServerSocket :: AddrInfo -> IO Socket
settingsOpenServerSocket = AddrInfo -> IO Socket
openServerSocket
, settingsEarlyDataSize :: Int
settingsEarlyDataSize = Int
0
}