monad-logger 0.3.25.1 → 0.3.26

raw patch · 3 files changed

+19/−1 lines, 3 filesdep +unliftio-core

Dependencies added: unliftio-core

Files

• ChangeLog.md +4/−0
• Control/Monad/Logger.hs +13/−0
• monad-logger.cabal +2/−1

@@ -1,3 +1,7 @@+## 0.3.26++* Add `MonadUnliftIO` instances+ ## 0.3.25.1  * Fix some incorrect `@since` comments

@@ -107,6 +107,7 @@ import Control.Exception.Lifted (onException, bracket) import Control.Monad (liftM, ap, when, void, forever) import Control.Monad.Base (MonadBase (liftBase))+import Control.Monad.IO.Unlift import Control.Monad.Loops (untilM) import Control.Monad.Trans.Control (MonadBaseControl (..), MonadTransControl (..)) import qualified Control.Monad.Trans.Class as Trans@@ -462,6 +463,12 @@ instance MonadIO m => MonadLoggerIO (NoLoggingT m) where     askLoggerIO = return $ \_ _ _ _ -> return () +-- | @since 0.3.26+instance MonadUnliftIO m => MonadUnliftIO (NoLoggingT m) where+  askUnliftIO = NoLoggingT $+                withUnliftIO $ \u ->+                return (UnliftIO (unliftIO u . runNoLoggingT))+ -- | Monad transformer that adds a new logging function. -- -- @since 0.2.2@@ -558,6 +565,12 @@     monadLoggerLog a b c d = LoggingT $ \f -> liftIO $ f a b c (toLogStr d) instance MonadIO m => MonadLoggerIO (LoggingT m) where     askLoggerIO = LoggingT return++-- | @since 0.3.26+instance MonadUnliftIO m => MonadUnliftIO (LoggingT m) where+  askUnliftIO = LoggingT $ \f ->+                withUnliftIO $ \u ->+                return (UnliftIO (unliftIO u . flip runLoggingT f))  defaultOutput :: Handle               -> Loc

@@ -1,5 +1,5 @@ name:                monad-logger-version:             0.3.25.1+version:             0.3.26 synopsis:            A class of monads which can log messages. description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/monad-logger>. homepage:            https://github.com/kazu-yamamoto/logger@@ -44,6 +44,7 @@                      , bytestring                      , blaze-builder                      , exceptions+                     , unliftio-core    if impl(ghc >= 8.0.1)      cpp-options: -DWITH_CALLSTACK