Function make

packages/platform/src/internal/keyValueStore.ts:31–68

(impl)

    >
    & Partial<KeyValueStore.KeyValueStore>
) => KeyValueStore.KeyValueStore = (impl) =>
  keyValueStoreTag.of({
    [TypeId]: TypeId,
    has: (key) => Effect.map(impl.get(key), Option.isSome),
    isEmpty: Effect.map(impl.size, (size) => size === 0),
    modify: (key, f) =>
      Effect.flatMap(
        impl.get(key),
        (o) => {
          if (Option.isNone(o)) {
            return Effect.succeedNone
          }
          const newValue = f(o.value)
          return Effect.as(
            impl.set(key, newValue),
            Option.some(newValue)
          )
        }
      ),
    modifyUint8Array: (key, f) =>
      Effect.flatMap(
        impl.getUint8Array(key),
        (o) => {
          if (Option.isNone(o)) {
            return Effect.succeedNone
          }
          const newValue = f(o.value)
          return Effect.as(
            impl.set(key, newValue),
            Option.some(newValue)
          )
        }
      ),
    forSchema(schema) {
      return makeSchemaStore(this, schema)
    },
    ...impl
  })

/** @internal */
export const makeStringOnly: (