Hello community, here is the log from the commit of package ghc-monad-logger for openSUSE:Factory checked in at 2020-05-11 13:35:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-monad-logger (Old) and /work/SRC/openSUSE:Factory/.ghc-monad-logger.new.2738 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-monad-logger" Mon May 11 13:35:31 2020 rev:20 rq:801035 version:0.3.32 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-monad-logger/ghc-monad-logger.changes 2019-12-27 13:55:30.856720514 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-monad-logger.new.2738/ghc-monad-logger.changes 2020-05-11 13:35:55.696435185 +0200 @@ -1,0 +2,10 @@ +Tue Mar 24 08:06:55 UTC 2020 - psim...@suse.com + +- Update monad-logger to version 0.3.32. + # ChangeLog for monad-logger + + ## 0.3.32 + + * Compat with `unliftio-core` 0.2 + +------------------------------------------------------------------- Old: ---- monad-logger-0.3.31.tar.gz New: ---- monad-logger-0.3.32.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-monad-logger.spec ++++++ --- /var/tmp/diff_new_pack.zqrrdl/_old 2020-05-11 13:35:57.768439528 +0200 +++ /var/tmp/diff_new_pack.zqrrdl/_new 2020-05-11 13:35:57.772439537 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-monad-logger # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %global pkg_name monad-logger Name: ghc-%{pkg_name} -Version: 0.3.31 +Version: 0.3.32 Release: 0 Summary: A class of monads which can log messages License: MIT ++++++ monad-logger-0.3.31.tar.gz -> monad-logger-0.3.32.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/monad-logger-0.3.31/ChangeLog.md new/monad-logger-0.3.32/ChangeLog.md --- old/monad-logger-0.3.31/ChangeLog.md 2019-11-25 13:28:54.000000000 +0100 +++ new/monad-logger-0.3.32/ChangeLog.md 2020-03-01 09:40:33.000000000 +0100 @@ -1,3 +1,9 @@ +# ChangeLog for monad-logger + +## 0.3.32 + +* Compat with `unliftio-core` 0.2 + ## 0.3.31 * Re-export `fromLogStr` to make implementing custom instances more convenient. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/monad-logger-0.3.31/Control/Monad/Logger.hs new/monad-logger-0.3.32/Control/Monad/Logger.hs --- old/monad-logger-0.3.31/Control/Monad/Logger.hs 2019-11-25 13:28:54.000000000 +0100 +++ new/monad-logger-0.3.32/Control/Monad/Logger.hs 2020-03-01 09:40:04.000000000 +0100 @@ -115,7 +115,7 @@ import Control.Concurrent.STM import Control.Concurrent.STM.TBChan import Control.Exception.Lifted (onException, bracket) -import Control.Monad (liftM, ap, when, void, forever) +import Control.Monad (liftM, when, void, forever) import Control.Monad.Base (MonadBase (liftBase), liftBaseDefault) #if MIN_VERSION_base(4, 9, 0) import qualified Control.Monad.Fail as Fail @@ -170,8 +170,6 @@ import GHC.Stack as GHC #endif -import Prelude hiding (catch) - import Data.Conduit.Lazy (MonadActive, monadActive) data LogLevel = LevelDebug | LevelInfo | LevelWarn | LevelError | LevelOther Text @@ -404,9 +402,11 @@ -- | @since 0.3.26 instance MonadUnliftIO m => MonadUnliftIO (NoLoggingT m) where - askUnliftIO = NoLoggingT $ - withUnliftIO $ \u -> - return (UnliftIO (unliftIO u . runNoLoggingT)) + {-# INLINE withRunInIO #-} + withRunInIO inner = + NoLoggingT $ + withRunInIO $ \run -> + inner (run . runNoLoggingT) -- | @since 0.3.28 type LogLine = (Loc, LogSource, LogLevel, LogStr) @@ -626,9 +626,11 @@ -- | @since 0.3.26 instance MonadUnliftIO m => MonadUnliftIO (LoggingT m) where - askUnliftIO = LoggingT $ \f -> - withUnliftIO $ \u -> - return (UnliftIO (unliftIO u . flip runLoggingT f)) + {-# INLINE withRunInIO #-} + withRunInIO inner = + LoggingT $ \r -> + withRunInIO $ \run -> + inner (run . flip runLoggingT r) defaultOutput :: Handle -> Loc @@ -699,10 +701,10 @@ -- -- @since 0.3.22 runFileLoggingT :: MonadBaseControl IO m => FilePath -> LoggingT m a -> m a -runFileLoggingT fp log = bracket +runFileLoggingT fp logt = bracket (liftBase $ openFile fp AppendMode) (liftBase . hClose) - $ \h -> liftBase (hSetBuffering h LineBuffering) >> (runLoggingT log) (defaultOutput h) + $ \h -> liftBase (hSetBuffering h LineBuffering) >> (runLoggingT logt) (defaultOutput h) -- | Run a block using a @MonadLogger@ instance which prints to stderr. -- @@ -726,7 +728,7 @@ runChanLoggingT :: MonadIO m => Chan LogLine -> LoggingT m a -> m a runChanLoggingT chan = (`runLoggingT` sink chan) where - sink chan loc src lvl msg = writeChan chan (loc,src,lvl,msg) + sink chan' loc src lvl msg = writeChan chan' (loc,src,lvl,msg) -- | Read logging tuples from an unbounded channel and log them into a -- `MonadLoggerIO` monad, forever. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/monad-logger-0.3.31/monad-logger.cabal new/monad-logger-0.3.32/monad-logger.cabal --- old/monad-logger-0.3.31/monad-logger.cabal 2019-11-25 14:31:48.000000000 +0100 +++ new/monad-logger-0.3.32/monad-logger.cabal 2020-03-01 09:40:15.000000000 +0100 @@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.2. +-- This file has been generated from package.yaml by hpack version 0.33.0. -- -- see: https://github.com/sol/hpack -- --- hash: 732ba66e7c9140cd574be4c9bda3f12c1b8f9b6ddf7f75d373f6a0c518c292f0 +-- hash: 3bc78e9ad84902b767b9156b71057661558496979be02259b5e9161b3268b097 name: monad-logger -version: 0.3.31 +version: 0.3.32 synopsis: A class of monads which can log messages. description: See README and Haddocks at <https://www.stackage.org/package/monad-logger> category: System