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
open Awso_iotwireless
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 associate_aws_account_with_partner_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateAwsAccountWithPartnerAccount
input
let associate_multicast_group_with_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateMulticastGroupWithFuotaTask
input
let associate_wireless_device_with_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateWirelessDeviceWithFuotaTask
input
let associate_wireless_device_with_multicast_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateWirelessDeviceWithMulticastGroup
input
let associate_wireless_device_with_thing ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateWirelessDeviceWithThing input
let associate_wireless_gateway_with_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateWirelessGatewayWithCertificate
input
let associate_wireless_gateway_with_thing ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateWirelessGatewayWithThing input
let cancel_multicast_group_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelMulticastGroupSession input
let create_destination ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDestination input
let create_device_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDeviceProfile input
let create_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFuotaTask input
let create_multicast_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMulticastGroup input
let create_network_analyzer_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateNetworkAnalyzerConfiguration input
let create_service_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServiceProfile input
let create_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWirelessDevice input
let create_wireless_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWirelessGateway input
let create_wireless_gateway_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWirelessGatewayTask input
let create_wireless_gateway_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWirelessGatewayTaskDefinition input
let delete_destination ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDestination input
let delete_device_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDeviceProfile input
let delete_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFuotaTask input
let delete_multicast_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMulticastGroup input
let delete_network_analyzer_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteNetworkAnalyzerConfiguration input
let delete_queued_messages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteQueuedMessages input
let delete_service_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServiceProfile input
let delete_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWirelessDevice input
let delete_wireless_device_import_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWirelessDeviceImportTask input
let delete_wireless_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWirelessGateway input
let delete_wireless_gateway_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWirelessGatewayTask input
let delete_wireless_gateway_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWirelessGatewayTaskDefinition input
let deregister_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterWirelessDevice input
let disassociate_aws_account_from_partner_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateAwsAccountFromPartnerAccount
input
let disassociate_multicast_group_from_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateMulticastGroupFromFuotaTask
input
let disassociate_wireless_device_from_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateWirelessDeviceFromFuotaTask
input
let disassociate_wireless_device_from_multicast_group ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.DisassociateWirelessDeviceFromMulticastGroup input
let disassociate_wireless_device_from_thing ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateWirelessDeviceFromThing input
let disassociate_wireless_gateway_from_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.DisassociateWirelessGatewayFromCertificate input
let disassociate_wireless_gateway_from_thing ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateWirelessGatewayFromThing
input
let get_destination ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDestination input
let get_device_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeviceProfile input
let get_event_configuration_by_resource_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEventConfigurationByResourceTypes
input
let get_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFuotaTask input
let get_log_levels_by_resource_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLogLevelsByResourceTypes input
let get_metric_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMetricConfiguration input
let get_metrics ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMetrics input
let get_multicast_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMulticastGroup input
let get_multicast_group_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMulticastGroupSession input
let get_network_analyzer_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkAnalyzerConfiguration input
let get_partner_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPartnerAccount input
let get_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPosition input
let get_position_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPositionConfiguration input
let get_position_estimate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPositionEstimate input
let get_resource_event_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourceEventConfiguration input
let get_resource_log_level ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourceLogLevel input
let get_resource_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePosition input
let get_service_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceEndpoint input
let get_service_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceProfile input
let get_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessDevice input
let get_wireless_device_import_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessDeviceImportTask input
let get_wireless_device_statistics ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessDeviceStatistics input
let get_wireless_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessGateway input
let get_wireless_gateway_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessGatewayCertificate input
let get_wireless_gateway_firmware_information ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessGatewayFirmwareInformation
input
let get_wireless_gateway_statistics ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessGatewayStatistics input
let get_wireless_gateway_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessGatewayTask input
let get_wireless_gateway_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWirelessGatewayTaskDefinition input
let list_destinations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDestinations input
let list_device_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDeviceProfiles input
let list_devices_for_wireless_device_import_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevicesForWirelessDeviceImportTask
input
let list_event_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEventConfigurations input
let list_fuota_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFuotaTasks input
let list_multicast_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMulticastGroups input
let list_multicast_groups_by_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMulticastGroupsByFuotaTask input
let list_network_analyzer_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNetworkAnalyzerConfigurations input
let list_partner_accounts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPartnerAccounts input
let list_position_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPositionConfigurations input
let list_queued_messages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListQueuedMessages input
let list_service_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceProfiles input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_wireless_device_import_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWirelessDeviceImportTasks input
let list_wireless_devices ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWirelessDevices input
let list_wireless_gateway_task_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWirelessGatewayTaskDefinitions input
let list_wireless_gateways ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWirelessGateways input
let put_position_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutPositionConfiguration input
let put_resource_log_level ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourceLogLevel input
let reset_all_resource_log_levels ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetAllResourceLogLevels input
let reset_resource_log_level ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetResourceLogLevel input
let send_data_to_multicast_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SendDataToMulticastGroup input
let send_data_to_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SendDataToWirelessDevice input
let start_bulk_associate_wireless_device_with_multicast_group ?endpoint_url
?cfg input =
eval ?endpoint_url ?cfg
Endpoints.StartBulkAssociateWirelessDeviceWithMulticastGroup input
let start_bulk_disassociate_wireless_device_from_multicast_group
?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.StartBulkDisassociateWirelessDeviceFromMulticastGroup input
let start_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartFuotaTask input
let start_multicast_group_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartMulticastGroupSession input
let start_single_wireless_device_import_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartSingleWirelessDeviceImportTask input
let start_wireless_device_import_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartWirelessDeviceImportTask input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let test_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestWirelessDevice input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_destination ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDestination input
let update_event_configuration_by_resource_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateEventConfigurationByResourceTypes
input
let update_fuota_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFuotaTask input
let update_log_levels_by_resource_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLogLevelsByResourceTypes input
let update_metric_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMetricConfiguration input
let update_multicast_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMulticastGroup input
let update_network_analyzer_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNetworkAnalyzerConfiguration input
let update_partner_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePartnerAccount input
let update_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePosition input
let update_resource_event_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResourceEventConfiguration input
let update_resource_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResourcePosition input
let update_wireless_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWirelessDevice input
let update_wireless_device_import_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWirelessDeviceImportTask input
let update_wireless_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWirelessGateway input