Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-retry for openSUSE:Factory checked in at 2021-08-25 20:57:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-retry (Old) and /work/SRC/openSUSE:Factory/.ghc-retry.new.1899 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-retry" Wed Aug 25 20:57:34 2021 rev:3 rq:912755 version:0.9.0.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-retry/ghc-retry.changes 2020-12-22 11:45:31.933817762 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-retry.new.1899/ghc-retry.changes 2021-08-25 20:58:50.097111823 +0200 @@ -1,0 +2,8 @@ +Sat Jul 10 13:41:07 UTC 2021 - [email protected] + +- Update retry to version 0.9.0.0. + 0.9.0.0 + * Replace several uses of RetryPolicy type alias with RetryPolicyM m for better + GHC 9 compat. + +------------------------------------------------------------------- Old: ---- retry-0.8.1.2.tar.gz New: ---- retry-0.9.0.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-retry.spec ++++++ --- /var/tmp/diff_new_pack.hAsB6W/_old 2021-08-25 20:58:50.565111209 +0200 +++ /var/tmp/diff_new_pack.hAsB6W/_new 2021-08-25 20:58:50.569111203 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-retry # -# 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 retry %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.8.1.2 +Version: 0.9.0.0 Release: 0 Summary: Retry combinators for monadic actions that may fail License: BSD-3-Clause ++++++ retry-0.8.1.2.tar.gz -> retry-0.9.0.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.8.1.2/changelog.md new/retry-0.9.0.0/changelog.md --- old/retry-0.8.1.2/changelog.md 2020-04-24 23:40:06.000000000 +0200 +++ new/retry-0.9.0.0/changelog.md 2021-07-06 17:35:52.000000000 +0200 @@ -1,3 +1,7 @@ +0.9.0.0 +* Replace several uses of RetryPolicy type alias with RetryPolicyM m for better + GHC 9 compat. + 0.8.1.2 * Set lower bound on base to >= 4.8 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.8.1.2/retry.cabal new/retry-0.9.0.0/retry.cabal --- old/retry-0.8.1.2/retry.cabal 2020-04-24 23:39:45.000000000 +0200 +++ new/retry-0.9.0.0/retry.cabal 2021-07-06 17:35:52.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.8.1.2 +version: 0.9.0.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.8.1.2/src/Control/Retry.hs new/retry-0.9.0.0/src/Control/Retry.hs --- old/retry-0.8.1.2/src/Control/Retry.hs 2019-10-11 17:31:38.000000000 +0200 +++ new/retry-0.9.0.0/src/Control/Retry.hs 2021-07-06 17:35:52.000000000 +0200 @@ -130,7 +130,7 @@ -- One can easily define an exponential backoff policy with a limited -- number of retries: -- --- >> limitedBackoff = exponentialBackoff 50 <> limitRetries 5 +-- >> limitedBackoff = exponentialBackoff 50000 <> limitRetries 5 -- -- Naturally, 'mempty' will retry immediately (delay 0) for an -- unlimited number of retries, forming the identity for the 'Monoid'. @@ -141,7 +141,7 @@ -- -- For anything more complex, just define your own 'RetryPolicyM': -- --- >> myPolicy = retryPolicy $ \ rs -> if rsIterNumber n > 10 then Just 1000 else Just 10000 +-- >> myPolicy = retryPolicy $ \ rs -> if rsIterNumber rs > 10 then Just 1000 else Just 10000 -- -- Since 0.7. newtype RetryPolicyM m = RetryPolicyM { getRetryPolicyM :: RetryStatus -> m (Maybe Int) } @@ -153,7 +153,7 @@ type RetryPolicy = forall m . Monad m => RetryPolicyM m -- | Default retry policy -retryPolicyDefault :: RetryPolicy +retryPolicyDefault :: (Monad m) => RetryPolicyM m retryPolicyDefault = constantDelay 50000 <> limitRetries 5 @@ -303,7 +303,7 @@ ------------------------------------------------------------------------------- -- | Helper for making simplified policies that don't use the monadic -- context. -retryPolicy :: (RetryStatus -> Maybe Int) -> RetryPolicy +retryPolicy :: (Monad m) => (RetryStatus -> Maybe Int) -> RetryPolicyM m retryPolicy f = RetryPolicyM $ \ s -> return (f s) @@ -355,9 +355,10 @@ ------------------------------------------------------------------------------- -- | Implement a constant delay with unlimited retries. constantDelay - :: Int + :: (Monad m) + => Int -- ^ Base delay in microseconds - -> RetryPolicy + -> RetryPolicyM m constantDelay delay = retryPolicy (const (Just delay)) @@ -365,9 +366,10 @@ -- | Grow delay exponentially each iteration. Each delay will -- increase by a factor of two. exponentialBackoff - :: Int + :: (Monad m) + => Int -- ^ Base delay in microseconds - -> RetryPolicy + -> RetryPolicyM m exponentialBackoff base = retryPolicy $ \ RetryStatus { rsIterNumber = n } -> Just $! base `boundedMult` boundedPow 2 n @@ -381,7 +383,7 @@ -- -- sleep = temp \/ 2 + random_between(0, temp \/ 2) fullJitterBackoff - :: MonadIO m + :: (MonadIO m) => Int -- ^ Base delay in microseconds -> RetryPolicyM m @@ -394,9 +396,10 @@ ------------------------------------------------------------------------------- -- | Implement Fibonacci backoff. fibonacciBackoff - :: Int + :: (Monad m) + => Int -- ^ Base delay in microseconds - -> RetryPolicy + -> RetryPolicyM m fibonacciBackoff base = retryPolicy $ \RetryStatus { rsIterNumber = n } -> Just $ fib (n + 1) (0, base) where diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.8.1.2/test/Tests/Control/Retry.hs new/retry-0.9.0.0/test/Tests/Control/Retry.hs --- old/retry-0.8.1.2/test/Tests/Control/Retry.hs 2019-10-11 17:31:38.000000000 +0200 +++ new/retry-0.9.0.0/test/Tests/Control/Retry.hs 2021-07-06 17:35:53.000000000 +0200 @@ -400,7 +400,7 @@ ------------------------------------------------------------------------------- -- | Generate an arbitrary 'RetryPolicy' without any limits applied. genPolicyNoLimit - :: (MonadGen mg, MonadIO mr) + :: forall mg mr. (MonadGen mg, MonadIO mr) => Range Int -> mg (RetryPolicyM mr) genPolicyNoLimit durationRange =
