retry 0.9.3.0 → 0.9.3.1
raw patch · 3 files changed
+8/−4 lines, 3 files
Files
- changelog.md +3/−0
- retry.cabal +1/−1
- test/Tests/Control/Retry.hs +4/−3
changelog.md view
@@ -1,3 +1,6 @@+0.9.3.1+* Resolve warnings in test suite [PR 83](https://github.com/Soostone/retry/pull/83)+ 0.9.3.0 * Add `UnliftIO.Retry` [PR 81](https://github.com/Soostone/retry/pull/81)
retry.cabal view
@@ -14,7 +14,7 @@ case we should hang back for a bit and retry the query instead of simply raising an exception. -version: 0.9.3.0+version: 0.9.3.1 synopsis: Retry combinators for monadic actions that may fail license: BSD3 license-file: LICENSE
test/Tests/Control/Retry.hs view
@@ -20,6 +20,7 @@ import Control.Concurrent import Control.Concurrent.STM as STM import qualified Control.Exception as EX+import Control.Monad as M ( forM_ ) import Control.Monad.Catch import Control.Monad.Except import Control.Monad.Identity@@ -285,8 +286,8 @@ cap <- forAll (Gen.int (Range.linear 1 maxBound)) let policy = capDelay cap (limitRetries retries) let delays = runIdentity (simulatePolicy (retries + 1) policy)- let Just lastDelay = lookup (retries - 1) delays- let Just gaveUp = lookup retries delays+ let lastDelay = fromMaybe (error "impossible: empty delays") (lookup (retries - 1) delays)+ let gaveUp = fromMaybe (error "impossible: empty delays") (lookup retries delays) let noDelay = 0 lastDelay === Just noDelay gaveUp === Nothing@@ -388,7 +389,7 @@ (handler delays) (action delays) let expectedDelays = map microsToNominalDiffTime delays- forM_ (zip (diffTimes measuredTimestamps) expectedDelays) $+ M.forM_ (zip (diffTimes measuredTimestamps) expectedDelays) $ \(actual, expected) -> diff actual (>=) expected