Hello community,
here is the log from the commit of package ghc-retry for openSUSE:Factory
checked in at 2019-02-17 12:20:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-retry (Old)
and /work/SRC/openSUSE:Factory/.ghc-retry.new.28833 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-retry"
Sun Feb 17 12:20:26 2019 rev:15 rq:674306 version:0.8.0.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-retry/ghc-retry.changes 2018-10-25
09:03:26.930610923 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-retry.new.28833/ghc-retry.changes
2019-02-17 12:20:26.612215367 +0100
@@ -1,0 +2,7 @@
+Thu Jan 31 03:01:49 UTC 2019 - psim...@suse.com
+
+- Update retry to version 0.8.0.0.
+ 0.8.0.0
+ * Remove dependency on data-default-class
+
+-------------------------------------------------------------------
Old:
----
retry-0.7.7.0.tar.gz
New:
----
retry-0.8.0.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-retry.spec ++++++
--- /var/tmp/diff_new_pack.RmsyEB/_old 2019-02-17 12:20:27.148215220 +0100
+++ /var/tmp/diff_new_pack.RmsyEB/_new 2019-02-17 12:20:27.148215220 +0100
@@ -1,7 +1,7 @@
#
# spec file for package ghc-retry
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 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 retry
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.7.7.0
+Version: 0.8.0.0
Release: 0
Summary: Retry combinators for monadic actions that may fail
License: BSD-3-Clause
@@ -27,7 +27,6 @@
URL: https://hackage.haskell.org/package/%{pkg_name}
Source0:
https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz
BuildRequires: ghc-Cabal-devel
-BuildRequires: ghc-data-default-class-devel
BuildRequires: ghc-exceptions-devel
BuildRequires: ghc-random-devel
BuildRequires: ghc-rpm-macros
++++++ retry-0.7.7.0.tar.gz -> retry-0.8.0.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/retry-0.7.7.0/changelog.md
new/retry-0.8.0.0/changelog.md
--- old/retry-0.7.7.0/changelog.md 2018-08-17 00:08:54.000000000 +0200
+++ new/retry-0.8.0.0/changelog.md 2019-01-08 22:41:56.000000000 +0100
@@ -1,3 +1,6 @@
+0.8.0.0
+* Remove dependency on data-default-class
+
0.7.7.0
* Add `natTransformRetryPolicy`
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/retry-0.7.7.0/retry.cabal
new/retry-0.8.0.0/retry.cabal
--- old/retry-0.7.7.0/retry.cabal 2018-08-28 01:35:43.000000000 +0200
+++ new/retry-0.8.0.0/retry.cabal 2019-01-08 22:41:56.000000000 +0100
@@ -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.7.0
+version: 0.8.0.0
synopsis: Retry combinators for monadic actions that may fail
license: BSD3
license-file: LICENSE
@@ -37,7 +37,6 @@
exposed-modules: Control.Retry
build-depends:
base >= 4.6 && < 5
- , data-default-class
, exceptions >= 0.5 && < 0.11
, ghc-prim < 0.6
, random >= 1 && < 1.2
@@ -62,7 +61,6 @@
base ==4.*
, exceptions
, transformers
- , data-default-class
, random
, time
, HUnit >= 1.2.5.2
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/retry-0.7.7.0/src/Control/Retry.hs
new/retry-0.8.0.0/src/Control/Retry.hs
--- old/retry-0.7.7.0/src/Control/Retry.hs 2018-08-17 00:07:47.000000000
+0200
+++ new/retry-0.8.0.0/src/Control/Retry.hs 2019-01-08 22:41:56.000000000
+0100
@@ -35,6 +35,7 @@
RetryPolicyM (..)
, RetryPolicy
, retryPolicy
+ , retryPolicyDefault
, natTransformRetryPolicy
, RetryStatus (..)
, defaultRetryStatus
@@ -87,7 +88,6 @@
import Control.Monad.Trans.Class
import Control.Monad.Trans.Maybe
import Control.Monad.Trans.State
-import Data.Default.Class
import Data.List (foldl')
import Data.Maybe
import GHC.Generics
@@ -148,9 +148,9 @@
-- type signatures pre-0.7.
type RetryPolicy = forall m . Monad m => RetryPolicyM m
-
-instance Monad m => Default (RetryPolicyM m) where
- def = constantDelay 50000 <> limitRetries 5
+-- | Default retry policy
+retryPolicyDefault :: RetryPolicy
+retryPolicyDefault = constantDelay 50000 <> limitRetries 5
-- Base 4.9.0 adds a Data.Semigroup module. This has fewer
@@ -427,13 +427,13 @@
go s = do
res <- f s
chk' <- chk s res
- case chk' of
- True -> do
+ if chk'
+ then do
rs <- applyAndDelay policy s
case rs of
Nothing -> return res
Just rs' -> go $! rs'
- False -> return res
+ else return res
-------------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/retry-0.7.7.0/test/Tests/Control/Retry.hs
new/retry-0.8.0.0/test/Tests/Control/Retry.hs
--- old/retry-0.7.7.0/test/Tests/Control/Retry.hs 2018-08-14
17:09:35.000000000 +0200
+++ new/retry-0.8.0.0/test/Tests/Control/Retry.hs 2019-01-08
22:41:56.000000000 +0100
@@ -15,7 +15,6 @@
import Control.Monad.Identity
import Control.Monad.IO.Class
import Control.Monad.Writer.Strict
-import Data.Default.Class (def)
import Data.Either
import Data.IORef
import Data.List
@@ -227,7 +226,7 @@
maskingStateTests = testGroup "masking state"
[ testCase "shouldn't change masking state in a recovered action" $ do
maskingState <- getMaskingState
- final <- try $ recovering def testHandlers $ const $ do
+ final <- try $ recovering retryPolicyDefault testHandlers $ const $ do
maskingState' <- getMaskingState
maskingState' @?= maskingState
fail "Retrying..."
@@ -242,7 +241,7 @@
maskingState @?= MaskedInterruptible
return shouldRetry
]
- final <- try $ recovering def checkMaskingStateHandlers $ const $ fail
"Retrying..."
+ final <- try $ recovering retryPolicyDefault checkMaskingStateHandlers $
const $ fail "Retrying..."
assertBool
("Expected IOException but didn't get one")
(isLeft (final :: Either IOException ()))
