sig
module Variations :
sig
type t = {
name : string;
status : string;
url : string;
weight : float;
won : bool;
}
val name :
(GapiAnalyticsV3Model.Experiment.Variations.t, string) GapiLens.t
val status :
(GapiAnalyticsV3Model.Experiment.Variations.t, string) GapiLens.t
val url :
(GapiAnalyticsV3Model.Experiment.Variations.t, string) GapiLens.t
val weight :
(GapiAnalyticsV3Model.Experiment.Variations.t, float) GapiLens.t
val won :
(GapiAnalyticsV3Model.Experiment.Variations.t, bool) GapiLens.t
val empty : GapiAnalyticsV3Model.Experiment.Variations.t
val render :
GapiAnalyticsV3Model.Experiment.Variations.t ->
GapiJson.json_data_model list
val parse :
GapiAnalyticsV3Model.Experiment.Variations.t ->
GapiJson.json_data_model ->
GapiAnalyticsV3Model.Experiment.Variations.t
end
module ParentLink :
sig
type t = { href : string; _type : string; }
val href :
(GapiAnalyticsV3Model.Experiment.ParentLink.t, string) GapiLens.t
val _type :
(GapiAnalyticsV3Model.Experiment.ParentLink.t, string) GapiLens.t
val empty : GapiAnalyticsV3Model.Experiment.ParentLink.t
val render :
GapiAnalyticsV3Model.Experiment.ParentLink.t ->
GapiJson.json_data_model list
val parse :
GapiAnalyticsV3Model.Experiment.ParentLink.t ->
GapiJson.json_data_model ->
GapiAnalyticsV3Model.Experiment.ParentLink.t
end
type t = {
accountId : string;
created : GapiDate.t;
description : string;
editableInGaUi : bool;
endTime : GapiDate.t;
equalWeighting : bool;
id : string;
internalWebPropertyId : string;
kind : string;
minimumExperimentLengthInDays : int;
name : string;
objectiveMetric : string;
optimizationType : string;
parentLink : GapiAnalyticsV3Model.Experiment.ParentLink.t;
profileId : string;
reasonExperimentEnded : string;
rewriteVariationUrlsAsOriginal : bool;
selfLink : string;
servingFramework : string;
snippet : string;
startTime : GapiDate.t;
status : string;
trafficCoverage : float;
updated : GapiDate.t;
variations : GapiAnalyticsV3Model.Experiment.Variations.t list;
webPropertyId : string;
winnerConfidenceLevel : float;
winnerFound : bool;
}
val accountId : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val created : (GapiAnalyticsV3Model.Experiment.t, GapiDate.t) GapiLens.t
val description : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val editableInGaUi : (GapiAnalyticsV3Model.Experiment.t, bool) GapiLens.t
val endTime : (GapiAnalyticsV3Model.Experiment.t, GapiDate.t) GapiLens.t
val equalWeighting : (GapiAnalyticsV3Model.Experiment.t, bool) GapiLens.t
val id : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val internalWebPropertyId :
(GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val kind : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val minimumExperimentLengthInDays :
(GapiAnalyticsV3Model.Experiment.t, int) GapiLens.t
val name : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val objectiveMetric :
(GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val optimizationType :
(GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val parentLink :
(GapiAnalyticsV3Model.Experiment.t,
GapiAnalyticsV3Model.Experiment.ParentLink.t)
GapiLens.t
val profileId : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val reasonExperimentEnded :
(GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val rewriteVariationUrlsAsOriginal :
(GapiAnalyticsV3Model.Experiment.t, bool) GapiLens.t
val selfLink : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val servingFramework :
(GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val snippet : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val startTime : (GapiAnalyticsV3Model.Experiment.t, GapiDate.t) GapiLens.t
val status : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val trafficCoverage : (GapiAnalyticsV3Model.Experiment.t, float) GapiLens.t
val updated : (GapiAnalyticsV3Model.Experiment.t, GapiDate.t) GapiLens.t
val variations :
(GapiAnalyticsV3Model.Experiment.t,
GapiAnalyticsV3Model.Experiment.Variations.t list)
GapiLens.t
val webPropertyId : (GapiAnalyticsV3Model.Experiment.t, string) GapiLens.t
val winnerConfidenceLevel :
(GapiAnalyticsV3Model.Experiment.t, float) GapiLens.t
val winnerFound : (GapiAnalyticsV3Model.Experiment.t, bool) GapiLens.t
val empty : GapiAnalyticsV3Model.Experiment.t
val render :
GapiAnalyticsV3Model.Experiment.t -> GapiJson.json_data_model list
val parse :
GapiAnalyticsV3Model.Experiment.t ->
GapiJson.json_data_model -> GapiAnalyticsV3Model.Experiment.t
val to_data_model :
GapiAnalyticsV3Model.Experiment.t -> GapiJson.json_data_model
val of_data_model :
GapiJson.json_data_model -> GapiAnalyticsV3Model.Experiment.t
end