katip 0.8.7.1 → 0.8.7.2
raw patch · 3 files changed
+18/−11 lines, 3 filesdep ~mtlPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: mtl
API changes (from Hackage documentation)
- Katip: itemApp :: forall a_a9QL. Lens' (Item a_a9QL) Namespace
+ Katip: itemApp :: forall a_a9QZ. Lens' (Item a_a9QZ) Namespace
- Katip: itemEnv :: forall a_a9QL. Lens' (Item a_a9QL) Environment
+ Katip: itemEnv :: forall a_a9QZ. Lens' (Item a_a9QZ) Environment
- Katip: itemHost :: forall a_a9QL. Lens' (Item a_a9QL) HostName
+ Katip: itemHost :: forall a_a9QZ. Lens' (Item a_a9QZ) HostName
- Katip: itemLoc :: forall a_a9QL. Lens' (Item a_a9QL) (Maybe Loc)
+ Katip: itemLoc :: forall a_a9QZ. Lens' (Item a_a9QZ) (Maybe Loc)
- Katip: itemMessage :: forall a_a9QL. Lens' (Item a_a9QL) LogStr
+ Katip: itemMessage :: forall a_a9QZ. Lens' (Item a_a9QZ) LogStr
- Katip: itemNamespace :: forall a_a9QL. Lens' (Item a_a9QL) Namespace
+ Katip: itemNamespace :: forall a_a9QZ. Lens' (Item a_a9QZ) Namespace
- Katip: itemPayload :: forall a_a9QL a_adAT. Lens (Item a_a9QL) (Item a_adAT) a_a9QL a_adAT
+ Katip: itemPayload :: forall a_a9QZ a_adB7. Lens (Item a_a9QZ) (Item a_adB7) a_a9QZ a_adB7
- Katip: itemProcess :: forall a_a9QL. Lens' (Item a_a9QL) ProcessID
+ Katip: itemProcess :: forall a_a9QZ. Lens' (Item a_a9QZ) ProcessID
- Katip: itemSeverity :: forall a_a9QL. Lens' (Item a_a9QL) Severity
+ Katip: itemSeverity :: forall a_a9QZ. Lens' (Item a_a9QZ) Severity
- Katip: itemThread :: forall a_a9QL. Lens' (Item a_a9QL) ThreadIdText
+ Katip: itemThread :: forall a_a9QZ. Lens' (Item a_a9QZ) ThreadIdText
- Katip: itemTime :: forall a_a9QL. Lens' (Item a_a9QL) UTCTime
+ Katip: itemTime :: forall a_a9QZ. Lens' (Item a_a9QZ) UTCTime
- Katip.Core: itemApp :: forall a_a9QL. Lens' (Item a_a9QL) Namespace
+ Katip.Core: itemApp :: forall a_a9QZ. Lens' (Item a_a9QZ) Namespace
- Katip.Core: itemEnv :: forall a_a9QL. Lens' (Item a_a9QL) Environment
+ Katip.Core: itemEnv :: forall a_a9QZ. Lens' (Item a_a9QZ) Environment
- Katip.Core: itemHost :: forall a_a9QL. Lens' (Item a_a9QL) HostName
+ Katip.Core: itemHost :: forall a_a9QZ. Lens' (Item a_a9QZ) HostName
- Katip.Core: itemLoc :: forall a_a9QL. Lens' (Item a_a9QL) (Maybe Loc)
+ Katip.Core: itemLoc :: forall a_a9QZ. Lens' (Item a_a9QZ) (Maybe Loc)
- Katip.Core: itemMessage :: forall a_a9QL. Lens' (Item a_a9QL) LogStr
+ Katip.Core: itemMessage :: forall a_a9QZ. Lens' (Item a_a9QZ) LogStr
- Katip.Core: itemNamespace :: forall a_a9QL. Lens' (Item a_a9QL) Namespace
+ Katip.Core: itemNamespace :: forall a_a9QZ. Lens' (Item a_a9QZ) Namespace
- Katip.Core: itemPayload :: forall a_a9QL a_adAT. Lens (Item a_a9QL) (Item a_adAT) a_a9QL a_adAT
+ Katip.Core: itemPayload :: forall a_a9QZ a_adB7. Lens (Item a_a9QZ) (Item a_adB7) a_a9QZ a_adB7
- Katip.Core: itemProcess :: forall a_a9QL. Lens' (Item a_a9QL) ProcessID
+ Katip.Core: itemProcess :: forall a_a9QZ. Lens' (Item a_a9QZ) ProcessID
- Katip.Core: itemSeverity :: forall a_a9QL. Lens' (Item a_a9QL) Severity
+ Katip.Core: itemSeverity :: forall a_a9QZ. Lens' (Item a_a9QZ) Severity
- Katip.Core: itemThread :: forall a_a9QL. Lens' (Item a_a9QL) ThreadIdText
+ Katip.Core: itemThread :: forall a_a9QZ. Lens' (Item a_a9QZ) ThreadIdText
- Katip.Core: itemTime :: forall a_a9QL. Lens' (Item a_a9QL) UTCTime
+ Katip.Core: itemTime :: forall a_a9QZ. Lens' (Item a_a9QZ) UTCTime
Files
- changelog.md +4/−0
- katip.cabal +1/−1
- src/Katip/Monadic.hs +13/−10
changelog.md view
@@ -1,3 +1,7 @@+0.8.7.2+=======+* MTL 2.3 compatibility [#140](https://github.com/Soostone/katip/pull/140)+ 0.8.7.1 ======= * Text 2 compatibility [#138](https://github.com/Soostone/katip/pull/138)
katip.cabal view
@@ -1,5 +1,5 @@ name: katip-version: 0.8.7.1+version: 0.8.7.2 synopsis: A structured logging framework. description: Katip is a structured logging framework. See README.md for more details.
src/Katip/Monadic.hs view
@@ -43,11 +43,13 @@ ------------------------------------------------------------------------------- import Control.Applicative import Control.Exception.Safe+import Control.Monad as CM import Control.Monad.Base import Control.Monad.Error.Class #if MIN_VERSION_base(4, 9, 0) import qualified Control.Monad.Fail as MF #endif+import Control.Monad.Fix as MFix import Control.Monad.IO.Class import Control.Monad.IO.Unlift import Control.Monad.Reader@@ -71,7 +73,8 @@ ( WriterT, mapWriterT, )-import Control.Monad.Writer hiding ((<>))+import qualified Control.Monad.Writer as Lazy (WriterT, mapWriterT)+import Control.Monad.Writer.Class as WC import Data.Aeson #if MIN_VERSION_aeson(2, 0, 0) import qualified Data.Aeson.KeyMap as KM@@ -233,11 +236,11 @@ getKatipNamespace = lift getKatipNamespace localKatipNamespace = Strict.mapWriterT . localKatipNamespace -instance (Monoid w, KatipContext m, Katip (WriterT w m)) => KatipContext (WriterT w m) where+instance (Monoid w, KatipContext m, Katip (Lazy.WriterT w m)) => KatipContext (Lazy.WriterT w m) where getKatipContext = lift getKatipContext- localKatipContext = mapWriterT . localKatipContext+ localKatipContext = Lazy.mapWriterT . localKatipContext getKatipNamespace = lift getKatipNamespace- localKatipNamespace = mapWriterT . localKatipNamespace+ localKatipNamespace = Lazy.mapWriterT . localKatipNamespace instance (Monoid w, KatipContext m, Katip (Strict.RWST r w s m)) => KatipContext (Strict.RWST r w s m) where getKatipContext = lift getKatipContext@@ -367,12 +370,12 @@ MonadMask, MonadBase b, MonadState s,- MonadWriter w,+ WC.MonadWriter w, MonadError e,- MonadPlus,+ CM.MonadPlus, MonadResource, Alternative,- MonadFix,+ MFix.MonadFix, MonadTrans ) @@ -481,11 +484,11 @@ MonadMask, MonadBase b, MonadState s,- MonadWriter w,+ WC.MonadWriter w, MonadError e,- MonadPlus,+ CM.MonadPlus, Alternative,- MonadFix,+ MFix.MonadFix, MonadReader r )