apiary-logger 0.16.0 → 0.17.0

raw patch · 2 files changed

+8/−5 lines, 2 filesdep ~apiaryPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: apiary

API changes (from Hackage documentation)

Files

• apiary-logger.cabal +2/−2
• src/Web/Apiary/Logger.hs +6/−3

@@ -1,5 +1,5 @@ name:                apiary-logger-version:             0.16.0+version:             0.17.0 synopsis:            fast-logger support for apiary web framework. description:   example: <https://github.com/philopon/apiary/blob/master/examples/persistent.hs>@@ -19,7 +19,7 @@ library   exposed-modules:     Web.Apiary.Logger   build-depends:       base               >=4.6   && <4.8-                     , apiary             >=0.16  && <0.17+                     , apiary             >=0.17  && <0.18                      , fast-logger        >=2.1   && <2.3                      , monad-logger       >=0.3   && <0.4                      , data-default-class >=0.0   && <0.1

@@ -21,7 +21,7 @@     -- * action     , logging     -- * wrapper-    , LogWrapper, runLogWrapper+    , LogWrapper, logWrapper, runLogWrapper     ) where  import System.Log.FastLogger@@ -73,9 +73,9 @@  -- | logger initializer. initLogger :: (MonadBaseControl IO m, MonadIO m) => LogConfig -> Initializer' m Logger-initLogger LogConfig{..} = initializer $ bracket+initLogger LogConfig{..} = initializerBracket' $ bracket     (liftIO $ newLogger bufferSize logDest)-    (liftIO . closeLog) $ return+    (liftIO . closeLog)  -- | push log. logging :: (Has Logger exts, MonadIO m)@@ -99,6 +99,9 @@     LogWrapper { unLogWrapper :: ReaderT (Extensions exts) m a }     deriving ( Functor, Applicative              , Monad, MonadIO, MonadTrans, MonadBase b)++logWrapper :: Monad m => m a -> LogWrapper exts m a+logWrapper = LogWrapper . lift  runLogWrapper :: Extensions exts -> LogWrapper exts m a -> m a runLogWrapper e = flip runReaderT e . unLogWrapper