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_emr
open Awso_async
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 add_instance_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddInstanceFleet input
let add_instance_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddInstanceGroups input
let add_job_flow_steps ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddJobFlowSteps input
let add_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTags input
let cancel_steps ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelSteps input
let create_persistent_app_u_i ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePersistentAppUI input
let create_security_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSecurityConfiguration input
let create_studio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStudio input
let create_studio_session_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStudioSessionMapping input
let delete_security_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSecurityConfiguration input
let delete_studio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStudio input
let delete_studio_session_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStudioSessionMapping input
let describe_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCluster input
let describe_job_flows ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeJobFlows input
let describe_notebook_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeNotebookExecution input
let describe_persistent_app_u_i ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePersistentAppUI input
let describe_release_label ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReleaseLabel input
let describe_security_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeSecurityConfiguration input
let describe_step ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStep input
let describe_studio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeStudio input
let get_auto_termination_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAutoTerminationPolicy input
let get_block_public_access_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBlockPublicAccessConfiguration input
let get_cluster_session_credentials ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetClusterSessionCredentials input
let get_managed_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetManagedScalingPolicy input
let get_on_cluster_app_u_i_presigned_u_r_l ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetOnClusterAppUIPresignedURL input
let get_persistent_app_u_i_presigned_u_r_l ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPersistentAppUIPresignedURL input
let get_studio_session_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStudioSessionMapping input
let list_bootstrap_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBootstrapActions input
let list_clusters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListClusters input
let list_instance_fleets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInstanceFleets input
let list_instance_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInstanceGroups input
let list_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInstances input
let list_notebook_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNotebookExecutions input
let list_release_labels ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReleaseLabels input
let list_security_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSecurityConfigurations input
let list_steps ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSteps input
let list_studio_session_mappings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStudioSessionMappings input
let list_studios ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStudios input
let list_supported_instance_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSupportedInstanceTypes input
let modify_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyCluster input
let modify_instance_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyInstanceFleet input
let modify_instance_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyInstanceGroups input
let put_auto_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAutoScalingPolicy input
let put_auto_termination_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAutoTerminationPolicy input
let put_block_public_access_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBlockPublicAccessConfiguration input
let put_managed_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutManagedScalingPolicy input
let remove_auto_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveAutoScalingPolicy input
let remove_auto_termination_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveAutoTerminationPolicy input
let remove_managed_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveManagedScalingPolicy input
let remove_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTags input
let run_job_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RunJobFlow input
let set_keep_job_flow_alive_when_no_steps ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetKeepJobFlowAliveWhenNoSteps input
let set_termination_protection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetTerminationProtection input
let set_unhealthy_node_replacement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetUnhealthyNodeReplacement input
let set_visible_to_all_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetVisibleToAllUsers input
let start_notebook_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartNotebookExecution input
let stop_notebook_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopNotebookExecution input
let terminate_job_flows ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TerminateJobFlows input
let update_studio ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStudio input
let update_studio_session_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStudioSessionMapping input