package ppx_deriving_jsonschema

  1. Overview
  2. Docs

Source file ppx_deriving_jsonschema_runtime.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
let schema_version = "https://json-schema.org/draft/2020-12/schema"

type t = Ppx_deriving_jsonschema_runtime_classify.t

let classify = Ppx_deriving_jsonschema_runtime_classify.classify
let declassify = Ppx_deriving_jsonschema_runtime_classify.declassify

let json_schema ?id ?title ?description ?definitions types =
  let fields =
    match types with
    | `Assoc fields -> fields
    | _ -> []
  in
  let metadata =
    List.filter_map
      (fun x -> x)
      [
        Some ("$schema", `String schema_version);
        (match id with
        | None -> None
        | Some id -> Some ("$id", `String id));
        (match title with
        | None -> None
        | Some title -> Some ("title", `String title));
        (match description with
        | None -> None
        | Some description -> Some ("description", `String description));
        (match definitions with
        | None -> None
        | Some defs -> Some ("$defs", `Assoc defs));
      ]
  in
  `Assoc (metadata @ fields)

module Primitives = Ppx_deriving_jsonschema_runtime_primitives