sig
module Operation :
sig
type t = None | Query | Insert | Update | Delete
val to_string : GdataBatch.Operation.t -> string
val of_string : string -> GdataBatch.Operation.t
end
module Status :
sig
type t = {
code : int;
reason : string;
content_type : string;
content : string;
}
val code : (GdataBatch.Status.t, int) GapiLens.t
val reason : (GdataBatch.Status.t, string) GapiLens.t
val content_type : (GdataBatch.Status.t, string) GapiLens.t
val content : (GdataBatch.Status.t, string) 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
end
module Interrupted :
sig
type t = {
reason : string;
parsed : int;
success : int;
error : int;
unprocessed : int;
}
val reason : (GdataBatch.Interrupted.t, string) GapiLens.t
val parsed : (GdataBatch.Interrupted.t, int) GapiLens.t
val success : (GdataBatch.Interrupted.t, int) GapiLens.t
val error : (GdataBatch.Interrupted.t, int) GapiLens.t
val unprocessed : (GdataBatch.Interrupted.t, int) 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
end
module BatchExtensions :
sig
type t = {
id : string;
operation : GdataBatch.Operation.t;
status : GdataBatch.Status.t;
interrupted : GdataBatch.Interrupted.t;
}
val id : (GdataBatch.BatchExtensions.t, string) GapiLens.t
val operation :
(GdataBatch.BatchExtensions.t, GdataBatch.Operation.t) GapiLens.t
val status :
(GdataBatch.BatchExtensions.t, GdataBatch.Status.t) GapiLens.t
val interrupted :
(GdataBatch.BatchExtensions.t, GdataBatch.Interrupted.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 node_matches : string * string -> bool
end
end