Add 'StdErr' as log output.

data Output

    = StdOut

    | StdErr

    | Path FilePath

    deriving (Eq, Ord, Show)

new s = liftIO $ do

    n <- fmap (readNote "Invalid LOG_BUFFER") <$> lookupEnv "LOG_BUFFER"

    l <- fmap (readNote "Invalid LOG_LEVEL")  <$> lookupEnv "LOG_LEVEL"

    g <- FL.newLoggerSet (fromMaybe FL.defaultBufSize n) (mapOut $ output s)

    g <- fn (output s) (fromMaybe FL.defaultBufSize n)

    c <- clockCache (format s)

    let s' = s { logLevel = fromMaybe (logLevel s) l }

    return $ Logger g s' (fst <$> c) (snd <$> c)

  where

    mapOut StdOut   = Nothing

    mapOut (Path p) = Just p

    fn StdOut   = FL.newStdoutLoggerSet

    fn StdErr   = FL.newStderrLoggerSet

    fn (Path p) = flip FL.newFileLoggerSet p

    clockCache "" = return Nothing

    clockCache f  = Just <$> clockDateCacher (DateCacheConf getUnixTime (fmt f))

name:                 tinylog

version:              0.4.1

version:              0.4.2

synopsis:             Simplistic logging using fast-logger.

author:               Toralf Wittner

maintainer:           Toralf Wittner <tw@dtex.org>

          base         == 4.*

        , bytestring   >= 0.10

        , date-cache   >= 0.3

        , fast-logger  >= 2.1.2 && < 2.2

        , fast-logger  >= 2.1.4 && < 2.2

        , mtl          >= 2.1

        , transformers >= 0.3

        , unix-time    >= 0.1