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
open Awso_wellarchitected
open Awso_async
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_lenses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateLenses input
let associate_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateProfiles input
let create_lens_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLensShare input
let create_lens_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLensVersion input
let create_milestone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMilestone input
let create_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProfile input
let create_profile_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProfileShare input
let create_review_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReviewTemplate input
let create_template_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTemplateShare input
let create_workload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWorkload input
let create_workload_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWorkloadShare input
let delete_lens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLens input
let delete_lens_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLensShare input
let delete_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProfile input
let delete_profile_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProfileShare input
let delete_review_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReviewTemplate input
let delete_template_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTemplateShare input
let delete_workload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWorkload input
let delete_workload_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWorkloadShare input
let disassociate_lenses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateLenses input
let disassociate_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateProfiles input
let export_lens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExportLens input
let get_answer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAnswer input
let get_consolidated_report ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConsolidatedReport input
let get_global_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGlobalSettings input
let get_lens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLens input
let get_lens_review ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLensReview input
let get_lens_review_report ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLensReviewReport input
let get_lens_version_difference ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLensVersionDifference input
let get_milestone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMilestone input
let get_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProfile input
let get_profile_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProfileTemplate input
let get_review_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReviewTemplate input
let get_review_template_answer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReviewTemplateAnswer input
let get_review_template_lens_review ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReviewTemplateLensReview input
let get_workload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWorkload input
let import_lens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportLens input
let list_answers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAnswers input
let list_check_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCheckDetails input
let list_check_summaries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCheckSummaries input
let list_lens_review_improvements ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLensReviewImprovements input
let list_lens_reviews ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLensReviews input
let list_lens_shares ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLensShares input
let list_lenses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLenses input
let list_milestones ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMilestones input
let list_notifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNotifications input
let list_profile_notifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProfileNotifications input
let list_profile_shares ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProfileShares input
let list_profiles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProfiles input
let list_review_template_answers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReviewTemplateAnswers input
let list_review_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReviewTemplates input
let list_share_invitations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListShareInvitations input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_template_shares ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTemplateShares input
let list_workload_shares ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWorkloadShares input
let list_workloads ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWorkloads 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_answer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAnswer input
let update_global_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGlobalSettings input
let update_integration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIntegration input
let update_lens_review ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLensReview input
let update_profile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProfile input
let update_review_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateReviewTemplate input
let update_review_template_answer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateReviewTemplateAnswer input
let update_review_template_lens_review ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateReviewTemplateLensReview input
let update_share_invitation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateShareInvitation input
let update_workload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWorkload input
let update_workload_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWorkloadShare input
let upgrade_lens_review ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpgradeLensReview input
let upgrade_profile_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpgradeProfileVersion input
let upgrade_review_template_lens_review ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpgradeReviewTemplateLensReview input