diff --git a/src/System/Logger.hs b/src/System/Logger.hs index b86904a7891c512db504536a16b346c542d0365f..488dbc4869629ca766777494262b9dc2958a1477 100644 --- a/src/System/Logger.hs +++ b/src/System/Logger.hs @@ -79,6 +79,7 @@ data Settings = Settings data Output = StdOut + | StdErr | Path FilePath deriving (Eq, Ord, Show) @@ -99,13 +100,14 @@ new :: MonadIO m => Settings -> m Logger 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)) diff --git a/tinylog.cabal b/tinylog.cabal index 6ae4aa807edfd381a3c3cb3ea1c996839a1238ef..53137b846e0ef4794dbfc60a4d35e28f89ce45ad 100644 --- a/tinylog.cabal +++ b/tinylog.cabal @@ -1,5 +1,5 @@ name: tinylog -version: 0.4.1 +version: 0.4.2 synopsis: Simplistic logging using fast-logger. author: Toralf Wittner maintainer: Toralf Wittner @@ -32,7 +32,7 @@ library 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