katip 0.5.1.0 → 0.5.2.0
raw patch · 4 files changed
+15/−3 lines, 4 filesdep ~eitherPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: either
API changes (from Hackage documentation)
- Katip.Core: instance Katip.Core.Katip m => Katip.Core.Katip (Control.Monad.Trans.Either.EitherT s m)
- Katip.Monadic: instance (Katip.Monadic.KatipContext m, Katip.Core.Katip (Control.Monad.Trans.Either.EitherT e m)) => Katip.Monadic.KatipContext (Control.Monad.Trans.Either.EitherT e m)
- Katip: itemApp :: forall a_an1k. Lens' (Item a_an1k) Namespace
+ Katip: itemApp :: forall a_amsu. Lens' (Item a_amsu) Namespace
- Katip: itemEnv :: forall a_an1k. Lens' (Item a_an1k) Environment
+ Katip: itemEnv :: forall a_amsu. Lens' (Item a_amsu) Environment
- Katip: itemHost :: forall a_an1k. Lens' (Item a_an1k) HostName
+ Katip: itemHost :: forall a_amsu. Lens' (Item a_amsu) HostName
- Katip: itemLoc :: forall a_an1k. Lens' (Item a_an1k) (Maybe Loc)
+ Katip: itemLoc :: forall a_amsu. Lens' (Item a_amsu) (Maybe Loc)
- Katip: itemMessage :: forall a_an1k. Lens' (Item a_an1k) LogStr
+ Katip: itemMessage :: forall a_amsu. Lens' (Item a_amsu) LogStr
- Katip: itemNamespace :: forall a_an1k. Lens' (Item a_an1k) Namespace
+ Katip: itemNamespace :: forall a_amsu. Lens' (Item a_amsu) Namespace
- Katip: itemPayload :: forall a_an1k a_aqkg. Lens (Item a_an1k) (Item a_aqkg) a_an1k a_aqkg
+ Katip: itemPayload :: forall a_amsu a_apCB. Lens (Item a_amsu) (Item a_apCB) a_amsu a_apCB
- Katip: itemProcess :: forall a_an1k. Lens' (Item a_an1k) ProcessID
+ Katip: itemProcess :: forall a_amsu. Lens' (Item a_amsu) ProcessID
- Katip: itemSeverity :: forall a_an1k. Lens' (Item a_an1k) Severity
+ Katip: itemSeverity :: forall a_amsu. Lens' (Item a_amsu) Severity
- Katip: itemThread :: forall a_an1k. Lens' (Item a_an1k) ThreadIdText
+ Katip: itemThread :: forall a_amsu. Lens' (Item a_amsu) ThreadIdText
- Katip: itemTime :: forall a_an1k. Lens' (Item a_an1k) UTCTime
+ Katip: itemTime :: forall a_amsu. Lens' (Item a_amsu) UTCTime
- Katip.Core: itemApp :: forall a_an1k. Lens' (Item a_an1k) Namespace
+ Katip.Core: itemApp :: forall a_amsu. Lens' (Item a_amsu) Namespace
- Katip.Core: itemEnv :: forall a_an1k. Lens' (Item a_an1k) Environment
+ Katip.Core: itemEnv :: forall a_amsu. Lens' (Item a_amsu) Environment
- Katip.Core: itemHost :: forall a_an1k. Lens' (Item a_an1k) HostName
+ Katip.Core: itemHost :: forall a_amsu. Lens' (Item a_amsu) HostName
- Katip.Core: itemLoc :: forall a_an1k. Lens' (Item a_an1k) (Maybe Loc)
+ Katip.Core: itemLoc :: forall a_amsu. Lens' (Item a_amsu) (Maybe Loc)
- Katip.Core: itemMessage :: forall a_an1k. Lens' (Item a_an1k) LogStr
+ Katip.Core: itemMessage :: forall a_amsu. Lens' (Item a_amsu) LogStr
- Katip.Core: itemNamespace :: forall a_an1k. Lens' (Item a_an1k) Namespace
+ Katip.Core: itemNamespace :: forall a_amsu. Lens' (Item a_amsu) Namespace
- Katip.Core: itemPayload :: forall a_an1k a_aqkg. Lens (Item a_an1k) (Item a_aqkg) a_an1k a_aqkg
+ Katip.Core: itemPayload :: forall a_amsu a_apCB. Lens (Item a_amsu) (Item a_apCB) a_amsu a_apCB
- Katip.Core: itemProcess :: forall a_an1k. Lens' (Item a_an1k) ProcessID
+ Katip.Core: itemProcess :: forall a_amsu. Lens' (Item a_amsu) ProcessID
- Katip.Core: itemSeverity :: forall a_an1k. Lens' (Item a_an1k) Severity
+ Katip.Core: itemSeverity :: forall a_amsu. Lens' (Item a_amsu) Severity
- Katip.Core: itemThread :: forall a_an1k. Lens' (Item a_an1k) ThreadIdText
+ Katip.Core: itemThread :: forall a_amsu. Lens' (Item a_amsu) ThreadIdText
- Katip.Core: itemTime :: forall a_an1k. Lens' (Item a_an1k) UTCTime
+ Katip.Core: itemTime :: forall a_amsu. Lens' (Item a_amsu) UTCTime
Files
- changelog.md +4/−0
- katip.cabal +3/−3
- src/Katip/Core.hs +4/−0
- src/Katip/Monadic.hs +4/−0
changelog.md view
@@ -1,3 +1,7 @@+0.5.2.0+=======+* Allow newer versions of either by conditionally adding instances for the removed EitherT interface.+ 0.5.1.0 ======= * Add mkFileScribe, a specialization of mkHandleScribe for files that manages the handle automatically.
katip.cabal view
@@ -1,5 +1,5 @@ name: katip-version: 0.5.1.0+version: 0.5.2.0 synopsis: A structured logging framework. description: Katip is a structured logging framework. See README.md for more details.@@ -8,7 +8,7 @@ license-file: LICENSE author: Ozgun Ataman, Michael Xavier maintainer: michael.xavier@soostone.com-copyright: Soostone Inc, 2015-2016+copyright: Soostone Inc, 2015-2017 category: Data, Text, Logging homepage: https://github.com/Soostone/katip bug-reports: https://github.com/Soostone/katip/issues@@ -59,7 +59,7 @@ , auto-update >= 0.1 && < 0.2 , bytestring >= 0.9 && < 0.11 , containers >=0.4 && <0.6- , either >= 4 && < 4.5+ , either >= 4 && < 5.1 , safe-exceptions >= 0.1.0.0 , hostname >=1.0 && <1.1 , old-locale >= 1.0 && < 1.1
src/Katip/Core.hs view
@@ -35,7 +35,9 @@ import Control.Monad.IO.Class import Control.Monad.Trans.Class import Control.Monad.Trans.Control+#if !MIN_VERSION_either(4, 5, 0) import Control.Monad.Trans.Either+#endif import Control.Monad.Trans.Except import Control.Monad.Trans.Maybe import Control.Monad.Trans.Reader@@ -752,9 +754,11 @@ localLogEnv = mapReaderT . localLogEnv +#if !MIN_VERSION_either(4, 5, 0) instance Katip m => Katip (EitherT s m) where getLogEnv = lift getLogEnv localLogEnv = mapEitherT . localLogEnv+#endif instance Katip m => Katip (ExceptT s m) where
src/Katip/Monadic.hs view
@@ -46,7 +46,9 @@ import Control.Monad.Reader import Control.Monad.State import Control.Monad.Trans.Control+#if !MIN_VERSION_either(4, 5, 0) import Control.Monad.Trans.Either (EitherT, mapEitherT)+#endif import Control.Monad.Trans.Except (ExceptT, mapExceptT) import Control.Monad.Trans.Identity (IdentityT, mapIdentityT) import Control.Monad.Trans.List (ListT, mapListT)@@ -152,11 +154,13 @@ localKatipNamespace = mapMaybeT . localKatipNamespace +#if !MIN_VERSION_either(4, 5, 0) instance (KatipContext m, Katip (EitherT e m)) => KatipContext (EitherT e m) where getKatipContext = lift getKatipContext localKatipContext = mapEitherT . localKatipContext getKatipNamespace = lift getKatipNamespace localKatipNamespace = mapEitherT . localKatipNamespace+#endif instance (KatipContext m, Katip (ListT m)) => KatipContext (ListT m) where