log-warper 1.5.0 → 1.5.1

raw patch · 3 files changed

+17/−3 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• CHANGES.md +5/−0
• log-warper.cabal +1/−1
• src/System/Wlog/PureLogging.hs +11/−2

@@ -1,3 +1,8 @@+1.5.1+=====++* Add `usingNamedPureLogger` to `PureLogging`.+ 1.5.0 ===== 

@@ -1,5 +1,5 @@ name:                log-warper-version:             1.5.0+version:             1.5.1 synopsis:            Flexible, configurable, monadic and pretty logging homepage:            https://github.com/serokell/log-warper license:             MIT

@@ -20,6 +20,7 @@        , NamedPureLogger (..)        , runNamedPureLog        , launchNamedPureLog+       , usingPureLoggerName        ) where  import           Universum@@ -61,7 +62,7 @@     hoist f = PureLogger . hoist f . runPureLogger  -- | Return log of pure logging action as list of 'LogEvent'.-runPureLog :: Monad m => PureLogger m a -> m (a, [LogEvent])+runPureLog :: Functor m => PureLogger m a -> m (a, [LogEvent]) runPureLog = fmap (second toList) . flip runStateT mempty . runPureLogger  -- | Logs all 'LogEvent'`s from given list. This function supposed to@@ -113,7 +114,7 @@ runNamedPureLog (NamedPureLogger action) =     askLoggerName >>= (`usingLoggerName` runPureLog action) --- | Similar as `launchPureLog`, but provides logger name from current context.+-- | Similar to 'launchPureLog', but provides logger name from current context. launchNamedPureLog     :: (WithLogger n, Monad m)     => (forall f. Functor f => m (f a) -> n (f b))@@ -123,3 +124,11 @@     name <- askLoggerName     (logs, res) <- hoist' $ swap <$> usingLoggerName name (runPureLog action)     res <$ dispatchEvents logs++-- | Similar to 'runNamedPureLog', but using provided logger name.+usingPureLoggerName :: Functor m+                    => LoggerName+                    -> NamedPureLogger m a+                    -> m (a, [LogEvent])+usingPureLoggerName name (NamedPureLogger action) =+    usingLoggerName name $ runPureLog action