@@ -424,7 +424,7 @@ authedPubkey = \authorization t clientIp -> do
424424-- worth retrying (or no failure recorded at all). Linear backoff:
425425-- `retryBackoffBase * failures`, capped at `retryBackoffMax`.
426426shouldRetryServer : Text -> Timestamp -> [ForwardFailure] -> Bool
427−shouldRetryServer = \server t failures -> not any (\f -> f.server == server && t - f.failedAt < min retryBackoffMax (retryBackoffBase * f.failures)) failures
427+shouldRetryServer = \server t failures -> not any (\f -> f.server == server && t - f.failedAt < min retryBackoffMax (retryBackoffBase * (f.failures : Int))) failures
428428
429429-- Bump the failure counter for `server`.
430430recordFailure : Text -> IO {rw *forwardFailures, clock} {}