Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
improve comments for 'defaultRetryPolicy'
  • Loading branch information
KtorZ committed Jun 12, 2019
1 parent 669dc05 commit 29a490a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions lib/core/src/Cardano/Wallet/Network.hs
Expand Up @@ -94,8 +94,8 @@ waitForConnection nw policy = do
Left (ErrNetworkTipNetworkUnreachable _) ->
return True

-- | A default 'RetryPolicy' with a constant delay, but no longer than 20
-- seconds.
-- | A default 'RetryPolicy' with a constant delay, but retries for no longer
-- than 20 seconds.
defaultRetryPolicy :: Monad m => RetryPolicyM m
defaultRetryPolicy =
limitRetriesByCumulativeDelay (20 * second) (constantDelay (1 * second))
Expand Down

0 comments on commit 29a490a

Please sign in to comment.