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
(* 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_securityhub
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 accept_administrator_invitation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AcceptAdministratorInvitation input
let accept_invitation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AcceptInvitation input
let batch_delete_automation_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchDeleteAutomationRules input
let batch_disable_standards ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchDisableStandards input
let batch_enable_standards ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchEnableStandards input
let batch_get_automation_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetAutomationRules input
let batch_get_configuration_policy_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetConfigurationPolicyAssociations
    input
let batch_get_security_controls ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetSecurityControls input
let batch_get_standards_control_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetStandardsControlAssociations
    input
let batch_import_findings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchImportFindings input
let batch_update_automation_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateAutomationRules input
let batch_update_findings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateFindings input
let batch_update_findings_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateFindingsV2 input
let batch_update_standards_control_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateStandardsControlAssociations
    input
let create_action_target ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateActionTarget input
let create_aggregator_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAggregatorV2 input
let create_automation_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAutomationRule input
let create_automation_rule_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAutomationRuleV2 input
let create_configuration_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConfigurationPolicy input
let create_connector_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConnectorV2 input
let create_finding_aggregator ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateFindingAggregator input
let create_insight ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateInsight input
let create_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateMembers input
let create_ticket_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTicketV2 input
let decline_invitations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeclineInvitations input
let delete_action_target ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteActionTarget input
let delete_aggregator_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAggregatorV2 input
let delete_automation_rule_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAutomationRuleV2 input
let delete_configuration_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConfigurationPolicy input
let delete_connector_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConnectorV2 input
let delete_finding_aggregator ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteFindingAggregator input
let delete_insight ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteInsight input
let delete_invitations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteInvitations input
let delete_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteMembers input
let describe_action_targets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeActionTargets input
let describe_hub ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeHub input
let describe_organization_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeOrganizationConfiguration input
let describe_products ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProducts input
let describe_products_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProductsV2 input
let describe_security_hub_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSecurityHubV2 input
let describe_standards ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeStandards input
let describe_standards_controls ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeStandardsControls input
let disable_import_findings_for_product ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableImportFindingsForProduct input
let disable_organization_admin_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableOrganizationAdminAccount input
let disable_security_hub ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableSecurityHub input
let disable_security_hub_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableSecurityHubV2 input
let disassociate_from_administrator_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateFromAdministratorAccount
    input
let disassociate_from_master_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateFromMasterAccount input
let disassociate_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateMembers input
let enable_import_findings_for_product ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableImportFindingsForProduct input
let enable_organization_admin_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableOrganizationAdminAccount input
let enable_security_hub ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableSecurityHub input
let enable_security_hub_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableSecurityHubV2 input
let generate_recommended_policy_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GenerateRecommendedPolicyV2 input
let get_administrator_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAdministratorAccount input
let get_aggregator_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAggregatorV2 input
let get_automation_rule_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAutomationRuleV2 input
let get_configuration_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConfigurationPolicy input
let get_configuration_policy_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConfigurationPolicyAssociation input
let get_connector_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConnectorV2 input
let get_enabled_standards ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEnabledStandards input
let get_finding_aggregator ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFindingAggregator input
let get_finding_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFindingHistory input
let get_finding_statistics_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFindingStatisticsV2 input
let get_findings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFindings input
let get_findings_trends_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFindingsTrendsV2 input
let get_findings_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetFindingsV2 input
let get_insight_results ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInsightResults input
let get_insights ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInsights input
let get_invitations_count ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInvitationsCount input
let get_master_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMasterAccount input
let get_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMembers input
let get_recommended_policy_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRecommendedPolicyV2 input
let get_resources_statistics_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourcesStatisticsV2 input
let get_resources_trends_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourcesTrendsV2 input
let get_resources_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourcesV2 input
let get_security_control_definition ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSecurityControlDefinition input
let invite_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.InviteMembers input
let list_aggregators_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAggregatorsV2 input
let list_automation_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAutomationRules input
let list_automation_rules_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAutomationRulesV2 input
let list_configuration_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConfigurationPolicies input
let list_configuration_policy_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConfigurationPolicyAssociations input
let list_connectors_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConnectorsV2 input
let list_enabled_products_for_import ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnabledProductsForImport input
let list_finding_aggregators ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFindingAggregators input
let list_invitations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListInvitations input
let list_members ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListMembers input
let list_organization_admin_accounts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOrganizationAdminAccounts input
let list_security_control_definitions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSecurityControlDefinitions input
let list_standards_control_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListStandardsControlAssociations input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let register_connector_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterConnectorV2 input
let start_configuration_policy_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartConfigurationPolicyAssociation input
let start_configuration_policy_disassociation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartConfigurationPolicyDisassociation
    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_action_target ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateActionTarget input
let update_aggregator_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAggregatorV2 input
let update_automation_rule_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAutomationRuleV2 input
let update_configuration_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateConfigurationPolicy input
let update_connector_v2 ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateConnectorV2 input
let update_finding_aggregator ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFindingAggregator input
let update_findings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFindings input
let update_insight ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateInsight input
let update_organization_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateOrganizationConfiguration input
let update_security_control ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSecurityControl input
let update_security_hub_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSecurityHubConfiguration input
let update_standards_control ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateStandardsControl input