Hello community, here is the log from the commit of package ghc-logging-effect for openSUSE:Factory checked in at 2017-08-31 20:57:12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-logging-effect (Old) and /work/SRC/openSUSE:Factory/.ghc-logging-effect.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-logging-effect" Thu Aug 31 20:57:12 2017 rev:2 rq:513425 version:1.2.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-logging-effect/ghc-logging-effect.changes 2017-04-12 18:07:37.966779948 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-logging-effect.new/ghc-logging-effect.changes 2017-08-31 20:57:14.420867517 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:59 UTC 2017 - psimons@suse.com + +- Update to version 1.2.0. + +------------------------------------------------------------------- Old: ---- logging-effect-1.1.3.tar.gz New: ---- logging-effect-1.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-logging-effect.spec ++++++ --- /var/tmp/diff_new_pack.9KTj9r/_old 2017-08-31 20:57:15.764678708 +0200 +++ /var/tmp/diff_new_pack.9KTj9r/_new 2017-08-31 20:57:15.768678146 +0200 @@ -18,7 +18,7 @@ %global pkg_name logging-effect Name: ghc-%{pkg_name} -Version: 1.1.3 +Version: 1.2.0 Release: 0 Summary: A mtl-style monad transformer for general purpose & compositional logging License: BSD-3-Clause ++++++ logging-effect-1.1.3.tar.gz -> logging-effect-1.2.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/logging-effect-1.1.3/Changelog.md new/logging-effect-1.2.0/Changelog.md --- old/logging-effect-1.1.3/Changelog.md 2017-02-18 10:48:06.000000000 +0100 +++ new/logging-effect-1.2.0/Changelog.md 2017-02-27 13:53:53.000000000 +0100 @@ -1,3 +1,15 @@ +# 1.2.0 + +## Major Changes + +- `withFDHandler` now explicitly flushes the file handle whenever log entries + are rendered out. Thanks to @filterfish for identifying this omission that + could lead to log messages being dropped. + + Upgrade steps: no changes other than updating `logging-effect`. + +--- + # 1.1.3 ## Other Changes @@ -49,7 +61,7 @@ severity. The combinators are: `logDebug`, `logInfo`, `logNotice`, `logWarning`, `logError`, `logCritical`, `logAlert` and `logEmergency`. -- `mapLogMessage` got a companion function `mapLogMessageM` that works with +- `mapLogMessage` got a companion function `mapLogMessageM` that works with monadic tranformations. *Other* diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/logging-effect-1.1.3/logging-effect.cabal new/logging-effect-1.2.0/logging-effect.cabal --- old/logging-effect-1.1.3/logging-effect.cabal 2017-02-18 10:48:06.000000000 +0100 +++ new/logging-effect-1.2.0/logging-effect.cabal 2017-02-27 13:53:53.000000000 +0100 @@ -1,5 +1,5 @@ name: logging-effect -version: 1.1.3 +version: 1.2.0 synopsis: A mtl-style monad transformer for general purpose & compositional logging homepage: https://github.com/ocharles/logging-effect license: BSD3 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/logging-effect-1.1.3/src/Control/Monad/Log.hs new/logging-effect-1.2.0/src/Control/Monad/Log.hs --- old/logging-effect-1.1.3/src/Control/Monad/Log.hs 2017-02-18 10:48:06.000000000 +0100 +++ new/logging-effect-1.2.0/src/Control/Monad/Log.hs 2017-02-27 13:53:53.000000000 +0100 @@ -100,7 +100,7 @@ #else import GHC.Stack (SrcLoc, CallStack, getCallStack, prettySrcLoc) #endif -import System.IO (Handle) +import System.IO (Handle, hFlush) import qualified Data.Text.Lazy as LT import qualified Text.PrettyPrint.Leijen.Text as PP import qualified Data.List.NonEmpty as NEL @@ -527,9 +527,16 @@ -> Int -- ^ The amount of characters per line. Lines longer than this will be pretty-printed across multiple lines if possible. -> (Handler io PP.Doc -> io a) -> io a -withFDHandler options fd ribbonFrac width = - withBatchedHandler options - (PP.displayIO fd . PP.renderPretty ribbonFrac width . (<> PP.linebreak) . PP.vsep . NEL.toList) +withFDHandler options fd ribbonFrac width = withBatchedHandler options flush + where + flush messages = do + PP.displayIO + fd + (PP.renderPretty + ribbonFrac + width + (PP.vsep (NEL.toList messages) <> PP.linebreak)) + hFlush fd -------------------------------------------------------------------------------- -- | A 'MonadLog' handler optimised for pure usage. Log messages are accumulated