package awso-async
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 ?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