/**
 * STMfully accesses the specified service in the environment of the
 * effect.
 *
 * Especially useful for creating "accessor" methods on services' companion
 * objects.
 *
 * @tsplus static effect/core/stm/STM.Ops serviceWithSTM
 */
export function serviceWithSTM<T>(tag: Tag<T>) {
  return <R, E, A>(f: (a: T) => STM<R, E, A>): STM<R | T, E, A> => STM.service(tag).flatMap(f)
}