{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.CognitoIdentityProvider.Types
(
cognitoIdentityProvider
, _UnsupportedUserStateException
, _PasswordResetRequiredException
, _InvalidParameterException
, _InvalidLambdaResponseException
, _InvalidEmailRoleAccessPolicyException
, _UserNotFoundException
, _UnexpectedLambdaException
, _NotAuthorizedException
, _InternalErrorException
, _InvalidUserPoolConfigurationException
, _InvalidSmsRoleAccessPolicyException
, _CodeMismatchException
, _UserImportInProgressException
, _InvalidSmsRoleTrustRelationshipException
, _TooManyRequestsException
, _ConcurrentModificationException
, _UserLambdaValidationException
, _PreconditionNotMetException
, _ExpiredCodeException
, _TooManyFailedAttemptsException
, _UserNotConfirmedException
, _CodeDeliveryFailureException
, _ResourceNotFoundException
, _MFAMethodNotFoundException
, _AliasExistsException
, _LimitExceededException
, _InvalidPasswordException
, _UsernameExistsException
, AliasAttributeType (..)
, AttributeDataType (..)
, AuthFlowType (..)
, ChallengeNameType (..)
, DeliveryMediumType (..)
, DeviceRememberedStatusType (..)
, ExplicitAuthFlowsType (..)
, MessageActionType (..)
, StatusType (..)
, UserImportJobStatusType (..)
, UserPoolMFAType (..)
, UserStatusType (..)
, VerifiedAttributeType (..)
, AdminCreateUserConfigType
, adminCreateUserConfigType
, acuctAllowAdminCreateUserOnly
, acuctUnusedAccountValidityDays
, acuctInviteMessageTemplate
, AttributeType
, attributeType
, atValue
, atName
, AuthenticationResultType
, authenticationResultType
, artAccessToken
, artRefreshToken
, artNewDeviceMetadata
, artExpiresIn
, artTokenType
, artIdToken
, CodeDeliveryDetailsType
, codeDeliveryDetailsType
, cddtDestination
, cddtDeliveryMedium
, cddtAttributeName
, DeviceConfigurationType
, deviceConfigurationType
, dctChallengeRequiredOnNewDevice
, dctDeviceOnlyRememberedOnUserPrompt
, DeviceSecretVerifierConfigType
, deviceSecretVerifierConfigType
, dsvctPasswordVerifier
, dsvctSalt
, DeviceType
, deviceType
, dtDeviceLastModifiedDate
, dtDeviceCreateDate
, dtDeviceAttributes
, dtDeviceKey
, dtDeviceLastAuthenticatedDate
, EmailConfigurationType
, emailConfigurationType
, ectSourceARN
, ectReplyToEmailAddress
, LambdaConfigType
, lambdaConfigType
, lctPreAuthentication
, lctCreateAuthChallenge
, lctVerifyAuthChallengeResponse
, lctPostAuthentication
, lctCustomMessage
, lctDefineAuthChallenge
, lctPostConfirmation
, lctPreSignUp
, MFAOptionType
, mfaOptionType
, motDeliveryMedium
, motAttributeName
, MessageTemplateType
, messageTemplateType
, mttEmailSubject
, mttSMSMessage
, mttEmailMessage
, NewDeviceMetadataType
, newDeviceMetadataType
, ndmtDeviceGroupKey
, ndmtDeviceKey
, NumberAttributeConstraintsType
, numberAttributeConstraintsType
, nactMaxValue
, nactMinValue
, PasswordPolicyType
, passwordPolicyType
, pptRequireNumbers
, pptRequireUppercase
, pptRequireLowercase
, pptMinimumLength
, pptRequireSymbols
, SchemaAttributeType
, schemaAttributeType
, satNumberAttributeConstraints
, satRequired
, satAttributeDataType
, satStringAttributeConstraints
, satName
, satDeveloperOnlyAttribute
, satMutable
, SmsConfigurationType
, smsConfigurationType
, sctExternalId
, sctSNSCallerARN
, StringAttributeConstraintsType
, stringAttributeConstraintsType
, sactMaxLength
, sactMinLength
, UserImportJobType
, userImportJobType
, uijtStatus
, uijtSkippedUsers
, uijtJobId
, uijtUserPoolId
, uijtJobName
, uijtPreSignedURL
, uijtFailedUsers
, uijtStartDate
, uijtCompletionMessage
, uijtCreationDate
, uijtCompletionDate
, uijtCloudWatchLogsRoleARN
, uijtImportedUsers
, UserPoolClientDescription
, userPoolClientDescription
, upcdClientId
, upcdUserPoolId
, upcdClientName
, UserPoolClientType
, userPoolClientType
, upctRefreshTokenValidity
, upctClientId
, upctExplicitAuthFlows
, upctClientSecret
, upctLastModifiedDate
, upctUserPoolId
, upctWriteAttributes
, upctCreationDate
, upctReadAttributes
, upctClientName
, UserPoolDescriptionType
, userPoolDescriptionType
, updtStatus
, updtLastModifiedDate
, updtName
, updtId
, updtCreationDate
, updtLambdaConfig
, UserPoolPolicyType
, userPoolPolicyType
, upptPasswordPolicy
, UserPoolType
, userPoolType
, uptStatus
, uptEmailConfigurationFailure
, uptLastModifiedDate
, uptEstimatedNumberOfUsers
, uptEmailVerificationMessage
, uptSmsAuthenticationMessage
, uptSchemaAttributes
, uptEmailVerificationSubject
, uptAliasAttributes
, uptEmailConfiguration
, uptSmsVerificationMessage
, uptName
, uptMFAConfiguration
, uptId
, uptSmsConfigurationFailure
, uptCreationDate
, uptLambdaConfig
, uptSmsConfiguration
, uptAdminCreateUserConfig
, uptDeviceConfiguration
, uptAutoVerifiedAttributes
, uptPolicies
, UserType
, userType
, utEnabled
, utUserStatus
, utUsername
, utUserCreateDate
, utAttributes
, utMFAOptions
, utUserLastModifiedDate
) where
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.CognitoIdentityProvider.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
cognitoIdentityProvider :: Service
cognitoIdentityProvider =
Service
{ _svcAbbrev = "CognitoIdentityProvider"
, _svcSigner = v4
, _svcPrefix = "cognito-idp"
, _svcVersion = "2016-04-18"
, _svcEndpoint = defaultEndpoint cognitoIdentityProvider
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "CognitoIdentityProvider"
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_UnsupportedUserStateException :: AsError a => Getting (First ServiceError) a ServiceError
_UnsupportedUserStateException =
_ServiceError . hasCode "UnsupportedUserStateException"
_PasswordResetRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_PasswordResetRequiredException =
_ServiceError . hasCode "PasswordResetRequiredException"
_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterException =
_ServiceError . hasCode "InvalidParameterException"
_InvalidLambdaResponseException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidLambdaResponseException =
_ServiceError . hasCode "InvalidLambdaResponseException"
_InvalidEmailRoleAccessPolicyException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidEmailRoleAccessPolicyException =
_ServiceError . hasCode "InvalidEmailRoleAccessPolicyException"
_UserNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_UserNotFoundException = _ServiceError . hasCode "UserNotFoundException"
_UnexpectedLambdaException :: AsError a => Getting (First ServiceError) a ServiceError
_UnexpectedLambdaException =
_ServiceError . hasCode "UnexpectedLambdaException"
_NotAuthorizedException :: AsError a => Getting (First ServiceError) a ServiceError
_NotAuthorizedException = _ServiceError . hasCode "NotAuthorizedException"
_InternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError
_InternalErrorException = _ServiceError . hasCode "InternalErrorException"
_InvalidUserPoolConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidUserPoolConfigurationException =
_ServiceError . hasCode "InvalidUserPoolConfigurationException"
_InvalidSmsRoleAccessPolicyException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSmsRoleAccessPolicyException =
_ServiceError . hasCode "InvalidSmsRoleAccessPolicyException"
_CodeMismatchException :: AsError a => Getting (First ServiceError) a ServiceError
_CodeMismatchException = _ServiceError . hasCode "CodeMismatchException"
_UserImportInProgressException :: AsError a => Getting (First ServiceError) a ServiceError
_UserImportInProgressException =
_ServiceError . hasCode "UserImportInProgressException"
_InvalidSmsRoleTrustRelationshipException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSmsRoleTrustRelationshipException =
_ServiceError . hasCode "InvalidSmsRoleTrustRelationshipException"
_TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyRequestsException = _ServiceError . hasCode "TooManyRequestsException"
_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError
_ConcurrentModificationException =
_ServiceError . hasCode "ConcurrentModificationException"
_UserLambdaValidationException :: AsError a => Getting (First ServiceError) a ServiceError
_UserLambdaValidationException =
_ServiceError . hasCode "UserLambdaValidationException"
_PreconditionNotMetException :: AsError a => Getting (First ServiceError) a ServiceError
_PreconditionNotMetException =
_ServiceError . hasCode "PreconditionNotMetException"
_ExpiredCodeException :: AsError a => Getting (First ServiceError) a ServiceError
_ExpiredCodeException = _ServiceError . hasCode "ExpiredCodeException"
_TooManyFailedAttemptsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyFailedAttemptsException =
_ServiceError . hasCode "TooManyFailedAttemptsException"
_UserNotConfirmedException :: AsError a => Getting (First ServiceError) a ServiceError
_UserNotConfirmedException =
_ServiceError . hasCode "UserNotConfirmedException"
_CodeDeliveryFailureException :: AsError a => Getting (First ServiceError) a ServiceError
_CodeDeliveryFailureException =
_ServiceError . hasCode "CodeDeliveryFailureException"
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
_ServiceError . hasCode "ResourceNotFoundException"
_MFAMethodNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_MFAMethodNotFoundException =
_ServiceError . hasCode "MFAMethodNotFoundException"
_AliasExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_AliasExistsException = _ServiceError . hasCode "AliasExistsException"
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LimitExceededException = _ServiceError . hasCode "LimitExceededException"
_InvalidPasswordException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidPasswordException = _ServiceError . hasCode "InvalidPasswordException"
_UsernameExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_UsernameExistsException = _ServiceError . hasCode "UsernameExistsException"