diff --git a/hedgehog-extras/src/Hedgehog.Extras.Test.Base.html b/hedgehog-extras/src/Hedgehog.Extras.Test.Base.html index c9ab6684..98655ac8 100644 --- a/hedgehog-extras/src/Hedgehog.Extras.Test.Base.html +++ b/hedgehog-extras/src/Hedgehog.Extras.Test.Base.html @@ -265,14 +265,14 @@ Just String "1") forall a b. (a -> b) -> a -> b $ do - -- try to delete the directory 5 times, 100ms apart + -- try to delete the directory 20 times, 100ms apart let retryPolicy :: RetryPolicyM IO retryPolicy = forall (m :: * -> *). Monad m => Int -> RetryPolicyM m R.constantDelay Int 100000 forall a. Semigroup a => a -> a -> a <> Int -> RetryPolicy R.limitRetries Int -10 +20 -- retry only on IOExceptions ioExH :: p -> Handler m Bool ioExH p