Hello community, here is the log from the commit of package ghc-retry for openSUSE:Factory checked in at 2018-08-20 16:20:52 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-retry (Old) and /work/SRC/openSUSE:Factory/.ghc-retry.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-retry" Mon Aug 20 16:20:52 2018 rev:12 rq:630372 version:0.7.6.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-retry/ghc-retry.changes 2018-07-21 10:22:53.870991127 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-retry.new/ghc-retry.changes 2018-08-20 16:20:54.768948924 +0200 @@ -1,0 +2,7 @@ +Fri Aug 17 09:43:21 UTC 2018 - [email protected] + +- Update retry to version 0.7.6.3. + 0.7.6.3 + * Documentation fix on `recoverAll` + +------------------------------------------------------------------- Old: ---- retry-0.7.6.2.tar.gz New: ---- retry-0.7.6.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-retry.spec ++++++ --- /var/tmp/diff_new_pack.29YHd7/_old 2018-08-20 16:20:55.180949506 +0200 +++ /var/tmp/diff_new_pack.29YHd7/_new 2018-08-20 16:20:55.180949506 +0200 @@ -19,7 +19,7 @@ %global pkg_name retry %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.7.6.2 +Version: 0.7.6.3 Release: 0 Summary: Retry combinators for monadic actions that may fail License: BSD-3-Clause ++++++ retry-0.7.6.2.tar.gz -> retry-0.7.6.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.6.2/changelog.md new/retry-0.7.6.3/changelog.md --- old/retry-0.7.6.2/changelog.md 2018-03-22 18:45:26.000000000 +0100 +++ new/retry-0.7.6.3/changelog.md 2018-08-14 17:10:56.000000000 +0200 @@ -1,3 +1,6 @@ +0.7.6.3 +* Documentation fix on `recoverAll` + 0.7.6.2 * Loosen bounds on exceptions again. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.6.2/retry.cabal new/retry-0.7.6.3/retry.cabal --- old/retry-0.7.6.2/retry.cabal 2018-03-22 18:45:18.000000000 +0100 +++ new/retry-0.7.6.3/retry.cabal 2018-08-14 17:11:06.000000000 +0200 @@ -14,7 +14,7 @@ case we should hang back for a bit and retry the query instead of simply raising an exception. -version: 0.7.6.2 +version: 0.7.6.3 synopsis: Retry combinators for monadic actions that may fail license: BSD3 license-file: LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.6.2/src/Control/Retry.hs new/retry-0.7.6.3/src/Control/Retry.hs --- old/retry-0.7.6.2/src/Control/Retry.hs 2018-02-05 21:10:48.000000000 +0100 +++ new/retry-0.7.6.3/src/Control/Retry.hs 2018-08-14 17:09:35.000000000 +0200 @@ -428,7 +428,7 @@ -- good idea to catch async exceptions as it can result in hanging -- threads and programs. Note that if you just throw an exception to -- this thread that does not descend from SomeException, recoverAll --- will catch it. +-- will not catch it. -- -- See how the action below is run once and retried 5 more times -- before finally failing for good: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.6.2/test/Tests/Control/Retry.hs new/retry-0.7.6.3/test/Tests/Control/Retry.hs --- old/retry-0.7.6.2/test/Tests/Control/Retry.hs 2018-02-05 21:10:48.000000000 +0100 +++ new/retry-0.7.6.3/test/Tests/Control/Retry.hs 2018-08-14 17:09:35.000000000 +0200 @@ -88,7 +88,6 @@ f (res :: Either Custom1 ()) @?= Right () - , testCase "fails beyond policy using custom exceptions" $ do f <- mkFailN Custom1 3 res <- try $ recovering @@ -97,6 +96,12 @@ f (res :: Either Custom1 ()) @?= Left Custom1 + , testCase "recoverAll won't catch exceptions which are not decendants of SomeException" $ do + f <- mkFailN Custom1 4 + res <- try $ recoverAll + (constantDelay 5000 <> limitRetries 3) + f + (res :: Either Custom1 ()) @?= Left Custom1 , testCase "does not recover from unhandled exceptions" $ do f <- mkFailN Custom2 2
