Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-unliftio for openSUSE:Factory checked in at 2021-02-16 22:37:42 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-unliftio (Old) and /work/SRC/openSUSE:Factory/.ghc-unliftio.new.28504 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-unliftio" Tue Feb 16 22:37:42 2021 rev:15 rq:870466 version:0.2.14 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-unliftio/ghc-unliftio.changes 2020-12-22 11:48:23.309955898 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-unliftio.new.28504/ghc-unliftio.changes 2021-02-16 22:45:48.466371061 +0100 @@ -1,0 +2,9 @@ +Sun Jan 24 16:09:36 UTC 2021 - [email protected] + +- Update unliftio to version 0.2.14. + ## 0.2.14 + + * Add `UnliftIO.QSem` + * Add `UnliftIO.QSemN` + +------------------------------------------------------------------- Old: ---- unliftio-0.2.13.1.tar.gz New: ---- unliftio-0.2.14.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-unliftio.spec ++++++ --- /var/tmp/diff_new_pack.wZ1JrM/_old 2021-02-16 22:45:49.274372124 +0100 +++ /var/tmp/diff_new_pack.wZ1JrM/_new 2021-02-16 22:45:49.274372124 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-unliftio # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name unliftio %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.2.13.1 +Version: 0.2.14 Release: 0 Summary: The MonadUnliftIO typeclass for unlifting monads to IO (batteries included) License: MIT ++++++ unliftio-0.2.13.1.tar.gz -> unliftio-0.2.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/unliftio-0.2.13.1/ChangeLog.md new/unliftio-0.2.14/ChangeLog.md --- old/unliftio-0.2.13.1/ChangeLog.md 2020-10-29 10:02:46.000000000 +0100 +++ new/unliftio-0.2.14/ChangeLog.md 2021-01-24 09:58:52.000000000 +0100 @@ -1,5 +1,10 @@ # Changelog for unliftio +## 0.2.14 + +* Add `UnliftIO.QSem` +* Add `UnliftIO.QSemN` + ## 0.2.13.1 * Improve `UnliftIO.Exception` documentation diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/unliftio-0.2.13.1/src/UnliftIO/QSem.hs new/unliftio-0.2.14/src/UnliftIO/QSem.hs --- old/unliftio-0.2.13.1/src/UnliftIO/QSem.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/unliftio-0.2.14/src/UnliftIO/QSem.hs 2021-01-24 09:58:52.000000000 +0100 @@ -0,0 +1,43 @@ +-- | Unlifted "Control.Concurrent.QSem". +-- +-- @since 0.2.14 +module UnliftIO.QSem + ( QSem + , newQSem + , waitQSem + , signalQSem + , withQSem + ) where + +import Control.Concurrent.QSem (QSem) +import Control.Monad.IO.Unlift +import UnliftIO.Exception +import qualified Control.Concurrent.QSem as Q + +-- | Lifted 'Q.newQSem'. +-- +-- @since 0.2.14 +newQSem :: MonadIO m => Int -> m QSem +newQSem = liftIO . Q.newQSem + +-- | Lifted 'Q.waitQSem'. +-- +-- @since 0.2.14 +waitQSem :: MonadIO m => QSem -> m () +waitQSem = liftIO . Q.waitQSem + +-- | Lifted 'Q.signalQSem'. +-- +-- @since 0.2.14 +signalQSem :: MonadIO m => QSem -> m () +signalQSem = liftIO . Q.signalQSem + +-- | 'withQSem' is an exception-safe wrapper for performing the +-- provided operation while holding a unit of value from the semaphore. +-- It ensures the semaphore cannot be leaked if there are exceptions. +-- +-- @since 0.2.14 +{-# INLINE withQSem #-} +withQSem :: MonadUnliftIO m => QSem -> m a -> m a +withQSem x io = withRunInIO $ \run -> + bracket_ (waitQSem x) (signalQSem x) (run io) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/unliftio-0.2.13.1/src/UnliftIO/QSemN.hs new/unliftio-0.2.14/src/UnliftIO/QSemN.hs --- old/unliftio-0.2.13.1/src/UnliftIO/QSemN.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/unliftio-0.2.14/src/UnliftIO/QSemN.hs 2021-01-24 09:58:52.000000000 +0100 @@ -0,0 +1,43 @@ +-- | Unlifted "Control.Concurrent.QSemN". +-- +-- @since 0.2.14 +module UnliftIO.QSemN + ( QSemN + , newQSemN + , waitQSemN + , signalQSemN + , withQSemN + ) where + +import Control.Concurrent.QSemN (QSemN) +import Control.Monad.IO.Unlift +import UnliftIO.Exception +import qualified Control.Concurrent.QSemN as Q + +-- | Lifted 'Q.newQSemN'. +-- +-- @since 0.2.14 +newQSemN :: MonadIO m => Int -> m QSemN +newQSemN = liftIO . Q.newQSemN + +-- | Lifted 'Q.waitQSemN'. +-- +-- @since 0.2.14 +waitQSemN :: MonadIO m => QSemN -> Int -> m () +waitQSemN x = liftIO . Q.waitQSemN x + +-- | Lifted 'Q.signalQSemN'. +-- +-- @since 0.2.14 +signalQSemN :: MonadIO m => QSemN -> Int -> m () +signalQSemN x = liftIO . Q.signalQSemN x + +-- | 'withQSemN' is an exception-safe wrapper for performing the +-- provided operation while holding N unit of value from the semaphore. +-- It ensures the semaphore cannot be leaked if there are exceptions. +-- +-- @since 0.2.14 +{-# INLINE withQSemN #-} +withQSemN :: MonadUnliftIO m => QSemN -> Int -> m a -> m a +withQSemN x n io = withRunInIO $ \run -> + bracket_ (waitQSemN x n) (signalQSemN x n) (run io) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/unliftio-0.2.13.1/src/UnliftIO.hs new/unliftio-0.2.14/src/UnliftIO.hs --- old/unliftio-0.2.13.1/src/UnliftIO.hs 2020-08-12 08:32:43.000000000 +0200 +++ new/unliftio-0.2.14/src/UnliftIO.hs 2021-01-24 09:58:52.000000000 +0100 @@ -9,6 +9,8 @@ , module UnliftIO.IORef , module UnliftIO.Memoize , module UnliftIO.MVar + , module UnliftIO.QSem + , module UnliftIO.QSemN , module UnliftIO.STM , module UnliftIO.Temporary , module UnliftIO.Timeout @@ -22,6 +24,8 @@ import UnliftIO.IORef import UnliftIO.Memoize import UnliftIO.MVar +import UnliftIO.QSem +import UnliftIO.QSemN import UnliftIO.STM import UnliftIO.Temporary import UnliftIO.Timeout diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/unliftio-0.2.13.1/unliftio.cabal new/unliftio-0.2.14/unliftio.cabal --- old/unliftio-0.2.13.1/unliftio.cabal 2020-10-29 11:04:07.000000000 +0100 +++ new/unliftio-0.2.14/unliftio.cabal 2021-01-24 09:58:52.000000000 +0100 @@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack -- --- hash: c11215b81aa0898968a1dbf5189319f0bd07fa70861b5812ac34043c9f118ebb +-- hash: e737146da57bc35659bcdf122bb96b8fd76e43a33e39f3ebf00fac260c68bb2b name: unliftio -version: 0.2.13.1 +version: 0.2.14 synopsis: The MonadUnliftIO typeclass for unlifting monads to IO (batteries included) description: Please see the documentation and README at <https://www.stackage.org/package/unliftio> category: Control @@ -39,6 +39,8 @@ UnliftIO.Memoize UnliftIO.MVar UnliftIO.Process + UnliftIO.QSem + UnliftIO.QSemN UnliftIO.STM UnliftIO.Temporary UnliftIO.Timeout
