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(* 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_budgets 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 create_budget ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateBudget input let create_budget_action ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateBudgetAction input let create_notification ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateNotification input let create_subscriber ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSubscriber input let delete_budget ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBudget input let delete_budget_action ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBudgetAction input let delete_notification ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteNotification input let delete_subscriber ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteSubscriber input let describe_budget ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudget input let describe_budget_action ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgetAction input let describe_budget_action_histories ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgetActionHistories input let describe_budget_actions_for_account ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgetActionsForAccount input let describe_budget_actions_for_budget ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgetActionsForBudget input let describe_budget_notifications_for_account ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgetNotificationsForAccount input let describe_budget_performance_history ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgetPerformanceHistory input let describe_budgets ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeBudgets input let describe_notifications_for_budget ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeNotificationsForBudget input let describe_subscribers_for_notification ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeSubscribersForNotification input let execute_budget_action ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ExecuteBudgetAction input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource 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_budget ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateBudget input let update_budget_action ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateBudgetAction input let update_notification ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateNotification input let update_subscriber ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateSubscriber input