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
open Awso_waf
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 create_byte_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateByteMatchSet input
let create_geo_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGeoMatchSet input
let create_i_p_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIPSet input
let create_rate_based_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRateBasedRule input
let create_regex_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRegexMatchSet input
let create_regex_pattern_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRegexPatternSet input
let create_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRule input
let create_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRuleGroup input
let create_size_constraint_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSizeConstraintSet input
let create_sql_injection_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSqlInjectionMatchSet input
let create_web_a_c_l ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWebACL input
let create_web_a_c_l_migration_stack ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWebACLMigrationStack input
let create_xss_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateXssMatchSet input
let delete_byte_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteByteMatchSet input
let delete_geo_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGeoMatchSet input
let delete_i_p_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIPSet input
let delete_logging_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLoggingConfiguration input
let delete_permission_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePermissionPolicy input
let delete_rate_based_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRateBasedRule input
let delete_regex_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRegexMatchSet input
let delete_regex_pattern_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRegexPatternSet input
let delete_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRule input
let delete_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRuleGroup input
let delete_size_constraint_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSizeConstraintSet input
let delete_sql_injection_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSqlInjectionMatchSet input
let delete_web_a_c_l ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWebACL input
let delete_xss_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteXssMatchSet input
let get_byte_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetByteMatchSet input
let get_change_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChangeToken input
let get_change_token_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChangeTokenStatus input
let get_geo_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGeoMatchSet input
let get_i_p_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIPSet input
let get_logging_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLoggingConfiguration input
let get_permission_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPermissionPolicy input
let get_rate_based_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRateBasedRule input
let get_rate_based_rule_managed_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRateBasedRuleManagedKeys input
let get_regex_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRegexMatchSet input
let get_regex_pattern_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRegexPatternSet input
let get_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRule input
let get_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRuleGroup input
let get_sampled_requests ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSampledRequests input
let get_size_constraint_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSizeConstraintSet input
let get_sql_injection_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSqlInjectionMatchSet input
let get_web_a_c_l ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWebACL input
let get_xss_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetXssMatchSet input
let list_activated_rules_in_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListActivatedRulesInRuleGroup input
let list_byte_match_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListByteMatchSets input
let list_geo_match_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGeoMatchSets input
let list_i_p_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIPSets input
let list_logging_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLoggingConfigurations input
let list_rate_based_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRateBasedRules input
let list_regex_match_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRegexMatchSets input
let list_regex_pattern_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRegexPatternSets input
let list_rule_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRuleGroups input
let list_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRules input
let list_size_constraint_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSizeConstraintSets input
let list_sql_injection_match_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSqlInjectionMatchSets input
let list_subscribed_rule_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSubscribedRuleGroups input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_web_a_c_ls ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWebACLs input
let list_xss_match_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListXssMatchSets input
let put_logging_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutLoggingConfiguration input
let put_permission_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutPermissionPolicy 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_byte_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateByteMatchSet input
let update_geo_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGeoMatchSet input
let update_i_p_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIPSet input
let update_rate_based_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRateBasedRule input
let update_regex_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRegexMatchSet input
let update_regex_pattern_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRegexPatternSet input
let update_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRule input
let update_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRuleGroup input
let update_size_constraint_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSizeConstraintSet input
let update_sql_injection_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSqlInjectionMatchSet input
let update_web_a_c_l ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWebACL input
let update_xss_match_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateXssMatchSet input