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

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

// ets_tracing: off

import { chain_ } from "./core.js"
import type { Effect, RIO } from "./effect.js"
import { flipWith_ } from "./flipWith.js"

/**
 * Creates a composite effect that represents this effect followed by another
 * one that may depend on the error produced by this one.
 *
 * @ets_data_first chainError_
 */
export function chainError<E, R2, E2>(f: (e: E) => RIO<R2, E2>, __trace?: string) {
  return <R, A>(self: Effect<R, E, A>) => chainError_(self, f, __trace)
}

/**
 * Creates a composite effect that represents this effect followed by another
 * one that may depend on the error produced by this one.
 */
export function chainError_<R, E, A, R2, E2>(
  self: Effect<R, E, A>,
  f: (e: E) => RIO<R2, E2>,
  __trace?: string
) {
  return flipWith_(self, (x) => chain_(x, f, __trace))
}