log-warper 0.4.1 → 0.4.2
raw patch · 2 files changed
+3/−3 lines, 2 files
Files
- log-warper.cabal +1/−1
- src/System/Wlog/Formatter.hs +2/−2
log-warper.cabal view
@@ -1,5 +1,5 @@ name: log-warper-version: 0.4.1+version: 0.4.2 synopsis: Flexible, configurable, monadic and pretty logging homepage: https://github.com/serokell/log-warper license: MIT
src/System/Wlog/Formatter.hs view
@@ -39,11 +39,11 @@ stderrFormatter :: LogFormatter a stderrFormatter = simpleLogFormatter $- mconcat [colorizer ERROR "[$loggername:$prio] ", timeFmt, "$msg"]+ mconcat [colorizer ERROR "[$loggername:$prio:$tid] ", timeFmt, "$msg"] stdoutFmt :: Priority -> Bool -> String stdoutFmt pr isShowTime = mconcat- [colorizer pr "[$loggername:$prio] ", timeFmtStdout isShowTime, "$msg"]+ [colorizer pr "[$loggername:$prio:$tid] ", timeFmtStdout isShowTime, "$msg"] stdoutFormatter :: Bool -> LogFormatter a stdoutFormatter isShowTime handle r@(pr, _) =