log-warper 0.4.4 → 0.4.5
raw patch · 3 files changed
+7/−3 lines, 3 filesdep ~hslogger
Dependency ranges changed: hslogger
Files
- log-warper.cabal +3/−3
- src/System/Wlog/Roller.hs +3/−0
- src/System/Wlog/Wrapper.hs +1/−0
log-warper.cabal view
@@ -1,5 +1,5 @@ name: log-warper-version: 0.4.4+version: 0.4.5 synopsis: Flexible, configurable, monadic and pretty logging homepage: https://github.com/serokell/log-warper license: MIT@@ -47,7 +47,7 @@ , filepath >= 1.4.1 , formatting >= 6.2.2 , hashable >= 1.2.4.0- , hslogger >= 1.2.10+ , hslogger >= 1.3.0 , lens >= 4.14 , monad-control >= 1.0.1.0 , monad-loops@@ -81,7 +81,7 @@ build-depends: base >= 4.7 && < 5 , exceptions >= 0.8.2.1- , hslogger >= 1.2.10+ , hslogger >= 1.3.0 , log-warper , text >= 1.2.2.1
src/System/Wlog/Roller.hs view
@@ -36,9 +36,11 @@ , rhFileHandle :: MVar Handle , rhWriteAction :: Handle -> String -> IO () , rhCloseAction :: Handle -> IO ()+ , rhFileName :: FilePath } instance LogHandler RollerHandler where+ getTag rh = "rollerHandler:" <> rhFileName rh setLevel rh p = rh { rhPriority = p } setFormatter rh f = rh { rhFormatter = f } getLevel = rhPriority@@ -71,6 +73,7 @@ let rhWriteAction = rollerWriting writeFunc rhFileHandle return RollerHandler{ rhFormatter = nullFormatter , rhCloseAction = closeFunc+ , rhFileName = handlerPath , .. } where
src/System/Wlog/Wrapper.hs view
@@ -46,6 +46,7 @@ , privData = privData , writeFunc = \a s -> withMVar lock $ const $ writeFunc a s , closeFunc = closeFunc+ , ghTag = ghTag } -- | This function initializes global logging system for terminal output.