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.
|
}
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