logging-effect 1.3.10 → 1.3.11
raw patch · 3 files changed
+14/−19 lines, 3 filesdep ~unliftio-core
Dependency ranges changed: unliftio-core
Files
- Changelog.md +9/−1
- logging-effect.cabal +2/−2
- src/Control/Monad/Log.hs +3/−16
Changelog.md view
@@ -1,4 +1,12 @@-## Unreleased+## 1.3.11 -- 2020-08-18++### Other changes++* Increase the lower-bound of unliftio-core to 0.2.0.0++---++## 1.3.10 -- 2020-06-17 ### Other changes
logging-effect.cabal view
@@ -1,5 +1,5 @@ name: logging-effect-version: 1.3.10+version: 1.3.11 synopsis: A mtl-style monad transformer for general purpose & compositional logging homepage: https://github.com/ocharles/logging-effect license: BSD3@@ -27,7 +27,7 @@ , monad-control >= 1.0.0.4 && < 1.1 , transformers-base >= 0.4.4 && < 0.5 , semigroups >= 0.16.2.2 && < 0.20- , unliftio-core >= 0.1.1.0 && < 0.2+ , unliftio-core >= 0.2.0.0 && < 0.3 hs-source-dirs: src default-language: Haskell2010 ghc-options: -O2 -Wall
src/Control/Monad/Log.hs view
@@ -368,7 +368,7 @@ -- side-effect (such as writing to @stdout@, or appending a database table). newtype LoggingT message m a = LoggingT (ReaderT (Handler m message) m a)- deriving (Monad,Applicative,Functor,MonadFix,Alternative,MonadPlus,MonadIO,MonadWriter w,MonadCont,MonadError e,MonadMask,MonadCatch,MonadThrow,MonadState s, Fail.MonadFail)+ deriving (Monad,Applicative,Functor,MonadFix,Alternative,MonadPlus,MonadIO,MonadUnliftIO,MonadWriter w,MonadCont,MonadError e,MonadMask,MonadCatch,MonadThrow,MonadState s, Fail.MonadFail) instance MonadBase b m => MonadBase b (LoggingT message m) where liftBase = lift . liftBase@@ -383,12 +383,6 @@ runInReader (m handler))))) restoreM st = LoggingT (ReaderT (\_ -> restoreM st)) -instance MonadUnliftIO m => MonadUnliftIO (LoggingT msg m) where- askUnliftIO =- LoggingT . ReaderT $ \h ->- withUnliftIO $ \u ->- return (UnliftIO (unliftIO u . flip runLoggingT h))- -- | Given a 'Handler' for a given @message@, interleave this 'Handler' into the -- underlying @m@ computation whenever 'logMessage' is called. runLoggingT@@ -555,7 +549,7 @@ -------------------------------------------------------------------------------- -- | A 'MonadLog' handler optimised for pure usage. Log messages are accumulated--- strictly, given that messasges form a 'Monoid'.+-- strictly, given that messages form a 'Monoid'. newtype PureLoggingT log m a = MkPureLoggingT (StateT log m a) deriving (Functor,Applicative,Monad,MonadFix,MonadCatch,MonadThrow,MonadIO,MonadMask,MonadReader r,MonadWriter w,MonadCont,MonadError e,Alternative,MonadPlus,Fail.MonadFail) @@ -623,19 +617,12 @@ newtype DiscardLoggingT message m a = DiscardLoggingT {discardLogging :: m a -- ^ Run a 'MonadLog' computation by throwing away all log requests. }- deriving (Functor,Applicative,Monad,MonadFix,MonadCatch,MonadThrow,MonadIO,MonadMask,MonadReader r,MonadWriter w,MonadCont,MonadError e,Alternative,MonadPlus,MonadState s,MonadRWS r w s,MonadBase b,Fail.MonadFail)+ deriving (Functor,Applicative,Monad,MonadFix,MonadCatch,MonadThrow,MonadIO,MonadUnliftIO,MonadMask,MonadReader r,MonadWriter w,MonadCont,MonadError e,Alternative,MonadPlus,MonadState s,MonadRWS r w s,MonadBase b,Fail.MonadFail) instance MonadBaseControl b m => MonadBaseControl b (DiscardLoggingT message m) where type StM (DiscardLoggingT message m) a = StM m a liftBaseWith runInBase = lift (liftBaseWith (\runInOrig -> runInBase (runInOrig . discardLogging))) restoreM = lift . restoreM--instance MonadUnliftIO m => MonadUnliftIO (DiscardLoggingT msg m) where- askUnliftIO =- DiscardLoggingT- $ withUnliftIO- $ \u ->- return (UnliftIO (unliftIO u . discardLogging)) instance MonadTrans (DiscardLoggingT message) where lift = DiscardLoggingT