simple-logger 0.0.4 → 0.1.0
raw patch · 4 files changed
+15/−14 lines, 4 filesdep ~base
Dependency ranges changed: base
Files
- package.yaml +2/−2
- simple-logger.cabal +9/−7
- src/Control/Logger/Simple.hs +3/−4
- stack.yaml +1/−1
package.yaml view
@@ -1,5 +1,5 @@ name: simple-logger-version: 0.0.4+version: 0.1.0 synopsis: A very simple but efficient logging framework description: A very simple but efficient logging framework category: Logging@@ -14,7 +14,7 @@ ghc-options: -Wall dependencies:- - base >= 4.8 && < 5+ - base >= 4.9 && < 5 library: source-dirs: src
simple-logger.cabal view
@@ -1,9 +1,13 @@--- This file has been generated from package.yaml by hpack version 0.14.0.+cabal-version: 1.12++-- This file has been generated from package.yaml by hpack version 0.33.0. -- -- see: https://github.com/sol/hpack+--+-- hash: b5edd8600dd9e617fd590c0555243903dbd58f9f67496b265b3947d5e0616faf name: simple-logger-version: 0.0.4+version: 0.1.0 synopsis: A very simple but efficient logging framework description: A very simple but efficient logging framework category: Logging@@ -13,11 +17,9 @@ license: MIT license-file: LICENSE build-type: Simple-cabal-version: >= 1.10- extra-source-files:- package.yaml README.md+ package.yaml stack.yaml source-repository head@@ -29,10 +31,10 @@ src ghc-options: -Wall build-depends:- base >= 4.8 && < 5+ base >=4.9 && <5 , fast-logger- , text , mtl+ , text exposed-modules: Control.Logger.Simple other-modules:
src/Control/Logger/Simple.hs view
@@ -15,7 +15,6 @@ import Control.Monad import Control.Monad.Trans import Data.IORef-import Data.Monoid import System.IO.Unsafe import System.Log.FastLogger import qualified Data.Text as T@@ -76,7 +75,7 @@ logError = doLog LogError ?callStack -- | Log on error level and call 'fail'-logFail :: (?callStack :: GHC.CallStack) => MonadIO m => T.Text -> m a+logFail :: (?callStack :: GHC.CallStack, MonadFail m) => MonadIO m => T.Text -> m a logFail t = do doLog LogError ?callStack t fail (T.unpack t)@@ -173,8 +172,8 @@ bracket initLogger flushLogger (const f) where flushLogger (Loggers a b _) =- do forM_ a $ \(_, flush) -> flush- forM_ b $ \(_, flush) -> flush+ do forM_ a snd+ forM_ b snd initLogger = do fileLogger <- flip T.mapM (lc_file lc) $ \fp ->
stack.yaml view
@@ -1,1 +1,1 @@-resolver: lts-7.5+resolver: lts-15.13