Skip to content
Snippets Groups Projects
Unverified Commit ad88bd7e authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

Oops

parent f1545e6e
No related branches found
No related tags found
1 merge request!62Delayed redemption response
Hide whitespace changes
Inline Side-by-side
src/PaymentServer/Redemption.hs
+ 1
− 1
View file @ ad88bd7e
......@@ -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 =
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment