commit ghc-retry for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-retry for openSUSE:Factory checked in at 2018-09-03 10:34:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-retry (Old) and /work/SRC/openSUSE:Factory/.ghc-retry.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-retry" Mon Sep 3 10:34:44 2018 rev:13 rq:632485 version:0.7.7.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-retry/ghc-retry.changes 2018-08-20 16:20:54.768948924 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-retry.new/ghc-retry.changes 2018-09-03 10:34:48.408623623 +0200 @@ -1,0 +2,7 @@ +Thu Aug 30 15:29:10 UTC 2018 - psimons@suse.com + +- Update retry to version 0.7.7.0. + 0.7.7.0 + * Add `natTransformRetryPolicy` + +------------------------------------------------------------------- Old: ---- retry-0.7.6.3.tar.gz New: ---- retry-0.7.7.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-retry.spec ++++++ --- /var/tmp/diff_new_pack.KtKp9L/_old 2018-09-03 10:34:50.108628007 +0200 +++ /var/tmp/diff_new_pack.KtKp9L/_new 2018-09-03 10:34:50.112628018 +0200 @@ -19,7 +19,7 @@ %global pkg_name retry %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.7.6.3 +Version: 0.7.7.0 Release: 0 Summary: Retry combinators for monadic actions that may fail License: BSD-3-Clause ++++++ retry-0.7.6.3.tar.gz -> retry-0.7.7.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.6.3/changelog.md new/retry-0.7.7.0/changelog.md --- old/retry-0.7.6.3/changelog.md 2018-08-14 17:10:56.000000000 +0200 +++ new/retry-0.7.7.0/changelog.md 2018-08-17 00:08:54.000000000 +0200 @@ -1,3 +1,6 @@ +0.7.7.0 +* Add `natTransformRetryPolicy` + 0.7.6.3 * Documentation fix on `recoverAll` diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.6.3/retry.cabal new/retry-0.7.7.0/retry.cabal --- old/retry-0.7.6.3/retry.cabal 2018-08-14 17:11:06.000000000 +0200 +++ new/retry-0.7.7.0/retry.cabal 2018-08-28 01:35:43.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.3 +version: 0.7.7.0 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.3/src/Control/Retry.hs new/retry-0.7.7.0/src/Control/Retry.hs --- old/retry-0.7.6.3/src/Control/Retry.hs 2018-08-14 17:09:35.000000000 +0200 +++ new/retry-0.7.7.0/src/Control/Retry.hs 2018-08-17 00:07:47.000000000 +0200 @@ -35,6 +35,7 @@ RetryPolicyM (..) , RetryPolicy , retryPolicy + , natTransformRetryPolicy , RetryStatus (..) , defaultRetryStatus , applyPolicy @@ -177,6 +178,21 @@ ------------------------------------------------------------------------------- +-- | Applies a natural transformation to a policy to run a RetryPolicy +-- meant for the monad @m@ in the monad @n@ provided a transformation +-- from @m@ to @n@ is available. A common case is if you have a pure +-- policy, @RetryPolicyM Identity@ and want to use it to govern an +-- @IO@ computation you could write: +-- +-- @ +-- purePolicyInIO :: RetryPolicyM Identity -> RetryPolicyM IO +-- purePolicyInIO = natTransformRetryPolicy (pure . runIdentity) +-- @ +natTransformRetryPolicy :: (forall a. m a -> n a) -> RetryPolicyM m -> RetryPolicyM n +natTransformRetryPolicy f (RetryPolicyM p) = RetryPolicyM $ \stat -> f (p stat) + + +------------------------------------------------------------------------------- -- | Datatype with stats about retries made thus far. The constructor -- is deliberately not exported to make additional fields easier to -- add in a backward-compatible manner. To read or modify fields in
participants (1)
-
root