staticFile

[Lucu.git] / Network / HTTP / Lucu / Config.hs

diff --git a/Network/HTTP/Lucu/Config.hs b/Network/HTTP/Lucu/Config.hs
index 999672f165c420a609b3e3c5e78146344e6cd6d1..2f6335312b029d8e9eb8e561bf5291ee3bbbf16d 100644 (file)
--- a/Network/HTTP/Lucu/Config.hs
+++ b/Network/HTTP/Lucu/Config.hs
@@ -9,26 +9,29 @@ import           Data.Map (Map)
 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
                 }