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
(* 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_config
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_resource_types ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateResourceTypes input
let batch_get_aggregate_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetAggregateResourceConfig input
let batch_get_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetResourceConfig input
let delete_aggregation_authorization ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAggregationAuthorization input
let delete_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConfigRule input
let delete_configuration_aggregator ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConfigurationAggregator input
let delete_configuration_recorder ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConfigurationRecorder input
let delete_conformance_pack ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConformancePack input
let delete_delivery_channel ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDeliveryChannel input
let delete_evaluation_results ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEvaluationResults input
let delete_organization_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteOrganizationConfigRule input
let delete_organization_conformance_pack ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteOrganizationConformancePack input
let delete_pending_aggregation_request ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeletePendingAggregationRequest input
let delete_remediation_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRemediationConfiguration input
let delete_remediation_exceptions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRemediationExceptions input
let delete_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteResourceConfig input
let delete_retention_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRetentionConfiguration input
let delete_service_linked_configuration_recorder ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteServiceLinkedConfigurationRecorder
    input
let delete_stored_query ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteStoredQuery input
let deliver_config_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeliverConfigSnapshot input
let describe_aggregate_compliance_by_config_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAggregateComplianceByConfigRules
    input
let describe_aggregate_compliance_by_conformance_packs ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeAggregateComplianceByConformancePacks input
let describe_aggregation_authorizations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAggregationAuthorizations input
let describe_compliance_by_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeComplianceByConfigRule input
let describe_compliance_by_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeComplianceByResource input
let describe_config_rule_evaluation_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConfigRuleEvaluationStatus input
let describe_config_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConfigRules input
let describe_configuration_aggregator_sources_status ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeConfigurationAggregatorSourcesStatus input
let describe_configuration_aggregators ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConfigurationAggregators input
let describe_configuration_recorder_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConfigurationRecorderStatus input
let describe_configuration_recorders ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConfigurationRecorders input
let describe_conformance_pack_compliance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConformancePackCompliance input
let describe_conformance_pack_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConformancePackStatus input
let describe_conformance_packs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConformancePacks input
let describe_delivery_channel_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDeliveryChannelStatus input
let describe_delivery_channels ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDeliveryChannels input
let describe_organization_config_rule_statuses ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeOrganizationConfigRuleStatuses
    input
let describe_organization_config_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeOrganizationConfigRules input
let describe_organization_conformance_pack_statuses ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeOrganizationConformancePackStatuses input
let describe_organization_conformance_packs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeOrganizationConformancePacks
    input
let describe_pending_aggregation_requests ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePendingAggregationRequests input
let describe_remediation_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRemediationConfigurations input
let describe_remediation_exceptions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRemediationExceptions input
let describe_remediation_execution_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRemediationExecutionStatus input
let describe_retention_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRetentionConfigurations input
let disassociate_resource_types ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateResourceTypes input
let get_aggregate_compliance_details_by_config_rule ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg Endpoints.GetAggregateComplianceDetailsByConfigRule
    input
let get_aggregate_config_rule_compliance_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAggregateConfigRuleComplianceSummary
    input
let get_aggregate_conformance_pack_compliance_summary ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.GetAggregateConformancePackComplianceSummary input
let get_aggregate_discovered_resource_counts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAggregateDiscoveredResourceCounts
    input
let get_aggregate_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAggregateResourceConfig input
let get_compliance_details_by_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetComplianceDetailsByConfigRule input
let get_compliance_details_by_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetComplianceDetailsByResource input
let get_compliance_summary_by_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetComplianceSummaryByConfigRule input
let get_compliance_summary_by_resource_type ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetComplianceSummaryByResourceType input
let get_conformance_pack_compliance_details ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConformancePackComplianceDetails input
let get_conformance_pack_compliance_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConformancePackComplianceSummary input
let get_custom_rule_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCustomRulePolicy input
let get_discovered_resource_counts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDiscoveredResourceCounts input
let get_organization_config_rule_detailed_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOrganizationConfigRuleDetailedStatus
    input
let get_organization_conformance_pack_detailed_status ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.GetOrganizationConformancePackDetailedStatus input
let get_organization_custom_rule_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOrganizationCustomRulePolicy input
let get_resource_config_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourceConfigHistory input
let get_resource_evaluation_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourceEvaluationSummary input
let get_stored_query ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetStoredQuery input
let list_aggregate_discovered_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAggregateDiscoveredResources input
let list_configuration_recorders ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConfigurationRecorders input
let list_conformance_pack_compliance_scores ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConformancePackComplianceScores input
let list_discovered_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDiscoveredResources input
let list_resource_evaluations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListResourceEvaluations input
let list_stored_queries ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListStoredQueries input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_aggregation_authorization ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAggregationAuthorization input
let put_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigRule input
let put_configuration_aggregator ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationAggregator input
let put_configuration_recorder ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationRecorder input
let put_conformance_pack ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConformancePack input
let put_delivery_channel ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDeliveryChannel input
let put_evaluations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutEvaluations input
let put_external_evaluation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutExternalEvaluation input
let put_organization_config_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutOrganizationConfigRule input
let put_organization_conformance_pack ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutOrganizationConformancePack input
let put_remediation_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutRemediationConfigurations input
let put_remediation_exceptions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutRemediationExceptions input
let put_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutResourceConfig input
let put_retention_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutRetentionConfiguration input
let put_service_linked_configuration_recorder ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutServiceLinkedConfigurationRecorder
    input
let put_stored_query ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutStoredQuery input
let select_aggregate_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SelectAggregateResourceConfig input
let select_resource_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SelectResourceConfig input
let start_config_rules_evaluation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartConfigRulesEvaluation input
let start_configuration_recorder ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartConfigurationRecorder input
let start_remediation_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartRemediationExecution input
let start_resource_evaluation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartResourceEvaluation input
let stop_configuration_recorder ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopConfigurationRecorder 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