Unverified Commit 62ce5526 authored by Kim Altintop's avatar Kim Altintop Committed by Matthias Fischmann
Browse files

Deprecate setNetStrings. 



Co-authored-by: default avatarMatthias Fischmann <mf@zerobuzz.net>
parent e3c860e1

src/System/Logger.hs

+2 −0
Original line number Diff line number Diff line
@@ -22,6 +22,8 @@ module System.Logger 
    , delimiter

    , setDelimiter

    , setNetStrings

    , setRendererNetstr

    , setRendererDefault

    , bufSize

    , setBufSize

    , name

src/System/Logger/Settings.hs

+13 −1
Original line number Diff line number Diff line
@@ -21,6 +21,8 @@ module System.Logger.Settings 
    , delimiter

    , setDelimiter

    , setNetStrings

    , setRendererNetstr

    , setRendererDefault

    , logLevel

    , logLevelMap

    , logLevelOf
@@ -85,11 +87,21 @@ setDelimiter :: ByteString -> Settings -> Settings 
setDelimiter x s = s { _delimiter = x }



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

-- encoding for log lines.

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

--

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

setNetStrings :: Bool -> Settings -> Settings

setNetStrings True  = setRenderer $ \_ _ _ -> renderNetstr

setNetStrings False = setRenderer $ \s _ _ -> renderDefault s



-- | Use <http://cr.yp.to/proto/netstrings.txt netstring> encoding

-- for log lines.

setRendererNetstr :: Settings -> Settings

setRendererNetstr = setRenderer $ \_ _ _ -> renderNetstr



setRendererDefault :: Settings -> Settings

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



logLevel :: Settings -> Level

logLevel = _logLevel