dashp/src/retry.js

Utilities for monadic promises.

import caught from "./caught";
import delay from "./delay";
import {curry2, curry3, curry4, curry5} from "./internal/curry";
import nameFn from "./internal/namefn";
import isPromise from "./is-promise";

// times is 0-indexed. A times value of 4, actually makes 5 retries.
const retrier = (times, waitTime) => (action, ...args) => {
  const delayModifier = 1.5;
  const f = isPromise(action) ? () => action : action;

  const resolver = (iter, waitMs) => {
    if (iter <= 0) return f(...args);
    return caught(
      () =>
        delay(waitMs, null).then(() =>
          resolver(iter - 1, waitMs * delayModifier),
        ),
      f(...args),
    );
  };

  return resolver(times, waitTime);
};

export const retry = nameFn("retry", retrier(4, 250));
export const retry2 = curry2("retry2", retrier(4, 250));
export const retry3 = curry3("retry3", retrier(4, 250));
export const retry4 = curry4("retry4", retrier(4, 250));
export const retry5 = curry5("retry5", retrier(4, 250));