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
190
191
192
193
194
195
(* 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_workspaces
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_account_link_invitation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AcceptAccountLinkInvitation input
let associate_connection_alias ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateConnectionAlias input
let associate_ip_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateIpGroups input
let associate_workspace_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateWorkspaceApplication input
let authorize_ip_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AuthorizeIpRules input
let copy_workspace_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CopyWorkspaceImage input
let create_account_link_invitation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAccountLinkInvitation input
let create_connect_client_add_in ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConnectClientAddIn input
let create_connection_alias ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConnectionAlias input
let create_ip_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateIpGroup input
let create_standby_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateStandbyWorkspaces input
let create_tags ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTags input
let create_updated_workspace_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateUpdatedWorkspaceImage input
let create_workspace_bundle ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateWorkspaceBundle input
let create_workspace_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateWorkspaceImage input
let create_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateWorkspaces input
let create_workspaces_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateWorkspacesPool input
let delete_account_link_invitation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAccountLinkInvitation input
let delete_client_branding ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteClientBranding input
let delete_connect_client_add_in ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConnectClientAddIn input
let delete_connection_alias ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConnectionAlias input
let delete_ip_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteIpGroup input
let delete_tags ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTags input
let delete_workspace_bundle ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteWorkspaceBundle input
let delete_workspace_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteWorkspaceImage input
let deploy_workspace_applications ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeployWorkspaceApplications input
let deregister_workspace_directory ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterWorkspaceDirectory input
let describe_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAccount input
let describe_account_modifications ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAccountModifications input
let describe_application_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeApplicationAssociations input
let describe_applications ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeApplications input
let describe_bundle_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeBundleAssociations input
let describe_client_branding ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClientBranding input
let describe_client_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClientProperties input
let describe_connect_client_add_ins ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConnectClientAddIns input
let describe_connection_alias_permissions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConnectionAliasPermissions input
let describe_connection_aliases ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeConnectionAliases input
let describe_custom_workspace_image_import ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeCustomWorkspaceImageImport input
let describe_image_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeImageAssociations input
let describe_ip_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeIpGroups input
let describe_tags ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTags input
let describe_workspace_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaceAssociations input
let describe_workspace_bundles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaceBundles input
let describe_workspace_directories ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaceDirectories input
let describe_workspace_image_permissions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaceImagePermissions input
let describe_workspace_images ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaceImages input
let describe_workspace_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaceSnapshots input
let describe_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspaces input
let describe_workspaces_connection_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspacesConnectionStatus input
let describe_workspaces_pool_sessions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspacesPoolSessions input
let describe_workspaces_pools ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeWorkspacesPools input
let disassociate_connection_alias ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateConnectionAlias input
let disassociate_ip_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateIpGroups input
let disassociate_workspace_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateWorkspaceApplication input
let get_account_link ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAccountLink input
let import_client_branding ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ImportClientBranding input
let import_custom_workspace_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ImportCustomWorkspaceImage input
let import_workspace_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ImportWorkspaceImage input
let list_account_links ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAccountLinks input
let list_available_management_cidr_ranges ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAvailableManagementCidrRanges input
let migrate_workspace ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.MigrateWorkspace input
let modify_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyAccount input
let modify_certificate_based_auth_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyCertificateBasedAuthProperties
    input
let modify_client_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClientProperties input
let modify_endpoint_encryption_mode ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyEndpointEncryptionMode input
let modify_saml_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifySamlProperties input
let modify_selfservice_permissions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifySelfservicePermissions input
let modify_streaming_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyStreamingProperties input
let modify_workspace_access_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyWorkspaceAccessProperties input
let modify_workspace_creation_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyWorkspaceCreationProperties input
let modify_workspace_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyWorkspaceProperties input
let modify_workspace_state ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyWorkspaceState input
let reboot_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RebootWorkspaces input
let rebuild_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RebuildWorkspaces input
let register_workspace_directory ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterWorkspaceDirectory input
let reject_account_link_invitation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RejectAccountLinkInvitation input
let restore_workspace ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RestoreWorkspace input
let revoke_ip_rules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RevokeIpRules input
let start_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartWorkspaces input
let start_workspaces_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartWorkspacesPool input
let stop_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopWorkspaces input
let stop_workspaces_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopWorkspacesPool input
let terminate_workspaces ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TerminateWorkspaces input
let terminate_workspaces_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TerminateWorkspacesPool input
let terminate_workspaces_pool_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TerminateWorkspacesPoolSession input
let update_connect_client_add_in ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateConnectClientAddIn input
let update_connection_alias_permission ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateConnectionAliasPermission input
let update_rules_of_ip_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateRulesOfIpGroup input
let update_workspace_bundle ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateWorkspaceBundle input
let update_workspace_image_permission ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateWorkspaceImagePermission input
let update_workspaces_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateWorkspacesPool input