module Network.HTTP.Lucu.Config
    ( Config(..)
    , defaultConfig -- Config
    )
    where

import Network

data Config = Config {
      cnfServerPort       :: PortID
    , cnfMaxPipelineDepth :: Int
    , cnfMaxEntityLength  :: Integer
    , cnfMaxURILength     :: Int
    }

defaultConfig = Config {
                  cnfServerPort       = Service "http"
                , cnfMaxPipelineDepth = 100
                , cnfMaxEntityLength  = 16 * 1024 * 1024 -- 16 MiB
                , cnfMaxURILength     = 4 * 1024         -- 4 KiB
                }