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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
open Awso_gamelift
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 accept_match ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptMatch input
let claim_game_server ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ClaimGameServer input
let create_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAlias input
let create_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBuild input
let create_container_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateContainerFleet input
let create_container_group_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateContainerGroupDefinition input
let create_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFleet input
let create_fleet_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFleetLocations input
let create_game_server_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGameServerGroup input
let create_game_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGameSession input
let create_game_session_queue ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGameSessionQueue input
let create_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLocation input
let create_matchmaking_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMatchmakingConfiguration input
let create_matchmaking_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMatchmakingRuleSet input
let create_player_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePlayerSession input
let create_player_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePlayerSessions input
let create_script ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateScript input
let create_vpc_peering_authorization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVpcPeeringAuthorization input
let create_vpc_peering_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVpcPeeringConnection input
let delete_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAlias input
let delete_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBuild input
let delete_container_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteContainerFleet input
let delete_container_group_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteContainerGroupDefinition input
let delete_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFleet input
let delete_fleet_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFleetLocations input
let delete_game_server_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGameServerGroup input
let delete_game_session_queue ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGameSessionQueue input
let delete_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLocation input
let delete_matchmaking_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMatchmakingConfiguration input
let delete_matchmaking_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMatchmakingRuleSet input
let delete_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteScalingPolicy input
let delete_script ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteScript input
let delete_vpc_peering_authorization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVpcPeeringAuthorization input
let delete_vpc_peering_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVpcPeeringConnection input
let deregister_compute ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterCompute input
let deregister_game_server ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterGameServer input
let describe_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAlias input
let describe_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeBuild input
let describe_compute ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCompute input
let describe_container_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeContainerFleet input
let describe_container_group_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeContainerGroupDefinition input
let describe_container_group_port_mappings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeContainerGroupPortMappings input
let describe_e_c2_instance_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEC2InstanceLimits input
let describe_fleet_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetAttributes input
let describe_fleet_capacity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetCapacity input
let describe_fleet_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetDeployment input
let describe_fleet_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetEvents input
let describe_fleet_location_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetLocationAttributes input
let describe_fleet_location_capacity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetLocationCapacity input
let describe_fleet_location_utilization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetLocationUtilization input
let describe_fleet_port_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetPortSettings input
let describe_fleet_utilization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFleetUtilization input
let describe_game_server ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameServer input
let describe_game_server_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameServerGroup input
let describe_game_server_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameServerInstances input
let describe_game_session_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameSessionDetails input
let describe_game_session_placement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameSessionPlacement input
let describe_game_session_queues ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameSessionQueues input
let describe_game_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGameSessions input
let describe_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInstances input
let describe_matchmaking ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMatchmaking input
let describe_matchmaking_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMatchmakingConfigurations input
let describe_matchmaking_rule_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMatchmakingRuleSets input
let describe_player_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePlayerSessions input
let describe_runtime_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRuntimeConfiguration input
let describe_scaling_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeScalingPolicies input
let describe_script ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeScript input
let describe_vpc_peering_authorizations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeVpcPeeringAuthorizations input
let describe_vpc_peering_connections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeVpcPeeringConnections input
let get_compute_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetComputeAccess input
let get_compute_auth_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetComputeAuthToken input
let get_game_session_log_url ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGameSessionLogUrl input
let get_instance_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetInstanceAccess input
let get_player_connection_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPlayerConnectionDetails input
let list_aliases ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAliases input
let list_builds ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBuilds input
let list_compute ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCompute input
let list_container_fleets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListContainerFleets input
let list_container_group_definition_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListContainerGroupDefinitionVersions
input
let list_container_group_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListContainerGroupDefinitions input
let list_fleet_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFleetDeployments input
let list_fleets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFleets input
let list_game_server_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGameServerGroups input
let list_game_servers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGameServers input
let list_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLocations input
let list_scripts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListScripts input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_scaling_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutScalingPolicy input
let register_compute ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterCompute input
let register_game_server ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterGameServer input
let request_upload_credentials ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RequestUploadCredentials input
let resolve_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResolveAlias input
let resume_game_server_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResumeGameServerGroup input
let search_game_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchGameSessions input
let start_fleet_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartFleetActions input
let start_game_session_placement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartGameSessionPlacement input
let start_match_backfill ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartMatchBackfill input
let start_matchmaking ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartMatchmaking input
let stop_fleet_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopFleetActions input
let stop_game_session_placement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopGameSessionPlacement input
let stop_matchmaking ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopMatchmaking input
let suspend_game_server_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SuspendGameServerGroup input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let terminate_game_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TerminateGameSession input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAlias input
let update_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBuild input
let update_container_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateContainerFleet input
let update_container_group_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateContainerGroupDefinition input
let update_fleet_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFleetAttributes input
let update_fleet_capacity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFleetCapacity input
let update_fleet_port_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFleetPortSettings input
let update_game_server ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGameServer input
let update_game_server_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGameServerGroup input
let update_game_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGameSession input
let update_game_session_queue ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGameSessionQueue input
let update_matchmaking_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMatchmakingConfiguration input
let update_runtime_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRuntimeConfiguration input
let update_script ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateScript input
let validate_matchmaking_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ValidateMatchmakingRuleSet input