package syndic

  1. Overview
  2. Docs
module Error : sig ... end
type title = string
type name = string
type description = string
type channel_image = Uri.t
type url = Uri.t
type li = Uri.t
type seq = li list
type items = seq
type channel_textinput = Uri.t
type channel = {
  1. about : Uri.t;
  2. title : title;
  3. description : description;
  4. image : channel_image option;
  5. items : items;
  6. textinput : channel_textinput option;
}
type image = {
  1. about : Uri.t;
  2. title : title;
  3. url : url;
}
type item = {
  1. about : Uri.t;
  2. title : title;
  3. description : description option;
}
type textinput = {
  1. about : Uri.t;
  2. title : title;
  3. description : description;
  4. name : name;
}
type rdf = {
  1. channel : channel;
  2. image : image option;
  3. item : item list;
  4. textinput : textinput option;
}
val analyze : Xmlm.input -> rdf
val unsafe : Xmlm.input -> [> `RDF of [> `Channel of [> `About of string | `Description of [> `Data of string ] list | `Image of [> `URI of string ] list | `Items of [> `Seq of [> `Li of [> `URI of string ] list ] list ] list | `Link of [> `URI of string ] list | `TextInput of [> `URI of string ] list | `Title of [> `Data of string ] list ] list | `Image of [> `About of string | `Link of [> `URI of string ] list | `Title of [> `Data of string ] list | `URL of [> `URI of string ] list ] list | `Item of [> `About of string | `Description of [> `Data of string ] list | `Link of [> `URI of string ] list | `Title of [> `Data of string ] list ] list | `TextInput of [> `About of string | `Description of [> `Data of string ] list | `Link of [> `URI of string ] list | `Name of [> `Data of string ] list | `Title of [> `Data of string ] list ] list ] list ]