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     , cnfMaxEntityLength :: Integer
  12     , cnfMaxURILength    :: Int
  13     }
  14
  15 defaultConfig = Config {
  16                   cnfServerPort      = Service "http"
  17                 , cnfMaxEntityLength = 16 * 1024 * 1024 -- 16 MiB
  18                 , cnfMaxURILength    = 4 * 1024         -- 4 KiB
  19                 }