ServiceDiscovery.Service
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.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-servicediscovery-service-healthcheckconfig.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckcustomconfig.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html
and dns_config = {
dns_records : dns_record list;
routing_policy : string option;
namespace_id : string option;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html
type properties = {
type_ : string option;
description : string option;
health_check_custom_config : health_check_custom_config option;
dns_config : dns_config option;
namespace_id : string option;
health_check_config : health_check_config option;
name : string option;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html;
val make_properties :
?type_:string ->
?description:string ->
?health_check_custom_config:health_check_custom_config ->
?dns_config:dns_config ->
?namespace_id:string ->
?health_check_config:health_check_config ->
?tags:tag list ->
?name:string ->
unit ->
properties
val make_tag : key:string -> value:string -> unit -> tag
val make_health_check_config :
type_:string ->
?resource_path:string ->
?failure_threshold:float ->
unit ->
health_check_config
val make_health_check_custom_config :
?failure_threshold:float ->
unit ->
health_check_custom_config
val make_dns_record : type_:string -> ttl:float -> unit -> dns_record
val make_dns_config :
dns_records:dns_record list ->
?routing_policy:string ->
?namespace_id:string ->
unit ->
dns_config
val yojson_of_tag : tag -> [> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_health_check_config :
health_check_config ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_health_check_custom_config :
health_check_custom_config ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_dns_record : dns_record -> Yojson.Safe.t
val yojson_of_dns_config :
dns_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