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
open Awso_cloudformation
open Awso_async
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 activate_organizations_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ActivateOrganizationsAccess input
let activate_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ActivateType input
let batch_describe_type_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDescribeTypeConfigurations input
let cancel_update_stack ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelUpdateStack input
let continue_update_rollback ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ContinueUpdateRollback input
let create_change_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateChangeSet input
let create_generated_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGeneratedTemplate input
let create_stack ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStack input
let create_stack_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStackInstances input
let create_stack_refactor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStackRefactor input
let create_stack_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStackSet input
let deactivate_organizations_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeactivateOrganizationsAccess input
let deactivate_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeactivateType input
let delete_change_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteChangeSet input
let delete_generated_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGeneratedTemplate input
let delete_stack ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStack input
let delete_stack_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStackInstances input
let delete_stack_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStackSet input
let deregister_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterType input
let describe_account_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAccountLimits input
let describe_change_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeChangeSet input
let describe_change_set_hooks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeChangeSetHooks input
let describe_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEvents input
let describe_generated_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGeneratedTemplate input
let describe_organizations_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOrganizationsAccess input
let describe_publisher ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePublisher input
let describe_resource_scan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeResourceScan input
let describe_stack_drift_detection_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackDriftDetectionStatus input
let describe_stack_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackEvents input
let describe_stack_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackInstance input
let describe_stack_refactor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackRefactor input
let describe_stack_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackResource input
let describe_stack_resource_drifts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackResourceDrifts input
let describe_stack_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackResources input
let describe_stack_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackSet input
let describe_stack_set_operation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStackSetOperation input
let describe_stacks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStacks input
let describe_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeType input
let describe_type_registration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTypeRegistration input
let detect_stack_drift ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetectStackDrift input
let detect_stack_resource_drift ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetectStackResourceDrift input
let detect_stack_set_drift ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetectStackSetDrift input
let estimate_template_cost ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EstimateTemplateCost input
let execute_change_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecuteChangeSet input
let execute_stack_refactor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecuteStackRefactor input
let get_generated_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGeneratedTemplate input
let get_hook_result ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHookResult input
let get_stack_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStackPolicy input
let get_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTemplate input
let get_template_summary ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTemplateSummary input
let import_stacks_to_stack_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportStacksToStackSet input
let list_change_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListChangeSets input
let list_exports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListExports input
let list_generated_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGeneratedTemplates input
let list_hook_results ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHookResults input
let list_imports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListImports input
let list_resource_scan_related_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceScanRelatedResources input
let list_resource_scan_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceScanResources input
let list_resource_scans ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceScans input
let list_stack_instance_resource_drifts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackInstanceResourceDrifts input
let list_stack_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackInstances input
let list_stack_refactor_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackRefactorActions input
let list_stack_refactors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackRefactors input
let list_stack_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackResources input
let list_stack_set_auto_deployment_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackSetAutoDeploymentTargets input
let list_stack_set_operation_results ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackSetOperationResults input
let list_stack_set_operations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackSetOperations input
let list_stack_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackSets input
let list_stacks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStacks input
let list_type_registrations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTypeRegistrations input
let list_type_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTypeVersions input
let list_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTypes input
let publish_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PublishType input
let record_handler_progress ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RecordHandlerProgress input
let register_publisher ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterPublisher input
let register_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterType input
let rollback_stack ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RollbackStack input
let set_stack_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetStackPolicy input
let set_type_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetTypeConfiguration input
let set_type_default_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetTypeDefaultVersion input
let signal_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SignalResource input
let start_resource_scan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartResourceScan input
let stop_stack_set_operation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopStackSetOperation input
let test_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestType input
let update_generated_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGeneratedTemplate input
let update_stack ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStack input
let update_stack_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStackInstances input
let update_stack_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStackSet input
let update_termination_protection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTerminationProtection input
let validate_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ValidateTemplate input