Function modifyM

packages/effect-app/src/Pure.ts:210–222

(
  mod: (s: S2) => Effect.Effect<readonly [S3, A], E, FixEnv<R, W, S2, S3>>
)

}

export function modifyM<W, R, E, A, S2, S3>(
  mod: (s: S2) => Effect.Effect<readonly [S3, A], E, FixEnv<R, W, S2, S3>>
): Effect.Effect<A, E, FixEnv<R, W, S2, S3>> {
  // return serviceWithEffect(_ => Ref.modifyM_(_.state, mod))
  return Effect.flatMap(
    (castTag<W, S3, S2>()).useSync((_) => _),
    (_: any) =>
      Effect.map(mod(_.env.state), ([s, a]: any) => {
        _.env.state = s
        return a
      })
  ) as any
}

export function updateWith<S2, S3>(upd: (s: S2) => S3) {
  return modify((_: S2) => {