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 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 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260(* 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_apigateway 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_api_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateApiKey input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateAuthorizer input let create_base_path_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateBasePathMapping input let create_deployment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDeployment input let create_documentation_part ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDocumentationPart input let create_documentation_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDocumentationVersion input let create_domain_name ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDomainName input let create_domain_name_access_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDomainNameAccessAssociation input let create_model ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateModel input let create_request_validator ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateRequestValidator input let create_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateResource input let create_rest_api ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateRestApi input let create_stage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateStage input let create_usage_plan ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUsagePlan input let create_usage_plan_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUsagePlanKey input let create_vpc_link ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateVpcLink input let delete_api_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteApiKey input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteAuthorizer input let delete_base_path_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteBasePathMapping input let delete_client_certificate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteClientCertificate input let delete_deployment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDeployment input let delete_documentation_part ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDocumentationPart input let delete_documentation_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDocumentationVersion input let delete_domain_name ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDomainName input let delete_domain_name_access_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDomainNameAccessAssociation input let delete_gateway_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteGatewayResponse input let delete_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteIntegration input let delete_integration_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteIntegrationResponse input let delete_method ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteMethod input let delete_method_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteMethodResponse input let delete_model ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteModel input let delete_request_validator ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteRequestValidator input let delete_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteResource input let delete_rest_api ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteRestApi input let delete_stage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteStage input let delete_usage_plan ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUsagePlan input let delete_usage_plan_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUsagePlanKey input let delete_vpc_link ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteVpcLink input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.FlushStageAuthorizersCache input let flush_stage_cache ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.FlushStageCache input let generate_client_certificate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GenerateClientCertificate input let get_account ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAccount input let get_api_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetApiKey input let get_api_keys ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetApiKeys input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAuthorizer input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAuthorizers input let get_base_path_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBasePathMapping input let get_base_path_mappings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBasePathMappings input let get_client_certificate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetClientCertificate input let get_client_certificates ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetClientCertificates input let get_deployment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDeployment input let get_deployments ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDeployments input let get_documentation_part ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDocumentationPart input let get_documentation_parts ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDocumentationParts input let get_documentation_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDocumentationVersion input let get_documentation_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDocumentationVersions input let get_domain_name ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDomainName input let get_domain_name_access_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDomainNameAccessAssociations input let get_domain_names ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDomainNames input let get_export ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetExport input let get_gateway_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetGatewayResponse input let get_gateway_responses ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetGatewayResponses input let get_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIntegration input let get_integration_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIntegrationResponse input let get_method ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMethod input let get_method_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMethodResponse input let get_model ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetModel input let get_model_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetModelTemplate input let get_models ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetModels input let get_request_validator ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRequestValidator input let get_request_validators ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRequestValidators input let get_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResource input let get_resources ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResources input let get_rest_api ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRestApi input let get_rest_apis ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRestApis input let get_sdk ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSdk input let get_sdk_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSdkType input let get_sdk_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSdkTypes input let get_stage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetStage input let get_stages ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetStages input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetTags input let get_usage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUsage input let get_usage_plan ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUsagePlan input let get_usage_plan_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUsagePlanKey input let get_usage_plan_keys ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUsagePlanKeys input let get_usage_plans ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUsagePlans input let get_vpc_link ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetVpcLink input let get_vpc_links ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetVpcLinks input let import_api_keys ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportApiKeys input let import_documentation_parts ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportDocumentationParts input let import_rest_api ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportRestApi input let put_gateway_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutGatewayResponse input let put_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutIntegration input let put_integration_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutIntegrationResponse input let put_method ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutMethod input let put_method_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutMethodResponse input let put_rest_api ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutRestApi input let reject_domain_name_access_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RejectDomainNameAccessAssociation input let tag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TagResource input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TestInvokeAuthorizer input let test_invoke_method ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TestInvokeMethod input let untag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UntagResource input let update_account ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAccount input let update_api_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateApiKey input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAuthorizer input let update_base_path_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateBasePathMapping input let update_client_certificate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateClientCertificate input let update_deployment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDeployment input let update_documentation_part ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDocumentationPart input let update_documentation_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDocumentationVersion input let update_domain_name ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDomainName input let update_gateway_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateGatewayResponse input let update_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateIntegration input let update_integration_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateIntegrationResponse input let update_method ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateMethod input let update_method_response ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateMethodResponse input let update_model ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateModel input let update_request_validator ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateRequestValidator input let update_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateResource input let update_rest_api ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateRestApi input let update_stage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateStage input let update_usage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateUsage input let update_usage_plan ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateUsagePlan input let update_vpc_link ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateVpcLink input