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
135
136
137
138
139
140
141
142
143
144
145
146
147
(* 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_resiliencehub
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 accept_resource_grouping_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AcceptResourceGroupingRecommendations
    input
let add_draft_app_version_resource_mappings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddDraftAppVersionResourceMappings input
let batch_update_recommendation_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchUpdateRecommendationStatus input
let create_app ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateApp input
let create_app_version_app_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAppVersionAppComponent input
let create_app_version_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAppVersionResource input
let create_recommendation_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRecommendationTemplate input
let create_resiliency_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateResiliencyPolicy input
let delete_app ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteApp input
let delete_app_assessment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAppAssessment input
let delete_app_input_source ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAppInputSource input
let delete_app_version_app_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAppVersionAppComponent input
let delete_app_version_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAppVersionResource input
let delete_recommendation_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRecommendationTemplate input
let delete_resiliency_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteResiliencyPolicy input
let describe_app ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeApp input
let describe_app_assessment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAppAssessment input
let describe_app_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAppVersion input
let describe_app_version_app_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAppVersionAppComponent input
let describe_app_version_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAppVersionResource input
let describe_app_version_resources_resolution_status ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeAppVersionResourcesResolutionStatus input
let describe_app_version_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAppVersionTemplate input
let describe_draft_app_version_resources_import_status ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeDraftAppVersionResourcesImportStatus input
let describe_metrics_export ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMetricsExport input
let describe_resiliency_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeResiliencyPolicy input
let describe_resource_grouping_recommendation_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeResourceGroupingRecommendationTask input
let import_resources_to_draft_app_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ImportResourcesToDraftAppVersion input
let list_alarm_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAlarmRecommendations input
let list_app_assessment_compliance_drifts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppAssessmentComplianceDrifts input
let list_app_assessment_resource_drifts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppAssessmentResourceDrifts input
let list_app_assessments ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppAssessments input
let list_app_component_compliances ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppComponentCompliances input
let list_app_component_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppComponentRecommendations input
let list_app_input_sources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppInputSources input
let list_app_version_app_components ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppVersionAppComponents input
let list_app_version_resource_mappings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppVersionResourceMappings input
let list_app_version_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppVersionResources input
let list_app_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAppVersions input
let list_apps ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListApps input
let list_metrics ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListMetrics input
let list_recommendation_templates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListRecommendationTemplates input
let list_resiliency_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListResiliencyPolicies input
let list_resource_grouping_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListResourceGroupingRecommendations input
let list_sop_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSopRecommendations input
let list_suggested_resiliency_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSuggestedResiliencyPolicies input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_test_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTestRecommendations input
let list_unsupported_app_version_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListUnsupportedAppVersionResources input
let publish_app_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PublishAppVersion input
let put_draft_app_version_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDraftAppVersionTemplate input
let reject_resource_grouping_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RejectResourceGroupingRecommendations
    input
let remove_draft_app_version_resource_mappings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RemoveDraftAppVersionResourceMappings
    input
let resolve_app_version_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResolveAppVersionResources input
let start_app_assessment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAppAssessment input
let start_metrics_export ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartMetricsExport input
let start_resource_grouping_recommendation_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartResourceGroupingRecommendationTask
    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_app ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateApp input
let update_app_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAppVersion input
let update_app_version_app_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAppVersionAppComponent input
let update_app_version_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAppVersionResource input
let update_resiliency_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateResiliencyPolicy input