Module JsonSchema.Variant
module Map : sig ... end
type t
=
{
discriminant : string;
The name of the type discriminant property.
map : Map.t list;
The map of discriminant value to schema to use for parsing..
}
val discriminant : (t, string) GapiLens.t
val map : (t, Map.t list) GapiLens.t
val empty : t
val render : t -> GapiJson.json_data_model list
val parse : t -> GapiJson.json_data_model -> t