1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
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