struct
type t = {
name: string;
prior_probability: float;
theta: float
}
let to_json {name; prior_probability; theta}: Yojson.Basic.json =
`Assoc [
"name", `String name;
"prior_probability", `Float prior_probability;
"theta", `Float theta;
]
let name {name; _} = name
let render {name; prior_probability; theta} =
["-s"; Float.to_string prior_probability;
"-T"; Float.to_string theta]
let default = {
name = "default";
prior_probability = default_prior_probability;
theta = default_theta;
}
end