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
(* 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_iotsitewise
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_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateAssets input
let associate_time_series_to_asset_property ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateTimeSeriesToAssetProperty input
let batch_associate_project_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchAssociateProjectAssets input
let batch_disassociate_project_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchDisassociateProjectAssets input
let batch_get_asset_property_aggregates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetAssetPropertyAggregates input
let batch_get_asset_property_value ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetAssetPropertyValue input
let batch_get_asset_property_value_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetAssetPropertyValueHistory input
let batch_put_asset_property_value ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchPutAssetPropertyValue input
let create_access_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAccessPolicy input
let create_asset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAsset input
let create_asset_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAssetModel input
let create_asset_model_composite_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAssetModelCompositeModel input
let create_bulk_import_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateBulkImportJob input
let create_computation_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateComputationModel input
let create_dashboard ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDashboard input
let create_dataset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDataset input
let create_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateGateway input
let create_portal ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreatePortal input
let create_project ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateProject input
let delete_access_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAccessPolicy input
let delete_asset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAsset input
let delete_asset_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAssetModel input
let delete_asset_model_composite_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAssetModelCompositeModel input
let delete_asset_model_interface_relationship ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAssetModelInterfaceRelationship
    input
let delete_computation_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteComputationModel input
let delete_dashboard ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDashboard input
let delete_dataset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDataset input
let delete_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteGateway input
let delete_portal ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeletePortal input
let delete_project ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteProject input
let delete_time_series ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTimeSeries input
let describe_access_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAccessPolicy input
let describe_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAction input
let describe_asset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAsset input
let describe_asset_composite_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssetCompositeModel input
let describe_asset_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssetModel input
let describe_asset_model_composite_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssetModelCompositeModel input
let describe_asset_model_interface_relationship ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssetModelInterfaceRelationship
    input
let describe_asset_property ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssetProperty input
let describe_bulk_import_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeBulkImportJob input
let describe_computation_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeComputationModel input
let describe_computation_model_execution_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeComputationModelExecutionSummary
    input
let describe_dashboard ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDashboard input
let describe_dataset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDataset input
let describe_default_encryption_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDefaultEncryptionConfiguration
    input
let describe_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeExecution input
let describe_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeGateway input
let describe_gateway_capability_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeGatewayCapabilityConfiguration
    input
let describe_logging_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeLoggingOptions input
let describe_portal ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePortal input
let describe_project ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProject input
let describe_storage_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeStorageConfiguration input
let describe_time_series ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTimeSeries input
let disassociate_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateAssets input
let disassociate_time_series_from_asset_property ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateTimeSeriesFromAssetProperty
    input
let execute_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ExecuteAction input
let execute_query ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ExecuteQuery input
let get_asset_property_aggregates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAssetPropertyAggregates input
let get_asset_property_value ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAssetPropertyValue input
let get_asset_property_value_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAssetPropertyValueHistory input
let get_interpolated_asset_property_values ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInterpolatedAssetPropertyValues input
let invoke_assistant ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.InvokeAssistant input
let list_access_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAccessPolicies input
let list_actions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListActions input
let list_asset_model_composite_models ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssetModelCompositeModels input
let list_asset_model_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssetModelProperties input
let list_asset_models ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssetModels input
let list_asset_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssetProperties input
let list_asset_relationships ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssetRelationships input
let list_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssets input
let list_associated_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssociatedAssets input
let list_bulk_import_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListBulkImportJobs input
let list_composition_relationships ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCompositionRelationships input
let list_computation_model_data_binding_usages ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComputationModelDataBindingUsages
    input
let list_computation_model_resolve_to_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComputationModelResolveToResources
    input
let list_computation_models ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComputationModels input
let list_dashboards ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDashboards input
let list_datasets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDatasets input
let list_executions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListExecutions input
let list_gateways ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListGateways input
let list_interface_relationships ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListInterfaceRelationships input
let list_portals ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListPortals input
let list_project_assets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListProjectAssets input
let list_projects ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListProjects input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_time_series ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTimeSeries input
let put_asset_model_interface_relationship ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAssetModelInterfaceRelationship input
let put_default_encryption_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDefaultEncryptionConfiguration input
let put_logging_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutLoggingOptions input
let put_storage_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutStorageConfiguration 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_access_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAccessPolicy input
let update_asset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAsset input
let update_asset_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAssetModel input
let update_asset_model_composite_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAssetModelCompositeModel input
let update_asset_property ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAssetProperty input
let update_computation_model ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateComputationModel input
let update_dashboard ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDashboard input
let update_dataset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDataset input
let update_gateway ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateGateway input
let update_gateway_capability_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateGatewayCapabilityConfiguration
    input
let update_portal ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdatePortal input
let update_project ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateProject input