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_file_system_aliases =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId"
       and aliases =
         flag "aliases" (required json_arg) ~doc:"JSON AlternateDNSNames" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.associate_file_system_aliases
           (Values.AssociateFileSystemAliasesRequest.make ?clientRequestToken
              ~fileSystemId
              ~aliases:(Values.AlternateDNSNames.of_json aliases) ())
           (Some Values.AssociateFileSystemAliasesResponse.to_json)
           (Some Values.AssociateFileSystemAliasesResponse.error_to_json)])
let cancel_data_repository_task =
  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 taskId = flag "task-id" (required string) ~doc:"STRING TaskId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.cancel_data_repository_task
           (Values.CancelDataRepositoryTaskRequest.make ~taskId ())
           (Some Values.CancelDataRepositoryTaskResponse.to_json)
           (Some Values.CancelDataRepositoryTaskResponse.error_to_json)])
let copy_backup =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and sourceRegion =
         flag "source-region" (optional string) ~doc:"STRING Region"
       and kmsKeyId =
         flag "kms-key-id" (optional string) ~doc:"STRING KmsKeyId"
       and copyTags = flag "copy-tags" (optional bool) ~doc:"BOOL Flag"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and sourceBackupId =
         flag "source-backup-id" (required string)
           ~doc:"STRING SourceBackupId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.copy_backup
           (Values.CopyBackupRequest.make ?clientRequestToken ?sourceRegion
              ?kmsKeyId ?copyTags
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ~sourceBackupId
              ()) (Some Values.CopyBackupResponse.to_json)
           (Some Values.CopyBackupResponse.error_to_json)])
let copy_snapshot_and_update_volume =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and copyStrategy =
         flag "copy-strategy" (optional json_arg)
           ~doc:"JSON OpenZFSCopyStrategy"
       and options =
         flag "options" (optional json_arg)
           ~doc:"JSON UpdateOpenZFSVolumeOptions"
       and volumeId =
         flag "volume-id" (required string) ~doc:"STRING VolumeId"
       and sourceSnapshotARN =
         flag "source-snapshot-a-r-n" (required string)
           ~doc:"STRING ResourceARN" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.copy_snapshot_and_update_volume
           (Values.CopySnapshotAndUpdateVolumeRequest.make
              ?clientRequestToken
              ?copyStrategy:(Option.map ~f:Values.OpenZFSCopyStrategy.of_json
                               copyStrategy)
              ?options:(Option.map
                          ~f:Values.UpdateOpenZFSVolumeOptions.of_json
                          options) ~volumeId ~sourceSnapshotARN ())
           (Some Values.CopySnapshotAndUpdateVolumeResponse.to_json)
           (Some Values.CopySnapshotAndUpdateVolumeResponse.error_to_json)])
let create_and_attach_s3_access_point =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON CreateAndAttachS3AccessPointOpenZFSConfiguration"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON CreateAndAttachS3AccessPointOntapConfiguration"
       and s3AccessPoint =
         flag "s3-access-point" (optional json_arg)
           ~doc:"JSON CreateAndAttachS3AccessPointS3Configuration"
       and name =
         flag "name" (required string)
           ~doc:"STRING S3AccessPointAttachmentName"
       and type_ =
         flag "type-" (required json_arg)
           ~doc:"JSON S3AccessPointAttachmentType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_and_attach_s3_access_point
           (Values.CreateAndAttachS3AccessPointRequest.make
              ?clientRequestToken
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.CreateAndAttachS3AccessPointOpenZFSConfiguration.of_json
                                       openZFSConfiguration)
              ?ontapConfiguration:(Option.map
                                     ~f:Values.CreateAndAttachS3AccessPointOntapConfiguration.of_json
                                     ontapConfiguration)
              ?s3AccessPoint:(Option.map
                                ~f:Values.CreateAndAttachS3AccessPointS3Configuration.of_json
                                s3AccessPoint) ~name
              ~type_:(Values.S3AccessPointAttachmentType.of_json type_) ())
           (Some Values.CreateAndAttachS3AccessPointResponse.to_json)
           (Some Values.CreateAndAttachS3AccessPointResponse.error_to_json)])
let create_backup =
  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 fileSystemId =
         flag "file-system-id" (optional string) ~doc:"STRING FileSystemId"
       and clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and volumeId =
         flag "volume-id" (optional string) ~doc:"STRING VolumeId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_backup
           (Values.CreateBackupRequest.make ?fileSystemId ?clientRequestToken
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ?volumeId ())
           (Some Values.CreateBackupResponse.to_json)
           (Some Values.CreateBackupResponse.error_to_json)])
let create_data_repository_association =
  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 fileSystemPath =
         flag "file-system-path" (optional string) ~doc:"STRING Namespace"
       and batchImportMetaDataOnCreate =
         flag "batch-import-meta-data-on-create" (optional bool)
           ~doc:"BOOL BatchImportMetaDataOnCreate"
       and importedFileChunkSize =
         flag "imported-file-chunk-size" (optional int) ~doc:"INT Megabytes"
       and s3 =
         flag "s3" (optional json_arg)
           ~doc:"JSON S3DataRepositoryConfiguration"
       and clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId"
       and dataRepositoryPath =
         flag "data-repository-path" (required string)
           ~doc:"STRING ArchivePath" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_data_repository_association
           (Values.CreateDataRepositoryAssociationRequest.make
              ?fileSystemPath ?batchImportMetaDataOnCreate
              ?importedFileChunkSize
              ?s3:(Option.map ~f:Values.S3DataRepositoryConfiguration.of_json
                     s3) ?clientRequestToken
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ~fileSystemId
              ~dataRepositoryPath ())
           (Some Values.CreateDataRepositoryAssociationResponse.to_json)
           (Some Values.CreateDataRepositoryAssociationResponse.error_to_json)])
let create_data_repository_task =
  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 paths =
         flag "paths" (optional json_arg) ~doc:"JSON DataRepositoryTaskPaths"
       and clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and capacityToRelease =
         flag "capacity-to-release" (optional json_arg)
           ~doc:"JSON CapacityToRelease"
       and releaseConfiguration =
         flag "release-configuration" (optional json_arg)
           ~doc:"JSON ReleaseConfiguration"
       and type_ =
         flag "type-" (required json_arg) ~doc:"JSON DataRepositoryTaskType"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId"
       and report =
         flag "report" (required json_arg) ~doc:"JSON CompletionReport" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_data_repository_task
           (Values.CreateDataRepositoryTaskRequest.make
              ?paths:(Option.map ~f:Values.DataRepositoryTaskPaths.of_json
                        paths) ?clientRequestToken
              ?tags:(Option.map ~f:Values.Tags.of_json tags)
              ?capacityToRelease:(Option.map
                                    ~f:Values.CapacityToRelease.of_json
                                    capacityToRelease)
              ?releaseConfiguration:(Option.map
                                       ~f:Values.ReleaseConfiguration.of_json
                                       releaseConfiguration)
              ~type_:(Values.DataRepositoryTaskType.of_json type_)
              ~fileSystemId ~report:(Values.CompletionReport.of_json report)
              ()) (Some Values.CreateDataRepositoryTaskResponse.to_json)
           (Some Values.CreateDataRepositoryTaskResponse.error_to_json)])
let create_file_cache =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and securityGroupIds =
         flag "security-group-ids" (optional json_arg)
           ~doc:"JSON SecurityGroupIds"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and copyTagsToDataRepositoryAssociations =
         flag "copy-tags-to-data-repository-associations" (optional bool)
           ~doc:"BOOL CopyTagsToDataRepositoryAssociations"
       and kmsKeyId =
         flag "kms-key-id" (optional string) ~doc:"STRING KmsKeyId"
       and lustreConfiguration =
         flag "lustre-configuration" (optional json_arg)
           ~doc:"JSON CreateFileCacheLustreConfiguration"
       and dataRepositoryAssociations =
         flag "data-repository-associations" (optional json_arg)
           ~doc:"JSON CreateFileCacheDataRepositoryAssociations"
       and fileCacheType =
         flag "file-cache-type" (required json_arg) ~doc:"JSON FileCacheType"
       and fileCacheTypeVersion =
         flag "file-cache-type-version" (required string)
           ~doc:"STRING FileSystemTypeVersion"
       and storageCapacity =
         flag "storage-capacity" (required int) ~doc:"INT StorageCapacity"
       and subnetIds =
         flag "subnet-ids" (required json_arg) ~doc:"JSON SubnetIds" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_file_cache
           (Values.CreateFileCacheRequest.make ?clientRequestToken
              ?securityGroupIds:(Option.map
                                   ~f:Values.SecurityGroupIds.of_json
                                   securityGroupIds)
              ?tags:(Option.map ~f:Values.Tags.of_json tags)
              ?copyTagsToDataRepositoryAssociations ?kmsKeyId
              ?lustreConfiguration:(Option.map
                                      ~f:Values.CreateFileCacheLustreConfiguration.of_json
                                      lustreConfiguration)
              ?dataRepositoryAssociations:(Option.map
                                             ~f:Values.CreateFileCacheDataRepositoryAssociations.of_json
                                             dataRepositoryAssociations)
              ~fileCacheType:(Values.FileCacheType.of_json fileCacheType)
              ~fileCacheTypeVersion ~storageCapacity
              ~subnetIds:(Values.SubnetIds.of_json subnetIds) ())
           (Some Values.CreateFileCacheResponse.to_json)
           (Some Values.CreateFileCacheResponse.error_to_json)])
let create_file_system =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and storageCapacity =
         flag "storage-capacity" (optional int) ~doc:"INT StorageCapacity"
       and storageType =
         flag "storage-type" (optional json_arg) ~doc:"JSON StorageType"
       and securityGroupIds =
         flag "security-group-ids" (optional json_arg)
           ~doc:"JSON SecurityGroupIds"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and kmsKeyId =
         flag "kms-key-id" (optional string) ~doc:"STRING KmsKeyId"
       and windowsConfiguration =
         flag "windows-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemWindowsConfiguration"
       and lustreConfiguration =
         flag "lustre-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemLustreConfiguration"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemOntapConfiguration"
       and fileSystemTypeVersion =
         flag "file-system-type-version" (optional string)
           ~doc:"STRING FileSystemTypeVersion"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemOpenZFSConfiguration"
       and networkType =
         flag "network-type" (optional json_arg) ~doc:"JSON NetworkType"
       and fileSystemType =
         flag "file-system-type" (required json_arg)
           ~doc:"JSON FileSystemType"
       and subnetIds =
         flag "subnet-ids" (required json_arg) ~doc:"JSON SubnetIds" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_file_system
           (Values.CreateFileSystemRequest.make ?clientRequestToken
              ?storageCapacity
              ?storageType:(Option.map ~f:Values.StorageType.of_json
                              storageType)
              ?securityGroupIds:(Option.map
                                   ~f:Values.SecurityGroupIds.of_json
                                   securityGroupIds)
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ?kmsKeyId
              ?windowsConfiguration:(Option.map
                                       ~f:Values.CreateFileSystemWindowsConfiguration.of_json
                                       windowsConfiguration)
              ?lustreConfiguration:(Option.map
                                      ~f:Values.CreateFileSystemLustreConfiguration.of_json
                                      lustreConfiguration)
              ?ontapConfiguration:(Option.map
                                     ~f:Values.CreateFileSystemOntapConfiguration.of_json
                                     ontapConfiguration)
              ?fileSystemTypeVersion
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.CreateFileSystemOpenZFSConfiguration.of_json
                                       openZFSConfiguration)
              ?networkType:(Option.map ~f:Values.NetworkType.of_json
                              networkType)
              ~fileSystemType:(Values.FileSystemType.of_json fileSystemType)
              ~subnetIds:(Values.SubnetIds.of_json subnetIds) ())
           (Some Values.CreateFileSystemResponse.to_json)
           (Some Values.CreateFileSystemResponse.error_to_json)])
let create_file_system_from_backup =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and securityGroupIds =
         flag "security-group-ids" (optional json_arg)
           ~doc:"JSON SecurityGroupIds"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and windowsConfiguration =
         flag "windows-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemWindowsConfiguration"
       and lustreConfiguration =
         flag "lustre-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemLustreConfiguration"
       and storageType =
         flag "storage-type" (optional json_arg) ~doc:"JSON StorageType"
       and kmsKeyId =
         flag "kms-key-id" (optional string) ~doc:"STRING KmsKeyId"
       and fileSystemTypeVersion =
         flag "file-system-type-version" (optional string)
           ~doc:"STRING FileSystemTypeVersion"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON CreateFileSystemOpenZFSConfiguration"
       and storageCapacity =
         flag "storage-capacity" (optional int) ~doc:"INT StorageCapacity"
       and networkType =
         flag "network-type" (optional json_arg) ~doc:"JSON NetworkType"
       and backupId =
         flag "backup-id" (required string) ~doc:"STRING BackupId"
       and subnetIds =
         flag "subnet-ids" (required json_arg) ~doc:"JSON SubnetIds" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_file_system_from_backup
           (Values.CreateFileSystemFromBackupRequest.make ?clientRequestToken
              ?securityGroupIds:(Option.map
                                   ~f:Values.SecurityGroupIds.of_json
                                   securityGroupIds)
              ?tags:(Option.map ~f:Values.Tags.of_json tags)
              ?windowsConfiguration:(Option.map
                                       ~f:Values.CreateFileSystemWindowsConfiguration.of_json
                                       windowsConfiguration)
              ?lustreConfiguration:(Option.map
                                      ~f:Values.CreateFileSystemLustreConfiguration.of_json
                                      lustreConfiguration)
              ?storageType:(Option.map ~f:Values.StorageType.of_json
                              storageType) ?kmsKeyId ?fileSystemTypeVersion
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.CreateFileSystemOpenZFSConfiguration.of_json
                                       openZFSConfiguration) ?storageCapacity
              ?networkType:(Option.map ~f:Values.NetworkType.of_json
                              networkType) ~backupId
              ~subnetIds:(Values.SubnetIds.of_json subnetIds) ())
           (Some Values.CreateFileSystemFromBackupResponse.to_json)
           (Some Values.CreateFileSystemFromBackupResponse.error_to_json)])
let create_snapshot =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and name = flag "name" (required string) ~doc:"STRING SnapshotName"
       and volumeId =
         flag "volume-id" (required string) ~doc:"STRING VolumeId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_snapshot
           (Values.CreateSnapshotRequest.make ?clientRequestToken
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ~name ~volumeId
              ()) (Some Values.CreateSnapshotResponse.to_json)
           (Some Values.CreateSnapshotResponse.error_to_json)])
let create_storage_virtual_machine =
  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 activeDirectoryConfiguration =
         flag "active-directory-configuration" (optional json_arg)
           ~doc:"JSON CreateSvmActiveDirectoryConfiguration"
       and clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and svmAdminPassword =
         flag "svm-admin-password" (optional string)
           ~doc:"STRING AdminPassword"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and rootVolumeSecurityStyle =
         flag "root-volume-security-style" (optional json_arg)
           ~doc:"JSON StorageVirtualMachineRootVolumeSecurityStyle"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId"
       and name =
         flag "name" (required string)
           ~doc:"STRING StorageVirtualMachineName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_storage_virtual_machine
           (Values.CreateStorageVirtualMachineRequest.make
              ?activeDirectoryConfiguration:(Option.map
                                               ~f:Values.CreateSvmActiveDirectoryConfiguration.of_json
                                               activeDirectoryConfiguration)
              ?clientRequestToken ?svmAdminPassword
              ?tags:(Option.map ~f:Values.Tags.of_json tags)
              ?rootVolumeSecurityStyle:(Option.map
                                          ~f:Values.StorageVirtualMachineRootVolumeSecurityStyle.of_json
                                          rootVolumeSecurityStyle)
              ~fileSystemId ~name ())
           (Some Values.CreateStorageVirtualMachineResponse.to_json)
           (Some Values.CreateStorageVirtualMachineResponse.error_to_json)])
let create_volume =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON CreateOntapVolumeConfiguration"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON CreateOpenZFSVolumeConfiguration"
       and volumeType =
         flag "volume-type" (required json_arg) ~doc:"JSON VolumeType"
       and name = flag "name" (required string) ~doc:"STRING VolumeName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_volume
           (Values.CreateVolumeRequest.make ?clientRequestToken
              ?ontapConfiguration:(Option.map
                                     ~f:Values.CreateOntapVolumeConfiguration.of_json
                                     ontapConfiguration)
              ?tags:(Option.map ~f:Values.Tags.of_json tags)
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.CreateOpenZFSVolumeConfiguration.of_json
                                       openZFSConfiguration)
              ~volumeType:(Values.VolumeType.of_json volumeType) ~name ())
           (Some Values.CreateVolumeResponse.to_json)
           (Some Values.CreateVolumeResponse.error_to_json)])
let create_volume_from_backup =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON CreateOntapVolumeConfiguration"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON Tags"
       and backupId =
         flag "backup-id" (required string) ~doc:"STRING BackupId"
       and name = flag "name" (required string) ~doc:"STRING VolumeName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_volume_from_backup
           (Values.CreateVolumeFromBackupRequest.make ?clientRequestToken
              ?ontapConfiguration:(Option.map
                                     ~f:Values.CreateOntapVolumeConfiguration.of_json
                                     ontapConfiguration)
              ?tags:(Option.map ~f:Values.Tags.of_json tags) ~backupId ~name
              ()) (Some Values.CreateVolumeFromBackupResponse.to_json)
           (Some Values.CreateVolumeFromBackupResponse.error_to_json)])
let delete_backup =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and backupId =
         flag "backup-id" (required string) ~doc:"STRING BackupId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_backup
           (Values.DeleteBackupRequest.make ?clientRequestToken ~backupId ())
           (Some Values.DeleteBackupResponse.to_json)
           (Some Values.DeleteBackupResponse.error_to_json)])
let delete_data_repository_association =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and deleteDataInFileSystem =
         flag "delete-data-in-file-system" (optional bool)
           ~doc:"BOOL DeleteDataInFileSystem"
       and associationId =
         flag "association-id" (required string)
           ~doc:"STRING DataRepositoryAssociationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_data_repository_association
           (Values.DeleteDataRepositoryAssociationRequest.make
              ?clientRequestToken ?deleteDataInFileSystem ~associationId ())
           (Some Values.DeleteDataRepositoryAssociationResponse.to_json)
           (Some Values.DeleteDataRepositoryAssociationResponse.error_to_json)])
let delete_file_cache =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and fileCacheId =
         flag "file-cache-id" (required string) ~doc:"STRING FileCacheId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_file_cache
           (Values.DeleteFileCacheRequest.make ?clientRequestToken
              ~fileCacheId ()) (Some Values.DeleteFileCacheResponse.to_json)
           (Some Values.DeleteFileCacheResponse.error_to_json)])
let delete_file_system =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and windowsConfiguration =
         flag "windows-configuration" (optional json_arg)
           ~doc:"JSON DeleteFileSystemWindowsConfiguration"
       and lustreConfiguration =
         flag "lustre-configuration" (optional json_arg)
           ~doc:"JSON DeleteFileSystemLustreConfiguration"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON DeleteFileSystemOpenZFSConfiguration"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_file_system
           (Values.DeleteFileSystemRequest.make ?clientRequestToken
              ?windowsConfiguration:(Option.map
                                       ~f:Values.DeleteFileSystemWindowsConfiguration.of_json
                                       windowsConfiguration)
              ?lustreConfiguration:(Option.map
                                      ~f:Values.DeleteFileSystemLustreConfiguration.of_json
                                      lustreConfiguration)
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.DeleteFileSystemOpenZFSConfiguration.of_json
                                       openZFSConfiguration) ~fileSystemId ())
           (Some Values.DeleteFileSystemResponse.to_json)
           (Some Values.DeleteFileSystemResponse.error_to_json)])
let delete_snapshot =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and snapshotId =
         flag "snapshot-id" (required string) ~doc:"STRING SnapshotId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_snapshot
           (Values.DeleteSnapshotRequest.make ?clientRequestToken ~snapshotId
              ()) (Some Values.DeleteSnapshotResponse.to_json)
           (Some Values.DeleteSnapshotResponse.error_to_json)])
let delete_storage_virtual_machine =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and storageVirtualMachineId =
         flag "storage-virtual-machine-id" (required string)
           ~doc:"STRING StorageVirtualMachineId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_storage_virtual_machine
           (Values.DeleteStorageVirtualMachineRequest.make
              ?clientRequestToken ~storageVirtualMachineId ())
           (Some Values.DeleteStorageVirtualMachineResponse.to_json)
           (Some Values.DeleteStorageVirtualMachineResponse.error_to_json)])
let delete_volume =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON DeleteVolumeOntapConfiguration"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON DeleteVolumeOpenZFSConfiguration"
       and volumeId =
         flag "volume-id" (required string) ~doc:"STRING VolumeId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_volume
           (Values.DeleteVolumeRequest.make ?clientRequestToken
              ?ontapConfiguration:(Option.map
                                     ~f:Values.DeleteVolumeOntapConfiguration.of_json
                                     ontapConfiguration)
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.DeleteVolumeOpenZFSConfiguration.of_json
                                       openZFSConfiguration) ~volumeId ())
           (Some Values.DeleteVolumeResponse.to_json)
           (Some Values.DeleteVolumeResponse.error_to_json)])
let describe_backups =
  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 backupIds =
         flag "backup-ids" (optional json_arg) ~doc:"JSON BackupIds"
       and filters = flag "filters" (optional json_arg) ~doc:"JSON Filters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_backups
           (Values.DescribeBackupsRequest.make
              ?backupIds:(Option.map ~f:Values.BackupIds.of_json backupIds)
              ?filters:(Option.map ~f:Values.Filters.of_json filters)
              ?maxResults ?nextToken ())
           (Some Values.DescribeBackupsResponse.to_json)
           (Some Values.DescribeBackupsResponse.error_to_json)])
let describe_data_repository_associations =
  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 associationIds =
         flag "association-ids" (optional json_arg)
           ~doc:"JSON DataRepositoryAssociationIds"
       and filters = flag "filters" (optional json_arg) ~doc:"JSON Filters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT LimitedMaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_data_repository_associations
           (Values.DescribeDataRepositoryAssociationsRequest.make
              ?associationIds:(Option.map
                                 ~f:Values.DataRepositoryAssociationIds.of_json
                                 associationIds)
              ?filters:(Option.map ~f:Values.Filters.of_json filters)
              ?maxResults ?nextToken ())
           (Some Values.DescribeDataRepositoryAssociationsResponse.to_json)
           (Some
              Values.DescribeDataRepositoryAssociationsResponse.error_to_json)])
let describe_data_repository_tasks =
  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 taskIds = flag "task-ids" (optional json_arg) ~doc:"JSON TaskIds"
       and filters =
         flag "filters" (optional json_arg)
           ~doc:"JSON DataRepositoryTaskFilters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_data_repository_tasks
           (Values.DescribeDataRepositoryTasksRequest.make
              ?taskIds:(Option.map ~f:Values.TaskIds.of_json taskIds)
              ?filters:(Option.map
                          ~f:Values.DataRepositoryTaskFilters.of_json filters)
              ?maxResults ?nextToken ())
           (Some Values.DescribeDataRepositoryTasksResponse.to_json)
           (Some Values.DescribeDataRepositoryTasksResponse.error_to_json)])
let describe_file_caches =
  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 fileCacheIds =
         flag "file-cache-ids" (optional json_arg) ~doc:"JSON FileCacheIds"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_file_caches
           (Values.DescribeFileCachesRequest.make
              ?fileCacheIds:(Option.map ~f:Values.FileCacheIds.of_json
                               fileCacheIds) ?maxResults ?nextToken ())
           (Some Values.DescribeFileCachesResponse.to_json)
           (Some Values.DescribeFileCachesResponse.error_to_json)])
let describe_file_system_aliases =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_file_system_aliases
           (Values.DescribeFileSystemAliasesRequest.make ?clientRequestToken
              ?maxResults ?nextToken ~fileSystemId ())
           (Some Values.DescribeFileSystemAliasesResponse.to_json)
           (Some Values.DescribeFileSystemAliasesResponse.error_to_json)])
let describe_file_systems =
  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 fileSystemIds =
         flag "file-system-ids" (optional json_arg) ~doc:"JSON FileSystemIds"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_file_systems
           (Values.DescribeFileSystemsRequest.make
              ?fileSystemIds:(Option.map ~f:Values.FileSystemIds.of_json
                                fileSystemIds) ?maxResults ?nextToken ())
           (Some Values.DescribeFileSystemsResponse.to_json)
           (Some Values.DescribeFileSystemsResponse.error_to_json)])
let describe_s3_access_point_attachments =
  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 names =
         flag "names" (optional json_arg)
           ~doc:"JSON S3AccessPointAttachmentNames"
       and filters =
         flag "filters" (optional json_arg)
           ~doc:"JSON S3AccessPointAttachmentsFilters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_s3_access_point_attachments
           (Values.DescribeS3AccessPointAttachmentsRequest.make
              ?names:(Option.map
                        ~f:Values.S3AccessPointAttachmentNames.of_json names)
              ?filters:(Option.map
                          ~f:Values.S3AccessPointAttachmentsFilters.of_json
                          filters) ?maxResults ?nextToken ())
           (Some Values.DescribeS3AccessPointAttachmentsResponse.to_json)
           (Some
              Values.DescribeS3AccessPointAttachmentsResponse.error_to_json)])
let describe_shared_vpc_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_shared_vpc_configuration
           (Values.DescribeSharedVpcConfigurationRequest.make ())
           (Some Values.DescribeSharedVpcConfigurationResponse.to_json)
           (Some Values.DescribeSharedVpcConfigurationResponse.error_to_json)])
let describe_snapshots =
  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 snapshotIds =
         flag "snapshot-ids" (optional json_arg) ~doc:"JSON SnapshotIds"
       and filters =
         flag "filters" (optional json_arg) ~doc:"JSON SnapshotFilters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and includeShared =
         flag "include-shared" (optional bool) ~doc:"BOOL IncludeShared" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_snapshots
           (Values.DescribeSnapshotsRequest.make
              ?snapshotIds:(Option.map ~f:Values.SnapshotIds.of_json
                              snapshotIds)
              ?filters:(Option.map ~f:Values.SnapshotFilters.of_json filters)
              ?maxResults ?nextToken ?includeShared ())
           (Some Values.DescribeSnapshotsResponse.to_json)
           (Some Values.DescribeSnapshotsResponse.error_to_json)])
let describe_storage_virtual_machines =
  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 storageVirtualMachineIds =
         flag "storage-virtual-machine-ids" (optional json_arg)
           ~doc:"JSON StorageVirtualMachineIds"
       and filters =
         flag "filters" (optional json_arg)
           ~doc:"JSON StorageVirtualMachineFilters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_storage_virtual_machines
           (Values.DescribeStorageVirtualMachinesRequest.make
              ?storageVirtualMachineIds:(Option.map
                                           ~f:Values.StorageVirtualMachineIds.of_json
                                           storageVirtualMachineIds)
              ?filters:(Option.map
                          ~f:Values.StorageVirtualMachineFilters.of_json
                          filters) ?maxResults ?nextToken ())
           (Some Values.DescribeStorageVirtualMachinesResponse.to_json)
           (Some Values.DescribeStorageVirtualMachinesResponse.error_to_json)])
let describe_volumes =
  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 volumeIds =
         flag "volume-ids" (optional json_arg) ~doc:"JSON VolumeIds"
       and filters =
         flag "filters" (optional json_arg) ~doc:"JSON VolumeFilters"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_volumes
           (Values.DescribeVolumesRequest.make
              ?volumeIds:(Option.map ~f:Values.VolumeIds.of_json volumeIds)
              ?filters:(Option.map ~f:Values.VolumeFilters.of_json filters)
              ?maxResults ?nextToken ())
           (Some Values.DescribeVolumesResponse.to_json)
           (Some Values.DescribeVolumesResponse.error_to_json)])
let detach_and_delete_s3_access_point =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and name =
         flag "name" (required string)
           ~doc:"STRING S3AccessPointAttachmentName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.detach_and_delete_s3_access_point
           (Values.DetachAndDeleteS3AccessPointRequest.make
              ?clientRequestToken ~name ())
           (Some Values.DetachAndDeleteS3AccessPointResponse.to_json)
           (Some Values.DetachAndDeleteS3AccessPointResponse.error_to_json)])
let disassociate_file_system_aliases =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId"
       and aliases =
         flag "aliases" (required json_arg) ~doc:"JSON AlternateDNSNames" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.disassociate_file_system_aliases
           (Values.DisassociateFileSystemAliasesRequest.make
              ?clientRequestToken ~fileSystemId
              ~aliases:(Values.AlternateDNSNames.of_json aliases) ())
           (Some Values.DisassociateFileSystemAliasesResponse.to_json)
           (Some Values.DisassociateFileSystemAliasesResponse.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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       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 ?maxResults ?nextToken
              ~resourceARN ())
           (Some Values.ListTagsForResourceResponse.to_json)
           (Some Values.ListTagsForResourceResponse.error_to_json)])
let release_file_system_nfs_v3_locks =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.release_file_system_nfs_v3_locks
           (Values.ReleaseFileSystemNfsV3LocksRequest.make
              ?clientRequestToken ~fileSystemId ())
           (Some Values.ReleaseFileSystemNfsV3LocksResponse.to_json)
           (Some Values.ReleaseFileSystemNfsV3LocksResponse.error_to_json)])
let restore_volume_from_snapshot =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and options =
         flag "options" (optional json_arg)
           ~doc:"JSON RestoreOpenZFSVolumeOptions"
       and volumeId =
         flag "volume-id" (required string) ~doc:"STRING VolumeId"
       and snapshotId =
         flag "snapshot-id" (required string) ~doc:"STRING SnapshotId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.restore_volume_from_snapshot
           (Values.RestoreVolumeFromSnapshotRequest.make ?clientRequestToken
              ?options:(Option.map
                          ~f:Values.RestoreOpenZFSVolumeOptions.of_json
                          options) ~volumeId ~snapshotId ())
           (Some Values.RestoreVolumeFromSnapshotResponse.to_json)
           (Some Values.RestoreVolumeFromSnapshotResponse.error_to_json)])
let start_misconfigured_state_recovery =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_misconfigured_state_recovery
           (Values.StartMisconfiguredStateRecoveryRequest.make
              ?clientRequestToken ~fileSystemId ())
           (Some Values.StartMisconfiguredStateRecoveryResponse.to_json)
           (Some Values.StartMisconfiguredStateRecoveryResponse.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 Tags" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.tag_resource
           (Values.TagResourceRequest.make ~resourceARN
              ~tags:(Values.Tags.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 TagKeys" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.untag_resource
           (Values.UntagResourceRequest.make ~resourceARN
              ~tagKeys:(Values.TagKeys.of_json tagKeys) ())
           (Some Values.UntagResourceResponse.to_json)
           (Some Values.UntagResourceResponse.error_to_json)])
let update_data_repository_association =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and importedFileChunkSize =
         flag "imported-file-chunk-size" (optional int) ~doc:"INT Megabytes"
       and s3 =
         flag "s3" (optional json_arg)
           ~doc:"JSON S3DataRepositoryConfiguration"
       and associationId =
         flag "association-id" (required string)
           ~doc:"STRING DataRepositoryAssociationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_data_repository_association
           (Values.UpdateDataRepositoryAssociationRequest.make
              ?clientRequestToken ?importedFileChunkSize
              ?s3:(Option.map ~f:Values.S3DataRepositoryConfiguration.of_json
                     s3) ~associationId ())
           (Some Values.UpdateDataRepositoryAssociationResponse.to_json)
           (Some Values.UpdateDataRepositoryAssociationResponse.error_to_json)])
let update_file_cache =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and lustreConfiguration =
         flag "lustre-configuration" (optional json_arg)
           ~doc:"JSON UpdateFileCacheLustreConfiguration"
       and fileCacheId =
         flag "file-cache-id" (required string) ~doc:"STRING FileCacheId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_file_cache
           (Values.UpdateFileCacheRequest.make ?clientRequestToken
              ?lustreConfiguration:(Option.map
                                      ~f:Values.UpdateFileCacheLustreConfiguration.of_json
                                      lustreConfiguration) ~fileCacheId ())
           (Some Values.UpdateFileCacheResponse.to_json)
           (Some Values.UpdateFileCacheResponse.error_to_json)])
let update_file_system =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and storageCapacity =
         flag "storage-capacity" (optional int) ~doc:"INT StorageCapacity"
       and windowsConfiguration =
         flag "windows-configuration" (optional json_arg)
           ~doc:"JSON UpdateFileSystemWindowsConfiguration"
       and lustreConfiguration =
         flag "lustre-configuration" (optional json_arg)
           ~doc:"JSON UpdateFileSystemLustreConfiguration"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON UpdateFileSystemOntapConfiguration"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON UpdateFileSystemOpenZFSConfiguration"
       and storageType =
         flag "storage-type" (optional json_arg) ~doc:"JSON StorageType"
       and fileSystemTypeVersion =
         flag "file-system-type-version" (optional string)
           ~doc:"STRING FileSystemTypeVersion"
       and networkType =
         flag "network-type" (optional json_arg) ~doc:"JSON NetworkType"
       and fileSystemId =
         flag "file-system-id" (required string) ~doc:"STRING FileSystemId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_file_system
           (Values.UpdateFileSystemRequest.make ?clientRequestToken
              ?storageCapacity
              ?windowsConfiguration:(Option.map
                                       ~f:Values.UpdateFileSystemWindowsConfiguration.of_json
                                       windowsConfiguration)
              ?lustreConfiguration:(Option.map
                                      ~f:Values.UpdateFileSystemLustreConfiguration.of_json
                                      lustreConfiguration)
              ?ontapConfiguration:(Option.map
                                     ~f:Values.UpdateFileSystemOntapConfiguration.of_json
                                     ontapConfiguration)
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.UpdateFileSystemOpenZFSConfiguration.of_json
                                       openZFSConfiguration)
              ?storageType:(Option.map ~f:Values.StorageType.of_json
                              storageType) ?fileSystemTypeVersion
              ?networkType:(Option.map ~f:Values.NetworkType.of_json
                              networkType) ~fileSystemId ())
           (Some Values.UpdateFileSystemResponse.to_json)
           (Some Values.UpdateFileSystemResponse.error_to_json)])
let update_shared_vpc_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 enableFsxRouteTableUpdatesFromParticipantAccounts =
         flag "enable-fsx-route-table-updates-from-participant-accounts"
           (optional string) ~doc:"STRING VerboseFlag"
       and clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_shared_vpc_configuration
           (Values.UpdateSharedVpcConfigurationRequest.make
              ?enableFsxRouteTableUpdatesFromParticipantAccounts
              ?clientRequestToken ())
           (Some Values.UpdateSharedVpcConfigurationResponse.to_json)
           (Some Values.UpdateSharedVpcConfigurationResponse.error_to_json)])
let update_snapshot =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and name = flag "name" (required string) ~doc:"STRING SnapshotName"
       and snapshotId =
         flag "snapshot-id" (required string) ~doc:"STRING SnapshotId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_snapshot
           (Values.UpdateSnapshotRequest.make ?clientRequestToken ~name
              ~snapshotId ()) (Some Values.UpdateSnapshotResponse.to_json)
           (Some Values.UpdateSnapshotResponse.error_to_json)])
let update_storage_virtual_machine =
  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 activeDirectoryConfiguration =
         flag "active-directory-configuration" (optional json_arg)
           ~doc:"JSON UpdateSvmActiveDirectoryConfiguration"
       and clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and svmAdminPassword =
         flag "svm-admin-password" (optional string)
           ~doc:"STRING AdminPassword"
       and storageVirtualMachineId =
         flag "storage-virtual-machine-id" (required string)
           ~doc:"STRING StorageVirtualMachineId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_storage_virtual_machine
           (Values.UpdateStorageVirtualMachineRequest.make
              ?activeDirectoryConfiguration:(Option.map
                                               ~f:Values.UpdateSvmActiveDirectoryConfiguration.of_json
                                               activeDirectoryConfiguration)
              ?clientRequestToken ?svmAdminPassword ~storageVirtualMachineId
              ()) (Some Values.UpdateStorageVirtualMachineResponse.to_json)
           (Some Values.UpdateStorageVirtualMachineResponse.error_to_json)])
let update_volume =
  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 clientRequestToken =
         flag "client-request-token" (optional string)
           ~doc:"STRING ClientRequestToken"
       and ontapConfiguration =
         flag "ontap-configuration" (optional json_arg)
           ~doc:"JSON UpdateOntapVolumeConfiguration"
       and name = flag "name" (optional string) ~doc:"STRING VolumeName"
       and openZFSConfiguration =
         flag "open-z-f-s-configuration" (optional json_arg)
           ~doc:"JSON UpdateOpenZFSVolumeConfiguration"
       and volumeId =
         flag "volume-id" (required string) ~doc:"STRING VolumeId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_volume
           (Values.UpdateVolumeRequest.make ?clientRequestToken
              ?ontapConfiguration:(Option.map
                                     ~f:Values.UpdateOntapVolumeConfiguration.of_json
                                     ontapConfiguration) ?name
              ?openZFSConfiguration:(Option.map
                                       ~f:Values.UpdateOpenZFSVolumeConfiguration.of_json
                                       openZFSConfiguration) ~volumeId ())
           (Some Values.UpdateVolumeResponse.to_json)
           (Some Values.UpdateVolumeResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("associate-file-system-aliases", associate_file_system_aliases);
    ("cancel-data-repository-task", cancel_data_repository_task);
    ("copy-backup", copy_backup);
    ("copy-snapshot-and-update-volume", copy_snapshot_and_update_volume);
    ("create-and-attach-s3-access-point", create_and_attach_s3_access_point);
    ("create-backup", create_backup);
    ("create-data-repository-association",
      create_data_repository_association);
    ("create-data-repository-task", create_data_repository_task);
    ("create-file-cache", create_file_cache);
    ("create-file-system", create_file_system);
    ("create-file-system-from-backup", create_file_system_from_backup);
    ("create-snapshot", create_snapshot);
    ("create-storage-virtual-machine", create_storage_virtual_machine);
    ("create-volume", create_volume);
    ("create-volume-from-backup", create_volume_from_backup);
    ("delete-backup", delete_backup);
    ("delete-data-repository-association",
      delete_data_repository_association);
    ("delete-file-cache", delete_file_cache);
    ("delete-file-system", delete_file_system);
    ("delete-snapshot", delete_snapshot);
    ("delete-storage-virtual-machine", delete_storage_virtual_machine);
    ("delete-volume", delete_volume);
    ("describe-backups", describe_backups);
    ("describe-data-repository-associations",
      describe_data_repository_associations);
    ("describe-data-repository-tasks", describe_data_repository_tasks);
    ("describe-file-caches", describe_file_caches);
    ("describe-file-system-aliases", describe_file_system_aliases);
    ("describe-file-systems", describe_file_systems);
    ("describe-s3-access-point-attachments",
      describe_s3_access_point_attachments);
    ("describe-shared-vpc-configuration", describe_shared_vpc_configuration);
    ("describe-snapshots", describe_snapshots);
    ("describe-storage-virtual-machines", describe_storage_virtual_machines);
    ("describe-volumes", describe_volumes);
    ("detach-and-delete-s3-access-point", detach_and_delete_s3_access_point);
    ("disassociate-file-system-aliases", disassociate_file_system_aliases);
    ("list-tags-for-resource", list_tags_for_resource);
    ("release-file-system-nfs-v3-locks", release_file_system_nfs_v3_locks);
    ("restore-volume-from-snapshot", restore_volume_from_snapshot);
    ("start-misconfigured-state-recovery",
      start_misconfigured_state_recovery);
    ("tag-resource", tag_resource);
    ("untag-resource", untag_resource);
    ("update-data-repository-association",
      update_data_repository_association);
    ("update-file-cache", update_file_cache);
    ("update-file-system", update_file_system);
    ("update-shared-vpc-configuration", update_shared_vpc_configuration);
    ("update-snapshot", update_snapshot);
    ("update-storage-virtual-machine", update_storage_virtual_machine);
    ("update-volume", update_volume)]