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(* 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_cognito_idp 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 add_custom_attributes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddCustomAttributes input let add_user_pool_client_secret ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddUserPoolClientSecret input let admin_add_user_to_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminAddUserToGroup input let admin_confirm_sign_up ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminConfirmSignUp input let admin_create_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminCreateUser input let admin_delete_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminDeleteUser input let admin_delete_user_attributes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminDeleteUserAttributes input let admin_disable_provider_for_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminDisableProviderForUser input let admin_disable_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminDisableUser input let admin_enable_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminEnableUser input let admin_forget_device ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminForgetDevice input let admin_get_device ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminGetDevice input let admin_get_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminGetUser input let admin_initiate_auth ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminInitiateAuth input let admin_link_provider_for_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminLinkProviderForUser input let admin_list_devices ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminListDevices input let admin_list_groups_for_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminListGroupsForUser input let admin_list_user_auth_events ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminListUserAuthEvents input let admin_remove_user_from_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminRemoveUserFromGroup input let admin_reset_user_password ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminResetUserPassword input let admin_respond_to_auth_challenge ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminRespondToAuthChallenge input let admin_set_user_m_f_a_preference ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminSetUserMFAPreference input let admin_set_user_password ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminSetUserPassword input let admin_set_user_settings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminSetUserSettings input let admin_update_auth_event_feedback ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminUpdateAuthEventFeedback input let admin_update_device_status ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminUpdateDeviceStatus input let admin_update_user_attributes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminUpdateUserAttributes input let admin_user_global_sign_out ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AdminUserGlobalSignOut input let associate_software_token ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateSoftwareToken input let change_password ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ChangePassword input let complete_web_authn_registration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CompleteWebAuthnRegistration input let confirm_device ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ConfirmDevice input let confirm_forgot_password ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ConfirmForgotPassword input let confirm_sign_up ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ConfirmSignUp input let create_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateGroup input let create_identity_provider ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateIdentityProvider input let create_managed_login_branding ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateManagedLoginBranding input let create_resource_server ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateResourceServer input let create_terms ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateTerms input let create_user_import_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUserImportJob input let create_user_pool ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUserPool input let create_user_pool_client ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUserPoolClient input let create_user_pool_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUserPoolDomain input let delete_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteGroup input let delete_identity_provider ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteIdentityProvider input let delete_managed_login_branding ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteManagedLoginBranding input let delete_resource_server ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteResourceServer input let delete_terms ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteTerms input let delete_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUser input let delete_user_attributes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUserAttributes input let delete_user_pool ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUserPool input let delete_user_pool_client ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUserPoolClient input let delete_user_pool_client_secret ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUserPoolClientSecret input let delete_user_pool_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUserPoolDomain input let delete_web_authn_credential ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteWebAuthnCredential input let describe_identity_provider ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeIdentityProvider input let describe_managed_login_branding ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeManagedLoginBranding input let describe_managed_login_branding_by_client ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeManagedLoginBrandingByClient input let describe_resource_server ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeResourceServer input let describe_risk_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeRiskConfiguration input let describe_terms ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeTerms input let describe_user_import_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeUserImportJob input let describe_user_pool ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeUserPool input let describe_user_pool_client ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeUserPoolClient input let describe_user_pool_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeUserPoolDomain input let forget_device ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ForgetDevice input let forgot_password ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ForgotPassword input let get_c_s_v_header ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCSVHeader input let get_device ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDevice input let get_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetGroup input let get_identity_provider_by_identifier ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIdentityProviderByIdentifier input let get_log_delivery_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLogDeliveryConfiguration input let get_signing_certificate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSigningCertificate input let get_tokens_from_refresh_token ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetTokensFromRefreshToken input let get_u_i_customization ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUICustomization input let get_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUser input let get_user_attribute_verification_code ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUserAttributeVerificationCode input let get_user_auth_factors ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUserAuthFactors input let get_user_pool_mfa_config ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUserPoolMfaConfig input let global_sign_out ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GlobalSignOut input let initiate_auth ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.InitiateAuth input let list_devices ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDevices input let list_groups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListGroups input let list_identity_providers ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListIdentityProviders input let list_resource_servers ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListResourceServers input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let list_terms ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTerms input let list_user_import_jobs ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUserImportJobs input let list_user_pool_client_secrets ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUserPoolClientSecrets input let list_user_pool_clients ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUserPoolClients input let list_user_pools ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUserPools input let list_users ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUsers input let list_users_in_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUsersInGroup input let list_web_authn_credentials ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWebAuthnCredentials input let resend_confirmation_code ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ResendConfirmationCode input let respond_to_auth_challenge ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RespondToAuthChallenge input let revoke_token ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RevokeToken input let set_log_delivery_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetLogDeliveryConfiguration input let set_risk_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetRiskConfiguration input let set_u_i_customization ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetUICustomization input let set_user_m_f_a_preference ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetUserMFAPreference input let set_user_pool_mfa_config ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetUserPoolMfaConfig input let set_user_settings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetUserSettings input let sign_up ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SignUp input let start_user_import_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartUserImportJob input let start_web_authn_registration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartWebAuthnRegistration input let stop_user_import_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopUserImportJob 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_auth_event_feedback ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAuthEventFeedback input let update_device_status ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDeviceStatus input let update_group ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateGroup input let update_identity_provider ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateIdentityProvider input let update_managed_login_branding ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateManagedLoginBranding input let update_resource_server ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateResourceServer input let update_terms ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateTerms input let update_user_attributes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateUserAttributes input let update_user_pool ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateUserPool input let update_user_pool_client ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateUserPoolClient input let update_user_pool_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateUserPoolDomain input let verify_software_token ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.VerifySoftwareToken input let verify_user_attribute ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.VerifyUserAttribute input