Revert "Add helper to canonicalize whitespace on a renderer."

    , setRendererNetstr

    , renderDefault

    , renderNetstr

    , canonicalizeWhitespace

    , bufSize

    , setBufSize

    , name

    , setRendererNetstr

    , renderDefault

    , renderNetstr

    , canonicalizeWhitespace

    , logLevel

    , logLevelMap

    , logLevelOf

    ) where

import Data.String

import Data.Char (isSpace)

import Data.ByteString (ByteString)

import Data.ByteString.Char8 (pack)

import Data.Map.Strict as Map

import System.Log.FastLogger (defaultBufSize)

import System.Logger.Message

import qualified Data.ByteString.Lazy.Char8 as L

import qualified Data.ByteString.Lazy.Builder as B

data Settings = Settings

renderNetstr :: Renderer

renderNetstr _ _ _ = renderNetstr_

-- | Replace all whitespace characters in the output of a renderer by @' '@.

-- Log output must be ASCII encoding.

--

-- (Many logging processors handle newlines poorly.  Instead of hunting down all

-- places and situations in your code and your dependencies that inject newlines

-- into your log messages, you can choose to call 'canonicalizeWhitespace' on

-- your renderer.)

canonicalizeWhitespace :: Renderer -> Renderer

canonicalizeWhitespace rndrRaw delim df lvl

  = B.lazyByteString . nl2sp . B.toLazyByteString . rndrRaw delim df lvl

  where

    nl2sp :: L.ByteString -> L.ByteString

    nl2sp = L.concatMap $

      \c -> if isSpace c

            then " "

            else L.singleton c

logLevel :: Settings -> Level

logLevel = _logLevel