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
open Awso_ce
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_anomaly_monitor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAnomalyMonitor input
let create_anomaly_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAnomalySubscription input
let create_cost_category_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCostCategoryDefinition input
let delete_anomaly_monitor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAnomalyMonitor input
let delete_anomaly_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAnomalySubscription input
let delete_cost_category_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCostCategoryDefinition input
let describe_cost_category_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCostCategoryDefinition input
let get_anomalies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAnomalies input
let get_anomaly_monitors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAnomalyMonitors input
let get_anomaly_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAnomalySubscriptions input
let get_approximate_usage_records ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApproximateUsageRecords input
let get_commitment_purchase_analysis ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCommitmentPurchaseAnalysis input
let get_cost_and_usage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCostAndUsage input
let get_cost_and_usage_comparisons ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCostAndUsageComparisons input
let get_cost_and_usage_with_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCostAndUsageWithResources input
let get_cost_categories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCostCategories input
let get_cost_comparison_drivers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCostComparisonDrivers input
let get_cost_forecast ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCostForecast input
let get_dimension_values ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDimensionValues input
let get_reservation_coverage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReservationCoverage input
let get_reservation_purchase_recommendation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReservationPurchaseRecommendation
input
let get_reservation_utilization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReservationUtilization input
let get_rightsizing_recommendation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRightsizingRecommendation input
let get_savings_plan_purchase_recommendation_details ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.GetSavingsPlanPurchaseRecommendationDetails input
let get_savings_plans_coverage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSavingsPlansCoverage input
let get_savings_plans_purchase_recommendation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSavingsPlansPurchaseRecommendation
input
let get_savings_plans_utilization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSavingsPlansUtilization input
let get_savings_plans_utilization_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSavingsPlansUtilizationDetails input
let get_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTags input
let get_usage_forecast ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsageForecast input
let list_commitment_purchase_analyses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCommitmentPurchaseAnalyses input
let list_cost_allocation_tag_backfill_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCostAllocationTagBackfillHistory
input
let list_cost_allocation_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCostAllocationTags input
let list_cost_category_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCostCategoryDefinitions input
let list_cost_category_resource_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCostCategoryResourceAssociations
input
let list_savings_plans_purchase_recommendation_generation ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.ListSavingsPlansPurchaseRecommendationGeneration input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let provide_anomaly_feedback ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ProvideAnomalyFeedback input
let start_commitment_purchase_analysis ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartCommitmentPurchaseAnalysis input
let start_cost_allocation_tag_backfill ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartCostAllocationTagBackfill input
let start_savings_plans_purchase_recommendation_generation ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.StartSavingsPlansPurchaseRecommendationGeneration 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_anomaly_monitor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAnomalyMonitor input
let update_anomaly_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAnomalySubscription input
let update_cost_allocation_tags_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCostAllocationTagsStatus input
let update_cost_category_definition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCostCategoryDefinition input