Functor Xml_print.Make_simple

module Make_simple (Xml : Xml_sigs.Iterable)  (F : sig

val emptytags : string list

end) : Xml_sigs.Simple_printer  with type xml_elt := Xml.elt

Parameters:

`Xml`	:	`Xml_sigs.Iterable`
`F`	:	`sig val emptytags : string list end`

type xml_elt

val print_list : output:(string -> unit) ->
       ?encode:(string -> string) -> xml_elt list -> unit