Hello community, here is the log from the commit of package ghc-fast-logger for openSUSE:Factory checked in at 2016-05-03 09:37:15 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-fast-logger (Old) and /work/SRC/openSUSE:Factory/.ghc-fast-logger.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-fast-logger" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-fast-logger/ghc-fast-logger.changes 2016-04-30 23:30:18.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-fast-logger.new/ghc-fast-logger.changes 2016-05-03 10:16:43.000000000 +0200 @@ -1,0 +2,6 @@ +Wed Apr 27 18:23:38 UTC 2016 - mimi.vx@gmail.com + +- update to 2.4.6 +* Ensuring that stdio is flushed. + +------------------------------------------------------------------- Old: ---- fast-logger-2.4.5.tar.gz New: ---- fast-logger-2.4.6.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-fast-logger.spec ++++++ --- /var/tmp/diff_new_pack.ZIAfC4/_old 2016-05-03 10:16:44.000000000 +0200 +++ /var/tmp/diff_new_pack.ZIAfC4/_new 2016-05-03 10:16:44.000000000 +0200 @@ -20,7 +20,7 @@ %bcond_with tests Name: ghc-fast-logger -Version: 2.4.5 +Version: 2.4.6 Release: 0 Summary: A fast logging system Group: System/Libraries ++++++ fast-logger-2.4.5.tar.gz -> fast-logger-2.4.6.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/fast-logger-2.4.5/ChangeLog.md new/fast-logger-2.4.6/ChangeLog.md --- old/fast-logger-2.4.5/ChangeLog.md 2016-04-15 15:44:48.000000000 +0200 +++ new/fast-logger-2.4.6/ChangeLog.md 2016-04-26 09:41:24.000000000 +0200 @@ -1,3 +1,11 @@ +## 2.4.6 + +* Ensuring that stdio is flushed. [#92](https://github.com/kazu-yamamoto/logger/pull/92) + +## 2.4.5 + +* Bringing backward compatibility back. + ## 2.4.4 * New API: newFastLogger and ewTimedFastLogger. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/fast-logger-2.4.5/System/Log/FastLogger.hs new/fast-logger-2.4.6/System/Log/FastLogger.hs --- old/fast-logger-2.4.5/System/Log/FastLogger.hs 2016-04-15 15:44:48.000000000 +0200 +++ new/fast-logger-2.4.6/System/Log/FastLogger.hs 2016-04-26 09:41:24.000000000 +0200 @@ -195,14 +195,14 @@ -- a tuple of logger and clean up action are returned. newFastLogger :: LogType -> IO (FastLogger, IO ()) newFastLogger typ = case typ of - LogNone -> return (const noOp, noOp) - LogStdout bsize -> newStdoutLoggerSet bsize >>= stdLoggerInit - LogStderr bsize -> newStderrLoggerSet bsize >>= stdLoggerInit - LogFileNoRotate fp bsize -> newFileLoggerSet bsize fp >>= fileLoggerInit - LogFile fspec bsize -> rotateLoggerInit fspec bsize - LogCallback cb flush -> return (\ str -> cb str >> flush, noOp ) + LogNone -> return (const noOp, noOp) + LogStdout bsize -> newStdoutLoggerSet bsize >>= stdLoggerInit + LogStderr bsize -> newStderrLoggerSet bsize >>= stdLoggerInit + LogFileNoRotate fp bsize -> newFileLoggerSet bsize fp >>= fileLoggerInit + LogFile fspec bsize -> rotateLoggerInit fspec bsize + LogCallback cb flush -> return (\str -> cb str >> flush, noOp) where - stdLoggerInit lgrset = return (pushLogStr lgrset, noOp) + stdLoggerInit lgrset = return (pushLogStr lgrset, rmLoggerSet lgrset) fileLoggerInit lgrset = return (pushLogStr lgrset, rmLoggerSet lgrset) rotateLoggerInit fspec bsize = do lgrset <- newFileLoggerSet bsize $ log_file fspec @@ -225,14 +225,14 @@ -- "System.Log.FastLogger.Date" provide cached formatted time. -> LogType -> IO (TimedFastLogger, IO ()) newTimedFastLogger tgetter typ = case typ of - LogNone -> return (const noOp, noOp) - LogStdout bsize -> newStdoutLoggerSet bsize >>= stdLoggerInit - LogStderr bsize -> newStderrLoggerSet bsize >>= stdLoggerInit - LogFileNoRotate fp bsize -> newFileLoggerSet bsize fp >>= fileLoggerInit - LogFile fspec bsize -> rotateLoggerInit fspec bsize - LogCallback cb flush -> return (\ f -> tgetter >>= cb . f >> flush, noOp ) + LogNone -> return (const noOp, noOp) + LogStdout bsize -> newStdoutLoggerSet bsize >>= stdLoggerInit + LogStderr bsize -> newStderrLoggerSet bsize >>= stdLoggerInit + LogFileNoRotate fp bsize -> newFileLoggerSet bsize fp >>= fileLoggerInit + LogFile fspec bsize -> rotateLoggerInit fspec bsize + LogCallback cb flush -> return (\f -> tgetter >>= cb . f >> flush, noOp) where - stdLoggerInit lgrset = return ( \f -> tgetter >>= pushLogStr lgrset . f, noOp) + stdLoggerInit lgrset = return ( \f -> tgetter >>= pushLogStr lgrset . f, rmLoggerSet lgrset) fileLoggerInit lgrset = return (\f -> tgetter >>= pushLogStr lgrset . f, rmLoggerSet lgrset) rotateLoggerInit fspec bsize = do lgrset <- newFileLoggerSet bsize $ log_file fspec @@ -246,7 +246,7 @@ return (logger, rmLoggerSet lgrset) -- | 'bracket' version of 'newTimeFastLogger' -withTimedFastLogger :: (IO FormattedTime) -> LogType -> (TimedFastLogger -> IO a) -> IO a +withTimedFastLogger :: IO FormattedTime -> LogType -> (TimedFastLogger -> IO a) -> IO a withTimedFastLogger tgetter typ log' = bracket (newTimedFastLogger tgetter typ) snd (log' . fst) ---------------------------------------------------------------- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/fast-logger-2.4.5/fast-logger.cabal new/fast-logger-2.4.6/fast-logger.cabal --- old/fast-logger-2.4.5/fast-logger.cabal 2016-04-15 15:44:48.000000000 +0200 +++ new/fast-logger-2.4.6/fast-logger.cabal 2016-04-26 09:41:24.000000000 +0200 @@ -1,5 +1,5 @@ Name: fast-logger -Version: 2.4.5 +Version: 2.4.6 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3