Functor Xml_print.​Make_typed_simple

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

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