Source file cli.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Core
open Async
let json_arg = Command.Arg_type.create Yojson.Safe.from_string
let call ?endpoint_url ?profile ?region f m result_to_json error_to_json =
  let region =
    match region with
    | Some region -> Some (Awso.Region.of_string region)
    | None -> None in
  (Awso_async.Cfg.get_exn ?profile ?region ()) >>=
    (fun cfg ->
       (f ?endpoint_url ?cfg:(Some cfg) m) >>=
         (fun result ->
            match result with
            | Error err ->
                (match error_to_json with
                 | None ->
                     failwithf
                       "endpoint error, but no error values defined in boto"
                       ()
                 | Some to_json ->
                     let s = (err |> to_json) |> Yojson.Safe.to_string in
                     failwithf "AWS error: %s" s ())
            | Ok result ->
                ((match result_to_json with
                  | None -> print_endline "ok response from endpoint"
                  | Some to_json ->
                      ((result |> to_json) |> Yojson.Safe.to_string) |>
                        print_endline);
                 return ())))
let add_tags =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerNames =
         flag "load-balancer-names" (required json_arg)
           ~doc:"JSON LoadBalancerNames"
       and tags = flag "tags" (required json_arg) ~doc:"JSON TagList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.add_tags
           (Values.AddTagsInput.make
              ~loadBalancerNames:(Values.LoadBalancerNames.of_json
                                    loadBalancerNames)
              ~tags:(Values.TagList.of_json tags) ())
           (Some Values.AddTagsOutput.to_json)
           (Some Values.AddTagsOutput.error_to_json)])
let apply_security_groups_to_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and securityGroups =
         flag "security-groups" (required json_arg)
           ~doc:"JSON SecurityGroups" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.apply_security_groups_to_load_balancer
           (Values.ApplySecurityGroupsToLoadBalancerInput.make
              ~loadBalancerName
              ~securityGroups:(Values.SecurityGroups.of_json securityGroups)
              ())
           (Some Values.ApplySecurityGroupsToLoadBalancerOutput.to_json)
           (Some Values.ApplySecurityGroupsToLoadBalancerOutput.error_to_json)])
let attach_load_balancer_to_subnets =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and subnets = flag "subnets" (required json_arg) ~doc:"JSON Subnets" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.attach_load_balancer_to_subnets
           (Values.AttachLoadBalancerToSubnetsInput.make ~loadBalancerName
              ~subnets:(Values.Subnets.of_json subnets) ())
           (Some Values.AttachLoadBalancerToSubnetsOutput.to_json)
           (Some Values.AttachLoadBalancerToSubnetsOutput.error_to_json)])
let configure_health_check =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and healthCheck =
         flag "health-check" (required json_arg) ~doc:"JSON HealthCheck" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.configure_health_check
           (Values.ConfigureHealthCheckInput.make ~loadBalancerName
              ~healthCheck:(Values.HealthCheck.of_json healthCheck) ())
           (Some Values.ConfigureHealthCheckOutput.to_json)
           (Some Values.ConfigureHealthCheckOutput.error_to_json)])
let create_app_cookie_stickiness_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and policyName =
         flag "policy-name" (required string) ~doc:"STRING PolicyName"
       and cookieName =
         flag "cookie-name" (required string) ~doc:"STRING CookieName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_app_cookie_stickiness_policy
           (Values.CreateAppCookieStickinessPolicyInput.make
              ~loadBalancerName ~policyName ~cookieName ())
           (Some Values.CreateAppCookieStickinessPolicyOutput.to_json)
           (Some Values.CreateAppCookieStickinessPolicyOutput.error_to_json)])
let create_l_b_cookie_stickiness_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and cookieExpirationPeriod =
         flag "cookie-expiration-period" (optional json_arg)
           ~doc:"JSON CookieExpirationPeriod"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and policyName =
         flag "policy-name" (required string) ~doc:"STRING PolicyName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_l_b_cookie_stickiness_policy
           (Values.CreateLBCookieStickinessPolicyInput.make
              ?cookieExpirationPeriod:(Option.map
                                         ~f:Values.CookieExpirationPeriod.of_json
                                         cookieExpirationPeriod)
              ~loadBalancerName ~policyName ())
           (Some Values.CreateLBCookieStickinessPolicyOutput.to_json)
           (Some Values.CreateLBCookieStickinessPolicyOutput.error_to_json)])
let create_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and availabilityZones =
         flag "availability-zones" (optional json_arg)
           ~doc:"JSON AvailabilityZones"
       and subnets = flag "subnets" (optional json_arg) ~doc:"JSON Subnets"
       and securityGroups =
         flag "security-groups" (optional json_arg)
           ~doc:"JSON SecurityGroups"
       and scheme =
         flag "scheme" (optional string) ~doc:"STRING LoadBalancerScheme"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and listeners =
         flag "listeners" (required json_arg) ~doc:"JSON Listeners" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_load_balancer
           (Values.CreateAccessPointInput.make
              ?availabilityZones:(Option.map
                                    ~f:Values.AvailabilityZones.of_json
                                    availabilityZones)
              ?subnets:(Option.map ~f:Values.Subnets.of_json subnets)
              ?securityGroups:(Option.map ~f:Values.SecurityGroups.of_json
                                 securityGroups) ?scheme
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ~loadBalancerName
              ~listeners:(Values.Listeners.of_json listeners) ())
           (Some Values.CreateAccessPointOutput.to_json)
           (Some Values.CreateAccessPointOutput.error_to_json)])
let create_load_balancer_listeners =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and listeners =
         flag "listeners" (required json_arg) ~doc:"JSON Listeners" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_load_balancer_listeners
           (Values.CreateLoadBalancerListenerInput.make ~loadBalancerName
              ~listeners:(Values.Listeners.of_json listeners) ())
           (Some Values.CreateLoadBalancerListenerOutput.to_json)
           (Some Values.CreateLoadBalancerListenerOutput.error_to_json)])
let create_load_balancer_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and policyAttributes =
         flag "policy-attributes" (optional json_arg)
           ~doc:"JSON PolicyAttributes"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and policyName =
         flag "policy-name" (required string) ~doc:"STRING PolicyName"
       and policyTypeName =
         flag "policy-type-name" (required string)
           ~doc:"STRING PolicyTypeName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_load_balancer_policy
           (Values.CreateLoadBalancerPolicyInput.make
              ?policyAttributes:(Option.map
                                   ~f:Values.PolicyAttributes.of_json
                                   policyAttributes) ~loadBalancerName
              ~policyName ~policyTypeName ())
           (Some Values.CreateLoadBalancerPolicyOutput.to_json)
           (Some Values.CreateLoadBalancerPolicyOutput.error_to_json)])
let delete_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_load_balancer
           (Values.DeleteAccessPointInput.make ~loadBalancerName ())
           (Some Values.DeleteAccessPointOutput.to_json)
           (Some Values.DeleteAccessPointOutput.error_to_json)])
let delete_load_balancer_listeners =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and loadBalancerPorts =
         flag "load-balancer-ports" (required json_arg) ~doc:"JSON Ports" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_load_balancer_listeners
           (Values.DeleteLoadBalancerListenerInput.make ~loadBalancerName
              ~loadBalancerPorts:(Values.Ports.of_json loadBalancerPorts) ())
           (Some Values.DeleteLoadBalancerListenerOutput.to_json)
           (Some Values.DeleteLoadBalancerListenerOutput.error_to_json)])
let delete_load_balancer_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and policyName =
         flag "policy-name" (required string) ~doc:"STRING PolicyName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_load_balancer_policy
           (Values.DeleteLoadBalancerPolicyInput.make ~loadBalancerName
              ~policyName ())
           (Some Values.DeleteLoadBalancerPolicyOutput.to_json)
           (Some Values.DeleteLoadBalancerPolicyOutput.error_to_json)])
let deregister_instances_from_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and instances =
         flag "instances" (required json_arg) ~doc:"JSON Instances" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.deregister_instances_from_load_balancer
           (Values.DeregisterEndPointsInput.make ~loadBalancerName
              ~instances:(Values.Instances.of_json instances) ())
           (Some Values.DeregisterEndPointsOutput.to_json)
           (Some Values.DeregisterEndPointsOutput.error_to_json)])
let describe_account_limits =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and pageSize = flag "page-size" (optional int) ~doc:"INT PageSize" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_account_limits
           (Values.DescribeAccountLimitsInput.make ?marker ?pageSize ())
           (Some Values.DescribeAccountLimitsOutput.to_json)
           (Some Values.DescribeAccountLimitsOutput.error_to_json)])
let describe_instance_health =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and instances =
         flag "instances" (optional json_arg) ~doc:"JSON Instances"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_instance_health
           (Values.DescribeEndPointStateInput.make
              ?instances:(Option.map ~f:Values.Instances.of_json instances)
              ~loadBalancerName ())
           (Some Values.DescribeEndPointStateOutput.to_json)
           (Some Values.DescribeEndPointStateOutput.error_to_json)])
let describe_load_balancer_attributes =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_load_balancer_attributes
           (Values.DescribeLoadBalancerAttributesInput.make ~loadBalancerName
              ()) (Some Values.DescribeLoadBalancerAttributesOutput.to_json)
           (Some Values.DescribeLoadBalancerAttributesOutput.error_to_json)])
let describe_load_balancer_policies =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (optional string)
           ~doc:"STRING AccessPointName"
       and policyNames =
         flag "policy-names" (optional json_arg) ~doc:"JSON PolicyNames" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_load_balancer_policies
           (Values.DescribeLoadBalancerPoliciesInput.make ?loadBalancerName
              ?policyNames:(Option.map ~f:Values.PolicyNames.of_json
                              policyNames) ())
           (Some Values.DescribeLoadBalancerPoliciesOutput.to_json)
           (Some Values.DescribeLoadBalancerPoliciesOutput.error_to_json)])
let describe_load_balancer_policy_types =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and policyTypeNames =
         flag "policy-type-names" (optional json_arg)
           ~doc:"JSON PolicyTypeNames" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_load_balancer_policy_types
           (Values.DescribeLoadBalancerPolicyTypesInput.make
              ?policyTypeNames:(Option.map ~f:Values.PolicyTypeNames.of_json
                                  policyTypeNames) ())
           (Some Values.DescribeLoadBalancerPolicyTypesOutput.to_json)
           (Some Values.DescribeLoadBalancerPolicyTypesOutput.error_to_json)])
let describe_load_balancers =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerNames =
         flag "load-balancer-names" (optional json_arg)
           ~doc:"JSON LoadBalancerNames"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and pageSize = flag "page-size" (optional int) ~doc:"INT PageSize" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_load_balancers
           (Values.DescribeAccessPointsInput.make
              ?loadBalancerNames:(Option.map
                                    ~f:Values.LoadBalancerNames.of_json
                                    loadBalancerNames) ?marker ?pageSize ())
           (Some Values.DescribeAccessPointsOutput.to_json)
           (Some Values.DescribeAccessPointsOutput.error_to_json)])
let describe_tags =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerNames =
         flag "load-balancer-names" (required json_arg)
           ~doc:"JSON LoadBalancerNamesMax20" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_tags
           (Values.DescribeTagsInput.make
              ~loadBalancerNames:(Values.LoadBalancerNamesMax20.of_json
                                    loadBalancerNames) ())
           (Some Values.DescribeTagsOutput.to_json)
           (Some Values.DescribeTagsOutput.error_to_json)])
let detach_load_balancer_from_subnets =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and subnets = flag "subnets" (required json_arg) ~doc:"JSON Subnets" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.detach_load_balancer_from_subnets
           (Values.DetachLoadBalancerFromSubnetsInput.make ~loadBalancerName
              ~subnets:(Values.Subnets.of_json subnets) ())
           (Some Values.DetachLoadBalancerFromSubnetsOutput.to_json)
           (Some Values.DetachLoadBalancerFromSubnetsOutput.error_to_json)])
let disable_availability_zones_for_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and availabilityZones =
         flag "availability-zones" (required json_arg)
           ~doc:"JSON AvailabilityZones" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disable_availability_zones_for_load_balancer
           (Values.RemoveAvailabilityZonesInput.make ~loadBalancerName
              ~availabilityZones:(Values.AvailabilityZones.of_json
                                    availabilityZones) ())
           (Some Values.RemoveAvailabilityZonesOutput.to_json)
           (Some Values.RemoveAvailabilityZonesOutput.error_to_json)])
let enable_availability_zones_for_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and availabilityZones =
         flag "availability-zones" (required json_arg)
           ~doc:"JSON AvailabilityZones" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.enable_availability_zones_for_load_balancer
           (Values.AddAvailabilityZonesInput.make ~loadBalancerName
              ~availabilityZones:(Values.AvailabilityZones.of_json
                                    availabilityZones) ())
           (Some Values.AddAvailabilityZonesOutput.to_json)
           (Some Values.AddAvailabilityZonesOutput.error_to_json)])
let modify_load_balancer_attributes =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and loadBalancerAttributes =
         flag "load-balancer-attributes" (required json_arg)
           ~doc:"JSON LoadBalancerAttributes" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.modify_load_balancer_attributes
           (Values.ModifyLoadBalancerAttributesInput.make ~loadBalancerName
              ~loadBalancerAttributes:(Values.LoadBalancerAttributes.of_json
                                         loadBalancerAttributes) ())
           (Some Values.ModifyLoadBalancerAttributesOutput.to_json)
           (Some Values.ModifyLoadBalancerAttributesOutput.error_to_json)])
let register_instances_with_load_balancer =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and instances =
         flag "instances" (required json_arg) ~doc:"JSON Instances" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.register_instances_with_load_balancer
           (Values.RegisterEndPointsInput.make ~loadBalancerName
              ~instances:(Values.Instances.of_json instances) ())
           (Some Values.RegisterEndPointsOutput.to_json)
           (Some Values.RegisterEndPointsOutput.error_to_json)])
