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
open Awso_codebuild
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 batch_delete_builds ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteBuilds input
let batch_get_build_batches ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetBuildBatches input
let batch_get_builds ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetBuilds input
let batch_get_command_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetCommandExecutions input
let batch_get_fleets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetFleets input
let batch_get_projects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetProjects input
let batch_get_report_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetReportGroups input
let batch_get_reports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetReports input
let batch_get_sandboxes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetSandboxes input
let create_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFleet input
let create_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProject input
let create_report_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReportGroup input
let create_webhook ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWebhook input
let delete_build_batch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBuildBatch input
let delete_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFleet input
let delete_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProject input
let delete_report ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReport input
let delete_report_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReportGroup input
let delete_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_source_credentials ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSourceCredentials input
let delete_webhook ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWebhook input
let describe_code_coverages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCodeCoverages input
let describe_test_cases ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTestCases input
let get_report_group_trend ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReportGroupTrend input
let get_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let import_source_credentials ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportSourceCredentials input
let invalidate_project_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.InvalidateProjectCache input
let list_build_batches ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBuildBatches input
let list_build_batches_for_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBuildBatchesForProject input
let list_builds ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBuilds input
let list_builds_for_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBuildsForProject input
let list_command_executions_for_sandbox ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCommandExecutionsForSandbox input
let list_curated_environment_images ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCuratedEnvironmentImages input
let list_fleets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFleets input
let list_projects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProjects input
let list_report_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReportGroups input
let list_reports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReports input
let list_reports_for_report_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReportsForReportGroup input
let list_sandboxes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSandboxes input
let list_sandboxes_for_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSandboxesForProject input
let list_shared_projects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSharedProjects input
let list_shared_report_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSharedReportGroups input
let list_source_credentials ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSourceCredentials input
let put_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let retry_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RetryBuild input
let retry_build_batch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RetryBuildBatch input
let start_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartBuild input
let start_build_batch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartBuildBatch input
let start_command_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartCommandExecution input
let start_sandbox ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartSandbox input
let start_sandbox_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartSandboxConnection input
let stop_build ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopBuild input
let stop_build_batch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopBuildBatch input
let stop_sandbox ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopSandbox input
let update_fleet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFleet input
let update_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProject input
let update_project_visibility ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProjectVisibility input
let update_report_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateReportGroup input
let update_webhook ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWebhook input