import Network
import Network.BSD
import Network.HTTP.Lucu.MIMEType
+import Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
import System.IO.Unsafe
data Config = Config {
- cnfServerSoftware :: String
- , cnfServerHost :: HostName
- , cnfServerPort :: PortID
- , cnfMaxPipelineDepth :: Int
- , cnfMaxEntityLength :: Int
- , cnfMaxURILength :: Int
- , cnfExtToMIMEType :: Map String MIMEType
+ cnfServerSoftware :: String
+ , cnfServerHost :: HostName
+ , cnfServerPort :: PortID
+ , cnfMaxPipelineDepth :: Int
+ , cnfMaxEntityLength :: Int
+ , cnfMaxURILength :: Int
+ , cnfMaxOutputChunkLength :: Int
+ , cnfExtToMIMEType :: Map String MIMEType
}
defaultConfig = Config {
- cnfServerSoftware = "Lucu/1.0"
- , cnfServerHost = unsafePerformIO getHostName
- , cnfServerPort = Service "http"
- , cnfMaxPipelineDepth = 100
- , cnfMaxEntityLength = 16 * 1024 * 1024 -- 16 MiB
- , cnfMaxURILength = 4 * 1024 -- 4 KiB
- , cnfExtToMIMEType = undefined -- FIXME
+ cnfServerSoftware = "Lucu/1.0"
+ , cnfServerHost = unsafePerformIO getHostName
+ , cnfServerPort = Service "http"
+ , cnfMaxPipelineDepth = 100
+ , cnfMaxEntityLength = 16 * 1024 * 1024 -- 16 MiB
+ , cnfMaxURILength = 4 * 1024 -- 4 KiB
+ , cnfMaxOutputChunkLength = 5 * 1024 * 1024 -- 5 MiB
+ , cnfExtToMIMEType = defaultExtensionMap
}