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
open Awso_ecs
open Awso_sync
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_capacity_provider ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCapacityProvider input
let create_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCluster input
let create_daemon ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDaemon input
let create_express_gateway_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateExpressGatewayService input
let create_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateService input
let create_task_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTaskSet input
let delete_account_setting ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccountSetting input
let delete_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAttributes input
let delete_capacity_provider ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCapacityProvider input
let delete_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCluster input
let delete_daemon ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDaemon input
let delete_daemon_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDaemonTaskDefinition input
let delete_express_gateway_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteExpressGatewayService input
let delete_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteService input
let delete_task_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTaskDefinitions input
let delete_task_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTaskSet input
let deregister_container_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterContainerInstance input
let deregister_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterTaskDefinition input
let describe_capacity_providers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCapacityProviders input
let describe_clusters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeClusters input
let describe_container_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeContainerInstances input
let describe_daemon ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDaemon input
let describe_daemon_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDaemonDeployments input
let describe_daemon_revisions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDaemonRevisions input
let describe_daemon_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDaemonTaskDefinition input
let describe_express_gateway_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeExpressGatewayService input
let describe_service_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServiceDeployments input
let describe_service_revisions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServiceRevisions input
let describe_services ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServices input
let describe_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTaskDefinition input
let describe_task_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTaskSets input
let describe_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTasks input
let discover_poll_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DiscoverPollEndpoint input
let execute_command ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecuteCommand input
let get_task_protection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTaskProtection input
let list_account_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccountSettings input
let list_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAttributes input
let list_clusters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListClusters input
let list_container_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListContainerInstances input
let list_daemon_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDaemonDeployments input
let list_daemon_task_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDaemonTaskDefinitions input
let list_daemons ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDaemons input
let list_service_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceDeployments input
let list_services ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServices input
let list_services_by_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServicesByNamespace input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_task_definition_families ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTaskDefinitionFamilies input
let list_task_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTaskDefinitions input
let list_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTasks input
let put_account_setting ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccountSetting input
let put_account_setting_default ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccountSettingDefault input
let put_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAttributes input
let put_cluster_capacity_providers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutClusterCapacityProviders input
let register_container_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterContainerInstance input
let register_daemon_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterDaemonTaskDefinition input
let register_task_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterTaskDefinition input
let run_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RunTask input
let start_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartTask input
let stop_service_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopServiceDeployment input
let stop_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopTask input
let submit_attachment_state_changes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SubmitAttachmentStateChanges input
let submit_container_state_change ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SubmitContainerStateChange input
let submit_task_state_change ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SubmitTaskStateChange 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_capacity_provider ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCapacityProvider input
let update_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCluster input
let update_cluster_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateClusterSettings input
let update_container_agent ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateContainerAgent input
let update_container_instances_state ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateContainerInstancesState input
let update_daemon ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDaemon input
let update_express_gateway_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateExpressGatewayService input
let update_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateService input
let update_service_primary_task_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateServicePrimaryTaskSet input
let update_task_protection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTaskProtection input
let update_task_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTaskSet input