@effect-ts/system/_src/Promise/interruptJoiner.ts

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

// ets_tracing: off

import type { Canceler } from "../Effect/Canceler.js"
import { succeedWith } from "../Effect/core.js"
import type { IO } from "../Effect/effect.js"
import type { Promise } from "./promise.js"
import { Pending } from "./state.js"

export function interruptJoiner<E, A>(joiner: (a: IO<E, A>) => void) {
  return (promise: Promise<E, A>): Canceler<unknown> =>
    succeedWith(() => {
      const state = promise.state.get

      if (state._tag === "Pending") {
        promise.state.set(new Pending(state.joiners.filter((j) => j !== joiner)))
      }
    })
}