Schema-based config descriptions about effect HOT 3 CLOSED

import * as Schema from "@effect/schema/Schema"
import { formatErrorSync } from "@effect/schema/TreeFormatter"
import { Config, ConfigError, Either } from "effect"
import { flow } from "effect/Function"

export const schema = <const C extends string, A>(
  name: C,
  schema: Schema.Schema<A, string>,
): Config.Config<A> =>
  Config.string(name).pipe(
    Config.mapOrFail(
      flow(
        Schema.decodeEither(schema),
        Either.mapLeft((error) =>
          ConfigError.InvalidData([name], formatErrorSync(error)),
        ),
      ),
    ),
  )