Function modify

packages/platform/src/internal/keyValueStore.ts:140–153

(key: string, f: (value: A) => A)

  const set = (key: string, value: A) => Effect.flatMap(encode(value), (json) => store.set(key, json))

  const modify = (key: string, f: (value: A) => A) =>
    Effect.flatMap(
      get(key),
      (o) => {
        if (Option.isNone(o)) {
          return Effect.succeedNone
        }
        const newValue = f(o.value)
        return Effect.as(
          set(key, newValue),
          Option.some(newValue)
        )
      }
    )

  return {
    [SchemaStoreTypeId]: SchemaStoreTypeId,