| _ -> 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