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(* 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_trustedadvisor 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 batch_update_recommendation_resource_exclusion ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchUpdateRecommendationResourceExclusion input let get_organization_recommendation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetOrganizationRecommendation input let get_recommendation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRecommendation input let list_checks ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListChecks input let list_organization_recommendation_accounts ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListOrganizationRecommendationAccounts input let list_organization_recommendation_resources ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListOrganizationRecommendationResources input let list_organization_recommendations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListOrganizationRecommendations input let list_recommendation_resources ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommendationResources input let list_recommendations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommendations input let update_organization_recommendation_lifecycle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateOrganizationRecommendationLifecycle input let update_recommendation_lifecycle ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateRecommendationLifecycle input