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
open Awso_auditmanager
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 associate_assessment_report_evidence_folder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateAssessmentReportEvidenceFolder
input
let batch_associate_assessment_report_evidence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchAssociateAssessmentReportEvidence
input
let batch_create_delegation_by_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchCreateDelegationByAssessment input
let batch_delete_delegation_by_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteDelegationByAssessment input
let batch_disassociate_assessment_report_evidence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDisassociateAssessmentReportEvidence
input
let batch_import_evidence_to_assessment_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchImportEvidenceToAssessmentControl
input
let create_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAssessment input
let create_assessment_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAssessmentFramework input
let create_assessment_report ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAssessmentReport input
let create_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateControl input
let delete_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessment input
let delete_assessment_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessmentFramework input
let delete_assessment_framework_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessmentFrameworkShare input
let delete_assessment_report ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessmentReport input
let delete_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteControl input
let deregister_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterAccount input
let deregister_organization_admin_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterOrganizationAdminAccount input
let disassociate_assessment_report_evidence_folder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.DisassociateAssessmentReportEvidenceFolder input
let get_account_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccountStatus input
let get_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAssessment input
let get_assessment_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAssessmentFramework input
let get_assessment_report_url ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAssessmentReportUrl input
let get_change_logs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChangeLogs input
let get_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetControl input
let get_delegations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDelegations input
let get_evidence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEvidence input
let get_evidence_by_evidence_folder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEvidenceByEvidenceFolder input
let get_evidence_file_upload_url ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEvidenceFileUploadUrl input
let get_evidence_folder ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEvidenceFolder input
let get_evidence_folders_by_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEvidenceFoldersByAssessment input
let get_evidence_folders_by_assessment_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEvidenceFoldersByAssessmentControl
input
let get_insights ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetInsights input
let get_insights_by_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetInsightsByAssessment input
let get_organization_admin_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetOrganizationAdminAccount input
let get_services_in_scope ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServicesInScope input
let get_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSettings input
let list_assessment_control_insights_by_control_domain ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.ListAssessmentControlInsightsByControlDomain input
let list_assessment_framework_share_requests ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentFrameworkShareRequests
input
let list_assessment_frameworks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentFrameworks input
let list_assessment_reports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentReports input
let list_assessments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessments input
let list_control_domain_insights ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListControlDomainInsights input
let list_control_domain_insights_by_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListControlDomainInsightsByAssessment
input
let list_control_insights_by_control_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListControlInsightsByControlDomain input
let list_controls ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListControls input
let list_keywords_for_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListKeywordsForDataSource input
let list_notifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNotifications input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let register_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterAccount input
let register_organization_admin_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterOrganizationAdminAccount input
let start_assessment_framework_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartAssessmentFrameworkShare 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_assessment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessment input
let update_assessment_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessmentControl input
let update_assessment_control_set_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessmentControlSetStatus input
let update_assessment_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessmentFramework input
let update_assessment_framework_share ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessmentFrameworkShare input
let update_assessment_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessmentStatus input
let update_control ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateControl input
let update_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSettings input
let validate_assessment_report_integrity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ValidateAssessmentReportIntegrity input