/**
 * A schedule that recurs for as long as the effectful predicate evaluates to
 * true.
 *
 * @tsplus static effect/core/io/Schedule.Ops recurWhileEffect
 */
export function recurWhileEffect<Env, A>(
  f: (a: A) => Effect<Env, never, boolean>
): Schedule<void, Env, A, A> {
  return Schedule.identity<A>().whileInputEffect(f)
}