module Make_typed(
Xml
:
Xml_sigs.Iterable
)
(
Typed_xml
:
Xml_sigs.Typed_xml
with module Xml := Xml
)
(
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: |
|
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