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