struct
type t = {
name: string;
input_type: [ `WGS | `WES ];
}
let name t = t.name
let input_type_to_string input_type =
match input_type with
| `WGS -> "WGS"
| `WES -> "WES"
let to_json {name; input_type} =
`Assoc [
"name", `String name;
"input-type", `String (input_type_to_string input_type);
]
let default input_type =
let is = input_type_to_string input_type in
{ name = "default-" ^ is; input_type}
let wgs = default `WGS
let wes = default `WES
end