Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-lifted-async for
openSUSE:Factory checked in at 2021-04-10 15:27:17
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-lifted-async (Old)
and /work/SRC/openSUSE:Factory/.ghc-lifted-async.new.2401 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-lifted-async"
Sat Apr 10 15:27:17 2021 rev:13 rq:883519 version:0.10.2
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-lifted-async/ghc-lifted-async.changes
2021-03-10 08:57:16.686890396 +0100
+++
/work/SRC/openSUSE:Factory/.ghc-lifted-async.new.2401/ghc-lifted-async.changes
2021-04-10 15:28:20.946447045 +0200
@@ -1,0 +2,9 @@
+Mon Apr 5 14:15:03 UTC 2021 - psim...@suse.com
+
+- Update lifted-async to version 0.10.2.
+ ## v0.10.2 - 20201-04-02
+
+ * Define withAsync in terms of corresponding function from async
([#36](https://github.com/maoe/lifted-async/pull/36))
+ * Fixes [#34](https://github.com/maoe/lifted-async/issues/34)
+
+-------------------------------------------------------------------
Old:
----
lifted-async-0.10.1.3.tar.gz
New:
----
lifted-async-0.10.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-lifted-async.spec ++++++
--- /var/tmp/diff_new_pack.9FsiEu/_old 2021-04-10 15:28:21.538447742 +0200
+++ /var/tmp/diff_new_pack.9FsiEu/_new 2021-04-10 15:28:21.542447747 +0200
@@ -19,7 +19,7 @@
%global pkg_name lifted-async
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.10.1.3
+Version: 0.10.2
Release: 0
Summary: Run lifted IO operations asynchronously and wait for their
results
License: BSD-3-Clause
++++++ lifted-async-0.10.1.3.tar.gz -> lifted-async-0.10.2.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/lifted-async-0.10.1.3/CHANGELOG.md
new/lifted-async-0.10.2/CHANGELOG.md
--- old/lifted-async-0.10.1.3/CHANGELOG.md 2001-09-09 03:46:40.000000000
+0200
+++ new/lifted-async-0.10.2/CHANGELOG.md 2001-09-09 03:46:40.000000000
+0200
@@ -1,5 +1,10 @@
# Revision history for lifted-async
+## v0.10.2 - 20201-04-02
+
+* Define withAsync in terms of corresponding function from async
([#36](https://github.com/maoe/lifted-async/pull/36))
+ * Fixes [#34](https://github.com/maoe/lifted-async/issues/34)
+
## v0.10.1.3 - 2021-02-26
* Support GHC 9.0.1 ([#33](https://github.com/maoe/lifted-async/pull/33))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/lifted-async-0.10.1.3/lifted-async.cabal
new/lifted-async-0.10.2/lifted-async.cabal
--- old/lifted-async-0.10.1.3/lifted-async.cabal 2001-09-09
03:46:40.000000000 +0200
+++ new/lifted-async-0.10.2/lifted-async.cabal 2001-09-09 03:46:40.000000000
+0200
@@ -1,6 +1,6 @@
cabal-version: 1.24
name: lifted-async
-version: 0.10.1.3
+version: 0.10.2
synopsis: Run lifted IO operations asynchronously and wait for
their results
homepage: https://github.com/maoe/lifted-async
bug-reports: https://github.com/maoe/lifted-async/issues
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/lifted-async-0.10.1.3/src/Control/Concurrent/Async/Lifted.hs
new/lifted-async-0.10.2/src/Control/Concurrent/Async/Lifted.hs
--- old/lifted-async-0.10.1.3/src/Control/Concurrent/Async/Lifted.hs
2001-09-09 03:46:40.000000000 +0200
+++ new/lifted-async-0.10.2/src/Control/Concurrent/Async/Lifted.hs
2001-09-09 03:46:40.000000000 +0200
@@ -139,7 +139,7 @@
=> m a
-> (Async (StM m a) -> m b)
-> m b
-withAsync = withAsyncUsing async
+withAsync = liftWithAsync A.withAsync
{-# INLINABLE withAsync #-}
-- | Generalized version of 'A.withAsyncBound'.
@@ -148,9 +148,17 @@
=> m a
-> (Async (StM m a) -> m b)
-> m b
-withAsyncBound = withAsyncUsing asyncBound
+withAsyncBound = liftWithAsync A.withAsyncBound
{-# INLINABLE withAsyncBound #-}
+liftWithAsync
+ :: MonadBaseControl IO m
+ => (IO (StM m a) -> (Async (StM m a) -> IO (StM m b)) -> IO (StM m b))
+ -> (m a -> (Async (StM m a) -> m b) -> m b)
+liftWithAsync withA action cont = restoreM =<< do
+ liftBaseWith $ \runInIO -> do
+ withA (runInIO action) (runInIO . cont)
+
-- | Generalized version of 'A.withAsyncOn'.
withAsyncOn
:: MonadBaseControl IO m
