Functor XML_print.MakeTypedSimple

module MakeTypedSimple : functor (XML : XML_sigs.Iterable) -> 
  functor (TypedXML : XML_sigs.TypedXML     with  module XML := XML) -> 
  
  XML_sigs.TypedSimplePrinterwith type 'a elt := 'a TypedXML.elt
                                    and type doc := TypedXML.doc

Parameters :

XML	:	XML_sigs.Iterable
TypedXML	:	XML_sigs.TypedXML with module XML := XML

type 'a elt

type doc

val print_list : 
  output:(string -> unit) ->
  ?encode:(Buffer.t -> string -> unit) ->
  'a elt list -> unit

val print : 
  output:(string -> unit) ->
  ?encode:(Buffer.t -> string -> unit) ->
  ?advert:string -> doc -> unit