apiary-logger 0.17.0 → 1.0.0

raw patch · 2 files changed

+7/−6 lines, 2 filesdep ~apiary

Dependency ranges changed: apiary

Files

• apiary-logger.cabal +2/−2
• src/Web/Apiary/Logger.hs +5/−4

@@ -1,5 +1,5 @@ name:                apiary-logger-version:             0.17.0+version:             1.0.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.17  && <0.18+                     , apiary             >=1.0   && <1.1                      , fast-logger        >=2.1   && <2.3                      , monad-logger       >=0.3   && <0.4                      , data-default-class >=0.0   && <0.1

@@ -38,8 +38,9 @@  import Data.Default.Class -import Data.Apiary.Proxy-import Web.Apiary+import Control.Monad.Apiary+import Control.Monad.Apiary.Action+import Data.Apiary.Compat import Data.Apiary.Extension  data LogDest@@ -79,12 +80,12 @@  -- | push log. logging :: (Has Logger exts, MonadIO m)-        => LogStr -> ActionT exts m ()+        => LogStr -> ActionT exts prms m () logging m = do     l <- getExt (Proxy :: Proxy Logger)     liftIO $ pushLog l m -instance (MonadIO m, Has Logger exts) => MonadLogger (ActionT exts m) where+instance (MonadIO m, Has Logger exts) => MonadLogger (ActionT exts prms m) where     monadLoggerLog loc src lv msg = do         l <- getExt (Proxy :: Proxy Logger)         liftIO . pushLog l $ defaultLogStr loc src lv (toLogStr msg)