Source file io.ml

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
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
(* 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_deadline
open Awso_lwt
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 associate_member_to_farm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateMemberToFarm input
let associate_member_to_fleet ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateMemberToFleet input
let associate_member_to_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateMemberToJob input
let associate_member_to_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateMemberToQueue input
let assume_fleet_role_for_read ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssumeFleetRoleForRead input
let assume_fleet_role_for_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssumeFleetRoleForWorker input
let assume_queue_role_for_read ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssumeQueueRoleForRead input
let assume_queue_role_for_user ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssumeQueueRoleForUser input
let assume_queue_role_for_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssumeQueueRoleForWorker input
let batch_get_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetJob input
let batch_get_job_entity ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetJobEntity input
let batch_get_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetSession input
let batch_get_session_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetSessionAction input
let batch_get_step ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetStep input
let batch_get_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetTask input
let batch_get_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetWorker input
let batch_update_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateJob input
let batch_update_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateTask input
let copy_job_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CopyJobTemplate input
let create_budget ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateBudget input
let create_farm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateFarm input
let create_fleet ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateFleet input
let create_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateJob input
let create_license_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateLicenseEndpoint input
let create_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateLimit input
let create_monitor ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateMonitor input
let create_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateQueue input
let create_queue_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateQueueEnvironment input
let create_queue_fleet_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateQueueFleetAssociation input
let create_queue_limit_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateQueueLimitAssociation input
let create_storage_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateStorageProfile input
let create_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateWorker input
let delete_budget ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteBudget input
let delete_farm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteFarm input
let delete_fleet ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteFleet input
let delete_license_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteLicenseEndpoint input
let delete_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteLimit input
let delete_metered_product ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteMeteredProduct input
let delete_monitor ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteMonitor input
let delete_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteQueue input
let delete_queue_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteQueueEnvironment input
let delete_queue_fleet_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteQueueFleetAssociation input
let delete_queue_limit_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteQueueLimitAssociation input
let delete_storage_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteStorageProfile input
let delete_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteWorker input
let disassociate_member_from_farm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateMemberFromFarm input
let disassociate_member_from_fleet ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateMemberFromFleet input
let disassociate_member_from_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateMemberFromJob input
let disassociate_member_from_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateMemberFromQueue input
let get_budget ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBudget input
let get_farm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFarm input
let get_fleet ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFleet input
let get_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetJob input
let get_license_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLicenseEndpoint input
let get_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLimit input
let get_monitor ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMonitor input
let get_monitor_settings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMonitorSettings input
let get_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetQueue input
let get_queue_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetQueueEnvironment input
let get_queue_fleet_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetQueueFleetAssociation input
let get_queue_limit_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetQueueLimitAssociation input
let get_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSession input
let get_session_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSessionAction input
let get_sessions_statistics_aggregation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSessionsStatisticsAggregation input
let get_step ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetStep input
let get_storage_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetStorageProfile input
let get_storage_profile_for_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetStorageProfileForQueue input
let get_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetTask input
let get_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetWorker input
let list_available_metered_products ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAvailableMeteredProducts input
let list_budgets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListBudgets input
let list_farm_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFarmMembers input
let list_farms ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFarms input
let list_fleet_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFleetMembers input
let list_fleets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFleets input
let list_job_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListJobMembers input
let list_job_parameter_definitions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListJobParameterDefinitions input
let list_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListJobs input
let list_license_endpoints ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListLicenseEndpoints input
let list_limits ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListLimits input
let list_metered_products ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListMeteredProducts input
let list_monitors ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListMonitors input
let list_queue_environments ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListQueueEnvironments input
let list_queue_fleet_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListQueueFleetAssociations input
let list_queue_limit_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListQueueLimitAssociations input
let list_queue_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListQueueMembers input
let list_queues ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListQueues input
let list_session_actions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSessionActions input
let list_sessions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSessions input
let list_sessions_for_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSessionsForWorker input
let list_step_consumers ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListStepConsumers input
let list_step_dependencies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListStepDependencies input
let list_steps ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSteps input
let list_storage_profiles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListStorageProfiles input
let list_storage_profiles_for_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListStorageProfilesForQueue input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTasks input
let list_workers ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListWorkers input
let put_metered_product ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutMeteredProduct input
let search_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SearchJobs input
let search_steps ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SearchSteps input
let search_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SearchTasks input
let search_workers ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SearchWorkers input
let start_sessions_statistics_aggregation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartSessionsStatisticsAggregation input
let tag_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TagResource input
let untag_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_budget ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateBudget input
let update_farm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFarm input
let update_fleet ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFleet input
let update_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateJob input
let update_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateLimit input
let update_monitor ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateMonitor input
let update_monitor_settings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateMonitorSettings input
let update_queue ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateQueue input
let update_queue_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateQueueEnvironment input
let update_queue_fleet_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateQueueFleetAssociation input
let update_queue_limit_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateQueueLimitAssociation input
let update_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSession input
let update_step ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateStep input
let update_storage_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateStorageProfile input
let update_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateTask input
let update_worker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateWorker input
let update_worker_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateWorkerSchedule input