Also add flat params list.

savonet · Dec 10, 2024 · f9c0d89 · f9c0d89
1 parent 8e5e66c
commit f9c0d89
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/lang/builtins_xml.ml b/src/lang/builtins_xml.ml
@@ -23,6 +23,11 @@ and xml_node ~params ~children =
   [
     ( "xml_params",
       Lang.record (List.map (fun (k, v) -> (k, Lang.string v)) params) );
+    ( "xml_params_list",
+      Lang.list
+        (List.map
+           (fun (k, v) -> Lang.product (Lang.string k) (Lang.string v))
+           params) );
     ("xml_children", Lang.tuple (List.map (fun v -> value_of_xml v) children));
   ]