package awso-async
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(* 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_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 ?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