1 module Network.HTTP.Lucu.Config
3 , defaultConfig -- Config
9 import System.IO.Unsafe
11 data Config = Config {
12 cnfServerSoftware :: String
13 , cnfServerHost :: HostName
14 , cnfServerPort :: PortID
15 , cnfMaxPipelineDepth :: Int
16 , cnfMaxEntityLength :: Int
17 , cnfMaxURILength :: Int
20 defaultConfig = Config {
21 cnfServerSoftware = "Lucu/1.0"
22 , cnfServerHost = unsafePerformIO getHostName
23 , cnfServerPort = Service "http"
24 , cnfMaxPipelineDepth = 100
25 , cnfMaxEntityLength = 16 * 1024 * 1024 -- 16 MiB
26 , cnfMaxURILength = 4 * 1024 -- 4 KiB