/**
 * Returns a new schedule that continues until the specified effectful
 * predicate on the input evaluates to true.
 *
 * @tsplus static effect/core/io/Schedule.Aspects untilInputEffect
 * @tsplus pipeable effect/core/io/Schedule untilInputEffect
 */
export function untilInputEffect<In, Env1>(
  f: (input: In) => Effect<Env1, never, boolean>
) {
  return <State, Env, Out>(
    self: Schedule<State, Env, In, Out>
  ): Schedule<State, Env | Env1, In, Out> => self.checkEffect((input, _) => f(input).negate)
}