packages feed

katip 0.1.0.0 → 0.1.1.0

raw patch · 3 files changed

+16/−8 lines, 3 filesdep ~basedep ~mtldep ~resourcetPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base, mtl, resourcet, transformers-base

API changes (from Hackage documentation)

+ Katip.Core: instance Katip m => Katip (ExceptT s m)
- Katip: itemApp :: Lens' (Item a_akt9) Namespace
+ Katip: itemApp :: Lens' (Item a_akrY) Namespace
- Katip: itemEnv :: Lens' (Item a_akt9) Environment
+ Katip: itemEnv :: Lens' (Item a_akrY) Environment
- Katip: itemHost :: Lens' (Item a_akt9) HostName
+ Katip: itemHost :: Lens' (Item a_akrY) HostName
- Katip: itemLoc :: Lens' (Item a_akt9) (Maybe Loc)
+ Katip: itemLoc :: Lens' (Item a_akrY) (Maybe Loc)
- Katip: itemMessage :: Lens' (Item a_akt9) LogStr
+ Katip: itemMessage :: Lens' (Item a_akrY) LogStr
- Katip: itemNamespace :: Lens' (Item a_akt9) Namespace
+ Katip: itemNamespace :: Lens' (Item a_akrY) Namespace
- Katip: itemPayload :: Lens (Item a_akt9) (Item a_aoxY) a_akt9 a_aoxY
+ Katip: itemPayload :: Lens (Item a_akrY) (Item a_aoxY) a_akrY a_aoxY
- Katip: itemProcess :: Lens' (Item a_akt9) ProcessID
+ Katip: itemProcess :: Lens' (Item a_akrY) ProcessID
- Katip: itemSeverity :: Lens' (Item a_akt9) Severity
+ Katip: itemSeverity :: Lens' (Item a_akrY) Severity
- Katip: itemThread :: Lens' (Item a_akt9) ThreadIdText
+ Katip: itemThread :: Lens' (Item a_akrY) ThreadIdText
- Katip: itemTime :: Lens' (Item a_akt9) UTCTime
+ Katip: itemTime :: Lens' (Item a_akrY) UTCTime
- Katip.Core: itemApp :: Lens' (Item a_akt9) Namespace
+ Katip.Core: itemApp :: Lens' (Item a_akrY) Namespace
- Katip.Core: itemEnv :: Lens' (Item a_akt9) Environment
+ Katip.Core: itemEnv :: Lens' (Item a_akrY) Environment
- Katip.Core: itemHost :: Lens' (Item a_akt9) HostName
+ Katip.Core: itemHost :: Lens' (Item a_akrY) HostName
- Katip.Core: itemLoc :: Lens' (Item a_akt9) (Maybe Loc)
+ Katip.Core: itemLoc :: Lens' (Item a_akrY) (Maybe Loc)
- Katip.Core: itemMessage :: Lens' (Item a_akt9) LogStr
+ Katip.Core: itemMessage :: Lens' (Item a_akrY) LogStr
- Katip.Core: itemNamespace :: Lens' (Item a_akt9) Namespace
+ Katip.Core: itemNamespace :: Lens' (Item a_akrY) Namespace
- Katip.Core: itemPayload :: Lens (Item a_akt9) (Item a_aoxY) a_akt9 a_aoxY
+ Katip.Core: itemPayload :: Lens (Item a_akrY) (Item a_aoxY) a_akrY a_aoxY
- Katip.Core: itemProcess :: Lens' (Item a_akt9) ProcessID
+ Katip.Core: itemProcess :: Lens' (Item a_akrY) ProcessID
- Katip.Core: itemSeverity :: Lens' (Item a_akt9) Severity
+ Katip.Core: itemSeverity :: Lens' (Item a_akrY) Severity
- Katip.Core: itemThread :: Lens' (Item a_akt9) ThreadIdText
+ Katip.Core: itemThread :: Lens' (Item a_akrY) ThreadIdText
- Katip.Core: itemTime :: Lens' (Item a_akt9) UTCTime
+ Katip.Core: itemTime :: Lens' (Item a_akrY) UTCTime

Files

changelog.md view
@@ -1,4 +1,10 @@+0.1.1.0+==============++* Set upper bounds for a few dependencies.+* Add ExceptT instance for Katip typeclass+ 0.1.0.0 ============== -Initial release+* Initial release
katip.cabal view
@@ -1,5 +1,5 @@ name:                katip-version:             0.1.0.0+version:             0.1.1.0 synopsis:            A structured logging framework. description:   Katip is a structured logging framework. See README.md for more details.@@ -64,9 +64,9 @@                , unix >= 2.5 && < 2.8                , unordered-containers >= 0.2 && < 0.3                , monad-control >= 1.0 && < 1.1-               , mtl-               , transformers-base-               , resourcet+               , mtl >= 2.2 && < 2.3+               , transformers-base >= 0.4.1 && < 0.5+               , resourcet >= 1.1 && < 1.2    hs-source-dirs:      src   default-language:    Haskell2010
src/Katip/Core.hs view
@@ -18,13 +18,13 @@ import           Control.AutoUpdate import           Control.Concurrent import           Control.Lens-import           Control.Monad import           Control.Monad.Base import           Control.Monad.Catch import           Control.Monad.IO.Class import           Control.Monad.Trans.Class import           Control.Monad.Trans.Control import           Control.Monad.Trans.Either+import           Control.Monad.Trans.Except import           Control.Monad.Trans.Maybe import           Control.Monad.Trans.Reader import           Control.Monad.Trans.Resource@@ -411,7 +411,7 @@ payloadObject :: LogItem a => Verbosity -> a -> A.Object payloadObject verb a = case FT.foldMap (flip payloadKeys a) [(V0)..verb] of     AllKeys -> toObject a-    SomeKeys ks -> HM.filterWithKey (\ k _ -> k `elem` ks) $ toObject a+    SomeKeys ks -> HM.filterWithKey (\ k _ -> k `FT.elem` ks) $ toObject a   -------------------------------------------------------------------------------@@ -551,6 +551,8 @@ instance Katip m => Katip (EitherT s m) where     getLogEnv = lift getLogEnv +instance Katip m => Katip (ExceptT s m) where+    getLogEnv = lift getLogEnv  instance Katip m => Katip (MaybeT m) where     getLogEnv = lift getLogEnv@@ -624,7 +626,7 @@         <*> _logEnvTimer         <*> pure (_logEnvNs <> ns)         <*> pure loc-      forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item+      FT.forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item   -------------------------------------------------------------------------------