From ad88bd7ee83a32d0c31e84364533123177b6d596 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 3 Jun 2020 11:52:55 -0400
Subject: [PATCH] Oops
---
src/PaymentServer/Redemption.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index 3c80d6f..7676c87 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -177,7 +177,7 @@ retry op =
-- Time to delay between each try in milliseconds.
perRetryDelay = 500
-- Limit on the number of retries.
- numRetries = totalRetryDuration `div` totalRetryDuration
+ numRetries = totalRetryDuration `div` perRetryDelay
policy = constantDelay (perRetryDelay * 1000) <> limitRetries numRetries
shouldRetry status value =
--
GitLab