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

Module type Xml_sigs.Pp

module type Pp = sig..end

type elt

val pp : 
  ?encode:(string -> string) ->
  ?indent:bool -> unit -> Format.formatter -> elt -> unit

pp () is a Format printer for untyped XML.

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

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

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