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
open Awso_devicefarm
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_device_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDevicePool input
let create_instance_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateInstanceProfile input
let create_network_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateNetworkProfile input
let create_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProject input
let create_remote_access_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRemoteAccessSession input
let create_test_grid_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTestGridProject input
let create_test_grid_url ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTestGridUrl input
let create_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUpload input
let create_v_p_c_e_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVPCEConfiguration input
let delete_device_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDevicePool input
let delete_instance_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteInstanceProfile input
let delete_network_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteNetworkProfile input
let delete_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProject input
let delete_remote_access_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRemoteAccessSession input
let delete_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRun input
let delete_test_grid_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTestGridProject input
let delete_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUpload input
let delete_v_p_c_e_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVPCEConfiguration input
let get_account_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccountSettings input
let get_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevice input
let get_device_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeviceInstance input
let get_device_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevicePool input
let get_device_pool_compatibility ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevicePoolCompatibility input
let get_instance_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetInstanceProfile input
let get_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetJob input
let get_network_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkProfile input
let get_offering_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetOfferingStatus input
let get_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProject input
let get_remote_access_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRemoteAccessSession input
let get_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRun input
let get_suite ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSuite input
let get_test ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTest input
let get_test_grid_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTestGridProject input
let get_test_grid_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTestGridSession input
let get_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUpload input
let get_v_p_c_e_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetVPCEConfiguration input
let install_to_remote_access_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.InstallToRemoteAccessSession input
let list_artifacts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListArtifacts input
let list_device_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDeviceInstances input
let list_device_pools ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevicePools input
let list_devices ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevices input
let list_instance_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInstanceProfiles input
let list_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListJobs input
let list_network_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNetworkProfiles input
let list_offering_promotions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOfferingPromotions input
let list_offering_transactions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOfferingTransactions input
let list_offerings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOfferings input
let list_projects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProjects input
let list_remote_access_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRemoteAccessSessions input
let list_runs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRuns input
let list_samples ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSamples input
let list_suites ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSuites input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_test_grid_projects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTestGridProjects input
let list_test_grid_session_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTestGridSessionActions input
let list_test_grid_session_artifacts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTestGridSessionArtifacts input
let list_test_grid_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTestGridSessions input
let list_tests ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTests input
let list_unique_problems ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListUniqueProblems input
let list_uploads ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListUploads input
let list_v_p_c_e_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListVPCEConfigurations input
let purchase_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PurchaseOffering input
let renew_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RenewOffering input
let schedule_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ScheduleRun input
let stop_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopJob input
let stop_remote_access_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopRemoteAccessSession input
let stop_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopRun 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_device_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDeviceInstance input
let update_device_pool ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDevicePool input
let update_instance_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateInstanceProfile input
let update_network_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNetworkProfile input
let update_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProject input
let update_test_grid_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTestGridProject input
let update_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUpload input
let update_v_p_c_e_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateVPCEConfiguration input