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
open Awso_inspector
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 add_attributes_to_findings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddAttributesToFindings input
let create_assessment_target ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAssessmentTarget input
let create_assessment_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAssessmentTemplate input
let create_exclusions_preview ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateExclusionsPreview input
let create_resource_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResourceGroup input
let delete_assessment_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessmentRun input
let delete_assessment_target ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessmentTarget input
let delete_assessment_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAssessmentTemplate input
let describe_assessment_runs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAssessmentRuns input
let describe_assessment_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAssessmentTargets input
let describe_assessment_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAssessmentTemplates input
let describe_cross_account_access_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCrossAccountAccessRole input
let describe_exclusions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeExclusions input
let describe_findings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFindings input
let describe_resource_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeResourceGroups input
let describe_rules_packages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRulesPackages input
let get_assessment_report ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAssessmentReport input
let get_exclusions_preview ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetExclusionsPreview input
let get_telemetry_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTelemetryMetadata input
let list_assessment_run_agents ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentRunAgents input
let list_assessment_runs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentRuns input
let list_assessment_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentTargets input
let list_assessment_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssessmentTemplates input
let list_event_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEventSubscriptions input
let list_exclusions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListExclusions input
let list_findings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFindings input
let list_rules_packages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRulesPackages input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let preview_agents ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PreviewAgents input
let register_cross_account_access_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterCrossAccountAccessRole input
let remove_attributes_from_findings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveAttributesFromFindings input
let set_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetTagsForResource input
let start_assessment_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartAssessmentRun input
let stop_assessment_run ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopAssessmentRun input
let subscribe_to_event ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SubscribeToEvent input
let unsubscribe_from_event ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UnsubscribeFromEvent input
let update_assessment_target ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAssessmentTarget input