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
open Awso_servicecatalog
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 accept_portfolio_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptPortfolioShare input
let associate_budget_with_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateBudgetWithResource input
let associate_principal_with_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociatePrincipalWithPortfolio input
let associate_product_with_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateProductWithPortfolio input
let associate_service_action_with_provisioning_artifact ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.AssociateServiceActionWithProvisioningArtifact input
let associate_tag_option_with_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateTagOptionWithResource input
let batch_associate_service_action_with_provisioning_artifact ?endpoint_url
?cfg input =
eval ?endpoint_url ?cfg
Endpoints.BatchAssociateServiceActionWithProvisioningArtifact input
let batch_disassociate_service_action_from_provisioning_artifact
?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.BatchDisassociateServiceActionFromProvisioningArtifact input
let copy_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopyProduct input
let create_constraint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConstraint input
let create_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePortfolio input
let create_portfolio_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePortfolioShare input
let create_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProduct input
let create_provisioned_product_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProvisionedProductPlan input
let create_provisioning_artifact ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProvisioningArtifact input
let create_service_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServiceAction input
let create_tag_option ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTagOption input
let delete_constraint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConstraint input
let delete_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePortfolio input
let delete_portfolio_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePortfolioShare input
let delete_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProduct input
let delete_provisioned_product_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProvisionedProductPlan input
let delete_provisioning_artifact ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProvisioningArtifact input
let delete_service_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServiceAction input
let delete_tag_option ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTagOption input
let describe_constraint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeConstraint input
let describe_copy_product_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCopyProductStatus input
let describe_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePortfolio input
let describe_portfolio_share_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePortfolioShareStatus input
let describe_portfolio_shares ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePortfolioShares input
let describe_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProduct input
let describe_product_as_admin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProductAsAdmin input
let describe_product_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProductView input
let describe_provisioned_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProvisionedProduct input
let describe_provisioned_product_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProvisionedProductPlan input
let describe_provisioning_artifact ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProvisioningArtifact input
let describe_provisioning_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProvisioningParameters input
let describe_record ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRecord input
let describe_service_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServiceAction input
let describe_service_action_execution_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServiceActionExecutionParameters
input
let describe_tag_option ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTagOption input
let disable_a_w_s_organizations_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableAWSOrganizationsAccess input
let disassociate_budget_from_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateBudgetFromResource input
let disassociate_principal_from_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociatePrincipalFromPortfolio input
let disassociate_product_from_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateProductFromPortfolio input
let disassociate_service_action_from_provisioning_artifact ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.DisassociateServiceActionFromProvisioningArtifact input
let disassociate_tag_option_from_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateTagOptionFromResource input
let enable_a_w_s_organizations_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableAWSOrganizationsAccess input
let execute_provisioned_product_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecuteProvisionedProductPlan input
let execute_provisioned_product_service_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecuteProvisionedProductServiceAction
input
let get_a_w_s_organizations_access_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAWSOrganizationsAccessStatus input
let get_provisioned_product_outputs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProvisionedProductOutputs input
let import_as_provisioned_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportAsProvisionedProduct input
let list_accepted_portfolio_shares ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAcceptedPortfolioShares input
let list_budgets_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBudgetsForResource input
let list_constraints_for_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListConstraintsForPortfolio input
let list_launch_paths ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLaunchPaths input
let list_organization_portfolio_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOrganizationPortfolioAccess input
let list_portfolio_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPortfolioAccess input
let list_portfolios ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPortfolios input
let list_portfolios_for_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPortfoliosForProduct input
let list_principals_for_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPrincipalsForPortfolio input
let list_provisioned_product_plans ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProvisionedProductPlans input
let list_provisioning_artifacts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProvisioningArtifacts input
let list_provisioning_artifacts_for_service_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProvisioningArtifactsForServiceAction
input
let list_record_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRecordHistory input
let list_resources_for_tag_option ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourcesForTagOption input
let list_service_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceActions input
let list_service_actions_for_provisioning_artifact ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceActionsForProvisioningArtifact
input
let list_stack_instances_for_provisioned_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStackInstancesForProvisionedProduct
input
let list_tag_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagOptions input
let notify_provision_product_engine_workflow_result ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.NotifyProvisionProductEngineWorkflowResult input
let notify_terminate_provisioned_product_engine_workflow_result ?endpoint_url
?cfg input =
eval ?endpoint_url ?cfg
Endpoints.NotifyTerminateProvisionedProductEngineWorkflowResult input
let notify_update_provisioned_product_engine_workflow_result ?endpoint_url
?cfg input =
eval ?endpoint_url ?cfg
Endpoints.NotifyUpdateProvisionedProductEngineWorkflowResult input
let provision_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ProvisionProduct input
let reject_portfolio_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RejectPortfolioShare input
let scan_provisioned_products ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ScanProvisionedProducts input
let search_products ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchProducts input
let search_products_as_admin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchProductsAsAdmin input
let search_provisioned_products ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchProvisionedProducts input
let terminate_provisioned_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TerminateProvisionedProduct input
let update_constraint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConstraint input
let update_portfolio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePortfolio input
let update_portfolio_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePortfolioShare input
let update_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProduct input
let update_provisioned_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProvisionedProduct input
let update_provisioned_product_properties ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProvisionedProductProperties input
let update_provisioning_artifact ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProvisioningArtifact input
let update_service_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateServiceAction input
let update_tag_option ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTagOption input