package awso-async

  1. Overview
  2. Docs

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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
(* 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_proton
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_environment_account_connection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AcceptEnvironmentAccountConnection input
let cancel_component_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelComponentDeployment input
let cancel_environment_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelEnvironmentDeployment input
let cancel_service_instance_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelServiceInstanceDeployment input
let cancel_service_pipeline_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelServicePipelineDeployment input
let create_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateComponent input
let create_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEnvironment input
let create_environment_account_connection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEnvironmentAccountConnection input
let create_environment_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEnvironmentTemplate input
let create_environment_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEnvironmentTemplateVersion input
let create_repository ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRepository input
let create_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateService input
let create_service_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateServiceInstance input
let create_service_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateServiceSyncConfig input
let create_service_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateServiceTemplate input
let create_service_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateServiceTemplateVersion input
let create_template_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTemplateSyncConfig input
let delete_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteComponent input
let delete_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDeployment input
let delete_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEnvironment input
let delete_environment_account_connection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEnvironmentAccountConnection input
let delete_environment_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEnvironmentTemplate input
let delete_environment_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEnvironmentTemplateVersion input
let delete_repository ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRepository input
let delete_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteService input
let delete_service_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteServiceSyncConfig input
let delete_service_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteServiceTemplate input
let delete_service_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteServiceTemplateVersion input
let delete_template_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTemplateSyncConfig input
let get_account_settings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAccountSettings input
let get_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetComponent input
let get_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDeployment input
let get_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEnvironment input
let get_environment_account_connection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEnvironmentAccountConnection input
let get_environment_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEnvironmentTemplate input
let get_environment_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEnvironmentTemplateVersion input
let get_repository ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRepository input
let get_repository_sync_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRepositorySyncStatus input
let get_resources_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourcesSummary input
let get_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetService input
let get_service_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceInstance input
let get_service_instance_sync_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceInstanceSyncStatus input
let get_service_sync_blocker_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceSyncBlockerSummary input
let get_service_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceSyncConfig input
let get_service_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceTemplate input
let get_service_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceTemplateVersion input
let get_template_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetTemplateSyncConfig input
let get_template_sync_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetTemplateSyncStatus input
let list_component_outputs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComponentOutputs input
let list_component_provisioned_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComponentProvisionedResources input
let list_components ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComponents input
let list_deployments ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDeployments input
let list_environment_account_connections ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnvironmentAccountConnections input
let list_environment_outputs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnvironmentOutputs input
let list_environment_provisioned_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnvironmentProvisionedResources input
let list_environment_template_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnvironmentTemplateVersions input
let list_environment_templates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnvironmentTemplates input
let list_environments ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEnvironments input
let list_repositories ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListRepositories input
let list_repository_sync_definitions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListRepositorySyncDefinitions input
let list_service_instance_outputs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServiceInstanceOutputs input
let list_service_instance_provisioned_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServiceInstanceProvisionedResources
    input
let list_service_instances ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServiceInstances input
let list_service_pipeline_outputs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServicePipelineOutputs input
let list_service_pipeline_provisioned_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServicePipelineProvisionedResources
    input
let list_service_template_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServiceTemplateVersions input
let list_service_templates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServiceTemplates input
let list_services ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListServices input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let notify_resource_deployment_status_change ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.NotifyResourceDeploymentStatusChange
    input
let reject_environment_account_connection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RejectEnvironmentAccountConnection 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_account_settings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAccountSettings input
let update_component ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateComponent input
let update_environment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEnvironment input
let update_environment_account_connection ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEnvironmentAccountConnection input
let update_environment_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEnvironmentTemplate input
let update_environment_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEnvironmentTemplateVersion input
let update_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateService input
let update_service_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServiceInstance input
let update_service_pipeline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServicePipeline input
let update_service_sync_blocker ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServiceSyncBlocker input
let update_service_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServiceSyncConfig input
let update_service_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServiceTemplate input
let update_service_template_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServiceTemplateVersion input
let update_template_sync_config ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateTemplateSyncConfig input