Weak some doc comments in `Settings`.

-- | The 'MonadLogger' type-class and associated functions.

module System.Logger.Class

    ( L.Settings

    , L.Renderer

    , L.defSettings

    , L.logLevel

    , L.setLogLevel

setDelimiter x s = s { _delimiter = x }

-- | Whether to use <http://cr.yp.to/proto/netstrings.txt netstring>

-- encoding for log lines.  Loads 'renderDefault' if given 'False'.

-- encoding for log lines.

--

-- {#- DEPRECATED setNetStrings "Use setRendererNetstr or setRendererDefault instead" #-}

setNetStrings :: Bool -> Settings -> Settings

setRendererNetstr :: Settings -> Settings

setRendererNetstr = setRenderer $ \_ _ _ -> renderNetstr

-- | Shortcut for calling 'setRenderer' with 'renderDefault'.

-- | Default rendering of log lines.

--

-- Uses the value of `delimiter` as a separator of fields and '=' between

-- field names and values.

setRendererDefault :: Settings -> Settings

setRendererDefault = setRenderer $ \s _ _ -> renderDefault s

renderer :: Settings -> Renderer

renderer = _renderer

-- | Set a custom renderer.  See 'setRendererDefault', 'setRendererNetstr' for

-- two common special cases.  Look at the code of 'renderDefault',

-- 'renderNetstr' for examples how to write custom renderers.

-- | Set a custom renderer.

--

-- See 'setRendererDefault' and 'setRendererNetstr' for two common special cases.

setRenderer :: Renderer -> Settings -> Settings

setRenderer f s = s { _renderer = f }

-- | Take a custom separator, date format, log level of the event, and render

-- a list of log fields or messages into a builder.

--

-- See also: 'renderDefault', 'renderNetstr'.

type Renderer = ByteString -> DateFormat -> Level -> [Element] -> B.Builder

-- | Default settings: