Functor Xml_print.Make


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

type xml_elt 
type out 
val print_list : ?encode:(string -> string) ->
xml_elt list -> out