MediaStore.Container
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html
type cors_rule = {
allowed_methods : string list option;
allowed_origins : string list option;
expose_headers : string list option;
max_age_seconds : int option;
allowed_headers : string list option;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicyrule.html
and metric_policy = {
container_level_metrics : string;
metric_policy_rules : metric_policy_rule list option;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicy.html
type properties = {
policy : string option;
metric_policy : metric_policy option;
container_name : string;
cors_policy : cors_rule list option;
lifecycle_policy : string option;
access_logging_enabled : bool option;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html;
val make_properties :
?policy:string ->
?metric_policy:metric_policy ->
container_name:string ->
?cors_policy:cors_rule list ->
?lifecycle_policy:string ->
?access_logging_enabled:bool ->
?tags:tag list ->
unit ->
properties
val make_cors_rule :
?allowed_methods:string list ->
?allowed_origins:string list ->
?expose_headers:string list ->
?max_age_seconds:int ->
?allowed_headers:string list ->
unit ->
cors_rule
val make_tag : key:string -> value:string -> unit -> tag
val make_metric_policy_rule :
object_group:string ->
object_group_name:string ->
unit ->
metric_policy_rule
val make_metric_policy :
container_level_metrics:string ->
?metric_policy_rules:metric_policy_rule list ->
unit ->
metric_policy
val yojson_of_cors_rule :
cors_rule ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_tag : tag -> [> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_metric_policy_rule : metric_policy_rule -> Yojson.Safe.t
val yojson_of_metric_policy :
metric_policy ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_properties :
properties ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val create_attributes : string -> attributes