"use strict"
var __createBinding =
  (this && this.__createBinding) ||
  (Object.create
    ? function (o, m, k, k2) {
        if (k2 === undefined) k2 = k
        Object.defineProperty(o, k2, {
          enumerable: true,
          get: function () {
            return m[k]
          }
        })
      }
    : function (o, m, k, k2) {
        if (k2 === undefined) k2 = k
        o[k2] = m[k]
      })
var __setModuleDefault =
  (this && this.__setModuleDefault) ||
  (Object.create
    ? function (o, v) {
        Object.defineProperty(o, "default", { enumerable: true, value: v })
      }
    : function (o, v) {
        o["default"] = v
      })
var __importStar =
  (this && this.__importStar) ||
  function (mod) {
    if (mod && mod.__esModule) return mod
    var result = {}
    if (mod != null)
      for (var k in mod)
        if (k !== "default" && Object.prototype.hasOwnProperty.call(mod, k))
          __createBinding(result, mod, k)
    __setModuleDefault(result, mod)
    return result
  }
Object.defineProperty(exports, "__esModule", { value: true })
exports.retryUntil_ =
  exports.retryUntil =
  exports.retryUntilM_ =
  exports.retryUntilM =
    void 0
// tracing: off
const Function_1 = require("../Function")
const catchAll = __importStar(require("./catchAll"))
const core = __importStar(require("./core"))
const fail = __importStar(require("./fail"))
/**
 * Retries this effect until its error satisfies the specified effectful predicate.
 *
 * @dataFirst retryUtilM_
 */
function retryUntilM(f, __trace) {
  return (self) => retryUntilM_(self, f)
}
exports.retryUntilM = retryUntilM
/**
 * Retries this effect until its error satisfies the specified effectful predicate.
 */
function retryUntilM_(self, f, __trace) {
  return core.suspend(
    () =>
      catchAll.catchAll_(self, (e) =>
        core.chain_(f(e), (b) => (b ? fail.fail(e) : retryUntilM_(self, f)))
      ),
    __trace
  )
}
exports.retryUntilM_ = retryUntilM_
/**
 * Retries this effect until its error satisfies the specified predicate.
 *
 * @dataFirst retryUntil_
 */
function retryUntil(f, __trace) {
  return (self) => retryUntil_(self, f, __trace)
}
exports.retryUntil = retryUntil
/**
 * Retries this effect until its error satisfies the specified predicate.
 */
function retryUntil_(self, f, __trace) {
  return retryUntilM_(self, (a) => core.succeed(f(a)), __trace)
}
exports.retryUntil_ = retryUntil_
//# sourceMappingURL=retryUntil.js.map