let remove_tags =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerNames =
         flag "load-balancer-names" (required json_arg)
           ~doc:"JSON LoadBalancerNames"
       and tags = flag "tags" (required json_arg) ~doc:"JSON TagKeyList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.remove_tags
           (Values.RemoveTagsInput.make
              ~loadBalancerNames:(Values.LoadBalancerNames.of_json
                                    loadBalancerNames)
              ~tags:(Values.TagKeyList.of_json tags) ())
           (Some Values.RemoveTagsOutput.to_json)
           (Some Values.RemoveTagsOutput.error_to_json)])
let set_load_balancer_listener_s_s_l_certificate =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and loadBalancerPort =
         flag "load-balancer-port" (required int) ~doc:"INT AccessPointPort"
       and sSLCertificateId =
         flag "s-s-l-certificate-id" (required string)
           ~doc:"STRING SSLCertificateId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_load_balancer_listener_s_s_l_certificate
           (Values.SetLoadBalancerListenerSSLCertificateInput.make
              ~loadBalancerName ~loadBalancerPort ~sSLCertificateId ())
           (Some Values.SetLoadBalancerListenerSSLCertificateOutput.to_json)
           (Some
              Values.SetLoadBalancerListenerSSLCertificateOutput.error_to_json)])
let set_load_balancer_policies_for_backend_server =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and instancePort =
         flag "instance-port" (required int) ~doc:"INT EndPointPort"
       and policyNames =
         flag "policy-names" (required json_arg) ~doc:"JSON PolicyNames" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_load_balancer_policies_for_backend_server
           (Values.SetLoadBalancerPoliciesForBackendServerInput.make
              ~loadBalancerName ~instancePort
              ~policyNames:(Values.PolicyNames.of_json policyNames) ())
           (Some Values.SetLoadBalancerPoliciesForBackendServerOutput.to_json)
           (Some
              Values.SetLoadBalancerPoliciesForBackendServerOutput.error_to_json)])
let set_load_balancer_policies_of_listener =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and loadBalancerName =
         flag "load-balancer-name" (required string)
           ~doc:"STRING AccessPointName"
       and loadBalancerPort =
         flag "load-balancer-port" (required int) ~doc:"INT AccessPointPort"
       and policyNames =
         flag "policy-names" (required json_arg) ~doc:"JSON PolicyNames" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_load_balancer_policies_of_listener
           (Values.SetLoadBalancerPoliciesOfListenerInput.make
              ~loadBalancerName ~loadBalancerPort
              ~policyNames:(Values.PolicyNames.of_json policyNames) ())
           (Some Values.SetLoadBalancerPoliciesOfListenerOutput.to_json)
           (Some Values.SetLoadBalancerPoliciesOfListenerOutput.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("add-tags", add_tags);
    ("apply-security-groups-to-load-balancer",
      apply_security_groups_to_load_balancer);
    ("attach-load-balancer-to-subnets", attach_load_balancer_to_subnets);
    ("configure-health-check", configure_health_check);
    ("create-app-cookie-stickiness-policy",
      create_app_cookie_stickiness_policy);
    ("create-l-b-cookie-stickiness-policy",
      create_l_b_cookie_stickiness_policy);
    ("create-load-balancer", create_load_balancer);
    ("create-load-balancer-listeners", create_load_balancer_listeners);
    ("create-load-balancer-policy", create_load_balancer_policy);
    ("delete-load-balancer", delete_load_balancer);
    ("delete-load-balancer-listeners", delete_load_balancer_listeners);
    ("delete-load-balancer-policy", delete_load_balancer_policy);
    ("deregister-instances-from-load-balancer",
      deregister_instances_from_load_balancer);
    ("describe-account-limits", describe_account_limits);
    ("describe-instance-health", describe_instance_health);
    ("describe-load-balancer-attributes", describe_load_balancer_attributes);
    ("describe-load-balancer-policies", describe_load_balancer_policies);
    ("describe-load-balancer-policy-types",
      describe_load_balancer_policy_types);
    ("describe-load-balancers", describe_load_balancers);
    ("describe-tags", describe_tags);
    ("detach-load-balancer-from-subnets", detach_load_balancer_from_subnets);
    ("disable-availability-zones-for-load-balancer",
      disable_availability_zones_for_load_balancer);
    ("enable-availability-zones-for-load-balancer",
      enable_availability_zones_for_load_balancer);
    ("modify-load-balancer-attributes", modify_load_balancer_attributes);
    ("register-instances-with-load-balancer",
      register_instances_with_load_balancer);
    ("remove-tags", remove_tags);
    ("set-load-balancer-listener-s-s-l-certificate",
      set_load_balancer_listener_s_s_l_certificate);
    ("set-load-balancer-policies-for-backend-server",
      set_load_balancer_policies_for_backend_server);
    ("set-load-balancer-policies-of-listener",
      set_load_balancer_policies_of_listener)]