Function schemaJson

packages/platform/src/internal/httpServerResponse.ts:227–246

(
  schema: Schema.Schema<A, I, R>,
  options?: ParseOptions | undefined
)

/** @internal */
export const schemaJson = <A, I, R>(
  schema: Schema.Schema<A, I, R>,
  options?: ParseOptions | undefined
) => {
  const encode = internalBody.jsonSchema(schema, options)
  return (
    body: A,
    options?: ServerResponse.Options.WithContentType | undefined
  ): Effect.Effect<ServerResponse.HttpServerResponse, Body.HttpBodyError, R> => {
    const headers = options?.headers ? Headers.fromInput(options.headers) : Headers.empty
    return Effect.map(encode(body, getContentType(options, headers)), (body) =>
      new ServerResponseImpl(
        options?.status ?? 200,
        options?.statusText,
        headers,
        options?.cookies ?? Cookies.empty,
        body
      ))
  }
}

const httpPlatform = Context.GenericTag<Platform.HttpPlatform>("@effect/platform/HttpPlatform")