Source file io.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 Awso_storagegateway
open Awso_async
module Io = Http.Io
let eval ?endpoint_url ?cfg endpoint input =
  Io.bind (Io.resolve_cfg cfg)
    (fun cfg ->
       let meth = Endpoints.method_of_endpoint endpoint in
       let uri = Endpoints.uri_of_endpoint endpoint input in
       Io.map
         (Io.call ?endpoint_url ~cfg ~service:Values.service meth
            (Endpoints.to_request endpoint input) uri)
         (fun resp_result -> Endpoints.of_response endpoint resp_result))
let activate_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ActivateGateway input
let add_cache ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddCache input
let add_tags_to_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddTagsToResource input
let add_upload_buffer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddUploadBuffer input
let add_working_storage ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddWorkingStorage input
let assign_tape_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssignTapePool input
let associate_file_system ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateFileSystem input
let attach_volume ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachVolume input
let cancel_archival ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelArchival input
let cancel_cache_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelCacheReport input
let cancel_retrieval ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelRetrieval input
let create_cachedi_s_c_s_i_volume ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCachediSCSIVolume input
let create_n_f_s_file_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateNFSFileShare input
let create_s_m_b_file_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateSMBFileShare input
let create_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateSnapshot input
let create_snapshot_from_volume_recovery_point ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateSnapshotFromVolumeRecoveryPoint
    input
let create_storedi_s_c_s_i_volume ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateStorediSCSIVolume input
let create_tape_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTapePool input
let create_tape_with_barcode ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTapeWithBarcode input
let create_tapes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTapes input
let delete_automatic_tape_creation_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAutomaticTapeCreationPolicy input
let delete_bandwidth_rate_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteBandwidthRateLimit input
let delete_cache_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCacheReport input
let delete_chap_credentials ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteChapCredentials input
let delete_file_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteFileShare input
let delete_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteGateway input
let delete_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteSnapshotSchedule input
let delete_tape ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTape input
let delete_tape_archive ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTapeArchive input
let delete_tape_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTapePool input
let delete_volume ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteVolume input
let describe_availability_monitor_test ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAvailabilityMonitorTest input
let describe_bandwidth_rate_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeBandwidthRateLimit input
let describe_bandwidth_rate_limit_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeBandwidthRateLimitSchedule input
let describe_cache ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeCache input
let describe_cache_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeCacheReport input
let describe_cachedi_s_c_s_i_volumes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeCachediSCSIVolumes input
let describe_chap_credentials ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeChapCredentials input
let describe_file_system_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeFileSystemAssociations input
let describe_gateway_information ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeGatewayInformation input
let describe_maintenance_start_time ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceStartTime input
let describe_n_f_s_file_shares ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeNFSFileShares input
let describe_s_m_b_file_shares ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSMBFileShares input
let describe_s_m_b_settings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSMBSettings input
let describe_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSnapshotSchedule input
let describe_storedi_s_c_s_i_volumes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeStorediSCSIVolumes input
let describe_tape_archives ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTapeArchives input
let describe_tape_recovery_points ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTapeRecoveryPoints input
let describe_tapes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTapes input
let describe_upload_buffer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeUploadBuffer input
let describe_v_t_l_devices ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeVTLDevices input
let describe_working_storage ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkingStorage input
let detach_volume ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DetachVolume input
let disable_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableGateway input
let disassociate_file_system ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateFileSystem input
let evict_files_failing_upload ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EvictFilesFailingUpload input
let join_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.JoinDomain input
let list_automatic_tape_creation_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAutomaticTapeCreationPolicies input
let list_cache_reports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCacheReports input
let list_file_shares ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFileShares input
let list_file_system_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFileSystemAssociations input
let list_gateways ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListGateways input
let list_local_disks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListLocalDisks input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tape_pools ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTapePools input
let list_tapes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTapes input
let list_volume_initiators ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListVolumeInitiators input
let list_volume_recovery_points ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListVolumeRecoveryPoints input
let list_volumes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListVolumes input
let notify_when_uploaded ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.NotifyWhenUploaded input
let refresh_cache ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RefreshCache input
let remove_tags_from_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RemoveTagsFromResource input
let reset_cache ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResetCache input
let retrieve_tape_archive ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RetrieveTapeArchive input
let retrieve_tape_recovery_point ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RetrieveTapeRecoveryPoint input
let set_local_console_password ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SetLocalConsolePassword input
let set_s_m_b_guest_password ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SetSMBGuestPassword input
let shutdown_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ShutdownGateway input
let start_availability_monitor_test ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAvailabilityMonitorTest input
let start_cache_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartCacheReport input
let start_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartGateway input
let update_automatic_tape_creation_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAutomaticTapeCreationPolicy input
let update_bandwidth_rate_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateBandwidthRateLimit input
let update_bandwidth_rate_limit_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateBandwidthRateLimitSchedule input
let update_chap_credentials ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateChapCredentials input
let update_file_system_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFileSystemAssociation input
let update_gateway_information ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateGatewayInformation input
let update_gateway_software_now ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateGatewaySoftwareNow input
let update_maintenance_start_time ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateMaintenanceStartTime input
let update_n_f_s_file_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateNFSFileShare input
let update_s_m_b_file_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSMBFileShare input
let update_s_m_b_file_share_visibility ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSMBFileShareVisibility input
let update_s_m_b_local_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSMBLocalGroups input
let update_s_m_b_security_strategy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSMBSecurityStrategy input
let update_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSnapshotSchedule input
let update_v_t_l_device_type ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateVTLDeviceType input