monad-logger 0.3.6 → 0.3.6.1

raw patch · 2 files changed

+12/−2 lines, 2 filesdep ~exceptions

Dependency ranges changed: exceptions

Files

• Control/Monad/Logger.hs +11/−1
• monad-logger.cabal +1/−1

@@ -86,8 +86,12 @@ import Control.Monad.Trans.Resource (MonadResource (liftResourceT), MonadThrow, monadThrow) #if MIN_VERSION_resourcet(1,1,0) import Control.Monad.Trans.Resource (throwM)-import Control.Monad.Catch (MonadCatch (..))+import Control.Monad.Catch (MonadCatch (..)+#if MIN_VERSION_exceptions(0,6,0)+    , MonadMask (..) #endif+    )+#endif  import Control.Monad.Trans.Identity ( IdentityT) import Control.Monad.Trans.List     ( ListT    )@@ -276,6 +280,9 @@ instance MonadCatch m => MonadCatch (NoLoggingT m) where     catch (NoLoggingT m) c =         NoLoggingT $ m `catch` \e -> runNoLoggingT (c e)+#if MIN_VERSION_exceptions(0,6,0)+instance MonadMask m => MonadMask (NoLoggingT m) where+#endif     mask a = NoLoggingT $ mask $ \u -> runNoLoggingT (a $ q u)       where q u (NoLoggingT b) = NoLoggingT $ u b     uninterruptibleMask a =@@ -347,6 +354,9 @@ instance MonadCatch m => MonadCatch (LoggingT m) where   catch (LoggingT m) c =       LoggingT $ \r -> m r `catch` \e -> runLoggingT (c e) r+#if MIN_VERSION_exceptions(0,6,0)+instance MonadMask m => MonadMask (LoggingT m) where+#endif   mask a = LoggingT $ \e -> mask $ \u -> runLoggingT (a $ q u) e     where q u (LoggingT b) = LoggingT (u . b)   uninterruptibleMask a =

@@ -1,5 +1,5 @@ name:                monad-logger-version:             0.3.6+version:             0.3.6.1 synopsis:            A class of monads which can log messages. description:         This package uses template-haskell for determining source code locations of messages. homepage:            https://github.com/kazu-yamamoto/logger