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
open Awso_organizations
open Awso_lwt
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_handshake ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptHandshake input
let attach_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachPolicy input
let cancel_handshake ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelHandshake input
let close_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CloseAccount input
let create_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccount input
let create_gov_cloud_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGovCloudAccount input
let create_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateOrganization input
let create_organizational_unit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateOrganizationalUnit input
let create_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePolicy input
let decline_handshake ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeclineHandshake input
let delete_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteOrganization input
let delete_organizational_unit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteOrganizationalUnit input
let delete_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePolicy input
let delete_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let deregister_delegated_administrator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterDelegatedAdministrator input
let describe_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAccount input
let describe_create_account_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCreateAccountStatus input
let describe_effective_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEffectivePolicy input
let describe_handshake ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeHandshake input
let describe_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOrganization input
let describe_organizational_unit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOrganizationalUnit input
let describe_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePolicy input
let describe_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeResourcePolicy input
let describe_responsibility_transfer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeResponsibilityTransfer input
let detach_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachPolicy input
let disable_a_w_s_service_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableAWSServiceAccess input
let disable_policy_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisablePolicyType input
let enable_a_w_s_service_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableAWSServiceAccess input
let enable_all_features ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableAllFeatures input
let enable_policy_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnablePolicyType input
let invite_account_to_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.InviteAccountToOrganization input
let invite_organization_to_transfer_responsibility ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.InviteOrganizationToTransferResponsibility input
let leave_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.LeaveOrganization input
let list_a_w_s_service_access_for_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAWSServiceAccessForOrganization input
let list_accounts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccounts input
let list_accounts_for_parent ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccountsForParent input
let list_accounts_with_invalid_effective_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccountsWithInvalidEffectivePolicy
input
let list_children ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListChildren input
let list_create_account_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCreateAccountStatus input
let list_delegated_administrators ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDelegatedAdministrators input
let list_delegated_services_for_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDelegatedServicesForAccount input
let list_effective_policy_validation_errors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEffectivePolicyValidationErrors input
let list_handshakes_for_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHandshakesForAccount input
let list_handshakes_for_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHandshakesForOrganization input
let list_inbound_responsibility_transfers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInboundResponsibilityTransfers input
let list_organizational_units_for_parent ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOrganizationalUnitsForParent input
let list_outbound_responsibility_transfers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOutboundResponsibilityTransfers input
let list_parents ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListParents input
let list_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPolicies input
let list_policies_for_target ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPoliciesForTarget input
let list_roots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRoots input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_targets_for_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTargetsForPolicy input
let move_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MoveAccount input
let put_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let register_delegated_administrator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterDelegatedAdministrator input
let remove_account_from_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveAccountFromOrganization input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let terminate_responsibility_transfer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TerminateResponsibilityTransfer input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_organizational_unit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateOrganizationalUnit input
let update_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePolicy input
let update_responsibility_transfer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResponsibilityTransfer input