import Network
data Config = Config {
- cnfServerPort :: PortID
- , cnfMaxEntityLength :: Integer
- , cnfMaxURILength :: Int
+ cnfServerPort :: PortID
+ , cnfMaxPipelineDepth :: Int
+ , cnfMaxEntityLength :: Integer
+ , cnfMaxURILength :: Int
}
defaultConfig = Config {
- cnfServerPort = Service "http"
- , cnfMaxEntityLength = 16 * 1024 * 1024 -- 16 MiB
- , cnfMaxURILength = 4 * 1024 -- 4 KiB
+ cnfServerPort = Service "http"
+ , cnfMaxPipelineDepth = 100
+ , cnfMaxEntityLength = 16 * 1024 * 1024 -- 16 MiB
+ , cnfMaxURILength = 4 * 1024 -- 4 KiB
}
\ No newline at end of file