module Network.HTTP2.TLS.Server.Settings where
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 ()
}
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
_ -> forall (m :: * -> *) a. Monad m => a -> m a
return ()
}