log-warper 1.8.9 → 1.8.10

raw patch · 3 files changed

+8/−9 lines, 3 files

Files

CHANGES.md +6/−0
log-warper.cabal +1/−1
src/System/Wlog/LogHandler/Simple.hs +1/−8

CHANGES.md view

@@ -1,3 +1,9 @@+1.8.10+======++* Remove exception handler from simple logger, which would catch all exceptions,+  even asynchronous ones.+ 1.8.9 =====

log-warper.cabal view

@@ -1,5 +1,5 @@ name:                log-warper-version:             1.8.9+version:             1.8.10 synopsis:            Flexible, configurable, monadic and pretty logging homepage:            https://github.com/serokell/log-warper license:             MIT

src/System/Wlog/LogHandler/Simple.hs view

@@ -63,14 +63,7 @@  -- | Default action which just prints to handle using given message. defaultHandleAction :: Handle -> Text -> IO ()-defaultHandleAction h message =-    TIO.hPutStrLn h message `catch` handleWriteException-  where-    handleWriteException :: SomeException -> IO ()-    handleWriteException e = do-        let errorMessage = "Error writing log message: "-                        <> show e <> " (original message: " <> message <> ")"-        TIO.hPutStrLn h errorMessage+defaultHandleAction = TIO.hPutStrLn  -- | Creates custom write action and memory queue where write action -- updates memory queue as well.