log-base 0.7 → 0.7.1

raw patch · 2 files changed

+10/−2 lines, 2 files

Files

log-base.cabal +1/−1
src/Log/Monad.hs +9/−1

log-base.cabal view

@@ -1,5 +1,5 @@ name:                log-base-version:             0.7+version:             0.7.1 synopsis:            Structured logging solution (base package)  description:         A library that provides a way to record structured log

src/Log/Monad.hs view

@@ -13,6 +13,9 @@ import Control.DeepSeq import Control.Monad.Base import Control.Monad.Catch+import Control.Monad.Error.Class+import Control.Monad.State.Class+import Control.Monad.Writer.Class import Control.Monad.Reader import Control.Monad.Trans.Control import Data.Aeson@@ -40,7 +43,12 @@ -- | Monad transformer that adds logging capabilities to the underlying monad. newtype LogT m a = LogT { unLogT :: InnerLogT m a }   deriving (Alternative, Applicative, Functor, Monad, MonadBase b, MonadCatch-           ,MonadIO, MonadMask, MonadPlus, MonadThrow, MonadTrans)+           ,MonadIO, MonadMask, MonadPlus, MonadThrow, MonadTrans+           ,MonadError e, MonadWriter w, MonadState s)++instance MonadReader r m => MonadReader r (LogT m) where+    ask   = lift ask+    local = mapLogT . local  -- | Run a 'LogT' computation. --