sig
module Post :
sig
type t = { id : int64; }
val id : (GapiBloggerV2Model.Comment.Post.t, int64) GapiLens.t
val empty : GapiBloggerV2Model.Comment.Post.t
val render :
GapiBloggerV2Model.Comment.Post.t -> GapiJson.json_data_model list
val parse :
GapiBloggerV2Model.Comment.Post.t ->
GapiJson.json_data_model -> GapiBloggerV2Model.Comment.Post.t
end
module InReplyTo :
sig
type t = { id : int64; }
val id : (GapiBloggerV2Model.Comment.InReplyTo.t, int64) GapiLens.t
val empty : GapiBloggerV2Model.Comment.InReplyTo.t
val render :
GapiBloggerV2Model.Comment.InReplyTo.t ->
GapiJson.json_data_model list
val parse :
GapiBloggerV2Model.Comment.InReplyTo.t ->
GapiJson.json_data_model -> GapiBloggerV2Model.Comment.InReplyTo.t
end
module Blog :
sig
type t = { id : int64; }
val id : (GapiBloggerV2Model.Comment.Blog.t, int64) GapiLens.t
val empty : GapiBloggerV2Model.Comment.Blog.t
val render :
GapiBloggerV2Model.Comment.Blog.t -> GapiJson.json_data_model list
val parse :
GapiBloggerV2Model.Comment.Blog.t ->
GapiJson.json_data_model -> GapiBloggerV2Model.Comment.Blog.t
end
module Author :
sig
module Image :
sig
type t = { url : string; }
val url :
(GapiBloggerV2Model.Comment.Author.Image.t, string) GapiLens.t
val empty : GapiBloggerV2Model.Comment.Author.Image.t
val render :
GapiBloggerV2Model.Comment.Author.Image.t ->
GapiJson.json_data_model list
val parse :
GapiBloggerV2Model.Comment.Author.Image.t ->
GapiJson.json_data_model ->
GapiBloggerV2Model.Comment.Author.Image.t
end
type t = {
displayName : string;
id : string;
image : GapiBloggerV2Model.Comment.Author.Image.t;
url : string;
}
val displayName :
(GapiBloggerV2Model.Comment.Author.t, string) GapiLens.t
val id : (GapiBloggerV2Model.Comment.Author.t, string) GapiLens.t
val image :
(GapiBloggerV2Model.Comment.Author.t,
GapiBloggerV2Model.Comment.Author.Image.t)
GapiLens.t
val url : (GapiBloggerV2Model.Comment.Author.t, string) GapiLens.t
val empty : GapiBloggerV2Model.Comment.Author.t
val render :
GapiBloggerV2Model.Comment.Author.t -> GapiJson.json_data_model list
val parse :
GapiBloggerV2Model.Comment.Author.t ->
GapiJson.json_data_model -> GapiBloggerV2Model.Comment.Author.t
end
type t = {
author : GapiBloggerV2Model.Comment.Author.t;
blog : GapiBloggerV2Model.Comment.Blog.t;
content : string;
id : int64;
inReplyTo : GapiBloggerV2Model.Comment.InReplyTo.t;
kind : string;
post : GapiBloggerV2Model.Comment.Post.t;
published : GapiDate.t;
selfLink : string;
updated : GapiDate.t;
}
val author :
(GapiBloggerV2Model.Comment.t, GapiBloggerV2Model.Comment.Author.t)
GapiLens.t
val blog :
(GapiBloggerV2Model.Comment.t, GapiBloggerV2Model.Comment.Blog.t)
GapiLens.t
val content : (GapiBloggerV2Model.Comment.t, string) GapiLens.t
val id : (GapiBloggerV2Model.Comment.t, int64) GapiLens.t
val inReplyTo :
(GapiBloggerV2Model.Comment.t, GapiBloggerV2Model.Comment.InReplyTo.t)
GapiLens.t
val kind : (GapiBloggerV2Model.Comment.t, string) GapiLens.t
val post :
(GapiBloggerV2Model.Comment.t, GapiBloggerV2Model.Comment.Post.t)
GapiLens.t
val published : (GapiBloggerV2Model.Comment.t, GapiDate.t) GapiLens.t
val selfLink : (GapiBloggerV2Model.Comment.t, string) GapiLens.t
val updated : (GapiBloggerV2Model.Comment.t, GapiDate.t) GapiLens.t
val empty : GapiBloggerV2Model.Comment.t
val render : GapiBloggerV2Model.Comment.t -> GapiJson.json_data_model list
val parse :
GapiBloggerV2Model.Comment.t ->
GapiJson.json_data_model -> GapiBloggerV2Model.Comment.t
val to_data_model :
GapiBloggerV2Model.Comment.t -> GapiJson.json_data_model
val of_data_model :
GapiJson.json_data_model -> GapiBloggerV2Model.Comment.t
end