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
(* 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_network_firewall
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_network_firewall_transit_gateway_attachment ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.AcceptNetworkFirewallTransitGatewayAttachment input
let associate_availability_zones ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateAvailabilityZones input
let associate_firewall_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateFirewallPolicy input
let associate_subnets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateSubnets input
let attach_rule_groups_to_proxy_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachRuleGroupsToProxyConfiguration
    input
let create_firewall ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateFirewall input
let create_firewall_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateFirewallPolicy input
let create_proxy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateProxy input
let create_proxy_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateProxyConfiguration input
let create_proxy_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateProxyRuleGroup input
let create_proxy_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateProxyRules input
let create_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRuleGroup input
let create_t_l_s_inspection_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTLSInspectionConfiguration input
let create_vpc_endpoint_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateVpcEndpointAssociation input
let delete_firewall ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteFirewall input
let delete_firewall_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteFirewallPolicy input
let delete_network_firewall_transit_gateway_attachment ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.DeleteNetworkFirewallTransitGatewayAttachment input
let delete_proxy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteProxy input
let delete_proxy_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteProxyConfiguration input
let delete_proxy_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteProxyRuleGroup input
let delete_proxy_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteProxyRules input
let delete_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRuleGroup input
let delete_t_l_s_inspection_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTLSInspectionConfiguration input
let delete_vpc_endpoint_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteVpcEndpointAssociation input
let describe_firewall ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeFirewall input
let describe_firewall_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeFirewallMetadata input
let describe_firewall_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeFirewallPolicy input
let describe_flow_operation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeFlowOperation input
let describe_logging_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeLoggingConfiguration input
let describe_proxy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProxy input
let describe_proxy_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProxyConfiguration input
let describe_proxy_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProxyRule input
let describe_proxy_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeProxyRuleGroup input
let describe_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeResourcePolicy input
let describe_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRuleGroup input
let describe_rule_group_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRuleGroupMetadata input
let describe_rule_group_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRuleGroupSummary input
let describe_t_l_s_inspection_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTLSInspectionConfiguration input
let describe_vpc_endpoint_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeVpcEndpointAssociation input
let detach_rule_groups_from_proxy_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DetachRuleGroupsFromProxyConfiguration
    input
let disassociate_availability_zones ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateAvailabilityZones input
let disassociate_subnets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateSubnets input
let get_analysis_report_results ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAnalysisReportResults input
let list_analysis_reports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAnalysisReports input
let list_firewall_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFirewallPolicies input
let list_firewalls ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFirewalls input
let list_flow_operation_results ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFlowOperationResults input
let list_flow_operations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFlowOperations input
let list_proxies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListProxies input
let list_proxy_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListProxyConfigurations input
let list_proxy_rule_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListProxyRuleGroups input
let list_rule_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListRuleGroups input
let list_t_l_s_inspection_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTLSInspectionConfigurations input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_vpc_endpoint_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListVpcEndpointAssociations input
let put_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let reject_network_firewall_transit_gateway_attachment ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.RejectNetworkFirewallTransitGatewayAttachment input
let start_analysis_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAnalysisReport input
let start_flow_capture ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartFlowCapture input
let start_flow_flush ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartFlowFlush 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_availability_zone_change_protection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAvailabilityZoneChangeProtection
    input
let update_firewall_analysis_settings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFirewallAnalysisSettings input
let update_firewall_delete_protection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFirewallDeleteProtection input
let update_firewall_description ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFirewallDescription input
let update_firewall_encryption_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFirewallEncryptionConfiguration
    input
let update_firewall_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFirewallPolicy input
let update_firewall_policy_change_protection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFirewallPolicyChangeProtection
    input
let update_logging_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateLoggingConfiguration input
let update_proxy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateProxy input
let update_proxy_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateProxyConfiguration input
let update_proxy_rule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateProxyRule input
let update_proxy_rule_group_priorities ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateProxyRuleGroupPriorities input
let update_proxy_rule_priorities ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateProxyRulePriorities input
let update_rule_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateRuleGroup input
let update_subnet_change_protection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateSubnetChangeProtection input
let update_t_l_s_inspection_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateTLSInspectionConfiguration input