syndic 1.0 · OCaml Package

module Error : sig ... end

type title = string

type name = string

type description = string

type channel_image = Uri.t

type url = Uri.t

type link = Uri.t

type li = Uri.t

type seq = li list

type items = seq

type channel_textinput = Uri.t

type channel = {

about : Uri.t;
title : title;
link : link;
description : description;
image : channel_image option;
items : items;
textinput : channel_textinput option;

}

type image = {

about : Uri.t;
title : title;
url : url;
link : link;

}

type item = {

about : Uri.t;
title : title;
link : link;
description : description option;

}

type textinput = {

about : Uri.t;
title : title;
description : description;
name : name;
link : link;

}

type rdf = {

channel : channel;
image : image option;
item : item list;
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 ]

package syndic