Synthetics.Canarysee http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-s3encryption.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-schedule.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-basescreenshot.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html
and run_config = {timeout_in_seconds : int option;environment_variables : string Stdlib__Map.Make(Stdlib.String).t option;memory_in_mb : int option;active_tracing : bool option;}see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-runconfig.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-vpcconfig.html
and code = {script : string option;s3_object_version : string option;s3_bucket : string option;s3_key : string option;handler : string;source_location_arn : string option;}see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html
and visual_reference = {base_screenshots : base_screenshot list option;base_canary_run_id : string;}see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-visualreference.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-artifactconfig.html
type properties = {visual_reference : visual_reference option;artifact_config : artifact_config option;success_retention_period : int option;runtime_version : string;vpc_config : vpc_config option;run_config : run_config option;failure_retention_period : int option;code : code;name : string;execution_role_arn : string;schedule : schedule;artifact_s3_location : string;start_canary_after_creation : bool option;}see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html;
val make_properties :
?visual_reference:visual_reference ->
?artifact_config:artifact_config ->
?success_retention_period:int ->
runtime_version:string ->
?vpc_config:vpc_config ->
?run_config:run_config ->
?failure_retention_period:int ->
code:code ->
name:string ->
execution_role_arn:string ->
schedule:schedule ->
artifact_s3_location:string ->
?tags:tag list ->
?start_canary_after_creation:bool ->
unit ->
propertiesval make_s3_encryption :
?kms_key_arn:string ->
?encryption_mode:string ->
unit ->
s3_encryptionval make_schedule :
?duration_in_seconds:string ->
expression:string ->
unit ->
scheduleval make_base_screenshot :
?ignore_coordinates:string list ->
screenshot_name:string ->
unit ->
base_screenshotval make_tag : value:string -> key:string -> unit -> tagval make_run_config :
?timeout_in_seconds:int ->
?environment_variables:string Stdlib__Map.Make(Stdlib.String).t ->
?memory_in_mb:int ->
?active_tracing:bool ->
unit ->
run_configval make_vpc_config :
?vpc_id:string ->
subnet_ids:string list ->
security_group_ids:string list ->
unit ->
vpc_configval make_code :
?script:string ->
?s3_object_version:string ->
?s3_bucket:string ->
?s3_key:string ->
handler:string ->
?source_location_arn:string ->
unit ->
codeval make_visual_reference :
?base_screenshots:base_screenshot list ->
base_canary_run_id:string ->
unit ->
visual_referenceval make_artifact_config :
?s3_encryption:s3_encryption ->
unit ->
artifact_configval yojson_of_s3_encryption : s3_encryption -> Yojson.Safe.tval yojson_of_schedule :
schedule ->
[> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_base_screenshot : base_screenshot -> Yojson.Safe.tval yojson_of_tag : tag -> [> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_run_config :
run_config ->
[> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_vpc_config :
vpc_config ->
[> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_code : code -> [> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_visual_reference :
visual_reference ->
[> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_artifact_config :
artifact_config ->
[> `Assoc of (string * Yojson.Safe.t) list ]val yojson_of_properties :
properties ->
[> `Assoc of (string * Yojson.Safe.t) list ]val create_attributes : string -> attributes