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
open Awso_ds
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_shared_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptSharedDirectory input
let add_ip_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddIpRoutes input
let add_region ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddRegion input
let add_tags_to_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTagsToResource input
let cancel_schema_extension ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelSchemaExtension input
let connect_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConnectDirectory input
let create_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAlias input
let create_computer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateComputer input
let create_conditional_forwarder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConditionalForwarder input
let create_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDirectory input
let create_hybrid_a_d ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateHybridAD input
let create_log_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLogSubscription input
let create_microsoft_a_d ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMicrosoftAD input
let create_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSnapshot input
let create_trust ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrust input
let delete_a_d_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteADAssessment input
let delete_conditional_forwarder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConditionalForwarder input
let delete_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDirectory input
let delete_log_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLogSubscription input
let delete_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSnapshot input
let delete_trust ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTrust input
let deregister_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterCertificate input
let deregister_event_topic ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterEventTopic input
let describe_a_d_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeADAssessment input
let describe_c_a_enrollment_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCAEnrollmentPolicy input
let describe_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCertificate input
let describe_client_authentication_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeClientAuthenticationSettings
input
let describe_conditional_forwarders ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeConditionalForwarders input
let describe_directories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDirectories input
let describe_directory_data_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDirectoryDataAccess input
let describe_domain_controllers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomainControllers input
let describe_event_topics ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEventTopics input
let describe_hybrid_a_d_update ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeHybridADUpdate input
let describe_l_d_a_p_s_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLDAPSSettings input
let describe_regions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRegions input
let describe_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeSettings input
let describe_shared_directories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeSharedDirectories input
let describe_snapshots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeSnapshots input
let describe_trusts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTrusts input
let describe_update_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeUpdateDirectory input
let disable_c_a_enrollment_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableCAEnrollmentPolicy input
let disable_client_authentication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableClientAuthentication input
let disable_directory_data_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableDirectoryDataAccess input
let disable_l_d_a_p_s ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableLDAPS input
let disable_radius ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableRadius input
let disable_sso ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableSso input
let enable_c_a_enrollment_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableCAEnrollmentPolicy input
let enable_client_authentication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableClientAuthentication input
let enable_directory_data_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableDirectoryDataAccess input
let enable_l_d_a_p_s ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableLDAPS input
let enable_radius ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableRadius input
let enable_sso ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableSso input
let get_directory_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDirectoryLimits input
let get_snapshot_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSnapshotLimits input
let list_a_d_assessments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListADAssessments input
let list_certificates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCertificates input
let list_ip_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIpRoutes input
let list_log_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLogSubscriptions input
let list_schema_extensions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSchemaExtensions input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let register_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterCertificate input
let register_event_topic ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterEventTopic input
let reject_shared_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RejectSharedDirectory input
let remove_ip_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveIpRoutes input
let remove_region ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveRegion input
let remove_tags_from_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTagsFromResource input
let reset_user_password ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetUserPassword input
let restore_from_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreFromSnapshot input
let share_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ShareDirectory input
let start_a_d_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartADAssessment input
let start_schema_extension ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartSchemaExtension input
let unshare_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UnshareDirectory input
let update_conditional_forwarder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConditionalForwarder input
let update_directory_setup ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDirectorySetup input
let update_hybrid_a_d ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateHybridAD input
let update_number_of_domain_controllers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNumberOfDomainControllers input
let update_radius ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRadius input
let update_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSettings input
let update_trust ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTrust input
let verify_trust ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyTrust input