Function failSync

packages/effect/src/internal/stm/core.ts:657–661

(evaluate: LazyArg<E>)

/** @internal */
export const failSync = <E>(evaluate: LazyArg<E>): STM.STM<never, E> => {
  const stm = new STMPrimitive(OpCodes.OP_FAIL)
  stm.effect_instruction_i1 = evaluate
  return stm as any
}

/** @internal */
export const flatMap = dual<