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 accept_invitation =
  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 administratorAccountId =
         flag "administrator-account-id" (optional string)
           ~doc:"STRING __string"
       and masterAccount =
         flag "master-account" (optional string) ~doc:"STRING __string"
       and invitationId =
         flag "invitation-id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.accept_invitation
           (Values.AcceptInvitationRequest.make ?administratorAccountId
              ?masterAccount ~invitationId ())
           (Some Values.AcceptInvitationResponse.to_json)
           (Some Values.AcceptInvitationResponse.error_to_json)])
let batch_get_custom_data_identifiers =
  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 ids = flag "ids" (optional json_arg) ~doc:"JSON __listOf__string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.batch_get_custom_data_identifiers
           (Values.BatchGetCustomDataIdentifiersRequest.make
              ?ids:(Option.map ~f:Values.Zz__listOf__string.of_json ids) ())
           (Some Values.BatchGetCustomDataIdentifiersResponse.to_json)
           (Some Values.BatchGetCustomDataIdentifiersResponse.error_to_json)])
let batch_update_automated_discovery_accounts =
  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 accounts =
         flag "accounts" (optional json_arg)
           ~doc:"JSON __listOfAutomatedDiscoveryAccountUpdate" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.batch_update_automated_discovery_accounts
           (Values.BatchUpdateAutomatedDiscoveryAccountsRequest.make
              ?accounts:(Option.map
                           ~f:Values.Zz__listOfAutomatedDiscoveryAccountUpdate.of_json
                           accounts) ())
           (Some Values.BatchUpdateAutomatedDiscoveryAccountsResponse.to_json)
           (Some
              Values.BatchUpdateAutomatedDiscoveryAccountsResponse.error_to_json)])
let create_allow_list =
  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 __stringMin1Max512PatternSS"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagMap"
       and clientToken =
         flag "client-token" (required string) ~doc:"STRING __string"
       and criteria =
         flag "criteria" (required json_arg) ~doc:"JSON AllowListCriteria"
       and name =
         flag "name" (required string)
           ~doc:"STRING __stringMin1Max128Pattern" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_allow_list
           (Values.CreateAllowListRequest.make ?description
              ?tags:(Option.map ~f:Values.TagMap.of_json tags) ~clientToken
              ~criteria:(Values.AllowListCriteria.of_json criteria) ~name ())
           (Some Values.CreateAllowListResponse.to_json)
           (Some Values.CreateAllowListResponse.error_to_json)])
let create_classification_job =
  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 allowListIds =
         flag "allow-list-ids" (optional json_arg)
           ~doc:"JSON __listOf__string"
       and customDataIdentifierIds =
         flag "custom-data-identifier-ids" (optional json_arg)
           ~doc:"JSON __listOf__string"
       and description =
         flag "description" (optional string) ~doc:"STRING __string"
       and initialRun =
         flag "initial-run" (optional bool) ~doc:"BOOL __boolean"
       and managedDataIdentifierIds =
         flag "managed-data-identifier-ids" (optional json_arg)
           ~doc:"JSON __listOf__string"
       and managedDataIdentifierSelector =
         flag "managed-data-identifier-selector" (optional json_arg)
           ~doc:"JSON ManagedDataIdentifierSelector"
       and samplingPercentage =
         flag "sampling-percentage" (optional int) ~doc:"INT __integer"
       and scheduleFrequency =
         flag "schedule-frequency" (optional json_arg)
           ~doc:"JSON JobScheduleFrequency"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagMap"
       and clientToken =
         flag "client-token" (required string) ~doc:"STRING __string"
       and jobType = flag "job-type" (required json_arg) ~doc:"JSON JobType"
       and name = flag "name" (required string) ~doc:"STRING __string"
       and s3JobDefinition =
         flag "s3-job-definition" (required json_arg)
           ~doc:"JSON S3JobDefinition" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_classification_job
           (Values.CreateClassificationJobRequest.make
              ?allowListIds:(Option.map ~f:Values.Zz__listOf__string.of_json
                               allowListIds)
              ?customDataIdentifierIds:(Option.map
                                          ~f:Values.Zz__listOf__string.of_json
                                          customDataIdentifierIds)
              ?description ?initialRun
              ?managedDataIdentifierIds:(Option.map
                                           ~f:Values.Zz__listOf__string.of_json
                                           managedDataIdentifierIds)
              ?managedDataIdentifierSelector:(Option.map
                                                ~f:Values.ManagedDataIdentifierSelector.of_json
                                                managedDataIdentifierSelector)
              ?samplingPercentage
              ?scheduleFrequency:(Option.map
                                    ~f:Values.JobScheduleFrequency.of_json
                                    scheduleFrequency)
              ?tags:(Option.map ~f:Values.TagMap.of_json tags) ~clientToken
              ~jobType:(Values.JobType.of_json jobType) ~name
              ~s3JobDefinition:(Values.S3JobDefinition.of_json
                                  s3JobDefinition) ())
           (Some Values.CreateClassificationJobResponse.to_json)
           (Some Values.CreateClassificationJobResponse.error_to_json)])
let create_custom_data_identifier =
  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 clientToken =
         flag "client-token" (optional string) ~doc:"STRING __string"
       and description =
         flag "description" (optional string) ~doc:"STRING __string"
       and ignoreWords =
         flag "ignore-words" (optional json_arg) ~doc:"JSON __listOf__string"
       and keywords =
         flag "keywords" (optional json_arg) ~doc:"JSON __listOf__string"
       and maximumMatchDistance =
         flag "maximum-match-distance" (optional int) ~doc:"INT __integer"
       and severityLevels =
         flag "severity-levels" (optional json_arg)
           ~doc:"JSON SeverityLevelList"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagMap"
       and name = flag "name" (required string) ~doc:"STRING __string"
       and regex = flag "regex" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_custom_data_identifier
           (Values.CreateCustomDataIdentifierRequest.make ?clientToken
              ?description
              ?ignoreWords:(Option.map ~f:Values.Zz__listOf__string.of_json
                              ignoreWords)
              ?keywords:(Option.map ~f:Values.Zz__listOf__string.of_json
                           keywords) ?maximumMatchDistance
              ?severityLevels:(Option.map ~f:Values.SeverityLevelList.of_json
                                 severityLevels)
              ?tags:(Option.map ~f:Values.TagMap.of_json tags) ~name ~regex
              ()) (Some Values.CreateCustomDataIdentifierResponse.to_json)
           (Some Values.CreateCustomDataIdentifierResponse.error_to_json)])
let create_findings_filter =
  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 clientToken =
         flag "client-token" (optional string) ~doc:"STRING __string"
       and description =
         flag "description" (optional string) ~doc:"STRING __string"
       and position = flag "position" (optional int) ~doc:"INT __integer"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagMap"
       and action =
         flag "action" (required json_arg) ~doc:"JSON FindingsFilterAction"
       and findingCriteria =
         flag "finding-criteria" (required json_arg)
           ~doc:"JSON FindingCriteria"
       and name = flag "name" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_findings_filter
           (Values.CreateFindingsFilterRequest.make ?clientToken ?description
              ?position ?tags:(Option.map ~f:Values.TagMap.of_json tags)
              ~action:(Values.FindingsFilterAction.of_json action)
              ~findingCriteria:(Values.FindingCriteria.of_json
                                  findingCriteria) ~name ())
           (Some Values.CreateFindingsFilterResponse.to_json)
           (Some Values.CreateFindingsFilterResponse.error_to_json)])
let create_invitations =
  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 disableEmailNotification =
         flag "disable-email-notification" (optional bool)
           ~doc:"BOOL __boolean"
       and message = flag "message" (optional string) ~doc:"STRING __string"
       and accountIds =
         flag "account-ids" (required json_arg) ~doc:"JSON __listOf__string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_invitations
           (Values.CreateInvitationsRequest.make ?disableEmailNotification
              ?message
              ~accountIds:(Values.Zz__listOf__string.of_json accountIds) ())
           (Some Values.CreateInvitationsResponse.to_json)
           (Some Values.CreateInvitationsResponse.error_to_json)])
let create_member =
  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 tags = flag "tags" (optional json_arg) ~doc:"JSON TagMap"
       and account =
         flag "account" (required json_arg) ~doc:"JSON AccountDetail" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_member
           (Values.CreateMemberRequest.make
              ?tags:(Option.map ~f:Values.TagMap.of_json tags)
              ~account:(Values.AccountDetail.of_json account) ())
           (Some Values.CreateMemberResponse.to_json)
           (Some Values.CreateMemberResponse.error_to_json)])
let create_sample_findings =
  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 findingTypes =
         flag "finding-types" (optional json_arg)
           ~doc:"JSON __listOfFindingType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_sample_findings
           (Values.CreateSampleFindingsRequest.make
              ?findingTypes:(Option.map
                               ~f:Values.Zz__listOfFindingType.of_json
                               findingTypes) ())
           (Some Values.CreateSampleFindingsResponse.to_json)
           (Some Values.CreateSampleFindingsResponse.error_to_json)])
let decline_invitations =
  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 accountIds =
         flag "account-ids" (required json_arg) ~doc:"JSON __listOf__string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.decline_invitations
           (Values.DeclineInvitationsRequest.make
              ~accountIds:(Values.Zz__listOf__string.of_json accountIds) ())
           (Some Values.DeclineInvitationsResponse.to_json)
           (Some Values.DeclineInvitationsResponse.error_to_json)])
let delete_allow_list =
  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 ignoreJobChecks =
         flag "ignore-job-checks" (optional string) ~doc:"STRING __string"
       and id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_allow_list
           (Values.DeleteAllowListRequest.make ?ignoreJobChecks ~id ())
           (Some Values.DeleteAllowListResponse.to_json)
           (Some Values.DeleteAllowListResponse.error_to_json)])
let delete_custom_data_identifier =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_custom_data_identifier
           (Values.DeleteCustomDataIdentifierRequest.make ~id ())
           (Some Values.DeleteCustomDataIdentifierResponse.to_json)
           (Some Values.DeleteCustomDataIdentifierResponse.error_to_json)])
let delete_findings_filter =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_findings_filter
           (Values.DeleteFindingsFilterRequest.make ~id ())
           (Some Values.DeleteFindingsFilterResponse.to_json)
           (Some Values.DeleteFindingsFilterResponse.error_to_json)])
let delete_invitations =
  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 accountIds =
         flag "account-ids" (required json_arg) ~doc:"JSON __listOf__string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_invitations
           (Values.DeleteInvitationsRequest.make
              ~accountIds:(Values.Zz__listOf__string.of_json accountIds) ())
           (Some Values.DeleteInvitationsResponse.to_json)
           (Some Values.DeleteInvitationsResponse.error_to_json)])
let delete_member =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_member (Values.DeleteMemberRequest.make ~id ())
           (Some Values.DeleteMemberResponse.to_json)
           (Some Values.DeleteMemberResponse.error_to_json)])
let describe_buckets =
  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 criteria =
         flag "criteria" (optional json_arg) ~doc:"JSON BucketCriteria"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT __integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and sortCriteria =
         flag "sort-criteria" (optional json_arg)
           ~doc:"JSON BucketSortCriteria" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_buckets
           (Values.DescribeBucketsRequest.make
              ?criteria:(Option.map ~f:Values.BucketCriteria.of_json criteria)
              ?maxResults ?nextToken
              ?sortCriteria:(Option.map ~f:Values.BucketSortCriteria.of_json
                               sortCriteria) ())
           (Some Values.DescribeBucketsResponse.to_json)
           (Some Values.DescribeBucketsResponse.error_to_json)])
let describe_classification_job =
  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 jobId = flag "job-id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_classification_job
           (Values.DescribeClassificationJobRequest.make ~jobId ())
           (Some Values.DescribeClassificationJobResponse.to_json)
           (Some Values.DescribeClassificationJobResponse.error_to_json)])
let describe_organization_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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_organization_configuration
           (Values.DescribeOrganizationConfigurationRequest.make ())
           (Some Values.DescribeOrganizationConfigurationResponse.to_json)
           (Some
              Values.DescribeOrganizationConfigurationResponse.error_to_json)])
let disable_macie =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disable_macie (Values.DisableMacieRequest.make ())
           (Some Values.DisableMacieResponse.to_json)
           (Some Values.DisableMacieResponse.error_to_json)])
let disable_organization_admin_account =
  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 adminAccountId =
         flag "admin-account-id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disable_organization_admin_account
           (Values.DisableOrganizationAdminAccountRequest.make
              ~adminAccountId ())
           (Some Values.DisableOrganizationAdminAccountResponse.to_json)
           (Some Values.DisableOrganizationAdminAccountResponse.error_to_json)])
let disassociate_from_administrator_account =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disassociate_from_administrator_account
           (Values.DisassociateFromAdministratorAccountRequest.make ())
           (Some Values.DisassociateFromAdministratorAccountResponse.to_json)
           (Some
              Values.DisassociateFromAdministratorAccountResponse.error_to_json)])
let disassociate_from_master_account =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disassociate_from_master_account
           (Values.DisassociateFromMasterAccountRequest.make ())
           (Some Values.DisassociateFromMasterAccountResponse.to_json)
           (Some Values.DisassociateFromMasterAccountResponse.error_to_json)])
let disassociate_member =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disassociate_member
           (Values.DisassociateMemberRequest.make ~id ())
           (Some Values.DisassociateMemberResponse.to_json)
           (Some Values.DisassociateMemberResponse.error_to_json)])
let enable_macie =
  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 clientToken =
         flag "client-token" (optional string) ~doc:"STRING __string"
       and findingPublishingFrequency =
         flag "finding-publishing-frequency" (optional json_arg)
           ~doc:"JSON FindingPublishingFrequency"
       and status = flag "status" (optional json_arg) ~doc:"JSON MacieStatus" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.enable_macie
           (Values.EnableMacieRequest.make ?clientToken
              ?findingPublishingFrequency:(Option.map
                                             ~f:Values.FindingPublishingFrequency.of_json
                                             findingPublishingFrequency)
              ?status:(Option.map ~f:Values.MacieStatus.of_json status) ())
           (Some Values.EnableMacieResponse.to_json)
           (Some Values.EnableMacieResponse.error_to_json)])
let enable_organization_admin_account =
  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 clientToken =
         flag "client-token" (optional string) ~doc:"STRING __string"
       and adminAccountId =
         flag "admin-account-id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.enable_organization_admin_account
           (Values.EnableOrganizationAdminAccountRequest.make ?clientToken
              ~adminAccountId ())
           (Some Values.EnableOrganizationAdminAccountResponse.to_json)
           (Some Values.EnableOrganizationAdminAccountResponse.error_to_json)])
let get_administrator_account =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_administrator_account
           (Values.GetAdministratorAccountRequest.make ())
           (Some Values.GetAdministratorAccountResponse.to_json)
           (Some Values.GetAdministratorAccountResponse.error_to_json)])
let get_allow_list =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_allow_list (Values.GetAllowListRequest.make ~id ())
           (Some Values.GetAllowListResponse.to_json)
           (Some Values.GetAllowListResponse.error_to_json)])
let get_automated_discovery_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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_automated_discovery_configuration
           (Values.GetAutomatedDiscoveryConfigurationRequest.make ())
           (Some Values.GetAutomatedDiscoveryConfigurationResponse.to_json)
           (Some
              Values.GetAutomatedDiscoveryConfigurationResponse.error_to_json)])
let get_bucket_statistics =
  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 accountId =
         flag "account-id" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_bucket_statistics
           (Values.GetBucketStatisticsRequest.make ?accountId ())
           (Some Values.GetBucketStatisticsResponse.to_json)
           (Some Values.GetBucketStatisticsResponse.error_to_json)])
let get_classification_export_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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_classification_export_configuration
           (Values.GetClassificationExportConfigurationRequest.make ())
           (Some Values.GetClassificationExportConfigurationResponse.to_json)
           (Some
              Values.GetClassificationExportConfigurationResponse.error_to_json)])
let get_classification_scope =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_classification_scope
           (Values.GetClassificationScopeRequest.make ~id ())
           (Some Values.GetClassificationScopeResponse.to_json)
           (Some Values.GetClassificationScopeResponse.error_to_json)])
let get_custom_data_identifier =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_custom_data_identifier
           (Values.GetCustomDataIdentifierRequest.make ~id ())
           (Some Values.GetCustomDataIdentifierResponse.to_json)
           (Some Values.GetCustomDataIdentifierResponse.error_to_json)])
let get_finding_statistics =
  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 findingCriteria =
         flag "finding-criteria" (optional json_arg)
           ~doc:"JSON FindingCriteria"
       and size = flag "size" (optional int) ~doc:"INT __integer"
       and sortCriteria =
         flag "sort-criteria" (optional json_arg)
           ~doc:"JSON FindingStatisticsSortCriteria"
       and groupBy = flag "group-by" (required json_arg) ~doc:"JSON GroupBy" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_finding_statistics
           (Values.GetFindingStatisticsRequest.make
              ?findingCriteria:(Option.map ~f:Values.FindingCriteria.of_json
                                  findingCriteria) ?size
              ?sortCriteria:(Option.map
                               ~f:Values.FindingStatisticsSortCriteria.of_json
                               sortCriteria)
              ~groupBy:(Values.GroupBy.of_json groupBy) ())
           (Some Values.GetFindingStatisticsResponse.to_json)
           (Some Values.GetFindingStatisticsResponse.error_to_json)])
let get_findings =
  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 sortCriteria =
         flag "sort-criteria" (optional json_arg) ~doc:"JSON SortCriteria"
       and findingIds =
         flag "finding-ids" (required json_arg) ~doc:"JSON __listOf__string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_findings
           (Values.GetFindingsRequest.make
              ?sortCriteria:(Option.map ~f:Values.SortCriteria.of_json
                               sortCriteria)
              ~findingIds:(Values.Zz__listOf__string.of_json findingIds) ())
           (Some Values.GetFindingsResponse.to_json)
           (Some Values.GetFindingsResponse.error_to_json)])
let get_findings_filter =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_findings_filter
           (Values.GetFindingsFilterRequest.make ~id ())
           (Some Values.GetFindingsFilterResponse.to_json)
           (Some Values.GetFindingsFilterResponse.error_to_json)])
let get_findings_publication_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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_findings_publication_configuration
           (Values.GetFindingsPublicationConfigurationRequest.make ())
           (Some Values.GetFindingsPublicationConfigurationResponse.to_json)
           (Some
              Values.GetFindingsPublicationConfigurationResponse.error_to_json)])
let get_invitations_count =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_invitations_count
           (Values.GetInvitationsCountRequest.make ())
           (Some Values.GetInvitationsCountResponse.to_json)
           (Some Values.GetInvitationsCountResponse.error_to_json)])
let get_macie_session =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_macie_session (Values.GetMacieSessionRequest.make ())
           (Some Values.GetMacieSessionResponse.to_json)
           (Some Values.GetMacieSessionResponse.error_to_json)])
let get_master_account =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_master_account (Values.GetMasterAccountRequest.make ())
           (Some Values.GetMasterAccountResponse.to_json)
           (Some Values.GetMasterAccountResponse.error_to_json)])
let get_member =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_member (Values.GetMemberRequest.make ~id ())
           (Some Values.GetMemberResponse.to_json)
           (Some Values.GetMemberResponse.error_to_json)])
let get_resource_profile =
  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 __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_profile
           (Values.GetResourceProfileRequest.make ~resourceArn ())
           (Some Values.GetResourceProfileResponse.to_json)
           (Some Values.GetResourceProfileResponse.error_to_json)])
let get_reveal_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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_reveal_configuration
           (Values.GetRevealConfigurationRequest.make ())
           (Some Values.GetRevealConfigurationResponse.to_json)
           (Some Values.GetRevealConfigurationResponse.error_to_json)])
let get_sensitive_data_occurrences =
  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 findingId =
         flag "finding-id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_sensitive_data_occurrences
           (Values.GetSensitiveDataOccurrencesRequest.make ~findingId ())
           (Some Values.GetSensitiveDataOccurrencesResponse.to_json)
           (Some Values.GetSensitiveDataOccurrencesResponse.error_to_json)])
let get_sensitive_data_occurrences_availability =
  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 findingId =
         flag "finding-id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_sensitive_data_occurrences_availability
           (Values.GetSensitiveDataOccurrencesAvailabilityRequest.make
              ~findingId ())
           (Some
              Values.GetSensitiveDataOccurrencesAvailabilityResponse.to_json)
           (Some
              Values.GetSensitiveDataOccurrencesAvailabilityResponse.error_to_json)])
let get_sensitivity_inspection_template =
  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 id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_sensitivity_inspection_template
           (Values.GetSensitivityInspectionTemplateRequest.make ~id ())
           (Some Values.GetSensitivityInspectionTemplateResponse.to_json)
           (Some
              Values.GetSensitivityInspectionTemplateResponse.error_to_json)])
let get_usage_statistics =
  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 filterBy =
         flag "filter-by" (optional json_arg)
           ~doc:"JSON __listOfUsageStatisticsFilter"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT __integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and sortBy =
         flag "sort-by" (optional json_arg) ~doc:"JSON UsageStatisticsSortBy"
       and timeRange =
         flag "time-range" (optional json_arg) ~doc:"JSON TimeRange" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_usage_statistics
           (Values.GetUsageStatisticsRequest.make
              ?filterBy:(Option.map
                           ~f:Values.Zz__listOfUsageStatisticsFilter.of_json
                           filterBy) ?maxResults ?nextToken
              ?sortBy:(Option.map ~f:Values.UsageStatisticsSortBy.of_json
                         sortBy)
              ?timeRange:(Option.map ~f:Values.TimeRange.of_json timeRange)
              ()) (Some Values.GetUsageStatisticsResponse.to_json)
           (Some Values.GetUsageStatisticsResponse.error_to_json)])
let get_usage_totals =
  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 timeRange =
         flag "time-range" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_usage_totals
           (Values.GetUsageTotalsRequest.make ?timeRange ())
           (Some Values.GetUsageTotalsResponse.to_json)
           (Some Values.GetUsageTotalsResponse.error_to_json)])
let list_allow_lists =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_allow_lists
           (Values.ListAllowListsRequest.make ?maxResults ?nextToken ())
           (Some Values.ListAllowListsResponse.to_json)
           (Some Values.ListAllowListsResponse.error_to_json)])
let list_automated_discovery_accounts =
  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 accountIds =
         flag "account-ids" (optional json_arg) ~doc:"JSON __listOf__string"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_automated_discovery_accounts
           (Values.ListAutomatedDiscoveryAccountsRequest.make
              ?accountIds:(Option.map ~f:Values.Zz__listOf__string.of_json
                             accountIds) ?maxResults ?nextToken ())
           (Some Values.ListAutomatedDiscoveryAccountsResponse.to_json)
           (Some Values.ListAutomatedDiscoveryAccountsResponse.error_to_json)])
let list_classification_jobs =
  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 filterCriteria =
         flag "filter-criteria" (optional json_arg)
           ~doc:"JSON ListJobsFilterCriteria"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT __integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and sortCriteria =
         flag "sort-criteria" (optional json_arg)
           ~doc:"JSON ListJobsSortCriteria" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_classification_jobs
           (Values.ListClassificationJobsRequest.make
              ?filterCriteria:(Option.map
                                 ~f:Values.ListJobsFilterCriteria.of_json
                                 filterCriteria) ?maxResults ?nextToken
              ?sortCriteria:(Option.map
                               ~f:Values.ListJobsSortCriteria.of_json
                               sortCriteria) ())
           (Some Values.ListClassificationJobsResponse.to_json)
           (Some Values.ListClassificationJobsResponse.error_to_json)])
let list_classification_scopes =
  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 __string"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_classification_scopes
           (Values.ListClassificationScopesRequest.make ?name ?nextToken ())
           (Some Values.ListClassificationScopesResponse.to_json)
           (Some Values.ListClassificationScopesResponse.error_to_json)])
let list_custom_data_identifiers =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT __integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_custom_data_identifiers
           (Values.ListCustomDataIdentifiersRequest.make ?maxResults
              ?nextToken ())
           (Some Values.ListCustomDataIdentifiersResponse.to_json)
           (Some Values.ListCustomDataIdentifiersResponse.error_to_json)])
let list_findings =
  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 findingCriteria =
         flag "finding-criteria" (optional json_arg)
           ~doc:"JSON FindingCriteria"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT __integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and sortCriteria =
         flag "sort-criteria" (optional json_arg) ~doc:"JSON SortCriteria" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_findings
           (Values.ListFindingsRequest.make
              ?findingCriteria:(Option.map ~f:Values.FindingCriteria.of_json
                                  findingCriteria) ?maxResults ?nextToken
              ?sortCriteria:(Option.map ~f:Values.SortCriteria.of_json
                               sortCriteria) ())
           (Some Values.ListFindingsResponse.to_json)
           (Some Values.ListFindingsResponse.error_to_json)])
let list_findings_filters =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_findings_filters
           (Values.ListFindingsFiltersRequest.make ?maxResults ?nextToken ())
           (Some Values.ListFindingsFiltersResponse.to_json)
           (Some Values.ListFindingsFiltersResponse.error_to_json)])
let list_invitations =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_invitations
           (Values.ListInvitationsRequest.make ?maxResults ?nextToken ())
           (Some Values.ListInvitationsResponse.to_json)
           (Some Values.ListInvitationsResponse.error_to_json)])
let list_managed_data_identifiers =
  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 nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_managed_data_identifiers
           (Values.ListManagedDataIdentifiersRequest.make ?nextToken ())
           (Some Values.ListManagedDataIdentifiersResponse.to_json)
           (Some Values.ListManagedDataIdentifiersResponse.error_to_json)])
let list_members =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and onlyAssociated =
         flag "only-associated" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_members
           (Values.ListMembersRequest.make ?maxResults ?nextToken
              ?onlyAssociated ()) (Some Values.ListMembersResponse.to_json)
           (Some Values.ListMembersResponse.error_to_json)])
let list_organization_admin_accounts =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_organization_admin_accounts
           (Values.ListOrganizationAdminAccountsRequest.make ?maxResults
              ?nextToken ())
           (Some Values.ListOrganizationAdminAccountsResponse.to_json)
           (Some Values.ListOrganizationAdminAccountsResponse.error_to_json)])
let list_resource_profile_artifacts =
  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 nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_resource_profile_artifacts
           (Values.ListResourceProfileArtifactsRequest.make ?nextToken
              ~resourceArn ())
           (Some Values.ListResourceProfileArtifactsResponse.to_json)
           (Some Values.ListResourceProfileArtifactsResponse.error_to_json)])
let list_resource_profile_detections =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_resource_profile_detections
           (Values.ListResourceProfileDetectionsRequest.make ?maxResults
              ?nextToken ~resourceArn ())
           (Some Values.ListResourceProfileDetectionsResponse.to_json)
           (Some Values.ListResourceProfileDetectionsResponse.error_to_json)])
let list_sensitivity_inspection_templates =
  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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_sensitivity_inspection_templates
           (Values.ListSensitivityInspectionTemplatesRequest.make ?maxResults
              ?nextToken ())
           (Some Values.ListSensitivityInspectionTemplatesResponse.to_json)
           (Some
              Values.ListSensitivityInspectionTemplatesResponse.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 resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_tags_for_resource
           (Values.ListTagsForResourceRequest.make ~resourceArn ())
           (Some Values.ListTagsForResourceResponse.to_json)
           (Some Values.ListTagsForResourceResponse.error_to_json)])
let put_classification_export_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 configuration =
         flag "configuration" (required json_arg)
           ~doc:"JSON ClassificationExportConfiguration" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_classification_export_configuration
           (Values.PutClassificationExportConfigurationRequest.make
              ~configuration:(Values.ClassificationExportConfiguration.of_json
                                configuration) ())
           (Some Values.PutClassificationExportConfigurationResponse.to_json)
           (Some
              Values.PutClassificationExportConfigurationResponse.error_to_json)])
let put_findings_publication_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 clientToken =
         flag "client-token" (optional string) ~doc:"STRING __string"
       and securityHubConfiguration =
         flag "security-hub-configuration" (optional json_arg)
           ~doc:"JSON SecurityHubConfiguration" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_findings_publication_configuration
           (Values.PutFindingsPublicationConfigurationRequest.make
              ?clientToken
              ?securityHubConfiguration:(Option.map
                                           ~f:Values.SecurityHubConfiguration.of_json
                                           securityHubConfiguration) ())
           (Some Values.PutFindingsPublicationConfigurationResponse.to_json)
           (Some
              Values.PutFindingsPublicationConfigurationResponse.error_to_json)])
let search_resources =
  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 bucketCriteria =
         flag "bucket-criteria" (optional json_arg)
           ~doc:"JSON SearchResourcesBucketCriteria"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT __integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING __string"
       and sortCriteria =
         flag "sort-criteria" (optional json_arg)
           ~doc:"JSON SearchResourcesSortCriteria" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.search_resources
           (Values.SearchResourcesRequest.make
              ?bucketCriteria:(Option.map
                                 ~f:Values.SearchResourcesBucketCriteria.of_json
                                 bucketCriteria) ?maxResults ?nextToken
              ?sortCriteria:(Option.map
                               ~f:Values.SearchResourcesSortCriteria.of_json
                               sortCriteria) ())
           (Some Values.SearchResourcesResponse.to_json)
           (Some Values.SearchResourcesResponse.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-arn" (required string) ~doc:"STRING __string"
       and tags = flag "tags" (required json_arg) ~doc:"JSON TagMap" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.tag_resource
           (Values.TagResourceRequest.make ~resourceArn
              ~tags:(Values.TagMap.of_json tags) ())
           (Some Values.TagResourceResponse.to_json)
           (Some Values.TagResourceResponse.error_to_json)])
let test_custom_data_identifier =
  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 ignoreWords =
         flag "ignore-words" (optional json_arg) ~doc:"JSON __listOf__string"
       and keywords =
         flag "keywords" (optional json_arg) ~doc:"JSON __listOf__string"
       and maximumMatchDistance =
         flag "maximum-match-distance" (optional int) ~doc:"INT __integer"
       and regex = flag "regex" (required string) ~doc:"STRING __string"
       and sampleText =
         flag "sample-text" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.test_custom_data_identifier
           (Values.TestCustomDataIdentifierRequest.make
              ?ignoreWords:(Option.map ~f:Values.Zz__listOf__string.of_json
                              ignoreWords)
              ?keywords:(Option.map ~f:Values.Zz__listOf__string.of_json
                           keywords) ?maximumMatchDistance ~regex ~sampleText
              ()) (Some Values.TestCustomDataIdentifierResponse.to_json)
           (Some Values.TestCustomDataIdentifierResponse.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-arn" (required string) ~doc:"STRING __string"
       and tagKeys =
         flag "tag-keys" (required json_arg) ~doc:"JSON __listOf__string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.untag_resource
           (Values.UntagResourceRequest.make ~resourceArn
              ~tagKeys:(Values.Zz__listOf__string.of_json tagKeys) ())
           (Some Values.UntagResourceResponse.to_json)
           (Some Values.UntagResourceResponse.error_to_json)])
let update_allow_list =
  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 __stringMin1Max512PatternSS"
       and criteria =
         flag "criteria" (required json_arg) ~doc:"JSON AllowListCriteria"
       and id = flag "id" (required string) ~doc:"STRING __string"
       and name =
         flag "name" (required string)
           ~doc:"STRING __stringMin1Max128Pattern" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_allow_list
           (Values.UpdateAllowListRequest.make ?description
              ~criteria:(Values.AllowListCriteria.of_json criteria) ~id ~name
              ()) (Some Values.UpdateAllowListResponse.to_json)
           (Some Values.UpdateAllowListResponse.error_to_json)])
let update_automated_discovery_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 autoEnableOrganizationMembers =
         flag "auto-enable-organization-members" (optional json_arg)
           ~doc:"JSON AutoEnableMode"
       and status =
         flag "status" (required json_arg)
           ~doc:"JSON AutomatedDiscoveryStatus" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_automated_discovery_configuration
           (Values.UpdateAutomatedDiscoveryConfigurationRequest.make
              ?autoEnableOrganizationMembers:(Option.map
                                                ~f:Values.AutoEnableMode.of_json
                                                autoEnableOrganizationMembers)
              ~status:(Values.AutomatedDiscoveryStatus.of_json status) ())
           (Some Values.UpdateAutomatedDiscoveryConfigurationResponse.to_json)
           (Some
              Values.UpdateAutomatedDiscoveryConfigurationResponse.error_to_json)])
let update_classification_job =
  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 jobId = flag "job-id" (required string) ~doc:"STRING __string"
       and jobStatus =
         flag "job-status" (required json_arg) ~doc:"JSON JobStatus" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_classification_job
           (Values.UpdateClassificationJobRequest.make ~jobId
              ~jobStatus:(Values.JobStatus.of_json jobStatus) ())
           (Some Values.UpdateClassificationJobResponse.to_json)
           (Some Values.UpdateClassificationJobResponse.error_to_json)])
let update_classification_scope =
  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 s3 =
         flag "s3" (optional json_arg)
           ~doc:"JSON S3ClassificationScopeUpdate"
       and id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_classification_scope
           (Values.UpdateClassificationScopeRequest.make
              ?s3:(Option.map ~f:Values.S3ClassificationScopeUpdate.of_json
                     s3) ~id ())
           (Some Values.UpdateClassificationScopeResponse.to_json)
           (Some Values.UpdateClassificationScopeResponse.error_to_json)])
let update_findings_filter =
  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 action =
         flag "action" (optional json_arg) ~doc:"JSON FindingsFilterAction"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING __string"
       and description =
         flag "description" (optional string) ~doc:"STRING __string"
       and findingCriteria =
         flag "finding-criteria" (optional json_arg)
           ~doc:"JSON FindingCriteria"
       and name = flag "name" (optional string) ~doc:"STRING __string"
       and position = flag "position" (optional int) ~doc:"INT __integer"
       and id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_findings_filter
           (Values.UpdateFindingsFilterRequest.make
              ?action:(Option.map ~f:Values.FindingsFilterAction.of_json
                         action) ?clientToken ?description
              ?findingCriteria:(Option.map ~f:Values.FindingCriteria.of_json
                                  findingCriteria) ?name ?position ~id ())
           (Some Values.UpdateFindingsFilterResponse.to_json)
           (Some Values.UpdateFindingsFilterResponse.error_to_json)])
let update_macie_session =
  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 findingPublishingFrequency =
         flag "finding-publishing-frequency" (optional json_arg)
           ~doc:"JSON FindingPublishingFrequency"
       and status = flag "status" (optional json_arg) ~doc:"JSON MacieStatus" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_macie_session
           (Values.UpdateMacieSessionRequest.make
              ?findingPublishingFrequency:(Option.map
                                             ~f:Values.FindingPublishingFrequency.of_json
                                             findingPublishingFrequency)
              ?status:(Option.map ~f:Values.MacieStatus.of_json status) ())
           (Some Values.UpdateMacieSessionResponse.to_json)
           (Some Values.UpdateMacieSessionResponse.error_to_json)])
let update_member_session =
  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 id = flag "id" (required string) ~doc:"STRING __string"
       and status = flag "status" (required json_arg) ~doc:"JSON MacieStatus" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_member_session
           (Values.UpdateMemberSessionRequest.make ~id
              ~status:(Values.MacieStatus.of_json status) ())
           (Some Values.UpdateMemberSessionResponse.to_json)
           (Some Values.UpdateMemberSessionResponse.error_to_json)])
let update_organization_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 autoEnable =
         flag "auto-enable" (required bool) ~doc:"BOOL __boolean" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_organization_configuration
           (Values.UpdateOrganizationConfigurationRequest.make ~autoEnable ())
           (Some Values.UpdateOrganizationConfigurationResponse.to_json)
           (Some Values.UpdateOrganizationConfigurationResponse.error_to_json)])
let update_resource_profile =
  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 sensitivityScoreOverride =
         flag "sensitivity-score-override" (optional int)
           ~doc:"INT __integer"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_resource_profile
           (Values.UpdateResourceProfileRequest.make
              ?sensitivityScoreOverride ~resourceArn ())
           (Some Values.UpdateResourceProfileResponse.to_json)
           (Some Values.UpdateResourceProfileResponse.error_to_json)])
let update_resource_profile_detections =
  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 suppressDataIdentifiers =
         flag "suppress-data-identifiers" (optional json_arg)
           ~doc:"JSON __listOfSuppressDataIdentifier"
       and resourceArn =
         flag "resource-arn" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_resource_profile_detections
           (Values.UpdateResourceProfileDetectionsRequest.make
              ?suppressDataIdentifiers:(Option.map
                                          ~f:Values.Zz__listOfSuppressDataIdentifier.of_json
                                          suppressDataIdentifiers)
              ~resourceArn ())
           (Some Values.UpdateResourceProfileDetectionsResponse.to_json)
           (Some Values.UpdateResourceProfileDetectionsResponse.error_to_json)])
let update_reveal_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 retrievalConfiguration =
         flag "retrieval-configuration" (optional json_arg)
           ~doc:"JSON UpdateRetrievalConfiguration"
       and configuration =
         flag "configuration" (required json_arg)
           ~doc:"JSON RevealConfiguration" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_reveal_configuration
           (Values.UpdateRevealConfigurationRequest.make
              ?retrievalConfiguration:(Option.map
                                         ~f:Values.UpdateRetrievalConfiguration.of_json
                                         retrievalConfiguration)
              ~configuration:(Values.RevealConfiguration.of_json
                                configuration) ())
           (Some Values.UpdateRevealConfigurationResponse.to_json)
           (Some Values.UpdateRevealConfigurationResponse.error_to_json)])
let update_sensitivity_inspection_template =
  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 __string"
       and excludes =
         flag "excludes" (optional json_arg)
           ~doc:"JSON SensitivityInspectionTemplateExcludes"
       and includes =
         flag "includes" (optional json_arg)
           ~doc:"JSON SensitivityInspectionTemplateIncludes"
       and id = flag "id" (required string) ~doc:"STRING __string" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_sensitivity_inspection_template
           (Values.UpdateSensitivityInspectionTemplateRequest.make
              ?description
              ?excludes:(Option.map
                           ~f:Values.SensitivityInspectionTemplateExcludes.of_json
                           excludes)
              ?includes:(Option.map
                           ~f:Values.SensitivityInspectionTemplateIncludes.of_json
                           includes) ~id ())
           (Some Values.UpdateSensitivityInspectionTemplateResponse.to_json)
           (Some
              Values.UpdateSensitivityInspectionTemplateResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("accept-invitation", accept_invitation);
    ("batch-get-custom-data-identifiers", batch_get_custom_data_identifiers);
    ("batch-update-automated-discovery-accounts",
      batch_update_automated_discovery_accounts);
    ("create-allow-list", create_allow_list);
    ("create-classification-job", create_classification_job);
    ("create-custom-data-identifier", create_custom_data_identifier);
    ("create-findings-filter", create_findings_filter);
    ("create-invitations", create_invitations);
    ("create-member", create_member);
    ("create-sample-findings", create_sample_findings);
    ("decline-invitations", decline_invitations);
    ("delete-allow-list", delete_allow_list);
    ("delete-custom-data-identifier", delete_custom_data_identifier);
    ("delete-findings-filter", delete_findings_filter);
    ("delete-invitations", delete_invitations);
    ("delete-member", delete_member);
    ("describe-buckets", describe_buckets);
    ("describe-classification-job", describe_classification_job);
    ("describe-organization-configuration",
      describe_organization_configuration);
    ("disable-macie", disable_macie);
    ("disable-organization-admin-account",
      disable_organization_admin_account);
    ("disassociate-from-administrator-account",
      disassociate_from_administrator_account);
    ("disassociate-from-master-account", disassociate_from_master_account);
    ("disassociate-member", disassociate_member);
    ("enable-macie", enable_macie);
    ("enable-organization-admin-account", enable_organization_admin_account);
    ("get-administrator-account", get_administrator_account);
    ("get-allow-list", get_allow_list);
    ("get-automated-discovery-configuration",
      get_automated_discovery_configuration);
    ("get-bucket-statistics", get_bucket_statistics);
    ("get-classification-export-configuration",
      get_classification_export_configuration);
    ("get-classification-scope", get_classification_scope);
    ("get-custom-data-identifier", get_custom_data_identifier);
    ("get-finding-statistics", get_finding_statistics);
    ("get-findings", get_findings);
    ("get-findings-filter", get_findings_filter);
    ("get-findings-publication-configuration",
      get_findings_publication_configuration);
    ("get-invitations-count", get_invitations_count);
    ("get-macie-session", get_macie_session);
    ("get-master-account", get_master_account);
    ("get-member", get_member);
    ("get-resource-profile", get_resource_profile);
    ("get-reveal-configuration", get_reveal_configuration);
    ("get-sensitive-data-occurrences", get_sensitive_data_occurrences);
    ("get-sensitive-data-occurrences-availability",
      get_sensitive_data_occurrences_availability);
    ("get-sensitivity-inspection-template",
      get_sensitivity_inspection_template);
    ("get-usage-statistics", get_usage_statistics);
    ("get-usage-totals", get_usage_totals);
    ("list-allow-lists", list_allow_lists);
    ("list-automated-discovery-accounts", list_automated_discovery_accounts);
    ("list-classification-jobs", list_classification_jobs);
    ("list-classification-scopes", list_classification_scopes);
    ("list-custom-data-identifiers", list_custom_data_identifiers);
    ("list-findings", list_findings);
    ("list-findings-filters", list_findings_filters);
    ("list-invitations", list_invitations);
    ("list-managed-data-identifiers", list_managed_data_identifiers);
    ("list-members", list_members);
    ("list-organization-admin-accounts", list_organization_admin_accounts);
    ("list-resource-profile-artifacts", list_resource_profile_artifacts);
    ("list-resource-profile-detections", list_resource_profile_detections);
    ("list-sensitivity-inspection-templates",
      list_sensitivity_inspection_templates);
    ("list-tags-for-resource", list_tags_for_resource);
    ("put-classification-export-configuration",
      put_classification_export_configuration);
    ("put-findings-publication-configuration",
      put_findings_publication_configuration);
    ("search-resources", search_resources);
    ("tag-resource", tag_resource);
    ("test-custom-data-identifier", test_custom_data_identifier);
    ("untag-resource", untag_resource);
    ("update-allow-list", update_allow_list);
    ("update-automated-discovery-configuration",
      update_automated_discovery_configuration);
    ("update-classification-job", update_classification_job);
    ("update-classification-scope", update_classification_scope);
    ("update-findings-filter", update_findings_filter);
    ("update-macie-session", update_macie_session);
    ("update-member-session", update_member_session);
    ("update-organization-configuration", update_organization_configuration);
    ("update-resource-profile", update_resource_profile);
    ("update-resource-profile-detections",
      update_resource_profile_detections);
    ("update-reveal-configuration", update_reveal_configuration);
    ("update-sensitivity-inspection-template",
      update_sensitivity_inspection_template)]