package awso-async

  1. Overview
  2. Docs

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
(* 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_iot_managed_integrations
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 create_account_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAccountAssociation input
let create_cloud_connector ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCloudConnector input
let create_connector_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConnectorDestination input
let create_credential_locker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCredentialLocker input
let create_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDestination input
let create_event_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEventLogConfiguration input
let create_managed_thing ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateManagedThing input
let create_notification_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateNotificationConfiguration input
let create_ota_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateOtaTask input
let create_ota_task_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateOtaTaskConfiguration input
let create_provisioning_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateProvisioningProfile input
let delete_account_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAccountAssociation input
let delete_cloud_connector ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCloudConnector input
let delete_connector_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConnectorDestination input
let delete_credential_locker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCredentialLocker input
let delete_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDestination input
let delete_event_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEventLogConfiguration input
let delete_managed_thing ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteManagedThing input
let delete_notification_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteNotificationConfiguration input
let delete_ota_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteOtaTask input
let delete_ota_task_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteOtaTaskConfiguration input
let delete_provisioning_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteProvisioningProfile input
let deregister_account_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterAccountAssociation input
let get_account_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAccountAssociation input
let get_cloud_connector ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCloudConnector input
let get_connector_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConnectorDestination input
let get_credential_locker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCredentialLocker input
let get_custom_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCustomEndpoint input
let get_default_encryption_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDefaultEncryptionConfiguration input
let get_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDestination input
let get_device_discovery ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDeviceDiscovery input
let get_event_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEventLogConfiguration input
let get_hub_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetHubConfiguration input
let get_managed_thing ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetManagedThing input
let get_managed_thing_capabilities ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetManagedThingCapabilities input
let get_managed_thing_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetManagedThingCertificate input
let get_managed_thing_connectivity_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetManagedThingConnectivityData input
let get_managed_thing_meta_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetManagedThingMetaData input
let get_managed_thing_state ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetManagedThingState input
let get_notification_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetNotificationConfiguration input
let get_ota_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOtaTask input
let get_ota_task_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOtaTaskConfiguration input
let get_provisioning_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetProvisioningProfile input
let get_runtime_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRuntimeLogConfiguration input
let get_schema_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSchemaVersion input
let list_account_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAccountAssociations input
let list_cloud_connectors ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCloudConnectors input
let list_connector_destinations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConnectorDestinations input
let list_credential_lockers ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCredentialLockers input
let list_destinations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDestinations input
let list_device_discoveries ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDeviceDiscoveries input
let list_discovered_devices ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDiscoveredDevices input
let list_event_log_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEventLogConfigurations input
let list_managed_thing_account_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListManagedThingAccountAssociations input
let list_managed_thing_schemas ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListManagedThingSchemas input
let list_managed_things ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListManagedThings input
let list_notification_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListNotificationConfigurations input
let list_ota_task_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOtaTaskConfigurations input
let list_ota_task_executions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOtaTaskExecutions input
let list_ota_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOtaTasks input
let list_provisioning_profiles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListProvisioningProfiles input
let list_schema_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSchemaVersions input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_default_encryption_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDefaultEncryptionConfiguration input
let put_hub_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutHubConfiguration input
let put_runtime_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutRuntimeLogConfiguration input
let register_account_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterAccountAssociation input
let register_custom_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterCustomEndpoint input
let reset_runtime_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResetRuntimeLogConfiguration input
let send_connector_event ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendConnectorEvent input
let send_managed_thing_command ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendManagedThingCommand input
let start_account_association_refresh ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAccountAssociationRefresh input
let start_device_discovery ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartDeviceDiscovery 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_account_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAccountAssociation input
let update_cloud_connector ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateCloudConnector input
let update_connector_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateConnectorDestination input
let update_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDestination input
let update_event_log_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEventLogConfiguration input
let update_managed_thing ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateManagedThing input
let update_notification_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateNotificationConfiguration input
let update_ota_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateOtaTask input