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 associate_web_a_c_l =
  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 webACLArn =
         flag "web-a-c-l-arn" (required string) ~doc:"STRING ResourceArn"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.associate_web_a_c_l
           (Values.AssociateWebACLRequest.make ~webACLArn ~resourceArn ())
           (Some Values.AssociateWebACLResponse.to_json)
           (Some Values.AssociateWebACLResponse.error_to_json)])
let check_capacity =
  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 scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and rules = flag "rules" (required json_arg) ~doc:"JSON Rules" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.check_capacity
           (Values.CheckCapacityRequest.make
              ~scope:(Values.Scope.of_json scope)
              ~rules:(Values.Rules.of_json rules) ())
           (Some Values.CheckCapacityResponse.to_json)
           (Some Values.CheckCapacityResponse.error_to_json)])
let create_a_p_i_key =
  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 scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and tokenDomains =
         flag "token-domains" (required json_arg)
           ~doc:"JSON APIKeyTokenDomains" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_a_p_i_key
           (Values.CreateAPIKeyRequest.make
              ~scope:(Values.Scope.of_json scope)
              ~tokenDomains:(Values.APIKeyTokenDomains.of_json tokenDomains)
              ()) (Some Values.CreateAPIKeyResponse.to_json)
           (Some Values.CreateAPIKeyResponse.error_to_json)])
let create_i_p_set =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and iPAddressVersion =
         flag "i-p-address-version" (required json_arg)
           ~doc:"JSON IPAddressVersion"
       and addresses =
         flag "addresses" (required json_arg) ~doc:"JSON IPAddresses" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_i_p_set
           (Values.CreateIPSetRequest.make ?description
              ?tags:(Option.map ~f:Values.TagList.of_json tags) ~name
              ~scope:(Values.Scope.of_json scope)
              ~iPAddressVersion:(Values.IPAddressVersion.of_json
                                   iPAddressVersion)
              ~addresses:(Values.IPAddresses.of_json addresses) ())
           (Some Values.CreateIPSetResponse.to_json)
           (Some Values.CreateIPSetResponse.error_to_json)])
let create_regex_pattern_set =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and regularExpressionList =
         flag "regular-expression-list" (required json_arg)
           ~doc:"JSON RegularExpressionList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_regex_pattern_set
           (Values.CreateRegexPatternSetRequest.make ?description
              ?tags:(Option.map ~f:Values.TagList.of_json tags) ~name
              ~scope:(Values.Scope.of_json scope)
              ~regularExpressionList:(Values.RegularExpressionList.of_json
                                        regularExpressionList) ())
           (Some Values.CreateRegexPatternSetResponse.to_json)
           (Some Values.CreateRegexPatternSetResponse.error_to_json)])
let create_rule_group =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and rules = flag "rules" (optional json_arg) ~doc:"JSON Rules"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and customResponseBodies =
         flag "custom-response-bodies" (optional json_arg)
           ~doc:"JSON CustomResponseBodies"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and capacity =
         flag "capacity" (required json_arg) ~doc:"JSON CapacityUnit"
       and visibilityConfig =
         flag "visibility-config" (required json_arg)
           ~doc:"JSON VisibilityConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_rule_group
           (Values.CreateRuleGroupRequest.make ?description
              ?rules:(Option.map ~f:Values.Rules.of_json rules)
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ?customResponseBodies:(Option.map
                                       ~f:Values.CustomResponseBodies.of_json
                                       customResponseBodies) ~name
              ~scope:(Values.Scope.of_json scope)
              ~capacity:(Values.CapacityUnit.of_json capacity)
              ~visibilityConfig:(Values.VisibilityConfig.of_json
                                   visibilityConfig) ())
           (Some Values.CreateRuleGroupResponse.to_json)
           (Some Values.CreateRuleGroupResponse.error_to_json)])
let create_web_a_c_l =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and rules = flag "rules" (optional json_arg) ~doc:"JSON Rules"
       and dataProtectionConfig =
         flag "data-protection-config" (optional json_arg)
           ~doc:"JSON DataProtectionConfig"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and customResponseBodies =
         flag "custom-response-bodies" (optional json_arg)
           ~doc:"JSON CustomResponseBodies"
       and captchaConfig =
         flag "captcha-config" (optional json_arg) ~doc:"JSON CaptchaConfig"
       and challengeConfig =
         flag "challenge-config" (optional json_arg)
           ~doc:"JSON ChallengeConfig"
       and tokenDomains =
         flag "token-domains" (optional json_arg) ~doc:"JSON TokenDomains"
       and associationConfig =
         flag "association-config" (optional json_arg)
           ~doc:"JSON AssociationConfig"
       and onSourceDDoSProtectionConfig =
         flag "on-source-d-do-s-protection-config" (optional json_arg)
           ~doc:"JSON OnSourceDDoSProtectionConfig"
       and applicationConfig =
         flag "application-config" (optional json_arg)
           ~doc:"JSON ApplicationConfig"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and defaultAction =
         flag "default-action" (required json_arg) ~doc:"JSON DefaultAction"
       and visibilityConfig =
         flag "visibility-config" (required json_arg)
           ~doc:"JSON VisibilityConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_web_a_c_l
           (Values.CreateWebACLRequest.make ?description
              ?rules:(Option.map ~f:Values.Rules.of_json rules)
              ?dataProtectionConfig:(Option.map
                                       ~f:Values.DataProtectionConfig.of_json
                                       dataProtectionConfig)
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ?customResponseBodies:(Option.map
                                       ~f:Values.CustomResponseBodies.of_json
                                       customResponseBodies)
              ?captchaConfig:(Option.map ~f:Values.CaptchaConfig.of_json
                                captchaConfig)
              ?challengeConfig:(Option.map ~f:Values.ChallengeConfig.of_json
                                  challengeConfig)
              ?tokenDomains:(Option.map ~f:Values.TokenDomains.of_json
                               tokenDomains)
              ?associationConfig:(Option.map
                                    ~f:Values.AssociationConfig.of_json
                                    associationConfig)
              ?onSourceDDoSProtectionConfig:(Option.map
                                               ~f:Values.OnSourceDDoSProtectionConfig.of_json
                                               onSourceDDoSProtectionConfig)
              ?applicationConfig:(Option.map
                                    ~f:Values.ApplicationConfig.of_json
                                    applicationConfig) ~name
              ~scope:(Values.Scope.of_json scope)
              ~defaultAction:(Values.DefaultAction.of_json defaultAction)
              ~visibilityConfig:(Values.VisibilityConfig.of_json
                                   visibilityConfig) ())
           (Some Values.CreateWebACLResponse.to_json)
           (Some Values.CreateWebACLResponse.error_to_json)])
let delete_a_p_i_key =
  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 scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and aPIKey = flag "a-p-i-key" (required string) ~doc:"STRING APIKey" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_a_p_i_key
           (Values.DeleteAPIKeyRequest.make
              ~scope:(Values.Scope.of_json scope) ~aPIKey ())
           (Some Values.DeleteAPIKeyResponse.to_json)
           (Some Values.DeleteAPIKeyResponse.error_to_json)])
let delete_firewall_manager_rule_groups =
  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 webACLArn =
         flag "web-a-c-l-arn" (required string) ~doc:"STRING ResourceArn"
       and webACLLockToken =
         flag "web-a-c-l-lock-token" (required string)
           ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_firewall_manager_rule_groups
           (Values.DeleteFirewallManagerRuleGroupsRequest.make ~webACLArn
              ~webACLLockToken ())
           (Some Values.DeleteFirewallManagerRuleGroupsResponse.to_json)
           (Some Values.DeleteFirewallManagerRuleGroupsResponse.error_to_json)])
let delete_i_p_set =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_i_p_set
           (Values.DeleteIPSetRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ~lockToken ())
           (Some Values.DeleteIPSetResponse.to_json)
           (Some Values.DeleteIPSetResponse.error_to_json)])
let delete_logging_configuration =
  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 logType = flag "log-type" (optional json_arg) ~doc:"JSON LogType"
       and logScope =
         flag "log-scope" (optional json_arg) ~doc:"JSON LogScope"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_logging_configuration
           (Values.DeleteLoggingConfigurationRequest.make
              ?logType:(Option.map ~f:Values.LogType.of_json logType)
              ?logScope:(Option.map ~f:Values.LogScope.of_json logScope)
              ~resourceArn ())
           (Some Values.DeleteLoggingConfigurationResponse.to_json)
           (Some Values.DeleteLoggingConfigurationResponse.error_to_json)])
let delete_permission_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 resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_permission_policy
           (Values.DeletePermissionPolicyRequest.make ~resourceArn ())
           (Some Values.DeletePermissionPolicyResponse.to_json)
           (Some Values.DeletePermissionPolicyResponse.error_to_json)])
let delete_regex_pattern_set =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_regex_pattern_set
           (Values.DeleteRegexPatternSetRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ~lockToken ())
           (Some Values.DeleteRegexPatternSetResponse.to_json)
           (Some Values.DeleteRegexPatternSetResponse.error_to_json)])
let delete_rule_group =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_rule_group
           (Values.DeleteRuleGroupRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ~lockToken ())
           (Some Values.DeleteRuleGroupResponse.to_json)
           (Some Values.DeleteRuleGroupResponse.error_to_json)])
let delete_web_a_c_l =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_web_a_c_l
           (Values.DeleteWebACLRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ~lockToken ())
           (Some Values.DeleteWebACLResponse.to_json)
           (Some Values.DeleteWebACLResponse.error_to_json)])
let describe_all_managed_products =
  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 scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_all_managed_products
           (Values.DescribeAllManagedProductsRequest.make
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.DescribeAllManagedProductsResponse.to_json)
           (Some Values.DescribeAllManagedProductsResponse.error_to_json)])
let describe_managed_products_by_vendor =
  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 vendorName =
         flag "vendor-name" (required string) ~doc:"STRING VendorName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_managed_products_by_vendor
           (Values.DescribeManagedProductsByVendorRequest.make ~vendorName
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.DescribeManagedProductsByVendorResponse.to_json)
           (Some Values.DescribeManagedProductsByVendorResponse.error_to_json)])
let describe_managed_rule_group =
  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 versionName =
         flag "version-name" (optional string) ~doc:"STRING VersionKeyString"
       and vendorName =
         flag "vendor-name" (required string) ~doc:"STRING VendorName"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_managed_rule_group
           (Values.DescribeManagedRuleGroupRequest.make ?versionName
              ~vendorName ~name ~scope:(Values.Scope.of_json scope) ())
           (Some Values.DescribeManagedRuleGroupResponse.to_json)
           (Some Values.DescribeManagedRuleGroupResponse.error_to_json)])
let disassociate_web_a_c_l =
  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 resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disassociate_web_a_c_l
           (Values.DisassociateWebACLRequest.make ~resourceArn ())
           (Some Values.DisassociateWebACLResponse.to_json)
           (Some Values.DisassociateWebACLResponse.error_to_json)])
let generate_mobile_sdk_release_url =
  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 platform =
         flag "platform" (required json_arg) ~doc:"JSON Platform"
       and releaseVersion =
         flag "release-version" (required string)
           ~doc:"STRING VersionKeyString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.generate_mobile_sdk_release_url
           (Values.GenerateMobileSdkReleaseUrlRequest.make
              ~platform:(Values.Platform.of_json platform) ~releaseVersion ())
           (Some Values.GenerateMobileSdkReleaseUrlResponse.to_json)
           (Some Values.GenerateMobileSdkReleaseUrlResponse.error_to_json)])
let get_decrypted_a_p_i_key =
  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 scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and aPIKey = flag "a-p-i-key" (required string) ~doc:"STRING APIKey" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_decrypted_a_p_i_key
           (Values.GetDecryptedAPIKeyRequest.make
              ~scope:(Values.Scope.of_json scope) ~aPIKey ())
           (Some Values.GetDecryptedAPIKeyResponse.to_json)
           (Some Values.GetDecryptedAPIKeyResponse.error_to_json)])
let get_i_p_set =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_i_p_set
           (Values.GetIPSetRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ())
           (Some Values.GetIPSetResponse.to_json)
           (Some Values.GetIPSetResponse.error_to_json)])
let get_logging_configuration =
  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 logType = flag "log-type" (optional json_arg) ~doc:"JSON LogType"
       and logScope =
         flag "log-scope" (optional json_arg) ~doc:"JSON LogScope"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_logging_configuration
           (Values.GetLoggingConfigurationRequest.make
              ?logType:(Option.map ~f:Values.LogType.of_json logType)
              ?logScope:(Option.map ~f:Values.LogScope.of_json logScope)
              ~resourceArn ())
           (Some Values.GetLoggingConfigurationResponse.to_json)
           (Some Values.GetLoggingConfigurationResponse.error_to_json)])
let get_managed_rule_set =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_managed_rule_set
           (Values.GetManagedRuleSetRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ())
           (Some Values.GetManagedRuleSetResponse.to_json)
           (Some Values.GetManagedRuleSetResponse.error_to_json)])
let get_mobile_sdk_release =
  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 platform =
         flag "platform" (required json_arg) ~doc:"JSON Platform"
       and releaseVersion =
         flag "release-version" (required string)
           ~doc:"STRING VersionKeyString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_mobile_sdk_release
           (Values.GetMobileSdkReleaseRequest.make
              ~platform:(Values.Platform.of_json platform) ~releaseVersion ())
           (Some Values.GetMobileSdkReleaseResponse.to_json)
           (Some Values.GetMobileSdkReleaseResponse.error_to_json)])
let get_permission_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 resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_permission_policy
           (Values.GetPermissionPolicyRequest.make ~resourceArn ())
           (Some Values.GetPermissionPolicyResponse.to_json)
           (Some Values.GetPermissionPolicyResponse.error_to_json)])
let get_rate_based_statement_managed_keys =
  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 ruleGroupRuleName =
         flag "rule-group-rule-name" (optional string)
           ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and webACLName =
         flag "web-a-c-l-name" (required string) ~doc:"STRING EntityName"
       and webACLId =
         flag "web-a-c-l-id" (required string) ~doc:"STRING EntityId"
       and ruleName =
         flag "rule-name" (required string) ~doc:"STRING EntityName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_rate_based_statement_managed_keys
           (Values.GetRateBasedStatementManagedKeysRequest.make
              ?ruleGroupRuleName ~scope:(Values.Scope.of_json scope)
              ~webACLName ~webACLId ~ruleName ())
           (Some Values.GetRateBasedStatementManagedKeysResponse.to_json)
           (Some
              Values.GetRateBasedStatementManagedKeysResponse.error_to_json)])
let get_regex_pattern_set =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_regex_pattern_set
           (Values.GetRegexPatternSetRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ())
           (Some Values.GetRegexPatternSetResponse.to_json)
           (Some Values.GetRegexPatternSetResponse.error_to_json)])
let get_rule_group =
  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 name = flag "name" (optional string) ~doc:"STRING EntityName"
       and scope = flag "scope" (optional json_arg) ~doc:"JSON Scope"
       and id = flag "id" (optional string) ~doc:"STRING EntityId"
       and aRN = flag "a-r-n" (optional string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_rule_group
           (Values.GetRuleGroupRequest.make ?name
              ?scope:(Option.map ~f:Values.Scope.of_json scope) ?id ?aRN ())
           (Some Values.GetRuleGroupResponse.to_json)
           (Some Values.GetRuleGroupResponse.error_to_json)])
let get_sampled_requests =
  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 webAclArn =
         flag "web-acl-arn" (required string) ~doc:"STRING ResourceArn"
       and ruleMetricName =
         flag "rule-metric-name" (required string) ~doc:"STRING MetricName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and timeWindow =
         flag "time-window" (required json_arg) ~doc:"JSON TimeWindow"
       and maxItems =
         flag "max-items" (required json_arg) ~doc:"JSON ListMaxItems" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_sampled_requests
           (Values.GetSampledRequestsRequest.make ~webAclArn ~ruleMetricName
              ~scope:(Values.Scope.of_json scope)
              ~timeWindow:(Values.TimeWindow.of_json timeWindow)
              ~maxItems:(Values.ListMaxItems.of_json maxItems) ())
           (Some Values.GetSampledRequestsResponse.to_json)
           (Some Values.GetSampledRequestsResponse.error_to_json)])
let get_top_path_statistics_by_traffic =
  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 uriPathPrefix =
         flag "uri-path-prefix" (optional string)
           ~doc:"STRING UriPathPrefixString"
       and botCategory =
         flag "bot-category" (optional string) ~doc:"STRING FilterString"
       and botOrganization =
         flag "bot-organization" (optional string) ~doc:"STRING FilterString"
       and botName =
         flag "bot-name" (optional string) ~doc:"STRING FilterString"
       and nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and webAclArn =
         flag "web-acl-arn" (required string) ~doc:"STRING ResourceArn"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and timeWindow =
         flag "time-window" (required json_arg) ~doc:"JSON TimeWindow"
       and limit = flag "limit" (required int) ~doc:"INT PathStatisticsLimit"
       and numberOfTopTrafficBotsPerPath =
         flag "number-of-top-traffic-bots-per-path" (required int)
           ~doc:"INT NumberOfTopTrafficBotsPerPath" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_top_path_statistics_by_traffic
           (Values.GetTopPathStatisticsByTrafficRequest.make ?uriPathPrefix
              ?botCategory ?botOrganization ?botName ?nextMarker ~webAclArn
              ~scope:(Values.Scope.of_json scope)
              ~timeWindow:(Values.TimeWindow.of_json timeWindow) ~limit
              ~numberOfTopTrafficBotsPerPath ())
           (Some Values.GetTopPathStatisticsByTrafficResponse.to_json)
           (Some Values.GetTopPathStatisticsByTrafficResponse.error_to_json)])
let get_web_a_c_l =
  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 name = flag "name" (optional string) ~doc:"STRING EntityName"
       and scope = flag "scope" (optional json_arg) ~doc:"JSON Scope"
       and id = flag "id" (optional string) ~doc:"STRING EntityId"
       and aRN = flag "a-r-n" (optional string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_web_a_c_l
           (Values.GetWebACLRequest.make ?name
              ?scope:(Option.map ~f:Values.Scope.of_json scope) ?id ?aRN ())
           (Some Values.GetWebACLResponse.to_json)
           (Some Values.GetWebACLResponse.error_to_json)])
let get_web_a_c_l_for_resource =
  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 resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_web_a_c_l_for_resource
           (Values.GetWebACLForResourceRequest.make ~resourceArn ())
           (Some Values.GetWebACLForResourceResponse.to_json)
           (Some Values.GetWebACLForResourceResponse.error_to_json)])
let list_a_p_i_keys =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_a_p_i_keys
           (Values.ListAPIKeysRequest.make ?nextMarker ?limit
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListAPIKeysResponse.to_json)
           (Some Values.ListAPIKeysResponse.error_to_json)])
let list_available_managed_rule_group_versions =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and vendorName =
         flag "vendor-name" (required string) ~doc:"STRING VendorName"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_available_managed_rule_group_versions
           (Values.ListAvailableManagedRuleGroupVersionsRequest.make
              ?nextMarker ?limit ~vendorName ~name
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListAvailableManagedRuleGroupVersionsResponse.to_json)
           (Some
              Values.ListAvailableManagedRuleGroupVersionsResponse.error_to_json)])
let list_available_managed_rule_groups =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_available_managed_rule_groups
           (Values.ListAvailableManagedRuleGroupsRequest.make ?nextMarker
              ?limit ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListAvailableManagedRuleGroupsResponse.to_json)
           (Some Values.ListAvailableManagedRuleGroupsResponse.error_to_json)])
let list_i_p_sets =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_i_p_sets
           (Values.ListIPSetsRequest.make ?nextMarker ?limit
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListIPSetsResponse.to_json)
           (Some Values.ListIPSetsResponse.error_to_json)])
let list_logging_configurations =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and logScope =
         flag "log-scope" (optional json_arg) ~doc:"JSON LogScope"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_logging_configurations
           (Values.ListLoggingConfigurationsRequest.make ?nextMarker ?limit
              ?logScope:(Option.map ~f:Values.LogScope.of_json logScope)
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListLoggingConfigurationsResponse.to_json)
           (Some Values.ListLoggingConfigurationsResponse.error_to_json)])
let list_managed_rule_sets =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_managed_rule_sets
           (Values.ListManagedRuleSetsRequest.make ?nextMarker ?limit
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListManagedRuleSetsResponse.to_json)
           (Some Values.ListManagedRuleSetsResponse.error_to_json)])
let list_mobile_sdk_releases =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and platform =
         flag "platform" (required json_arg) ~doc:"JSON Platform" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_mobile_sdk_releases
           (Values.ListMobileSdkReleasesRequest.make ?nextMarker ?limit
              ~platform:(Values.Platform.of_json platform) ())
           (Some Values.ListMobileSdkReleasesResponse.to_json)
           (Some Values.ListMobileSdkReleasesResponse.error_to_json)])
let list_regex_pattern_sets =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_regex_pattern_sets
           (Values.ListRegexPatternSetsRequest.make ?nextMarker ?limit
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListRegexPatternSetsResponse.to_json)
           (Some Values.ListRegexPatternSetsResponse.error_to_json)])
let list_resources_for_web_a_c_l =
  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 resourceType =
         flag "resource-type" (optional json_arg) ~doc:"JSON ResourceType"
       and webACLArn =
         flag "web-a-c-l-arn" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_resources_for_web_a_c_l
           (Values.ListResourcesForWebACLRequest.make
              ?resourceType:(Option.map ~f:Values.ResourceType.of_json
                               resourceType) ~webACLArn ())
           (Some Values.ListResourcesForWebACLResponse.to_json)
           (Some Values.ListResourcesForWebACLResponse.error_to_json)])
let list_rule_groups =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_rule_groups
           (Values.ListRuleGroupsRequest.make ?nextMarker ?limit
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListRuleGroupsResponse.to_json)
           (Some Values.ListRuleGroupsResponse.error_to_json)])
let list_tags_for_resource =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and resourceARN =
         flag "resource-a-r-n" (required string) ~doc:"STRING ResourceArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_tags_for_resource
           (Values.ListTagsForResourceRequest.make ?nextMarker ?limit
              ~resourceARN ())
           (Some Values.ListTagsForResourceResponse.to_json)
           (Some Values.ListTagsForResourceResponse.error_to_json)])
let list_web_a_c_ls =
  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 nextMarker =
         flag "next-marker" (optional string) ~doc:"STRING NextMarker"
       and limit = flag "limit" (optional int) ~doc:"INT PaginationLimit"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_web_a_c_ls
           (Values.ListWebACLsRequest.make ?nextMarker ?limit
              ~scope:(Values.Scope.of_json scope) ())
           (Some Values.ListWebACLsResponse.to_json)
           (Some Values.ListWebACLsResponse.error_to_json)])
let put_logging_configuration =
  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 loggingConfiguration =
         flag "logging-configuration" (required json_arg)
           ~doc:"JSON LoggingConfiguration" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_logging_configuration
           (Values.PutLoggingConfigurationRequest.make
              ~loggingConfiguration:(Values.LoggingConfiguration.of_json
                                       loggingConfiguration) ())
           (Some Values.PutLoggingConfigurationResponse.to_json)
           (Some Values.PutLoggingConfigurationResponse.error_to_json)])
let put_managed_rule_set_versions =
  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 recommendedVersion =
         flag "recommended-version" (optional string)
           ~doc:"STRING VersionKeyString"
       and versionsToPublish =
         flag "versions-to-publish" (optional json_arg)
           ~doc:"JSON VersionsToPublish"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_managed_rule_set_versions
           (Values.PutManagedRuleSetVersionsRequest.make ?recommendedVersion
              ?versionsToPublish:(Option.map
                                    ~f:Values.VersionsToPublish.of_json
                                    versionsToPublish) ~name
              ~scope:(Values.Scope.of_json scope) ~id ~lockToken ())
           (Some Values.PutManagedRuleSetVersionsResponse.to_json)
           (Some Values.PutManagedRuleSetVersionsResponse.error_to_json)])
let put_permission_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 resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING ResourceArn"
       and policy =
         flag "policy" (required string) ~doc:"STRING PolicyString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_permission_policy
           (Values.PutPermissionPolicyRequest.make ~resourceArn ~policy ())
           (Some Values.PutPermissionPolicyResponse.to_json)
           (Some Values.PutPermissionPolicyResponse.error_to_json)])
let tag_resource =
  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 resourceARN =
         flag "resource-a-r-n" (required string) ~doc:"STRING ResourceArn"
       and tags = flag "tags" (required json_arg) ~doc:"JSON TagList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.tag_resource
           (Values.TagResourceRequest.make ~resourceARN
              ~tags:(Values.TagList.of_json tags) ())
           (Some Values.TagResourceResponse.to_json)
           (Some Values.TagResourceResponse.error_to_json)])
let untag_resource =
  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 resourceARN =
         flag "resource-a-r-n" (required string) ~doc:"STRING ResourceArn"
       and tagKeys =
         flag "tag-keys" (required json_arg) ~doc:"JSON TagKeyList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.untag_resource
           (Values.UntagResourceRequest.make ~resourceARN
              ~tagKeys:(Values.TagKeyList.of_json tagKeys) ())
           (Some Values.UntagResourceResponse.to_json)
           (Some Values.UntagResourceResponse.error_to_json)])
let update_i_p_set =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and addresses =
         flag "addresses" (required json_arg) ~doc:"JSON IPAddresses"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_i_p_set
           (Values.UpdateIPSetRequest.make ?description ~name
              ~scope:(Values.Scope.of_json scope) ~id
              ~addresses:(Values.IPAddresses.of_json addresses) ~lockToken ())
           (Some Values.UpdateIPSetResponse.to_json)
           (Some Values.UpdateIPSetResponse.error_to_json)])
let update_managed_rule_set_version_expiry_date =
  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 name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken"
       and versionToExpire =
         flag "version-to-expire" (required string)
           ~doc:"STRING VersionKeyString"
       and expiryTimestamp =
         flag "expiry-timestamp" (required json_arg) ~doc:"JSON Timestamp" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_managed_rule_set_version_expiry_date
           (Values.UpdateManagedRuleSetVersionExpiryDateRequest.make ~name
              ~scope:(Values.Scope.of_json scope) ~id ~lockToken
              ~versionToExpire
              ~expiryTimestamp:(Values.Timestamp.of_json expiryTimestamp) ())
           (Some Values.UpdateManagedRuleSetVersionExpiryDateResponse.to_json)
           (Some
              Values.UpdateManagedRuleSetVersionExpiryDateResponse.error_to_json)])
let update_regex_pattern_set =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and regularExpressionList =
         flag "regular-expression-list" (required json_arg)
           ~doc:"JSON RegularExpressionList"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_regex_pattern_set
           (Values.UpdateRegexPatternSetRequest.make ?description ~name
              ~scope:(Values.Scope.of_json scope) ~id
              ~regularExpressionList:(Values.RegularExpressionList.of_json
                                        regularExpressionList) ~lockToken ())
           (Some Values.UpdateRegexPatternSetResponse.to_json)
           (Some Values.UpdateRegexPatternSetResponse.error_to_json)])
let update_rule_group =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and rules = flag "rules" (optional json_arg) ~doc:"JSON Rules"
       and customResponseBodies =
         flag "custom-response-bodies" (optional json_arg)
           ~doc:"JSON CustomResponseBodies"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and visibilityConfig =
         flag "visibility-config" (required json_arg)
           ~doc:"JSON VisibilityConfig"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_rule_group
           (Values.UpdateRuleGroupRequest.make ?description
              ?rules:(Option.map ~f:Values.Rules.of_json rules)
              ?customResponseBodies:(Option.map
                                       ~f:Values.CustomResponseBodies.of_json
                                       customResponseBodies) ~name
              ~scope:(Values.Scope.of_json scope) ~id
              ~visibilityConfig:(Values.VisibilityConfig.of_json
                                   visibilityConfig) ~lockToken ())
           (Some Values.UpdateRuleGroupResponse.to_json)
           (Some Values.UpdateRuleGroupResponse.error_to_json)])
let update_web_a_c_l =
  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 description =
         flag "description" (optional string) ~doc:"STRING EntityDescription"
       and rules = flag "rules" (optional json_arg) ~doc:"JSON Rules"
       and dataProtectionConfig =
         flag "data-protection-config" (optional json_arg)
           ~doc:"JSON DataProtectionConfig"
       and customResponseBodies =
         flag "custom-response-bodies" (optional json_arg)
           ~doc:"JSON CustomResponseBodies"
       and captchaConfig =
         flag "captcha-config" (optional json_arg) ~doc:"JSON CaptchaConfig"
       and challengeConfig =
         flag "challenge-config" (optional json_arg)
           ~doc:"JSON ChallengeConfig"
       and tokenDomains =
         flag "token-domains" (optional json_arg) ~doc:"JSON TokenDomains"
       and associationConfig =
         flag "association-config" (optional json_arg)
           ~doc:"JSON AssociationConfig"
       and onSourceDDoSProtectionConfig =
         flag "on-source-d-do-s-protection-config" (optional json_arg)
           ~doc:"JSON OnSourceDDoSProtectionConfig"
       and applicationConfig =
         flag "application-config" (optional json_arg)
           ~doc:"JSON ApplicationConfig"
       and name = flag "name" (required string) ~doc:"STRING EntityName"
       and scope = flag "scope" (required json_arg) ~doc:"JSON Scope"
       and id = flag "id" (required string) ~doc:"STRING EntityId"
       and defaultAction =
         flag "default-action" (required json_arg) ~doc:"JSON DefaultAction"
       and visibilityConfig =
         flag "visibility-config" (required json_arg)
           ~doc:"JSON VisibilityConfig"
       and lockToken =
         flag "lock-token" (required string) ~doc:"STRING LockToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_web_a_c_l
           (Values.UpdateWebACLRequest.make ?description
              ?rules:(Option.map ~f:Values.Rules.of_json rules)
              ?dataProtectionConfig:(Option.map
                                       ~f:Values.DataProtectionConfig.of_json
                                       dataProtectionConfig)
              ?customResponseBodies:(Option.map
                                       ~f:Values.CustomResponseBodies.of_json
                                       customResponseBodies)
              ?captchaConfig:(Option.map ~f:Values.CaptchaConfig.of_json
                                captchaConfig)
              ?challengeConfig:(Option.map ~f:Values.ChallengeConfig.of_json
                                  challengeConfig)
              ?tokenDomains:(Option.map ~f:Values.TokenDomains.of_json
                               tokenDomains)
              ?associationConfig:(Option.map
                                    ~f:Values.AssociationConfig.of_json
                                    associationConfig)
              ?onSourceDDoSProtectionConfig:(Option.map
                                               ~f:Values.OnSourceDDoSProtectionConfig.of_json
                                               onSourceDDoSProtectionConfig)
              ?applicationConfig:(Option.map
                                    ~f:Values.ApplicationConfig.of_json
                                    applicationConfig) ~name
              ~scope:(Values.Scope.of_json scope) ~id
              ~defaultAction:(Values.DefaultAction.of_json defaultAction)
              ~visibilityConfig:(Values.VisibilityConfig.of_json
                                   visibilityConfig) ~lockToken ())
           (Some Values.UpdateWebACLResponse.to_json)
           (Some Values.UpdateWebACLResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("associate-web-a-c-l", associate_web_a_c_l);
    ("check-capacity", check_capacity);
    ("create-a-p-i-key", create_a_p_i_key);
    ("create-i-p-set", create_i_p_set);
    ("create-regex-pattern-set", create_regex_pattern_set);
    ("create-rule-group", create_rule_group);
    ("create-web-a-c-l", create_web_a_c_l);
    ("delete-a-p-i-key", delete_a_p_i_key);
    ("delete-firewall-manager-rule-groups",
      delete_firewall_manager_rule_groups);
    ("delete-i-p-set", delete_i_p_set);
    ("delete-logging-configuration", delete_logging_configuration);
    ("delete-permission-policy", delete_permission_policy);
    ("delete-regex-pattern-set", delete_regex_pattern_set);
    ("delete-rule-group", delete_rule_group);
    ("delete-web-a-c-l", delete_web_a_c_l);
    ("describe-all-managed-products", describe_all_managed_products);
    ("describe-managed-products-by-vendor",
      describe_managed_products_by_vendor);
    ("describe-managed-rule-group", describe_managed_rule_group);
    ("disassociate-web-a-c-l", disassociate_web_a_c_l);
    ("generate-mobile-sdk-release-url", generate_mobile_sdk_release_url);
    ("get-decrypted-a-p-i-key", get_decrypted_a_p_i_key);
    ("get-i-p-set", get_i_p_set);
    ("get-logging-configuration", get_logging_configuration);
    ("get-managed-rule-set", get_managed_rule_set);
    ("get-mobile-sdk-release", get_mobile_sdk_release);
    ("get-permission-policy", get_permission_policy);
    ("get-rate-based-statement-managed-keys",
      get_rate_based_statement_managed_keys);
    ("get-regex-pattern-set", get_regex_pattern_set);
    ("get-rule-group", get_rule_group);
    ("get-sampled-requests", get_sampled_requests);
    ("get-top-path-statistics-by-traffic",
      get_top_path_statistics_by_traffic);
    ("get-web-a-c-l", get_web_a_c_l);
    ("get-web-a-c-l-for-resource", get_web_a_c_l_for_resource);
    ("list-a-p-i-keys", list_a_p_i_keys);
    ("list-available-managed-rule-group-versions",
      list_available_managed_rule_group_versions);
    ("list-available-managed-rule-groups",
      list_available_managed_rule_groups);
    ("list-i-p-sets", list_i_p_sets);
    ("list-logging-configurations", list_logging_configurations);
    ("list-managed-rule-sets", list_managed_rule_sets);
    ("list-mobile-sdk-releases", list_mobile_sdk_releases);
    ("list-regex-pattern-sets", list_regex_pattern_sets);
    ("list-resources-for-web-a-c-l", list_resources_for_web_a_c_l);
    ("list-rule-groups", list_rule_groups);
    ("list-tags-for-resource", list_tags_for_resource);
    ("list-web-a-c-ls", list_web_a_c_ls);
    ("put-logging-configuration", put_logging_configuration);
    ("put-managed-rule-set-versions", put_managed_rule_set_versions);
    ("put-permission-policy", put_permission_policy);
    ("tag-resource", tag_resource);
    ("untag-resource", untag_resource);
    ("update-i-p-set", update_i_p_set);
    ("update-managed-rule-set-version-expiry-date",
      update_managed_rule_set_version_expiry_date);
    ("update-regex-pattern-set", update_regex_pattern_set);
    ("update-rule-group", update_rule_group);
    ("update-web-a-c-l", update_web_a_c_l)]