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
open Awso_mediaconnect
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 add_bridge_outputs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddBridgeOutputs input
let add_bridge_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddBridgeSources input
let add_flow_media_streams ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddFlowMediaStreams input
let add_flow_outputs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddFlowOutputs input
let add_flow_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddFlowSources input
let add_flow_vpc_interfaces ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddFlowVpcInterfaces input
let batch_get_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetRouterInput input
let batch_get_router_network_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetRouterNetworkInterface input
let batch_get_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetRouterOutput input
let create_bridge ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBridge input
let create_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFlow input
let create_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGateway input
let create_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRouterInput input
let create_router_network_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRouterNetworkInterface input
let create_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRouterOutput input
let delete_bridge ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBridge input
let delete_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFlow input
let delete_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGateway input
let delete_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouterInput input
let delete_router_network_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouterNetworkInterface input
let delete_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouterOutput input
let deregister_gateway_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterGatewayInstance input
let describe_bridge ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeBridge input
let describe_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFlow input
let describe_flow_source_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFlowSourceMetadata input
let describe_flow_source_thumbnail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFlowSourceThumbnail input
let describe_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGateway input
let describe_gateway_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGatewayInstance input
let describe_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOffering input
let describe_reservation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReservation input
let get_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouterInput input
let get_router_input_source_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouterInputSourceMetadata input
let get_router_input_thumbnail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouterInputThumbnail input
let get_router_network_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouterNetworkInterface input
let get_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouterOutput input
let grant_flow_entitlements ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GrantFlowEntitlements input
let list_bridges ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBridges input
let list_entitlements ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEntitlements input
let list_flows ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFlows input
let list_gateway_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGatewayInstances input
let list_gateways ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGateways input
let list_offerings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOfferings input
let list_reservations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReservations input
let list_router_inputs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRouterInputs input
let list_router_network_interfaces ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRouterNetworkInterfaces input
let list_router_outputs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRouterOutputs input
let list_tags_for_global_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForGlobalResource input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let purchase_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PurchaseOffering input
let remove_bridge_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveBridgeOutput input
let remove_bridge_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveBridgeSource input
let remove_flow_media_stream ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveFlowMediaStream input
let remove_flow_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveFlowOutput input
let remove_flow_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveFlowSource input
let remove_flow_vpc_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveFlowVpcInterface input
let restart_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestartRouterInput input
let restart_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestartRouterOutput input
let revoke_flow_entitlement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RevokeFlowEntitlement input
let start_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartFlow input
let start_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartRouterInput input
let start_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartRouterOutput input
let stop_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopFlow input
let stop_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopRouterInput input
let stop_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopRouterOutput input
let tag_global_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagGlobalResource input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let take_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TakeRouterInput input
let untag_global_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagGlobalResource input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_bridge ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBridge input
let update_bridge_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBridgeOutput input
let update_bridge_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBridgeSource input
let update_bridge_state ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBridgeState input
let update_flow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFlow input
let update_flow_entitlement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFlowEntitlement input
let update_flow_media_stream ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFlowMediaStream input
let update_flow_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFlowOutput input
let update_flow_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFlowSource input
let update_gateway_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGatewayInstance input
let update_router_input ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRouterInput input
let update_router_network_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRouterNetworkInterface input
let update_router_output ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRouterOutput input