Source file io.ml

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
(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso_securityagent
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 add_artifact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddArtifact input
let batch_delete_code_reviews ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchDeleteCodeReviews input
let batch_delete_pentests ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchDeletePentests input
let batch_get_agent_spaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetAgentSpaces input
let batch_get_artifact_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetArtifactMetadata input
let batch_get_code_review_job_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetCodeReviewJobTasks input
let batch_get_code_review_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetCodeReviewJobs input
let batch_get_code_reviews ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetCodeReviews input
let batch_get_findings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetFindings input
let batch_get_pentest_job_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetPentestJobTasks input
let batch_get_pentest_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetPentestJobs input
let batch_get_pentests ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetPentests input
let batch_get_target_domains ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetTargetDomains input
let create_agent_space ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAgentSpace input
let create_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateApplication input
let create_code_review ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCodeReview input
let create_integration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateIntegration input
let create_membership ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateMembership input
let create_pentest ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreatePentest input
let create_target_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTargetDomain input
let delete_agent_space ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAgentSpace input
let delete_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteApplication input
let delete_artifact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteArtifact input
let delete_integration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteIntegration input
let delete_membership ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteMembership input
let delete_target_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTargetDomain input
let get_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetApplication input
let get_artifact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetArtifact input
let get_integration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetIntegration input
let initiate_provider_registration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.InitiateProviderRegistration input
let list_agent_spaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAgentSpaces input
let list_applications ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListApplications input
let list_artifacts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListArtifacts input
let list_code_review_job_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCodeReviewJobTasks input
let list_code_review_jobs_for_code_review ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCodeReviewJobsForCodeReview input
let list_code_reviews ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCodeReviews input
let list_discovered_endpoints ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDiscoveredEndpoints input
let list_findings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListFindings input
let list_integrated_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListIntegratedResources input
let list_integrations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListIntegrations input
let list_memberships ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListMemberships input
let list_pentest_job_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListPentestJobTasks input
let list_pentest_jobs_for_pentest ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListPentestJobsForPentest input
let list_pentests ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListPentests input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_target_domains ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTargetDomains input
let start_code_remediation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartCodeRemediation input
let start_code_review_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartCodeReviewJob input
let start_pentest_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartPentestJob input
let stop_code_review_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopCodeReviewJob input
let stop_pentest_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopPentestJob 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_agent_space ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAgentSpace input
let update_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateApplication input
let update_code_review ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateCodeReview input
let update_finding ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateFinding input
let update_integrated_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateIntegratedResources input
let update_pentest ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdatePentest input
let update_target_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateTargetDomain input
let verify_target_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.VerifyTargetDomain input