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
open Awso_greengrass
open Awso_sync
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_role_to_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateRoleToGroup input
let associate_service_role_to_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateServiceRoleToAccount input
let create_connector_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConnectorDefinition input
let create_connector_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConnectorDefinitionVersion input
let create_core_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCoreDefinition input
let create_core_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCoreDefinitionVersion input
let create_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDeployment input
let create_device_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDeviceDefinition input
let create_device_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDeviceDefinitionVersion input
let create_function_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFunctionDefinition input
let create_function_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFunctionDefinitionVersion input
let create_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGroup input
let create_group_certificate_authority ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGroupCertificateAuthority input
let create_group_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGroupVersion input
let create_logger_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLoggerDefinition input
let create_logger_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLoggerDefinitionVersion input
let create_resource_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResourceDefinition input
let create_resource_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResourceDefinitionVersion input
let create_software_update_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSoftwareUpdateJob input
let create_subscription_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSubscriptionDefinition input
let create_subscription_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSubscriptionDefinitionVersion input
let delete_connector_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConnectorDefinition input
let delete_core_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCoreDefinition input
let delete_device_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDeviceDefinition input
let delete_function_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFunctionDefinition input
let delete_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGroup input
let delete_logger_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLoggerDefinition input
let delete_resource_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourceDefinition input
let delete_subscription_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSubscriptionDefinition input
let disassociate_role_from_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateRoleFromGroup input
let disassociate_service_role_from_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateServiceRoleFromAccount input
let get_associated_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAssociatedRole input
let get_bulk_deployment_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBulkDeploymentStatus input
let get_connectivity_info ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnectivityInfo input
let get_connector_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnectorDefinition input
let get_connector_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnectorDefinitionVersion input
let get_core_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCoreDefinition input
let get_core_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCoreDefinitionVersion input
let get_deployment_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeploymentStatus input
let get_device_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeviceDefinition input
let get_device_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeviceDefinitionVersion input
let get_function_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFunctionDefinition input
let get_function_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFunctionDefinitionVersion input
let get_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGroup input
let get_group_certificate_authority ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGroupCertificateAuthority input
let get_group_certificate_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGroupCertificateConfiguration input
let get_group_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGroupVersion input
let get_logger_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLoggerDefinition input
let get_logger_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLoggerDefinitionVersion input
let get_resource_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourceDefinition input
let get_resource_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourceDefinitionVersion input
let get_service_role_for_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceRoleForAccount input
let get_subscription_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSubscriptionDefinition input
let get_subscription_definition_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSubscriptionDefinitionVersion input
let get_thing_runtime_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetThingRuntimeConfiguration input
let list_bulk_deployment_detailed_reports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBulkDeploymentDetailedReports input
let list_bulk_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBulkDeployments input
let list_connector_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListConnectorDefinitionVersions input
let list_connector_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListConnectorDefinitions input
let list_core_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCoreDefinitionVersions input
let list_core_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCoreDefinitions input
let list_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDeployments input
let list_device_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDeviceDefinitionVersions input
let list_device_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDeviceDefinitions input
let list_function_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFunctionDefinitionVersions input
let list_function_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFunctionDefinitions input
let list_group_certificate_authorities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroupCertificateAuthorities input
let list_group_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroupVersions input
let list_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroups input
let list_logger_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLoggerDefinitionVersions input
let list_logger_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLoggerDefinitions input
let list_resource_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceDefinitionVersions input
let list_resource_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceDefinitions input
let list_subscription_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSubscriptionDefinitionVersions input
let list_subscription_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSubscriptionDefinitions input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let reset_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetDeployments input
let start_bulk_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartBulkDeployment input
let stop_bulk_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopBulkDeployment 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_connectivity_info ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConnectivityInfo input
let update_connector_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConnectorDefinition input
let update_core_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCoreDefinition input
let update_device_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDeviceDefinition input
let update_function_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFunctionDefinition input
let update_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGroup input
let update_group_certificate_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGroupCertificateConfiguration input
let update_logger_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLoggerDefinition input
let update_resource_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResourceDefinition input
let update_subscription_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSubscriptionDefinition input
let update_thing_runtime_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateThingRuntimeConfiguration input