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
open Awso_autoscaling
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 attach_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachInstances input
let attach_load_balancer_target_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachLoadBalancerTargetGroups input
let attach_load_balancers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachLoadBalancers input
let attach_traffic_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachTrafficSources input
let batch_delete_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteScheduledAction input
let batch_put_scheduled_update_group_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchPutScheduledUpdateGroupAction input
let cancel_instance_refresh ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelInstanceRefresh input
let complete_lifecycle_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CompleteLifecycleAction input
let create_auto_scaling_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAutoScalingGroup input
let create_launch_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLaunchConfiguration input
let create_or_update_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateOrUpdateTags input
let delete_auto_scaling_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAutoScalingGroup input
let delete_launch_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLaunchConfiguration input
let delete_lifecycle_hook ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLifecycleHook input
let delete_notification_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteNotificationConfiguration input
let delete_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePolicy input
let delete_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteScheduledAction input
let delete_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTags input
let delete_warm_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWarmPool input
let describe_account_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAccountLimits input
let describe_adjustment_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAdjustmentTypes input
let describe_auto_scaling_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAutoScalingGroups input
let describe_auto_scaling_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAutoScalingInstances input
let describe_auto_scaling_notification_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAutoScalingNotificationTypes
input
let describe_instance_refreshes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInstanceRefreshes input
let describe_launch_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLaunchConfigurations input
let describe_lifecycle_hook_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLifecycleHookTypes input
let describe_lifecycle_hooks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLifecycleHooks input
let describe_load_balancer_target_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLoadBalancerTargetGroups input
let describe_load_balancers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLoadBalancers input
let describe_metric_collection_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMetricCollectionTypes input
let describe_notification_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeNotificationConfigurations input
let describe_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePolicies input
let describe_scaling_activities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeScalingActivities input
let describe_scaling_process_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeScalingProcessTypes input
let describe_scheduled_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeScheduledActions input
let describe_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTags input
let describe_termination_policy_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTerminationPolicyTypes input
let describe_traffic_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTrafficSources input
let describe_warm_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeWarmPool input
let detach_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachInstances input
let detach_load_balancer_target_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachLoadBalancerTargetGroups input
let detach_load_balancers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachLoadBalancers input
let detach_traffic_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachTrafficSources input
let disable_metrics_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableMetricsCollection input
let enable_metrics_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableMetricsCollection input
let enter_standby ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnterStandby input
let execute_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecutePolicy input
let exit_standby ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExitStandby input
let get_predictive_scaling_forecast ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPredictiveScalingForecast input
let launch_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.LaunchInstances input
let put_lifecycle_hook ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutLifecycleHook input
let put_notification_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutNotificationConfiguration input
let put_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutScalingPolicy input
let put_scheduled_update_group_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutScheduledUpdateGroupAction input
let put_warm_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutWarmPool input
let record_lifecycle_action_heartbeat ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RecordLifecycleActionHeartbeat input
let resume_processes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResumeProcesses input
let rollback_instance_refresh ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RollbackInstanceRefresh input
let set_desired_capacity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetDesiredCapacity input
let set_instance_health ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetInstanceHealth input
let set_instance_protection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetInstanceProtection input
let start_instance_refresh ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartInstanceRefresh input
let suspend_processes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SuspendProcesses input
let terminate_instance_in_auto_scaling_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TerminateInstanceInAutoScalingGroup input
let update_auto_scaling_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAutoScalingGroup input