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
open Awso_codecommit
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 associate_approval_rule_template_with_repository ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.AssociateApprovalRuleTemplateWithRepository input
let batch_associate_approval_rule_template_with_repositories ?endpoint_url
?cfg input =
eval ?endpoint_url ?cfg
Endpoints.BatchAssociateApprovalRuleTemplateWithRepositories input
let batch_describe_merge_conflicts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDescribeMergeConflicts input
let batch_disassociate_approval_rule_template_from_repositories ?endpoint_url
?cfg input =
eval ?endpoint_url ?cfg
Endpoints.BatchDisassociateApprovalRuleTemplateFromRepositories input
let batch_get_commits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetCommits input
let batch_get_repositories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetRepositories input
let create_approval_rule_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateApprovalRuleTemplate input
let create_branch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBranch input
let create_commit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCommit input
let create_pull_request ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePullRequest input
let create_pull_request_approval_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePullRequestApprovalRule input
let create_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRepository input
let create_unreferenced_merge_commit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUnreferencedMergeCommit input
let delete_approval_rule_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteApprovalRuleTemplate input
let delete_branch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBranch input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCommentContent input
let delete_file ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFile input
let delete_pull_request_approval_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePullRequestApprovalRule input
let delete_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRepository input
let describe_merge_conflicts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMergeConflicts input
let describe_pull_request_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePullRequestEvents input
let disassociate_approval_rule_template_from_repository ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.DisassociateApprovalRuleTemplateFromRepository input
let evaluate_pull_request_approval_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EvaluatePullRequestApprovalRules input
let get_approval_rule_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApprovalRuleTemplate input
let get_blob ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBlob input
let get_branch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBranch input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetComment input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCommentReactions input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCommentsForComparedCommit input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCommentsForPullRequest input
let get_commit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCommit input
let get_differences ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDifferences input
let get_file ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFile input
let get_folder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFolder input
let get_merge_commit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMergeCommit input
let get_merge_conflicts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMergeConflicts input
let get_merge_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMergeOptions input
let get_pull_request ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPullRequest input
let get_pull_request_approval_states ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPullRequestApprovalStates input
let get_pull_request_override_state ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPullRequestOverrideState input
let get_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRepository input
let get_repository_triggers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRepositoryTriggers input
let list_approval_rule_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListApprovalRuleTemplates input
let list_associated_approval_rule_templates_for_repository ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.ListAssociatedApprovalRuleTemplatesForRepository input
let list_branches ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBranches input
let list_file_commit_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFileCommitHistory input
let list_pull_requests ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPullRequests input
let list_repositories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRepositories input
let list_repositories_for_approval_rule_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRepositoriesForApprovalRuleTemplate
input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let merge_branches_by_fast_forward ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MergeBranchesByFastForward input
let merge_branches_by_squash ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MergeBranchesBySquash input
let merge_branches_by_three_way ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MergeBranchesByThreeWay input
let merge_pull_request_by_fast_forward ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MergePullRequestByFastForward input
let merge_pull_request_by_squash ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MergePullRequestBySquash input
let merge_pull_request_by_three_way ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.MergePullRequestByThreeWay input
let override_pull_request_approval_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.OverridePullRequestApprovalRules input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PostCommentForComparedCommit input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PostCommentForPullRequest input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PostCommentReply input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutCommentReaction input
let put_file ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutFile input
let put_repository_triggers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRepositoryTriggers input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let test_repository_triggers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestRepositoryTriggers input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_approval_rule_template_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApprovalRuleTemplateContent input
let update_approval_rule_template_description ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApprovalRuleTemplateDescription
input
let update_approval_rule_template_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApprovalRuleTemplateName input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateComment input
let update_default_branch ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDefaultBranch input
let update_pull_request_approval_rule_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePullRequestApprovalRuleContent
input
let update_pull_request_approval_state ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePullRequestApprovalState input
let update_pull_request_description ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePullRequestDescription input
let update_pull_request_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePullRequestStatus input
let update_pull_request_title ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePullRequestTitle input
let update_repository_description ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRepositoryDescription input
let update_repository_encryption_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRepositoryEncryptionKey input
let update_repository_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRepositoryName input