logging-facade 0.3.0 → 0.3.1
raw patch · 3 files changed
+23/−15 lines, 3 filesdep ~transformersPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: transformers
API changes (from Hackage documentation)
Files
- LICENSE +1/−1
- logging-facade.cabal +11/−7
- src/System/Logging/Facade/Class.hs +11/−7
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2014-2017 Simon Hengel <sol@typeful.net>+Copyright (c) 2014-2021 Simon Hengel <sol@typeful.net> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal
logging-facade.cabal view
@@ -1,20 +1,21 @@--- This file has been generated from package.yaml by hpack version 0.17.0.+cabal-version: 1.12++-- This file has been generated from package.yaml by hpack version 0.34.5. -- -- see: https://github.com/sol/hpack name: logging-facade-version: 0.3.0+version: 0.3.1 synopsis: Simple logging abstraction that allows multiple back-ends description: Simple logging abstraction that allows multiple back-ends homepage: https://github.com/sol/logging-facade#readme bug-reports: https://github.com/sol/logging-facade/issues license: MIT license-file: LICENSE-copyright: (c) 2014-2017 Simon Hengel+copyright: (c) 2014-2021 Simon Hengel author: Simon Hengel <sol@typeful.net> maintainer: Simon Hengel <sol@typeful.net> build-type: Simple-cabal-version: >= 1.10 category: System source-repository head@@ -33,7 +34,7 @@ other-modules: Paths_logging_facade build-depends:- base == 4.*+ base ==4.* , call-stack , transformers default-language: Haskell2010@@ -41,6 +42,8 @@ test-suite spec type: exitcode-stdio-1.0 ghc-options: -Wall+ build-tool-depends:+ hspec-discover:hspec-discover hs-source-dirs: test main-is: Spec.hs@@ -48,8 +51,9 @@ Helper System.Logging.Facade.SinkSpec System.Logging.FacadeSpec+ Paths_logging_facade build-depends:- base == 4.*+ base ==4.*+ , hspec ==2.* , logging-facade- , hspec == 2.* default-language: Haskell2010
src/System/Logging/Facade/Class.hs view
@@ -4,9 +4,7 @@ import Control.Monad.Trans.Class import Control.Monad.Trans.Cont-import Control.Monad.Trans.Error import Control.Monad.Trans.Identity-import Control.Monad.Trans.List import Control.Monad.Trans.Maybe import Control.Monad.Trans.RWS.Lazy import qualified Control.Monad.Trans.RWS.Strict as Strict@@ -27,6 +25,17 @@ import System.Logging.Facade.Sink import System.Logging.Facade.Types +#if !MIN_VERSION_transformers(0,6,0)+import Control.Monad.Trans.List+import Control.Monad.Trans.Error++instance (Logging m) => Logging (ListT m) where+ consumeLogRecord = lift . consumeLogRecord++instance (Error e, Logging m) => Logging (ErrorT e m) where+ consumeLogRecord = lift . consumeLogRecord+#endif+ -- | A type class for monads with logging support class Monad m => Logging m where consumeLogRecord :: LogRecord -> m ()@@ -41,14 +50,9 @@ instance (Logging m) => Logging (ContT r m) where consumeLogRecord = lift . consumeLogRecord -instance (Error e, Logging m) => Logging (ErrorT e m) where- consumeLogRecord = lift . consumeLogRecord- instance (Logging m) => Logging (IdentityT m) where consumeLogRecord = lift . consumeLogRecord -instance (Logging m) => Logging (ListT m) where- consumeLogRecord = lift . consumeLogRecord instance (Logging m) => Logging (MaybeT m) where consumeLogRecord = lift . consumeLogRecord