Module GapiDriveV2Model.Comment
module Context : sig ... end
type t
=
{
anchor : string;
A region of the document represented as a JSON string. See anchor documentation for details on how to define and interpret anchor properties.
author : User.t;
The user who wrote this comment.
commentId : string;
The ID of the comment.
content : string;
The plain text content used to create this comment. This is not HTML safe and should only be used as a starting point to make edits to a comment's content.
context : Context.t;
The context of the file which is being commented on.
createdDate : GapiDate.t;
The date when this comment was first created.
deleted : bool;
Whether this comment has been deleted. If a comment has been deleted the content will be cleared and this will only represent a comment that once existed.
fileId : string;
The file which this comment is addressing.
fileTitle : string;
The title of the file which this comment is addressing.
htmlContent : string;
HTML formatted content for this comment.
kind : string;
This is always drive#comment.
modifiedDate : GapiDate.t;
The date when this comment or any of its replies were last modified.
replies : CommentReply.t list;
Replies to this post.
selfLink : string;
A link back to this comment.
status : string;
The status of this comment. Status can be changed by posting a reply to a comment with the desired status.
- "open" - The comment is still open.
- "resolved" - The comment has been resolved by one of its replies.
}
val anchor : (t, string) GapiLens.t
val author : (t, User.t) GapiLens.t
val commentId : (t, string) GapiLens.t
val content : (t, string) GapiLens.t
val context : (t, Context.t) GapiLens.t
val createdDate : (t, GapiDate.t) GapiLens.t
val deleted : (t, bool) GapiLens.t
val fileId : (t, string) GapiLens.t
val fileTitle : (t, string) GapiLens.t
val htmlContent : (t, string) GapiLens.t
val kind : (t, string) GapiLens.t
val modifiedDate : (t, GapiDate.t) GapiLens.t
val replies : (t, CommentReply.t list) GapiLens.t
val selfLink : (t, string) GapiLens.t
val status : (t, string) GapiLens.t
val empty : t
val render : t -> GapiJson.json_data_model list
val parse : t -> GapiJson.json_data_model -> t
val to_data_model : t -> GapiJson.json_data_model
val of_data_model : GapiJson.json_data_model -> t