/**
 * Runs an effect when the supplied partial function matches for the given
 * value, otherwise does nothing.
 *
 * @tsplus static effect/core/stm/STM.Ops whenCaseSTM
 */
export function whenCaseSTM<R, E, A, R1, E1, B>(
  stm: STM<R, E, A>,
  pf: (a: A) => Maybe<STM<R1, E1, B>>
): STM<R | R1, E | E1, Maybe<B>> {
  return stm.flatMap((a) => STM.whenCase(a, pf))
}