let to_json {name; input_type} = `Assoc [ "name", `String name; "input-type", `String (input_type_to_string input_type); ]