Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Functor Xml_print.Make_typed

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