log-warper 0.3 → 0.3.1

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

• log-warper.cabal +1/−1
• src/System/Wlog/CanLog.hs +2/−1

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

@@ -31,6 +31,7 @@        , logMessage        ) where +import           Control.Monad.Base        (MonadBase) import           Control.Monad.Except      (ExceptT, MonadError) import           Control.Monad.Reader      (MonadReader, ReaderT) import qualified Control.Monad.RWS         as RWSLazy@@ -102,7 +103,7 @@ newtype PureLogger m a = PureLogger     { runPureLogger :: WriterT (DList LogEvent) m a     } deriving (Functor, Applicative, Monad, MonadTrans, MonadWriter (DList LogEvent),-                MonadState s, MonadReader r, MonadError e, HasLoggerName)+                MonadBase b, MonadState s, MonadReader r, MonadError e, HasLoggerName)  instance Monad m => CanLog (PureLogger m) where     dispatchMessage leLoggerName leSeverity leMessage = tell [LogEvent{..}]