Network/HTTP/Lucu/Config.hs

   1 module Network.HTTP.Lucu.Config
   2     ( Config(..)
   3     , defaultConfig -- Config
   4     )
   5     where
   6
   7 import Network
   8
   9 data Config = Config {
  10       cnfServerPort       :: PortID
  11     , cnfMaxPipelineDepth :: Int
  12     , cnfMaxEntityLength  :: Integer
  13     , cnfMaxURILength     :: Int
  14     }
  15
  16 defaultConfig = Config {
  17                   cnfServerPort       = Service "http"
  18                 , cnfMaxPipelineDepth = 100
  19                 , cnfMaxEntityLength  = 16 * 1024 * 1024 -- 16 MiB
  20                 , cnfMaxURILength     = 4 * 1024         -- 4 KiB
  21                 }