@effect-ts/system/_src/Effect/whenCase.ts

Effect-TS is a zero dependency set of libraries to write highly productive, purely functional TypeScript at scale.

// ets_tracing: off

import type * as O from "../Option/index.js"
import { asUnit } from "./asUnit.js"
import { suspend, unit } from "./core.js"
import type { Effect } from "./effect.js"

/**
 * Runs an effect when the supplied `PartialFunction` matches for the given value, otherwise does nothing.
 */
export function whenCase_<R, E, A, X>(
  a: A,
  pf: (a: A) => O.Option<Effect<R, E, X>>,
  __trace?: string
) {
  return suspend(() => {
    const p = pf(a)

    if (p._tag === "None") {
      return unit
    }

    return asUnit(p.value)
  }, __trace)
}

/**
 * Runs an effect when the supplied `PartialFunction` matches for the given value, otherwise does nothing.
 *
 * @dateFirst whenCase_
 */
export function whenCase<R, E, A, X>(
  pf: (a: A) => O.Option<Effect<R, E, X>>,
  __trace?: string
) {
  return (a: A) => whenCase_(a, pf, __trace)
}