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
open Awso_codecatalyst
open Awso_eio
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_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessToken input
let create_dev_environment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDevEnvironment input
let create_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProject input
let create_source_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSourceRepository input
let create_source_repository_branch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSourceRepositoryBranch input
let delete_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessToken input
let delete_dev_environment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDevEnvironment input
let delete_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProject input
let delete_source_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSourceRepository input
let delete_space ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSpace input
let get_dev_environment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevEnvironment input
let get_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProject input
let get_source_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSourceRepository input
let get_source_repository_clone_urls ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSourceRepositoryCloneUrls input
let get_space ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSpace input
let get_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSubscription input
let get_user_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUserDetails input
let get_workflow ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWorkflow input
let get_workflow_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWorkflowRun input
let list_access_tokens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessTokens input
let list_dev_environment_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevEnvironmentSessions input
let list_dev_environments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevEnvironments input
let list_event_logs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEventLogs input
let list_projects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProjects input
let list_source_repositories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSourceRepositories input
let list_source_repository_branches ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSourceRepositoryBranches input
let list_spaces ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSpaces input
let list_workflow_runs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWorkflowRuns input
let list_workflows ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWorkflows input
let start_dev_environment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDevEnvironment input
let start_dev_environment_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDevEnvironmentSession input
let start_workflow_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartWorkflowRun input
let stop_dev_environment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopDevEnvironment input
let stop_dev_environment_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopDevEnvironmentSession input
let update_dev_environment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDevEnvironment input
let update_project ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProject input
let update_space ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSpace input
let verify_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifySession input