module Make(
Xml
:
Xml_sigs.Iterable
)
(
I
:
sig
:string list
end
)
(
O
:
Xml_sigs.Output
)
:Xml_sigs.Printer
with type out := O.out and type xml_elt := Xml.elt
Parameters: |
|
type
xml_elt
type
out
val print_list : ?encode:(string -> string) ->
xml_elt list -> out