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
open Awso_mailmanager
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 create_addon_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAddonInstance input
let create_addon_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAddonSubscription input
let create_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAddressList input
let create_address_list_import_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAddressListImportJob input
let create_archive ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateArchive input
let create_ingress_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIngressPoint input
let create_relay ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRelay input
let create_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRuleSet input
let create_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrafficPolicy input
let delete_addon_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAddonInstance input
let delete_addon_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAddonSubscription input
let delete_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAddressList input
let delete_archive ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteArchive input
let delete_ingress_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIngressPoint input
let delete_relay ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRelay input
let delete_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRuleSet input
let delete_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTrafficPolicy input
let deregister_member_from_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterMemberFromAddressList input
let get_addon_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAddonInstance input
let get_addon_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAddonSubscription input
let get_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAddressList input
let get_address_list_import_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAddressListImportJob input
let get_archive ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetArchive input
let get_archive_export ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetArchiveExport input
let get_archive_message ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetArchiveMessage input
let get_archive_message_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetArchiveMessageContent input
let get_archive_search ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetArchiveSearch input
let get_archive_search_results ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetArchiveSearchResults input
let get_ingress_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIngressPoint input
let get_member_of_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMemberOfAddressList input
let get_relay ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRelay input
let get_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRuleSet input
let get_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrafficPolicy input
let list_addon_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAddonInstances input
let list_addon_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAddonSubscriptions input
let list_address_list_import_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAddressListImportJobs input
let list_address_lists ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAddressLists input
let list_archive_exports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListArchiveExports input
let list_archive_searches ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListArchiveSearches input
let list_archives ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListArchives input
let list_ingress_points ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIngressPoints input
let list_members_of_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMembersOfAddressList input
let list_relays ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRelays input
let list_rule_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRuleSets input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_traffic_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrafficPolicies input
let register_member_to_address_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterMemberToAddressList input
let start_address_list_import_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartAddressListImportJob input
let start_archive_export ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartArchiveExport input
let start_archive_search ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartArchiveSearch input
let stop_address_list_import_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopAddressListImportJob input
let stop_archive_export ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopArchiveExport input
let stop_archive_search ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopArchiveSearch 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_archive ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateArchive input
let update_ingress_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIngressPoint input
let update_relay ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRelay input
let update_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRuleSet input
let update_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTrafficPolicy input