package syndic

  1. Overview
  2. Docs
type tree =
  1. | Node of Xmlm.tag * tree list
  2. | Leaf of string
val generate_catcher : ?attr_producer:(string * ('a list -> string -> 'a)) list -> ?data_producer:(string * ('a list -> (Xmlm.tag * tree list) -> 'a)) list -> ?leaf_producer:('a list -> string -> 'a) -> ('a list -> 'b) -> (Xmlm.tag * tree list) -> 'b
val dummy_of_xml : ctor:(string -> 'a) -> (Xmlm.tag * tree list) -> 'a