Previous  Up  Next

Module GapiDriveV2Model.Comment

module Comment: sig .. end
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 : GapiDriveV2Model.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 : GapiDriveV2Model.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, GapiDriveV2Model.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, GapiDriveV2Model.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