Functor Xml_print.Make_typed


module Make_typed: 
functor (Xml : Xml_sigs.Iterable) ->
functor (Typed_xml : Xml_sigs.Typed_xml with module Xml := Xml) ->
functor (O : Xml_sigs.Output) -> Xml_sigs.Typed_printer with type out := O.out and type 'a elt := 'a Typed_xml.elt and type doc := Typed_xml.doc
Parameters:
Xml : Xml_sigs.Iterable
Typed_xml : Xml_sigs.Typed_xml with module Xml := Xml
O : Xml_sigs.Output

type 'a elt 
type doc 
type out 
val print_list : ?encode:(string -> string) ->
'a elt list -> out
val print : ?encode:(string -> string) ->
?advert:string -> doc -> out