sig
module type Comments =
sig
type link_t
module Entry :
sig
type t = {
etag : string;
kind : string;
authors : GdataAtom.Author.t list;
content : GdataAtom.Content.t;
contributors : GdataAtom.Contributor.t list;
id : GdataAtom.atom_id;
published : GdataAtom.atom_published;
updated : GdataAtom.atom_updated;
links : GdataComments.Comments.link_t list;
title : GdataAtom.Title.t;
category : GdataAtom.Category.t;
extensions : GdataCore.xml_data_model list;
}
val empty : GdataComments.Comments.Entry.t
val of_xml_data_model :
GdataComments.Comments.Entry.t ->
GdataCore.xml_data_model -> GdataComments.Comments.Entry.t
val to_xml_data_model :
GdataComments.Comments.Entry.t -> GdataCore.xml_data_model list
end
module Feed :
sig
type entry_t = Entry.t
type link_t = link_t
type extensions_t
type t = {
etag : string;
kind : string;
authors : GdataAtom.Author.t list;
categories : GdataAtom.Category.t list;
contributors : GdataAtom.Contributor.t list;
generator : GdataAtom.Generator.t;
icon : GdataAtom.atom_icon;
id : GdataAtom.atom_id;
updated : GdataAtom.atom_updated;
entries : entry_t list;
links : link_t list;
logo : GdataAtom.atom_logo;
rights : GdataAtom.Rights.t;
subtitle : GdataAtom.Subtitle.t;
title : GdataAtom.Title.t;
totalResults : GdataAtom.opensearch_totalResults;
itemsPerPage : GdataAtom.opensearch_itemsPerPage;
startIndex : GdataAtom.opensearch_startIndex;
extensions : extensions_t;
}
val etag : (t, string) GapiLens.t
val kind : (t, string) GapiLens.t
val authors : (t, GdataAtom.Author.t list) GapiLens.t
val categories : (t, GdataAtom.Category.t list) GapiLens.t
val contributors : (t, GdataAtom.Contributor.t list) GapiLens.t
val generator : (t, GdataAtom.Generator.t) GapiLens.t
val icon : (t, GdataAtom.atom_icon) GapiLens.t
val id : (t, GdataAtom.atom_id) GapiLens.t
val updated : (t, GdataAtom.atom_updated) GapiLens.t
val entries : (t, entry_t list) GapiLens.t
val links : (t, link_t list) GapiLens.t
val logo : (t, GdataAtom.atom_logo) GapiLens.t
val rights : (t, GdataAtom.Rights.t) GapiLens.t
val subtitle : (t, GdataAtom.Subtitle.t) GapiLens.t
val title : (t, GdataAtom.Title.t) GapiLens.t
val totalResults :
(t, GdataAtom.opensearch_totalResults) GapiLens.t
val itemsPerPage :
(t, GdataAtom.opensearch_itemsPerPage) GapiLens.t
val startIndex : (t, GdataAtom.opensearch_startIndex) GapiLens.t
val extensions : (t, extensions_t) GapiLens.t
val empty : t
val to_xml_data_model : t -> GdataCore.xml_data_model list
val of_xml_data_model : t -> GdataCore.xml_data_model -> t
val parse_feed : GdataCore.xml_data_model -> t
end
type t = {
countHint : int;
href : string;
readOnly : bool;
rel : string;
commentFeed : GdataComments.Comments.Feed.t;
}
val empty : GdataComments.Comments.t
val of_xml_data_model :
GdataComments.Comments.t ->
GdataCore.xml_data_model -> GdataComments.Comments.t
val to_xml_data_model :
GdataComments.Comments.t -> GdataCore.xml_data_model list
val parse_comment_entry :
GdataCore.xml_data_model -> GdataComments.Comments.Entry.t
val comment_entry_to_data_model :
GdataComments.Comments.Entry.t -> GdataCore.xml_data_model
end
module Make :
functor (Link : GdataAtom.AtomData) ->
sig
type link_t = Link.t
module Entry :
sig
type t = {
etag : string;
kind : string;
authors : GdataAtom.Author.t list;
content : GdataAtom.Content.t;
contributors : GdataAtom.Contributor.t list;
id : GdataAtom.atom_id;
published : GdataAtom.atom_published;
updated : GdataAtom.atom_updated;
links : link_t list;
title : GdataAtom.Title.t;
category : GdataAtom.Category.t;
extensions : GdataCore.xml_data_model list;
}
val empty : t
val of_xml_data_model : t -> GdataCore.xml_data_model -> t
val to_xml_data_model : t -> GdataCore.xml_data_model list
end
module Feed :
sig
type entry_t = Entry.t
type link_t = link_t
type extensions_t
type t = {
etag : string;
kind : string;
authors : GdataAtom.Author.t list;
categories : GdataAtom.Category.t list;
contributors : GdataAtom.Contributor.t list;
generator : GdataAtom.Generator.t;
icon : GdataAtom.atom_icon;
id : GdataAtom.atom_id;
updated : GdataAtom.atom_updated;
entries : entry_t list;
links : link_t list;
logo : GdataAtom.atom_logo;
rights : GdataAtom.Rights.t;
subtitle : GdataAtom.Subtitle.t;
title : GdataAtom.Title.t;
totalResults : GdataAtom.opensearch_totalResults;
itemsPerPage : GdataAtom.opensearch_itemsPerPage;
startIndex : GdataAtom.opensearch_startIndex;
extensions : extensions_t;
}
val etag : (t, string) GapiLens.t
val kind : (t, string) GapiLens.t
val authors : (t, GdataAtom.Author.t list) GapiLens.t
val categories : (t, GdataAtom.Category.t list) GapiLens.t
val contributors : (t, GdataAtom.Contributor.t list) GapiLens.t
val generator : (t, GdataAtom.Generator.t) GapiLens.t
val icon : (t, GdataAtom.atom_icon) GapiLens.t
val id : (t, GdataAtom.atom_id) GapiLens.t
val updated : (t, GdataAtom.atom_updated) GapiLens.t
val entries : (t, entry_t list) GapiLens.t
val links : (t, link_t list) GapiLens.t
val logo : (t, GdataAtom.atom_logo) GapiLens.t
val rights : (t, GdataAtom.Rights.t) GapiLens.t
val subtitle : (t, GdataAtom.Subtitle.t) GapiLens.t
val title : (t, GdataAtom.Title.t) GapiLens.t
val totalResults :
(t, GdataAtom.opensearch_totalResults) GapiLens.t
val itemsPerPage :
(t, GdataAtom.opensearch_itemsPerPage) GapiLens.t
val startIndex : (t, GdataAtom.opensearch_startIndex) GapiLens.t
val extensions : (t, extensions_t) GapiLens.t
val empty : t
val to_xml_data_model : t -> GdataCore.xml_data_model list
val of_xml_data_model : t -> GdataCore.xml_data_model -> t
val parse_feed : GdataCore.xml_data_model -> t
end
type t = {
countHint : int;
href : string;
readOnly : bool;
rel : string;
commentFeed : Feed.t;
}
val empty : t
val of_xml_data_model : t -> GdataCore.xml_data_model -> t
val to_xml_data_model : t -> GdataCore.xml_data_model list
val parse_comment_entry : GdataCore.xml_data_model -> Entry.t
val comment_entry_to_data_model : Entry.t -> GdataCore.xml_data_model
end
end