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

import Network
import Network.BSD
import System.IO.Unsafe

data Config = Config {
      cnfServerSoftware   :: String
    , cnfServerHost       :: HostName
    , cnfServerPort       :: PortID
    , cnfMaxPipelineDepth :: Int
    , cnfMaxEntityLength  :: Int
    , cnfMaxURILength     :: Int
    }

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
                }