List.map unmarshaller (get registry key)
with Key_not_found _ -> []
-let get_pair registry unmarshaller key =
+let get_pair registry fst_unmarshaller snd_unmarshaller key =
let v = singleton (get registry key) in
match Str.split spaces_rex v with
- | [fst; snd] -> unmarshaller fst, unmarshaller snd
+ | [fst; snd] -> fst_unmarshaller fst, snd_unmarshaller snd
| _ -> raise (Type_error "not a pair")
let set_list registry marshaller ~key ~value =
| _ -> assert false
in
Hashtbl.fold
- (fun k v tree -> add_key ("helm_registry" :: (Str.split dot_RE k)) v tree)
+ (fun k v tree -> add_key ((Str.split dot_RE k)) v tree)
registry
- (Element ("helm_registry", [], []))
+ (Element (root_tag, [], []))
let rec stream_of_xml_tree = function
| Cdata s -> Xml.xml_cdata s