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

Module type Xml_sigs.Typed_pp

module type Typed_pp = sig..end

type 'a elt
type doc
val pp_elt : 
  ?encode:(string -> string) ->
  unit -> Format.formatter -> 'a elt -> unit

pp_elt () is a Format printer for individual elements.

A custom encoding function can be provided with the ~encode argument. Various implementations of encode are available in Xml_print.

val pp : 
  ?encode:(string -> string) ->
  ?advert:string ->
  unit -> Format.formatter -> doc -> unit

pp () is a Format printer for complete documents.

It can be used in combination with "%a". For example, to get a string:

let s = Format.asprintf "%a" (pp ()) my_document

A custom encoding function can be provided with the ~encode argument. Various implementations of encode are available in Xml_print.