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 - [email protected]
+
+- 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
