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