Hello community,

here is the log from the commit of package ghc-async for openSUSE:Factory 
checked in at 2017-05-06 18:28:03
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-async (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-async.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-async"

Sat May  6 18:28:03 2017 rev:12 rq:491455 version:2.1.1.1

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-async/ghc-async.changes      2016-12-06 
14:24:09.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-async.new/ghc-async.changes 2017-05-06 
18:28:10.019795194 +0200
@@ -1,0 +2,5 @@
+Wed Apr 19 13:20:19 UTC 2017 - [email protected]
+
+- Update to version 2.1.1.1 with cabal2obs.
+
+-------------------------------------------------------------------

Old:
----
  async-2.1.1.tar.gz

New:
----
  async-2.1.1.1.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-async.spec ++++++
--- /var/tmp/diff_new_pack.z8rX27/_old  2017-05-06 18:28:10.683701513 +0200
+++ /var/tmp/diff_new_pack.z8rX27/_new  2017-05-06 18:28:10.687700948 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-async
 #
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 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
@@ -19,7 +19,7 @@
 %global pkg_name async
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        2.1.1
+Version:        2.1.1.1
 Release:        0
 Summary:        Run IO operations asynchronously and wait for their results
 License:        BSD-3-Clause

++++++ async-2.1.1.tar.gz -> async-2.1.1.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/async-2.1.1/Control/Concurrent/Async.hs 
new/async-2.1.1.1/Control/Concurrent/Async.hs
--- old/async-2.1.1/Control/Concurrent/Async.hs 2016-11-18 15:09:22.000000000 
+0100
+++ new/async-2.1.1.1/Control/Concurrent/Async.hs       2017-04-10 
10:05:37.000000000 +0200
@@ -54,7 +54,7 @@
 --
 -- 'withAsync' is like 'async', except that the 'Async' is
 -- automatically killed (using 'uninterruptibleCancel') if the
--- enclosing IO opercation returns before it has completed.  Consider
+-- enclosing IO operation returns before it has completed.  Consider
 -- the case when the first 'wait' throws an exception; then the second
 -- 'Async' will be automatically killed rather than being left to run
 -- in the background, possibly indefinitely.  This is the second way
@@ -316,7 +316,7 @@
 -- exception to it, and waiting for the `Async` thread to quit.
 -- Has no effect if the 'Async' has already completed.
 --
--- > cancel a = throwTo (asyncThreadId a) ThreadKilled <* waitCatch w
+-- > cancel a = throwTo (asyncThreadId a) ThreadKilled <* waitCatch a
 --
 -- Note that 'cancel' will not terminate until the thread the 'Async'
 -- refers to has terminated. This means that 'cancel' will block for
@@ -347,7 +347,7 @@
 -- The notes about the synchronous nature of 'cancel' also apply to
 -- 'cancelWith'.
 cancelWith :: Exception e => Async a -> e -> IO ()
-cancelWith (Async t _) e = throwTo t e
+cancelWith a@(Async t _) e = throwTo t e <* waitCatch a
 
 -- | Wait for any of the supplied asynchronous operations to complete.
 -- The value returned is a pair of the 'Async' that completed, and the
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/async-2.1.1/async.cabal new/async-2.1.1.1/async.cabal
--- old/async-2.1.1/async.cabal 2016-11-18 15:09:22.000000000 +0100
+++ new/async-2.1.1.1/async.cabal       2017-04-10 10:05:37.000000000 +0200
@@ -1,5 +1,5 @@
 name:                async
-version:             2.1.1
+version:             2.1.1.1
 -- don't forget to update ./changelog.md!
 synopsis:            Run IO operations asynchronously and wait for their 
results
 
@@ -50,14 +50,14 @@
     if impl(ghc>=7.1)
         other-extensions: Trustworthy
     exposed-modules:     Control.Concurrent.Async
-    build-depends:       base >= 4.3 && < 4.10, stm >= 2.2 && < 2.5
+    build-depends:       base >= 4.3 && < 4.11, stm >= 2.2 && < 2.5
 
 test-suite test-async
     default-language: Haskell2010
     type:       exitcode-stdio-1.0
     hs-source-dirs: test
     main-is:    test-async.hs
-    build-depends: base >= 4.3 && < 4.10,
+    build-depends: base >= 4.3 && < 4.11,
                    async,
                    test-framework,
                    test-framework-hunit,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/async-2.1.1/changelog.md 
new/async-2.1.1.1/changelog.md
--- old/async-2.1.1/changelog.md        2016-11-18 15:09:22.000000000 +0100
+++ new/async-2.1.1.1/changelog.md      2017-04-10 10:05:37.000000000 +0200
@@ -1,3 +1,7 @@
+## Changes in 2.1.1.1:
+ - Make 'cancelWith' wait for the cancelled thread to terminate, like 'cancel'
+ - Updates to dependency bounds for GHC 8.2
+
 ## Changes in 2.1.1:
 
  - Add `concurrently_`


Reply via email to