module Network.AWS.CognitoIdentityProvider.Types.Product where
import Network.AWS.CognitoIdentityProvider.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
data AdminCreateUserConfigType = AdminCreateUserConfigType'
{ _acuctAllowAdminCreateUserOnly :: !(Maybe Bool)
, _acuctUnusedAccountValidityDays :: !(Maybe Nat)
, _acuctInviteMessageTemplate :: !(Maybe MessageTemplateType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
adminCreateUserConfigType
:: AdminCreateUserConfigType
adminCreateUserConfigType =
AdminCreateUserConfigType'
{ _acuctAllowAdminCreateUserOnly = Nothing
, _acuctUnusedAccountValidityDays = Nothing
, _acuctInviteMessageTemplate = Nothing
}
acuctAllowAdminCreateUserOnly :: Lens' AdminCreateUserConfigType (Maybe Bool)
acuctAllowAdminCreateUserOnly = lens _acuctAllowAdminCreateUserOnly (\ s a -> s{_acuctAllowAdminCreateUserOnly = a});
acuctUnusedAccountValidityDays :: Lens' AdminCreateUserConfigType (Maybe Natural)
acuctUnusedAccountValidityDays = lens _acuctUnusedAccountValidityDays (\ s a -> s{_acuctUnusedAccountValidityDays = a}) . mapping _Nat;
acuctInviteMessageTemplate :: Lens' AdminCreateUserConfigType (Maybe MessageTemplateType)
acuctInviteMessageTemplate = lens _acuctInviteMessageTemplate (\ s a -> s{_acuctInviteMessageTemplate = a});
instance FromJSON AdminCreateUserConfigType where
parseJSON
= withObject "AdminCreateUserConfigType"
(\ x ->
AdminCreateUserConfigType' <$>
(x .:? "AllowAdminCreateUserOnly") <*>
(x .:? "UnusedAccountValidityDays")
<*> (x .:? "InviteMessageTemplate"))
instance Hashable AdminCreateUserConfigType where
instance NFData AdminCreateUserConfigType where
instance ToJSON AdminCreateUserConfigType where
toJSON AdminCreateUserConfigType'{..}
= object
(catMaybes
[("AllowAdminCreateUserOnly" .=) <$>
_acuctAllowAdminCreateUserOnly,
("UnusedAccountValidityDays" .=) <$>
_acuctUnusedAccountValidityDays,
("InviteMessageTemplate" .=) <$>
_acuctInviteMessageTemplate])
data AttributeType = AttributeType'
{ _atValue :: !(Maybe (Sensitive Text))
, _atName :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
attributeType
:: Text
-> AttributeType
attributeType pName_ = AttributeType' {_atValue = Nothing, _atName = pName_}
atValue :: Lens' AttributeType (Maybe Text)
atValue = lens _atValue (\ s a -> s{_atValue = a}) . mapping _Sensitive;
atName :: Lens' AttributeType Text
atName = lens _atName (\ s a -> s{_atName = a});
instance FromJSON AttributeType where
parseJSON
= withObject "AttributeType"
(\ x ->
AttributeType' <$> (x .:? "Value") <*> (x .: "Name"))
instance Hashable AttributeType where
instance NFData AttributeType where
instance ToJSON AttributeType where
toJSON AttributeType'{..}
= object
(catMaybes
[("Value" .=) <$> _atValue,
Just ("Name" .= _atName)])
data AuthenticationResultType = AuthenticationResultType'
{ _artAccessToken :: !(Maybe (Sensitive Text))
, _artRefreshToken :: !(Maybe (Sensitive Text))
, _artNewDeviceMetadata :: !(Maybe NewDeviceMetadataType)
, _artExpiresIn :: !(Maybe Int)
, _artTokenType :: !(Maybe Text)
, _artIdToken :: !(Maybe (Sensitive Text))
} deriving (Eq, Show, Data, Typeable, Generic)
authenticationResultType
:: AuthenticationResultType
authenticationResultType =
AuthenticationResultType'
{ _artAccessToken = Nothing
, _artRefreshToken = Nothing
, _artNewDeviceMetadata = Nothing
, _artExpiresIn = Nothing
, _artTokenType = Nothing
, _artIdToken = Nothing
}
artAccessToken :: Lens' AuthenticationResultType (Maybe Text)
artAccessToken = lens _artAccessToken (\ s a -> s{_artAccessToken = a}) . mapping _Sensitive;
artRefreshToken :: Lens' AuthenticationResultType (Maybe Text)
artRefreshToken = lens _artRefreshToken (\ s a -> s{_artRefreshToken = a}) . mapping _Sensitive;
artNewDeviceMetadata :: Lens' AuthenticationResultType (Maybe NewDeviceMetadataType)
artNewDeviceMetadata = lens _artNewDeviceMetadata (\ s a -> s{_artNewDeviceMetadata = a});
artExpiresIn :: Lens' AuthenticationResultType (Maybe Int)
artExpiresIn = lens _artExpiresIn (\ s a -> s{_artExpiresIn = a});
artTokenType :: Lens' AuthenticationResultType (Maybe Text)
artTokenType = lens _artTokenType (\ s a -> s{_artTokenType = a});
artIdToken :: Lens' AuthenticationResultType (Maybe Text)
artIdToken = lens _artIdToken (\ s a -> s{_artIdToken = a}) . mapping _Sensitive;
instance FromJSON AuthenticationResultType where
parseJSON
= withObject "AuthenticationResultType"
(\ x ->
AuthenticationResultType' <$>
(x .:? "AccessToken") <*> (x .:? "RefreshToken") <*>
(x .:? "NewDeviceMetadata")
<*> (x .:? "ExpiresIn")
<*> (x .:? "TokenType")
<*> (x .:? "IdToken"))
instance Hashable AuthenticationResultType where
instance NFData AuthenticationResultType where
data CodeDeliveryDetailsType = CodeDeliveryDetailsType'
{ _cddtDestination :: !(Maybe Text)
, _cddtDeliveryMedium :: !(Maybe DeliveryMediumType)
, _cddtAttributeName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
codeDeliveryDetailsType
:: CodeDeliveryDetailsType
codeDeliveryDetailsType =
CodeDeliveryDetailsType'
{ _cddtDestination = Nothing
, _cddtDeliveryMedium = Nothing
, _cddtAttributeName = Nothing
}
cddtDestination :: Lens' CodeDeliveryDetailsType (Maybe Text)
cddtDestination = lens _cddtDestination (\ s a -> s{_cddtDestination = a});
cddtDeliveryMedium :: Lens' CodeDeliveryDetailsType (Maybe DeliveryMediumType)
cddtDeliveryMedium = lens _cddtDeliveryMedium (\ s a -> s{_cddtDeliveryMedium = a});
cddtAttributeName :: Lens' CodeDeliveryDetailsType (Maybe Text)
cddtAttributeName = lens _cddtAttributeName (\ s a -> s{_cddtAttributeName = a});
instance FromJSON CodeDeliveryDetailsType where
parseJSON
= withObject "CodeDeliveryDetailsType"
(\ x ->
CodeDeliveryDetailsType' <$>
(x .:? "Destination") <*> (x .:? "DeliveryMedium")
<*> (x .:? "AttributeName"))
instance Hashable CodeDeliveryDetailsType where
instance NFData CodeDeliveryDetailsType where
data DeviceConfigurationType = DeviceConfigurationType'
{ _dctChallengeRequiredOnNewDevice :: !(Maybe Bool)
, _dctDeviceOnlyRememberedOnUserPrompt :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deviceConfigurationType
:: DeviceConfigurationType
deviceConfigurationType =
DeviceConfigurationType'
{ _dctChallengeRequiredOnNewDevice = Nothing
, _dctDeviceOnlyRememberedOnUserPrompt = Nothing
}
dctChallengeRequiredOnNewDevice :: Lens' DeviceConfigurationType (Maybe Bool)
dctChallengeRequiredOnNewDevice = lens _dctChallengeRequiredOnNewDevice (\ s a -> s{_dctChallengeRequiredOnNewDevice = a});
dctDeviceOnlyRememberedOnUserPrompt :: Lens' DeviceConfigurationType (Maybe Bool)
dctDeviceOnlyRememberedOnUserPrompt = lens _dctDeviceOnlyRememberedOnUserPrompt (\ s a -> s{_dctDeviceOnlyRememberedOnUserPrompt = a});
instance FromJSON DeviceConfigurationType where
parseJSON
= withObject "DeviceConfigurationType"
(\ x ->
DeviceConfigurationType' <$>
(x .:? "ChallengeRequiredOnNewDevice") <*>
(x .:? "DeviceOnlyRememberedOnUserPrompt"))
instance Hashable DeviceConfigurationType where
instance NFData DeviceConfigurationType where
instance ToJSON DeviceConfigurationType where
toJSON DeviceConfigurationType'{..}
= object
(catMaybes
[("ChallengeRequiredOnNewDevice" .=) <$>
_dctChallengeRequiredOnNewDevice,
("DeviceOnlyRememberedOnUserPrompt" .=) <$>
_dctDeviceOnlyRememberedOnUserPrompt])
data DeviceSecretVerifierConfigType = DeviceSecretVerifierConfigType'
{ _dsvctPasswordVerifier :: !(Maybe Text)
, _dsvctSalt :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deviceSecretVerifierConfigType
:: DeviceSecretVerifierConfigType
deviceSecretVerifierConfigType =
DeviceSecretVerifierConfigType'
{_dsvctPasswordVerifier = Nothing, _dsvctSalt = Nothing}
dsvctPasswordVerifier :: Lens' DeviceSecretVerifierConfigType (Maybe Text)
dsvctPasswordVerifier = lens _dsvctPasswordVerifier (\ s a -> s{_dsvctPasswordVerifier = a});
dsvctSalt :: Lens' DeviceSecretVerifierConfigType (Maybe Text)
dsvctSalt = lens _dsvctSalt (\ s a -> s{_dsvctSalt = a});
instance Hashable DeviceSecretVerifierConfigType
where
instance NFData DeviceSecretVerifierConfigType where
instance ToJSON DeviceSecretVerifierConfigType where
toJSON DeviceSecretVerifierConfigType'{..}
= object
(catMaybes
[("PasswordVerifier" .=) <$> _dsvctPasswordVerifier,
("Salt" .=) <$> _dsvctSalt])
data DeviceType = DeviceType'
{ _dtDeviceLastModifiedDate :: !(Maybe POSIX)
, _dtDeviceCreateDate :: !(Maybe POSIX)
, _dtDeviceAttributes :: !(Maybe [AttributeType])
, _dtDeviceKey :: !(Maybe Text)
, _dtDeviceLastAuthenticatedDate :: !(Maybe POSIX)
} deriving (Eq, Show, Data, Typeable, Generic)
deviceType
:: DeviceType
deviceType =
DeviceType'
{ _dtDeviceLastModifiedDate = Nothing
, _dtDeviceCreateDate = Nothing
, _dtDeviceAttributes = Nothing
, _dtDeviceKey = Nothing
, _dtDeviceLastAuthenticatedDate = Nothing
}
dtDeviceLastModifiedDate :: Lens' DeviceType (Maybe UTCTime)
dtDeviceLastModifiedDate = lens _dtDeviceLastModifiedDate (\ s a -> s{_dtDeviceLastModifiedDate = a}) . mapping _Time;
dtDeviceCreateDate :: Lens' DeviceType (Maybe UTCTime)
dtDeviceCreateDate = lens _dtDeviceCreateDate (\ s a -> s{_dtDeviceCreateDate = a}) . mapping _Time;
dtDeviceAttributes :: Lens' DeviceType [AttributeType]
dtDeviceAttributes = lens _dtDeviceAttributes (\ s a -> s{_dtDeviceAttributes = a}) . _Default . _Coerce;
dtDeviceKey :: Lens' DeviceType (Maybe Text)
dtDeviceKey = lens _dtDeviceKey (\ s a -> s{_dtDeviceKey = a});
dtDeviceLastAuthenticatedDate :: Lens' DeviceType (Maybe UTCTime)
dtDeviceLastAuthenticatedDate = lens _dtDeviceLastAuthenticatedDate (\ s a -> s{_dtDeviceLastAuthenticatedDate = a}) . mapping _Time;
instance FromJSON DeviceType where
parseJSON
= withObject "DeviceType"
(\ x ->
DeviceType' <$>
(x .:? "DeviceLastModifiedDate") <*>
(x .:? "DeviceCreateDate")
<*> (x .:? "DeviceAttributes" .!= mempty)
<*> (x .:? "DeviceKey")
<*> (x .:? "DeviceLastAuthenticatedDate"))
instance Hashable DeviceType where
instance NFData DeviceType where
data DomainDescriptionType = DomainDescriptionType'
{ _ddtStatus :: !(Maybe DomainStatusType)
, _ddtCloudFrontDistribution :: !(Maybe Text)
, _ddtUserPoolId :: !(Maybe Text)
, _ddtDomain :: !(Maybe Text)
, _ddtAWSAccountId :: !(Maybe Text)
, _ddtVersion :: !(Maybe Text)
, _ddtS3Bucket :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
domainDescriptionType
:: DomainDescriptionType
domainDescriptionType =
DomainDescriptionType'
{ _ddtStatus = Nothing
, _ddtCloudFrontDistribution = Nothing
, _ddtUserPoolId = Nothing
, _ddtDomain = Nothing
, _ddtAWSAccountId = Nothing
, _ddtVersion = Nothing
, _ddtS3Bucket = Nothing
}
ddtStatus :: Lens' DomainDescriptionType (Maybe DomainStatusType)
ddtStatus = lens _ddtStatus (\ s a -> s{_ddtStatus = a});
ddtCloudFrontDistribution :: Lens' DomainDescriptionType (Maybe Text)
ddtCloudFrontDistribution = lens _ddtCloudFrontDistribution (\ s a -> s{_ddtCloudFrontDistribution = a});
ddtUserPoolId :: Lens' DomainDescriptionType (Maybe Text)
ddtUserPoolId = lens _ddtUserPoolId (\ s a -> s{_ddtUserPoolId = a});
ddtDomain :: Lens' DomainDescriptionType (Maybe Text)
ddtDomain = lens _ddtDomain (\ s a -> s{_ddtDomain = a});
ddtAWSAccountId :: Lens' DomainDescriptionType (Maybe Text)
ddtAWSAccountId = lens _ddtAWSAccountId (\ s a -> s{_ddtAWSAccountId = a});
ddtVersion :: Lens' DomainDescriptionType (Maybe Text)
ddtVersion = lens _ddtVersion (\ s a -> s{_ddtVersion = a});
ddtS3Bucket :: Lens' DomainDescriptionType (Maybe Text)
ddtS3Bucket = lens _ddtS3Bucket (\ s a -> s{_ddtS3Bucket = a});
instance FromJSON DomainDescriptionType where
parseJSON
= withObject "DomainDescriptionType"
(\ x ->
DomainDescriptionType' <$>
(x .:? "Status") <*> (x .:? "CloudFrontDistribution")
<*> (x .:? "UserPoolId")
<*> (x .:? "Domain")
<*> (x .:? "AWSAccountId")
<*> (x .:? "Version")
<*> (x .:? "S3Bucket"))
instance Hashable DomainDescriptionType where
instance NFData DomainDescriptionType where
data EmailConfigurationType = EmailConfigurationType'
{ _ectSourceARN :: !(Maybe Text)
, _ectReplyToEmailAddress :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
emailConfigurationType
:: EmailConfigurationType
emailConfigurationType =
EmailConfigurationType'
{_ectSourceARN = Nothing, _ectReplyToEmailAddress = Nothing}
ectSourceARN :: Lens' EmailConfigurationType (Maybe Text)
ectSourceARN = lens _ectSourceARN (\ s a -> s{_ectSourceARN = a});
ectReplyToEmailAddress :: Lens' EmailConfigurationType (Maybe Text)
ectReplyToEmailAddress = lens _ectReplyToEmailAddress (\ s a -> s{_ectReplyToEmailAddress = a});
instance FromJSON EmailConfigurationType where
parseJSON
= withObject "EmailConfigurationType"
(\ x ->
EmailConfigurationType' <$>
(x .:? "SourceArn") <*>
(x .:? "ReplyToEmailAddress"))
instance Hashable EmailConfigurationType where
instance NFData EmailConfigurationType where
instance ToJSON EmailConfigurationType where
toJSON EmailConfigurationType'{..}
= object
(catMaybes
[("SourceArn" .=) <$> _ectSourceARN,
("ReplyToEmailAddress" .=) <$>
_ectReplyToEmailAddress])
data GroupType = GroupType'
{ _gtLastModifiedDate :: !(Maybe POSIX)
, _gtUserPoolId :: !(Maybe Text)
, _gtCreationDate :: !(Maybe POSIX)
, _gtPrecedence :: !(Maybe Nat)
, _gtGroupName :: !(Maybe Text)
, _gtDescription :: !(Maybe Text)
, _gtRoleARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
groupType
:: GroupType
groupType =
GroupType'
{ _gtLastModifiedDate = Nothing
, _gtUserPoolId = Nothing
, _gtCreationDate = Nothing
, _gtPrecedence = Nothing
, _gtGroupName = Nothing
, _gtDescription = Nothing
, _gtRoleARN = Nothing
}
gtLastModifiedDate :: Lens' GroupType (Maybe UTCTime)
gtLastModifiedDate = lens _gtLastModifiedDate (\ s a -> s{_gtLastModifiedDate = a}) . mapping _Time;
gtUserPoolId :: Lens' GroupType (Maybe Text)
gtUserPoolId = lens _gtUserPoolId (\ s a -> s{_gtUserPoolId = a});
gtCreationDate :: Lens' GroupType (Maybe UTCTime)
gtCreationDate = lens _gtCreationDate (\ s a -> s{_gtCreationDate = a}) . mapping _Time;
gtPrecedence :: Lens' GroupType (Maybe Natural)
gtPrecedence = lens _gtPrecedence (\ s a -> s{_gtPrecedence = a}) . mapping _Nat;
gtGroupName :: Lens' GroupType (Maybe Text)
gtGroupName = lens _gtGroupName (\ s a -> s{_gtGroupName = a});
gtDescription :: Lens' GroupType (Maybe Text)
gtDescription = lens _gtDescription (\ s a -> s{_gtDescription = a});
gtRoleARN :: Lens' GroupType (Maybe Text)
gtRoleARN = lens _gtRoleARN (\ s a -> s{_gtRoleARN = a});
instance FromJSON GroupType where
parseJSON
= withObject "GroupType"
(\ x ->
GroupType' <$>
(x .:? "LastModifiedDate") <*> (x .:? "UserPoolId")
<*> (x .:? "CreationDate")
<*> (x .:? "Precedence")
<*> (x .:? "GroupName")
<*> (x .:? "Description")
<*> (x .:? "RoleArn"))
instance Hashable GroupType where
instance NFData GroupType where
data IdentityProviderType = IdentityProviderType'
{ _iptLastModifiedDate :: !(Maybe POSIX)
, _iptUserPoolId :: !(Maybe Text)
, _iptProviderType :: !(Maybe IdentityProviderTypeType)
, _iptCreationDate :: !(Maybe POSIX)
, _iptIdpIdentifiers :: !(Maybe [Text])
, _iptAttributeMapping :: !(Maybe (Map Text Text))
, _iptProviderDetails :: !(Maybe (Map Text Text))
, _iptProviderName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
identityProviderType
:: IdentityProviderType
identityProviderType =
IdentityProviderType'
{ _iptLastModifiedDate = Nothing
, _iptUserPoolId = Nothing
, _iptProviderType = Nothing
, _iptCreationDate = Nothing
, _iptIdpIdentifiers = Nothing
, _iptAttributeMapping = Nothing
, _iptProviderDetails = Nothing
, _iptProviderName = Nothing
}
iptLastModifiedDate :: Lens' IdentityProviderType (Maybe UTCTime)
iptLastModifiedDate = lens _iptLastModifiedDate (\ s a -> s{_iptLastModifiedDate = a}) . mapping _Time;
iptUserPoolId :: Lens' IdentityProviderType (Maybe Text)
iptUserPoolId = lens _iptUserPoolId (\ s a -> s{_iptUserPoolId = a});
iptProviderType :: Lens' IdentityProviderType (Maybe IdentityProviderTypeType)
iptProviderType = lens _iptProviderType (\ s a -> s{_iptProviderType = a});
iptCreationDate :: Lens' IdentityProviderType (Maybe UTCTime)
iptCreationDate = lens _iptCreationDate (\ s a -> s{_iptCreationDate = a}) . mapping _Time;
iptIdpIdentifiers :: Lens' IdentityProviderType [Text]
iptIdpIdentifiers = lens _iptIdpIdentifiers (\ s a -> s{_iptIdpIdentifiers = a}) . _Default . _Coerce;
iptAttributeMapping :: Lens' IdentityProviderType (HashMap Text Text)
iptAttributeMapping = lens _iptAttributeMapping (\ s a -> s{_iptAttributeMapping = a}) . _Default . _Map;
iptProviderDetails :: Lens' IdentityProviderType (HashMap Text Text)
iptProviderDetails = lens _iptProviderDetails (\ s a -> s{_iptProviderDetails = a}) . _Default . _Map;
iptProviderName :: Lens' IdentityProviderType (Maybe Text)
iptProviderName = lens _iptProviderName (\ s a -> s{_iptProviderName = a});
instance FromJSON IdentityProviderType where
parseJSON
= withObject "IdentityProviderType"
(\ x ->
IdentityProviderType' <$>
(x .:? "LastModifiedDate") <*> (x .:? "UserPoolId")
<*> (x .:? "ProviderType")
<*> (x .:? "CreationDate")
<*> (x .:? "IdpIdentifiers" .!= mempty)
<*> (x .:? "AttributeMapping" .!= mempty)
<*> (x .:? "ProviderDetails" .!= mempty)
<*> (x .:? "ProviderName"))
instance Hashable IdentityProviderType where
instance NFData IdentityProviderType where
data LambdaConfigType = LambdaConfigType'
{ _lctPreAuthentication :: !(Maybe Text)
, _lctCreateAuthChallenge :: !(Maybe Text)
, _lctVerifyAuthChallengeResponse :: !(Maybe Text)
, _lctPostAuthentication :: !(Maybe Text)
, _lctCustomMessage :: !(Maybe Text)
, _lctDefineAuthChallenge :: !(Maybe Text)
, _lctPostConfirmation :: !(Maybe Text)
, _lctPreSignUp :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaConfigType
:: LambdaConfigType
lambdaConfigType =
LambdaConfigType'
{ _lctPreAuthentication = Nothing
, _lctCreateAuthChallenge = Nothing
, _lctVerifyAuthChallengeResponse = Nothing
, _lctPostAuthentication = Nothing
, _lctCustomMessage = Nothing
, _lctDefineAuthChallenge = Nothing
, _lctPostConfirmation = Nothing
, _lctPreSignUp = Nothing
}
lctPreAuthentication :: Lens' LambdaConfigType (Maybe Text)
lctPreAuthentication = lens _lctPreAuthentication (\ s a -> s{_lctPreAuthentication = a});
lctCreateAuthChallenge :: Lens' LambdaConfigType (Maybe Text)
lctCreateAuthChallenge = lens _lctCreateAuthChallenge (\ s a -> s{_lctCreateAuthChallenge = a});
lctVerifyAuthChallengeResponse :: Lens' LambdaConfigType (Maybe Text)
lctVerifyAuthChallengeResponse = lens _lctVerifyAuthChallengeResponse (\ s a -> s{_lctVerifyAuthChallengeResponse = a});
lctPostAuthentication :: Lens' LambdaConfigType (Maybe Text)
lctPostAuthentication = lens _lctPostAuthentication (\ s a -> s{_lctPostAuthentication = a});
lctCustomMessage :: Lens' LambdaConfigType (Maybe Text)
lctCustomMessage = lens _lctCustomMessage (\ s a -> s{_lctCustomMessage = a});
lctDefineAuthChallenge :: Lens' LambdaConfigType (Maybe Text)
lctDefineAuthChallenge = lens _lctDefineAuthChallenge (\ s a -> s{_lctDefineAuthChallenge = a});
lctPostConfirmation :: Lens' LambdaConfigType (Maybe Text)
lctPostConfirmation = lens _lctPostConfirmation (\ s a -> s{_lctPostConfirmation = a});
lctPreSignUp :: Lens' LambdaConfigType (Maybe Text)
lctPreSignUp = lens _lctPreSignUp (\ s a -> s{_lctPreSignUp = a});
instance FromJSON LambdaConfigType where
parseJSON
= withObject "LambdaConfigType"
(\ x ->
LambdaConfigType' <$>
(x .:? "PreAuthentication") <*>
(x .:? "CreateAuthChallenge")
<*> (x .:? "VerifyAuthChallengeResponse")
<*> (x .:? "PostAuthentication")
<*> (x .:? "CustomMessage")
<*> (x .:? "DefineAuthChallenge")
<*> (x .:? "PostConfirmation")
<*> (x .:? "PreSignUp"))
instance Hashable LambdaConfigType where
instance NFData LambdaConfigType where
instance ToJSON LambdaConfigType where
toJSON LambdaConfigType'{..}
= object
(catMaybes
[("PreAuthentication" .=) <$> _lctPreAuthentication,
("CreateAuthChallenge" .=) <$>
_lctCreateAuthChallenge,
("VerifyAuthChallengeResponse" .=) <$>
_lctVerifyAuthChallengeResponse,
("PostAuthentication" .=) <$> _lctPostAuthentication,
("CustomMessage" .=) <$> _lctCustomMessage,
("DefineAuthChallenge" .=) <$>
_lctDefineAuthChallenge,
("PostConfirmation" .=) <$> _lctPostConfirmation,
("PreSignUp" .=) <$> _lctPreSignUp])
data MFAOptionType = MFAOptionType'
{ _motDeliveryMedium :: !(Maybe DeliveryMediumType)
, _motAttributeName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
mfaOptionType
:: MFAOptionType
mfaOptionType =
MFAOptionType' {_motDeliveryMedium = Nothing, _motAttributeName = Nothing}
motDeliveryMedium :: Lens' MFAOptionType (Maybe DeliveryMediumType)
motDeliveryMedium = lens _motDeliveryMedium (\ s a -> s{_motDeliveryMedium = a});
motAttributeName :: Lens' MFAOptionType (Maybe Text)
motAttributeName = lens _motAttributeName (\ s a -> s{_motAttributeName = a});
instance FromJSON MFAOptionType where
parseJSON
= withObject "MFAOptionType"
(\ x ->
MFAOptionType' <$>
(x .:? "DeliveryMedium") <*> (x .:? "AttributeName"))
instance Hashable MFAOptionType where
instance NFData MFAOptionType where
instance ToJSON MFAOptionType where
toJSON MFAOptionType'{..}
= object
(catMaybes
[("DeliveryMedium" .=) <$> _motDeliveryMedium,
("AttributeName" .=) <$> _motAttributeName])
data MessageTemplateType = MessageTemplateType'
{ _mttEmailSubject :: !(Maybe Text)
, _mttSMSMessage :: !(Maybe Text)
, _mttEmailMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
messageTemplateType
:: MessageTemplateType
messageTemplateType =
MessageTemplateType'
{ _mttEmailSubject = Nothing
, _mttSMSMessage = Nothing
, _mttEmailMessage = Nothing
}
mttEmailSubject :: Lens' MessageTemplateType (Maybe Text)
mttEmailSubject = lens _mttEmailSubject (\ s a -> s{_mttEmailSubject = a});
mttSMSMessage :: Lens' MessageTemplateType (Maybe Text)
mttSMSMessage = lens _mttSMSMessage (\ s a -> s{_mttSMSMessage = a});
mttEmailMessage :: Lens' MessageTemplateType (Maybe Text)
mttEmailMessage = lens _mttEmailMessage (\ s a -> s{_mttEmailMessage = a});
instance FromJSON MessageTemplateType where
parseJSON
= withObject "MessageTemplateType"
(\ x ->
MessageTemplateType' <$>
(x .:? "EmailSubject") <*> (x .:? "SMSMessage") <*>
(x .:? "EmailMessage"))
instance Hashable MessageTemplateType where
instance NFData MessageTemplateType where
instance ToJSON MessageTemplateType where
toJSON MessageTemplateType'{..}
= object
(catMaybes
[("EmailSubject" .=) <$> _mttEmailSubject,
("SMSMessage" .=) <$> _mttSMSMessage,
("EmailMessage" .=) <$> _mttEmailMessage])
data NewDeviceMetadataType = NewDeviceMetadataType'
{ _ndmtDeviceGroupKey :: !(Maybe Text)
, _ndmtDeviceKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
newDeviceMetadataType
:: NewDeviceMetadataType
newDeviceMetadataType =
NewDeviceMetadataType'
{_ndmtDeviceGroupKey = Nothing, _ndmtDeviceKey = Nothing}
ndmtDeviceGroupKey :: Lens' NewDeviceMetadataType (Maybe Text)
ndmtDeviceGroupKey = lens _ndmtDeviceGroupKey (\ s a -> s{_ndmtDeviceGroupKey = a});
ndmtDeviceKey :: Lens' NewDeviceMetadataType (Maybe Text)
ndmtDeviceKey = lens _ndmtDeviceKey (\ s a -> s{_ndmtDeviceKey = a});
instance FromJSON NewDeviceMetadataType where
parseJSON
= withObject "NewDeviceMetadataType"
(\ x ->
NewDeviceMetadataType' <$>
(x .:? "DeviceGroupKey") <*> (x .:? "DeviceKey"))
instance Hashable NewDeviceMetadataType where
instance NFData NewDeviceMetadataType where
data NumberAttributeConstraintsType = NumberAttributeConstraintsType'
{ _nactMaxValue :: !(Maybe Text)
, _nactMinValue :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
numberAttributeConstraintsType
:: NumberAttributeConstraintsType
numberAttributeConstraintsType =
NumberAttributeConstraintsType'
{_nactMaxValue = Nothing, _nactMinValue = Nothing}
nactMaxValue :: Lens' NumberAttributeConstraintsType (Maybe Text)
nactMaxValue = lens _nactMaxValue (\ s a -> s{_nactMaxValue = a});
nactMinValue :: Lens' NumberAttributeConstraintsType (Maybe Text)
nactMinValue = lens _nactMinValue (\ s a -> s{_nactMinValue = a});
instance FromJSON NumberAttributeConstraintsType
where
parseJSON
= withObject "NumberAttributeConstraintsType"
(\ x ->
NumberAttributeConstraintsType' <$>
(x .:? "MaxValue") <*> (x .:? "MinValue"))
instance Hashable NumberAttributeConstraintsType
where
instance NFData NumberAttributeConstraintsType where
instance ToJSON NumberAttributeConstraintsType where
toJSON NumberAttributeConstraintsType'{..}
= object
(catMaybes
[("MaxValue" .=) <$> _nactMaxValue,
("MinValue" .=) <$> _nactMinValue])
data PasswordPolicyType = PasswordPolicyType'
{ _pptRequireNumbers :: !(Maybe Bool)
, _pptRequireUppercase :: !(Maybe Bool)
, _pptRequireLowercase :: !(Maybe Bool)
, _pptMinimumLength :: !(Maybe Nat)
, _pptRequireSymbols :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
passwordPolicyType
:: PasswordPolicyType
passwordPolicyType =
PasswordPolicyType'
{ _pptRequireNumbers = Nothing
, _pptRequireUppercase = Nothing
, _pptRequireLowercase = Nothing
, _pptMinimumLength = Nothing
, _pptRequireSymbols = Nothing
}
pptRequireNumbers :: Lens' PasswordPolicyType (Maybe Bool)
pptRequireNumbers = lens _pptRequireNumbers (\ s a -> s{_pptRequireNumbers = a});
pptRequireUppercase :: Lens' PasswordPolicyType (Maybe Bool)
pptRequireUppercase = lens _pptRequireUppercase (\ s a -> s{_pptRequireUppercase = a});
pptRequireLowercase :: Lens' PasswordPolicyType (Maybe Bool)
pptRequireLowercase = lens _pptRequireLowercase (\ s a -> s{_pptRequireLowercase = a});
pptMinimumLength :: Lens' PasswordPolicyType (Maybe Natural)
pptMinimumLength = lens _pptMinimumLength (\ s a -> s{_pptMinimumLength = a}) . mapping _Nat;
pptRequireSymbols :: Lens' PasswordPolicyType (Maybe Bool)
pptRequireSymbols = lens _pptRequireSymbols (\ s a -> s{_pptRequireSymbols = a});
instance FromJSON PasswordPolicyType where
parseJSON
= withObject "PasswordPolicyType"
(\ x ->
PasswordPolicyType' <$>
(x .:? "RequireNumbers") <*>
(x .:? "RequireUppercase")
<*> (x .:? "RequireLowercase")
<*> (x .:? "MinimumLength")
<*> (x .:? "RequireSymbols"))
instance Hashable PasswordPolicyType where
instance NFData PasswordPolicyType where
instance ToJSON PasswordPolicyType where
toJSON PasswordPolicyType'{..}
= object
(catMaybes
[("RequireNumbers" .=) <$> _pptRequireNumbers,
("RequireUppercase" .=) <$> _pptRequireUppercase,
("RequireLowercase" .=) <$> _pptRequireLowercase,
("MinimumLength" .=) <$> _pptMinimumLength,
("RequireSymbols" .=) <$> _pptRequireSymbols])
data ProviderDescription = ProviderDescription'
{ _pdLastModifiedDate :: !(Maybe POSIX)
, _pdProviderType :: !(Maybe IdentityProviderTypeType)
, _pdCreationDate :: !(Maybe POSIX)
, _pdProviderName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
providerDescription
:: ProviderDescription
providerDescription =
ProviderDescription'
{ _pdLastModifiedDate = Nothing
, _pdProviderType = Nothing
, _pdCreationDate = Nothing
, _pdProviderName = Nothing
}
pdLastModifiedDate :: Lens' ProviderDescription (Maybe UTCTime)
pdLastModifiedDate = lens _pdLastModifiedDate (\ s a -> s{_pdLastModifiedDate = a}) . mapping _Time;
pdProviderType :: Lens' ProviderDescription (Maybe IdentityProviderTypeType)
pdProviderType = lens _pdProviderType (\ s a -> s{_pdProviderType = a});
pdCreationDate :: Lens' ProviderDescription (Maybe UTCTime)
pdCreationDate = lens _pdCreationDate (\ s a -> s{_pdCreationDate = a}) . mapping _Time;
pdProviderName :: Lens' ProviderDescription (Maybe Text)
pdProviderName = lens _pdProviderName (\ s a -> s{_pdProviderName = a});
instance FromJSON ProviderDescription where
parseJSON
= withObject "ProviderDescription"
(\ x ->
ProviderDescription' <$>
(x .:? "LastModifiedDate") <*> (x .:? "ProviderType")
<*> (x .:? "CreationDate")
<*> (x .:? "ProviderName"))
instance Hashable ProviderDescription where
instance NFData ProviderDescription where
data ProviderUserIdentifierType = ProviderUserIdentifierType'
{ _puitProviderAttributeValue :: !(Maybe Text)
, _puitProviderAttributeName :: !(Maybe Text)
, _puitProviderName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
providerUserIdentifierType
:: ProviderUserIdentifierType
providerUserIdentifierType =
ProviderUserIdentifierType'
{ _puitProviderAttributeValue = Nothing
, _puitProviderAttributeName = Nothing
, _puitProviderName = Nothing
}
puitProviderAttributeValue :: Lens' ProviderUserIdentifierType (Maybe Text)
puitProviderAttributeValue = lens _puitProviderAttributeValue (\ s a -> s{_puitProviderAttributeValue = a});
puitProviderAttributeName :: Lens' ProviderUserIdentifierType (Maybe Text)
puitProviderAttributeName = lens _puitProviderAttributeName (\ s a -> s{_puitProviderAttributeName = a});
puitProviderName :: Lens' ProviderUserIdentifierType (Maybe Text)
puitProviderName = lens _puitProviderName (\ s a -> s{_puitProviderName = a});
instance Hashable ProviderUserIdentifierType where
instance NFData ProviderUserIdentifierType where
instance ToJSON ProviderUserIdentifierType where
toJSON ProviderUserIdentifierType'{..}
= object
(catMaybes
[("ProviderAttributeValue" .=) <$>
_puitProviderAttributeValue,
("ProviderAttributeName" .=) <$>
_puitProviderAttributeName,
("ProviderName" .=) <$> _puitProviderName])
data ResourceServerScopeType = ResourceServerScopeType'
{ _rsstScopeName :: !Text
, _rsstScopeDescription :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceServerScopeType
:: Text
-> Text
-> ResourceServerScopeType
resourceServerScopeType pScopeName_ pScopeDescription_ =
ResourceServerScopeType'
{_rsstScopeName = pScopeName_, _rsstScopeDescription = pScopeDescription_}
rsstScopeName :: Lens' ResourceServerScopeType Text
rsstScopeName = lens _rsstScopeName (\ s a -> s{_rsstScopeName = a});
rsstScopeDescription :: Lens' ResourceServerScopeType Text
rsstScopeDescription = lens _rsstScopeDescription (\ s a -> s{_rsstScopeDescription = a});
instance FromJSON ResourceServerScopeType where
parseJSON
= withObject "ResourceServerScopeType"
(\ x ->
ResourceServerScopeType' <$>
(x .: "ScopeName") <*> (x .: "ScopeDescription"))
instance Hashable ResourceServerScopeType where
instance NFData ResourceServerScopeType where
instance ToJSON ResourceServerScopeType where
toJSON ResourceServerScopeType'{..}
= object
(catMaybes
[Just ("ScopeName" .= _rsstScopeName),
Just ("ScopeDescription" .= _rsstScopeDescription)])
data ResourceServerType = ResourceServerType'
{ _rstUserPoolId :: !(Maybe Text)
, _rstIdentifier :: !(Maybe Text)
, _rstScopes :: !(Maybe [ResourceServerScopeType])
, _rstName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceServerType
:: ResourceServerType
resourceServerType =
ResourceServerType'
{ _rstUserPoolId = Nothing
, _rstIdentifier = Nothing
, _rstScopes = Nothing
, _rstName = Nothing
}
rstUserPoolId :: Lens' ResourceServerType (Maybe Text)
rstUserPoolId = lens _rstUserPoolId (\ s a -> s{_rstUserPoolId = a});
rstIdentifier :: Lens' ResourceServerType (Maybe Text)
rstIdentifier = lens _rstIdentifier (\ s a -> s{_rstIdentifier = a});
rstScopes :: Lens' ResourceServerType [ResourceServerScopeType]
rstScopes = lens _rstScopes (\ s a -> s{_rstScopes = a}) . _Default . _Coerce;
rstName :: Lens' ResourceServerType (Maybe Text)
rstName = lens _rstName (\ s a -> s{_rstName = a});
instance FromJSON ResourceServerType where
parseJSON
= withObject "ResourceServerType"
(\ x ->
ResourceServerType' <$>
(x .:? "UserPoolId") <*> (x .:? "Identifier") <*>
(x .:? "Scopes" .!= mempty)
<*> (x .:? "Name"))
instance Hashable ResourceServerType where
instance NFData ResourceServerType where
data SchemaAttributeType = SchemaAttributeType'
{ _satNumberAttributeConstraints :: !(Maybe NumberAttributeConstraintsType)
, _satRequired :: !(Maybe Bool)
, _satAttributeDataType :: !(Maybe AttributeDataType)
, _satStringAttributeConstraints :: !(Maybe StringAttributeConstraintsType)
, _satName :: !(Maybe Text)
, _satDeveloperOnlyAttribute :: !(Maybe Bool)
, _satMutable :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
schemaAttributeType
:: SchemaAttributeType
schemaAttributeType =
SchemaAttributeType'
{ _satNumberAttributeConstraints = Nothing
, _satRequired = Nothing
, _satAttributeDataType = Nothing
, _satStringAttributeConstraints = Nothing
, _satName = Nothing
, _satDeveloperOnlyAttribute = Nothing
, _satMutable = Nothing
}
satNumberAttributeConstraints :: Lens' SchemaAttributeType (Maybe NumberAttributeConstraintsType)
satNumberAttributeConstraints = lens _satNumberAttributeConstraints (\ s a -> s{_satNumberAttributeConstraints = a});
satRequired :: Lens' SchemaAttributeType (Maybe Bool)
satRequired = lens _satRequired (\ s a -> s{_satRequired = a});
satAttributeDataType :: Lens' SchemaAttributeType (Maybe AttributeDataType)
satAttributeDataType = lens _satAttributeDataType (\ s a -> s{_satAttributeDataType = a});
satStringAttributeConstraints :: Lens' SchemaAttributeType (Maybe StringAttributeConstraintsType)
satStringAttributeConstraints = lens _satStringAttributeConstraints (\ s a -> s{_satStringAttributeConstraints = a});
satName :: Lens' SchemaAttributeType (Maybe Text)
satName = lens _satName (\ s a -> s{_satName = a});
satDeveloperOnlyAttribute :: Lens' SchemaAttributeType (Maybe Bool)
satDeveloperOnlyAttribute = lens _satDeveloperOnlyAttribute (\ s a -> s{_satDeveloperOnlyAttribute = a});
satMutable :: Lens' SchemaAttributeType (Maybe Bool)
satMutable = lens _satMutable (\ s a -> s{_satMutable = a});
instance FromJSON SchemaAttributeType where
parseJSON
= withObject "SchemaAttributeType"
(\ x ->
SchemaAttributeType' <$>
(x .:? "NumberAttributeConstraints") <*>
(x .:? "Required")
<*> (x .:? "AttributeDataType")
<*> (x .:? "StringAttributeConstraints")
<*> (x .:? "Name")
<*> (x .:? "DeveloperOnlyAttribute")
<*> (x .:? "Mutable"))
instance Hashable SchemaAttributeType where
instance NFData SchemaAttributeType where
instance ToJSON SchemaAttributeType where
toJSON SchemaAttributeType'{..}
= object
(catMaybes
[("NumberAttributeConstraints" .=) <$>
_satNumberAttributeConstraints,
("Required" .=) <$> _satRequired,
("AttributeDataType" .=) <$> _satAttributeDataType,
("StringAttributeConstraints" .=) <$>
_satStringAttributeConstraints,
("Name" .=) <$> _satName,
("DeveloperOnlyAttribute" .=) <$>
_satDeveloperOnlyAttribute,
("Mutable" .=) <$> _satMutable])
data SmsConfigurationType = SmsConfigurationType'
{ _sctExternalId :: !(Maybe Text)
, _sctSNSCallerARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
smsConfigurationType
:: Text
-> SmsConfigurationType
smsConfigurationType pSNSCallerARN_ =
SmsConfigurationType'
{_sctExternalId = Nothing, _sctSNSCallerARN = pSNSCallerARN_}
sctExternalId :: Lens' SmsConfigurationType (Maybe Text)
sctExternalId = lens _sctExternalId (\ s a -> s{_sctExternalId = a});
sctSNSCallerARN :: Lens' SmsConfigurationType Text
sctSNSCallerARN = lens _sctSNSCallerARN (\ s a -> s{_sctSNSCallerARN = a});
instance FromJSON SmsConfigurationType where
parseJSON
= withObject "SmsConfigurationType"
(\ x ->
SmsConfigurationType' <$>
(x .:? "ExternalId") <*> (x .: "SnsCallerArn"))
instance Hashable SmsConfigurationType where
instance NFData SmsConfigurationType where
instance ToJSON SmsConfigurationType where
toJSON SmsConfigurationType'{..}
= object
(catMaybes
[("ExternalId" .=) <$> _sctExternalId,
Just ("SnsCallerArn" .= _sctSNSCallerARN)])
data StringAttributeConstraintsType = StringAttributeConstraintsType'
{ _sactMaxLength :: !(Maybe Text)
, _sactMinLength :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stringAttributeConstraintsType
:: StringAttributeConstraintsType
stringAttributeConstraintsType =
StringAttributeConstraintsType'
{_sactMaxLength = Nothing, _sactMinLength = Nothing}
sactMaxLength :: Lens' StringAttributeConstraintsType (Maybe Text)
sactMaxLength = lens _sactMaxLength (\ s a -> s{_sactMaxLength = a});
sactMinLength :: Lens' StringAttributeConstraintsType (Maybe Text)
sactMinLength = lens _sactMinLength (\ s a -> s{_sactMinLength = a});
instance FromJSON StringAttributeConstraintsType
where
parseJSON
= withObject "StringAttributeConstraintsType"
(\ x ->
StringAttributeConstraintsType' <$>
(x .:? "MaxLength") <*> (x .:? "MinLength"))
instance Hashable StringAttributeConstraintsType
where
instance NFData StringAttributeConstraintsType where
instance ToJSON StringAttributeConstraintsType where
toJSON StringAttributeConstraintsType'{..}
= object
(catMaybes
[("MaxLength" .=) <$> _sactMaxLength,
("MinLength" .=) <$> _sactMinLength])
data UICustomizationType = UICustomizationType'
{ _uictClientId :: !(Maybe (Sensitive Text))
, _uictLastModifiedDate :: !(Maybe POSIX)
, _uictUserPoolId :: !(Maybe Text)
, _uictCSS :: !(Maybe Text)
, _uictCSSVersion :: !(Maybe Text)
, _uictImageURL :: !(Maybe Text)
, _uictCreationDate :: !(Maybe POSIX)
} deriving (Eq, Show, Data, Typeable, Generic)
uICustomizationType
:: UICustomizationType
uICustomizationType =
UICustomizationType'
{ _uictClientId = Nothing
, _uictLastModifiedDate = Nothing
, _uictUserPoolId = Nothing
, _uictCSS = Nothing
, _uictCSSVersion = Nothing
, _uictImageURL = Nothing
, _uictCreationDate = Nothing
}
uictClientId :: Lens' UICustomizationType (Maybe Text)
uictClientId = lens _uictClientId (\ s a -> s{_uictClientId = a}) . mapping _Sensitive;
uictLastModifiedDate :: Lens' UICustomizationType (Maybe UTCTime)
uictLastModifiedDate = lens _uictLastModifiedDate (\ s a -> s{_uictLastModifiedDate = a}) . mapping _Time;
uictUserPoolId :: Lens' UICustomizationType (Maybe Text)
uictUserPoolId = lens _uictUserPoolId (\ s a -> s{_uictUserPoolId = a});
uictCSS :: Lens' UICustomizationType (Maybe Text)
uictCSS = lens _uictCSS (\ s a -> s{_uictCSS = a});
uictCSSVersion :: Lens' UICustomizationType (Maybe Text)
uictCSSVersion = lens _uictCSSVersion (\ s a -> s{_uictCSSVersion = a});
uictImageURL :: Lens' UICustomizationType (Maybe Text)
uictImageURL = lens _uictImageURL (\ s a -> s{_uictImageURL = a});
uictCreationDate :: Lens' UICustomizationType (Maybe UTCTime)
uictCreationDate = lens _uictCreationDate (\ s a -> s{_uictCreationDate = a}) . mapping _Time;
instance FromJSON UICustomizationType where
parseJSON
= withObject "UICustomizationType"
(\ x ->
UICustomizationType' <$>
(x .:? "ClientId") <*> (x .:? "LastModifiedDate") <*>
(x .:? "UserPoolId")
<*> (x .:? "CSS")
<*> (x .:? "CSSVersion")
<*> (x .:? "ImageUrl")
<*> (x .:? "CreationDate"))
instance Hashable UICustomizationType where
instance NFData UICustomizationType where
data UserImportJobType = UserImportJobType'
{ _uijtStatus :: !(Maybe UserImportJobStatusType)
, _uijtSkippedUsers :: !(Maybe Integer)
, _uijtJobId :: !(Maybe Text)
, _uijtUserPoolId :: !(Maybe Text)
, _uijtJobName :: !(Maybe Text)
, _uijtPreSignedURL :: !(Maybe Text)
, _uijtFailedUsers :: !(Maybe Integer)
, _uijtStartDate :: !(Maybe POSIX)
, _uijtCompletionMessage :: !(Maybe Text)
, _uijtCreationDate :: !(Maybe POSIX)
, _uijtCompletionDate :: !(Maybe POSIX)
, _uijtCloudWatchLogsRoleARN :: !(Maybe Text)
, _uijtImportedUsers :: !(Maybe Integer)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
userImportJobType
:: UserImportJobType
userImportJobType =
UserImportJobType'
{ _uijtStatus = Nothing
, _uijtSkippedUsers = Nothing
, _uijtJobId = Nothing
, _uijtUserPoolId = Nothing
, _uijtJobName = Nothing
, _uijtPreSignedURL = Nothing
, _uijtFailedUsers = Nothing
, _uijtStartDate = Nothing
, _uijtCompletionMessage = Nothing
, _uijtCreationDate = Nothing
, _uijtCompletionDate = Nothing
, _uijtCloudWatchLogsRoleARN = Nothing
, _uijtImportedUsers = Nothing
}
uijtStatus :: Lens' UserImportJobType (Maybe UserImportJobStatusType)
uijtStatus = lens _uijtStatus (\ s a -> s{_uijtStatus = a});
uijtSkippedUsers :: Lens' UserImportJobType (Maybe Integer)
uijtSkippedUsers = lens _uijtSkippedUsers (\ s a -> s{_uijtSkippedUsers = a});
uijtJobId :: Lens' UserImportJobType (Maybe Text)
uijtJobId = lens _uijtJobId (\ s a -> s{_uijtJobId = a});
uijtUserPoolId :: Lens' UserImportJobType (Maybe Text)
uijtUserPoolId = lens _uijtUserPoolId (\ s a -> s{_uijtUserPoolId = a});
uijtJobName :: Lens' UserImportJobType (Maybe Text)
uijtJobName = lens _uijtJobName (\ s a -> s{_uijtJobName = a});
uijtPreSignedURL :: Lens' UserImportJobType (Maybe Text)
uijtPreSignedURL = lens _uijtPreSignedURL (\ s a -> s{_uijtPreSignedURL = a});
uijtFailedUsers :: Lens' UserImportJobType (Maybe Integer)
uijtFailedUsers = lens _uijtFailedUsers (\ s a -> s{_uijtFailedUsers = a});
uijtStartDate :: Lens' UserImportJobType (Maybe UTCTime)
uijtStartDate = lens _uijtStartDate (\ s a -> s{_uijtStartDate = a}) . mapping _Time;
uijtCompletionMessage :: Lens' UserImportJobType (Maybe Text)
uijtCompletionMessage = lens _uijtCompletionMessage (\ s a -> s{_uijtCompletionMessage = a});
uijtCreationDate :: Lens' UserImportJobType (Maybe UTCTime)
uijtCreationDate = lens _uijtCreationDate (\ s a -> s{_uijtCreationDate = a}) . mapping _Time;
uijtCompletionDate :: Lens' UserImportJobType (Maybe UTCTime)
uijtCompletionDate = lens _uijtCompletionDate (\ s a -> s{_uijtCompletionDate = a}) . mapping _Time;
uijtCloudWatchLogsRoleARN :: Lens' UserImportJobType (Maybe Text)
uijtCloudWatchLogsRoleARN = lens _uijtCloudWatchLogsRoleARN (\ s a -> s{_uijtCloudWatchLogsRoleARN = a});
uijtImportedUsers :: Lens' UserImportJobType (Maybe Integer)
uijtImportedUsers = lens _uijtImportedUsers (\ s a -> s{_uijtImportedUsers = a});
instance FromJSON UserImportJobType where
parseJSON
= withObject "UserImportJobType"
(\ x ->
UserImportJobType' <$>
(x .:? "Status") <*> (x .:? "SkippedUsers") <*>
(x .:? "JobId")
<*> (x .:? "UserPoolId")
<*> (x .:? "JobName")
<*> (x .:? "PreSignedUrl")
<*> (x .:? "FailedUsers")
<*> (x .:? "StartDate")
<*> (x .:? "CompletionMessage")
<*> (x .:? "CreationDate")
<*> (x .:? "CompletionDate")
<*> (x .:? "CloudWatchLogsRoleArn")
<*> (x .:? "ImportedUsers"))
instance Hashable UserImportJobType where
instance NFData UserImportJobType where
data UserPoolClientDescription = UserPoolClientDescription'
{ _upcdClientId :: !(Maybe (Sensitive Text))
, _upcdUserPoolId :: !(Maybe Text)
, _upcdClientName :: !(Maybe Text)
} deriving (Eq, Show, Data, Typeable, Generic)
userPoolClientDescription
:: UserPoolClientDescription
userPoolClientDescription =
UserPoolClientDescription'
{ _upcdClientId = Nothing
, _upcdUserPoolId = Nothing
, _upcdClientName = Nothing
}
upcdClientId :: Lens' UserPoolClientDescription (Maybe Text)
upcdClientId = lens _upcdClientId (\ s a -> s{_upcdClientId = a}) . mapping _Sensitive;
upcdUserPoolId :: Lens' UserPoolClientDescription (Maybe Text)
upcdUserPoolId = lens _upcdUserPoolId (\ s a -> s{_upcdUserPoolId = a});
upcdClientName :: Lens' UserPoolClientDescription (Maybe Text)
upcdClientName = lens _upcdClientName (\ s a -> s{_upcdClientName = a});
instance FromJSON UserPoolClientDescription where
parseJSON
= withObject "UserPoolClientDescription"
(\ x ->
UserPoolClientDescription' <$>
(x .:? "ClientId") <*> (x .:? "UserPoolId") <*>
(x .:? "ClientName"))
instance Hashable UserPoolClientDescription where
instance NFData UserPoolClientDescription where
data UserPoolClientType = UserPoolClientType'
{ _upctRefreshTokenValidity :: !(Maybe Nat)
, _upctClientId :: !(Maybe (Sensitive Text))
, _upctExplicitAuthFlows :: !(Maybe [ExplicitAuthFlowsType])
, _upctClientSecret :: !(Maybe (Sensitive Text))
, _upctLastModifiedDate :: !(Maybe POSIX)
, _upctSupportedIdentityProviders :: !(Maybe [Text])
, _upctLogoutURLs :: !(Maybe [Text])
, _upctAllowedOAuthFlowsUserPoolClient :: !(Maybe Bool)
, _upctUserPoolId :: !(Maybe Text)
, _upctDefaultRedirectURI :: !(Maybe Text)
, _upctWriteAttributes :: !(Maybe [Text])
, _upctCreationDate :: !(Maybe POSIX)
, _upctReadAttributes :: !(Maybe [Text])
, _upctAllowedOAuthScopes :: !(Maybe [Text])
, _upctAllowedOAuthFlows :: !(Maybe [OAuthFlowType])
, _upctClientName :: !(Maybe Text)
, _upctCallbackURLs :: !(Maybe [Text])
} deriving (Eq, Show, Data, Typeable, Generic)
userPoolClientType
:: UserPoolClientType
userPoolClientType =
UserPoolClientType'
{ _upctRefreshTokenValidity = Nothing
, _upctClientId = Nothing
, _upctExplicitAuthFlows = Nothing
, _upctClientSecret = Nothing
, _upctLastModifiedDate = Nothing
, _upctSupportedIdentityProviders = Nothing
, _upctLogoutURLs = Nothing
, _upctAllowedOAuthFlowsUserPoolClient = Nothing
, _upctUserPoolId = Nothing
, _upctDefaultRedirectURI = Nothing
, _upctWriteAttributes = Nothing
, _upctCreationDate = Nothing
, _upctReadAttributes = Nothing
, _upctAllowedOAuthScopes = Nothing
, _upctAllowedOAuthFlows = Nothing
, _upctClientName = Nothing
, _upctCallbackURLs = Nothing
}
upctRefreshTokenValidity :: Lens' UserPoolClientType (Maybe Natural)
upctRefreshTokenValidity = lens _upctRefreshTokenValidity (\ s a -> s{_upctRefreshTokenValidity = a}) . mapping _Nat;
upctClientId :: Lens' UserPoolClientType (Maybe Text)
upctClientId = lens _upctClientId (\ s a -> s{_upctClientId = a}) . mapping _Sensitive;
upctExplicitAuthFlows :: Lens' UserPoolClientType [ExplicitAuthFlowsType]
upctExplicitAuthFlows = lens _upctExplicitAuthFlows (\ s a -> s{_upctExplicitAuthFlows = a}) . _Default . _Coerce;
upctClientSecret :: Lens' UserPoolClientType (Maybe Text)
upctClientSecret = lens _upctClientSecret (\ s a -> s{_upctClientSecret = a}) . mapping _Sensitive;
upctLastModifiedDate :: Lens' UserPoolClientType (Maybe UTCTime)
upctLastModifiedDate = lens _upctLastModifiedDate (\ s a -> s{_upctLastModifiedDate = a}) . mapping _Time;
upctSupportedIdentityProviders :: Lens' UserPoolClientType [Text]
upctSupportedIdentityProviders = lens _upctSupportedIdentityProviders (\ s a -> s{_upctSupportedIdentityProviders = a}) . _Default . _Coerce;
upctLogoutURLs :: Lens' UserPoolClientType [Text]
upctLogoutURLs = lens _upctLogoutURLs (\ s a -> s{_upctLogoutURLs = a}) . _Default . _Coerce;
upctAllowedOAuthFlowsUserPoolClient :: Lens' UserPoolClientType (Maybe Bool)
upctAllowedOAuthFlowsUserPoolClient = lens _upctAllowedOAuthFlowsUserPoolClient (\ s a -> s{_upctAllowedOAuthFlowsUserPoolClient = a});
upctUserPoolId :: Lens' UserPoolClientType (Maybe Text)
upctUserPoolId = lens _upctUserPoolId (\ s a -> s{_upctUserPoolId = a});
upctDefaultRedirectURI :: Lens' UserPoolClientType (Maybe Text)
upctDefaultRedirectURI = lens _upctDefaultRedirectURI (\ s a -> s{_upctDefaultRedirectURI = a});
upctWriteAttributes :: Lens' UserPoolClientType [Text]
upctWriteAttributes = lens _upctWriteAttributes (\ s a -> s{_upctWriteAttributes = a}) . _Default . _Coerce;
upctCreationDate :: Lens' UserPoolClientType (Maybe UTCTime)
upctCreationDate = lens _upctCreationDate (\ s a -> s{_upctCreationDate = a}) . mapping _Time;
upctReadAttributes :: Lens' UserPoolClientType [Text]
upctReadAttributes = lens _upctReadAttributes (\ s a -> s{_upctReadAttributes = a}) . _Default . _Coerce;
upctAllowedOAuthScopes :: Lens' UserPoolClientType [Text]
upctAllowedOAuthScopes = lens _upctAllowedOAuthScopes (\ s a -> s{_upctAllowedOAuthScopes = a}) . _Default . _Coerce;
upctAllowedOAuthFlows :: Lens' UserPoolClientType [OAuthFlowType]
upctAllowedOAuthFlows = lens _upctAllowedOAuthFlows (\ s a -> s{_upctAllowedOAuthFlows = a}) . _Default . _Coerce;
upctClientName :: Lens' UserPoolClientType (Maybe Text)
upctClientName = lens _upctClientName (\ s a -> s{_upctClientName = a});
upctCallbackURLs :: Lens' UserPoolClientType [Text]
upctCallbackURLs = lens _upctCallbackURLs (\ s a -> s{_upctCallbackURLs = a}) . _Default . _Coerce;
instance FromJSON UserPoolClientType where
parseJSON
= withObject "UserPoolClientType"
(\ x ->
UserPoolClientType' <$>
(x .:? "RefreshTokenValidity") <*> (x .:? "ClientId")
<*> (x .:? "ExplicitAuthFlows" .!= mempty)
<*> (x .:? "ClientSecret")
<*> (x .:? "LastModifiedDate")
<*> (x .:? "SupportedIdentityProviders" .!= mempty)
<*> (x .:? "LogoutURLs" .!= mempty)
<*> (x .:? "AllowedOAuthFlowsUserPoolClient")
<*> (x .:? "UserPoolId")
<*> (x .:? "DefaultRedirectURI")
<*> (x .:? "WriteAttributes" .!= mempty)
<*> (x .:? "CreationDate")
<*> (x .:? "ReadAttributes" .!= mempty)
<*> (x .:? "AllowedOAuthScopes" .!= mempty)
<*> (x .:? "AllowedOAuthFlows" .!= mempty)
<*> (x .:? "ClientName")
<*> (x .:? "CallbackURLs" .!= mempty))
instance Hashable UserPoolClientType where
instance NFData UserPoolClientType where
data UserPoolDescriptionType = UserPoolDescriptionType'
{ _updtStatus :: !(Maybe StatusType)
, _updtLastModifiedDate :: !(Maybe POSIX)
, _updtName :: !(Maybe Text)
, _updtId :: !(Maybe Text)
, _updtCreationDate :: !(Maybe POSIX)
, _updtLambdaConfig :: !(Maybe LambdaConfigType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
userPoolDescriptionType
:: UserPoolDescriptionType
userPoolDescriptionType =
UserPoolDescriptionType'
{ _updtStatus = Nothing
, _updtLastModifiedDate = Nothing
, _updtName = Nothing
, _updtId = Nothing
, _updtCreationDate = Nothing
, _updtLambdaConfig = Nothing
}
updtStatus :: Lens' UserPoolDescriptionType (Maybe StatusType)
updtStatus = lens _updtStatus (\ s a -> s{_updtStatus = a});
updtLastModifiedDate :: Lens' UserPoolDescriptionType (Maybe UTCTime)
updtLastModifiedDate = lens _updtLastModifiedDate (\ s a -> s{_updtLastModifiedDate = a}) . mapping _Time;
updtName :: Lens' UserPoolDescriptionType (Maybe Text)
updtName = lens _updtName (\ s a -> s{_updtName = a});
updtId :: Lens' UserPoolDescriptionType (Maybe Text)
updtId = lens _updtId (\ s a -> s{_updtId = a});
updtCreationDate :: Lens' UserPoolDescriptionType (Maybe UTCTime)
updtCreationDate = lens _updtCreationDate (\ s a -> s{_updtCreationDate = a}) . mapping _Time;
updtLambdaConfig :: Lens' UserPoolDescriptionType (Maybe LambdaConfigType)
updtLambdaConfig = lens _updtLambdaConfig (\ s a -> s{_updtLambdaConfig = a});
instance FromJSON UserPoolDescriptionType where
parseJSON
= withObject "UserPoolDescriptionType"
(\ x ->
UserPoolDescriptionType' <$>
(x .:? "Status") <*> (x .:? "LastModifiedDate") <*>
(x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "CreationDate")
<*> (x .:? "LambdaConfig"))
instance Hashable UserPoolDescriptionType where
instance NFData UserPoolDescriptionType where
newtype UserPoolPolicyType = UserPoolPolicyType'
{ _upptPasswordPolicy :: Maybe PasswordPolicyType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
userPoolPolicyType
:: UserPoolPolicyType
userPoolPolicyType = UserPoolPolicyType' {_upptPasswordPolicy = Nothing}
upptPasswordPolicy :: Lens' UserPoolPolicyType (Maybe PasswordPolicyType)
upptPasswordPolicy = lens _upptPasswordPolicy (\ s a -> s{_upptPasswordPolicy = a});
instance FromJSON UserPoolPolicyType where
parseJSON
= withObject "UserPoolPolicyType"
(\ x ->
UserPoolPolicyType' <$> (x .:? "PasswordPolicy"))
instance Hashable UserPoolPolicyType where
instance NFData UserPoolPolicyType where
instance ToJSON UserPoolPolicyType where
toJSON UserPoolPolicyType'{..}
= object
(catMaybes
[("PasswordPolicy" .=) <$> _upptPasswordPolicy])
data UserPoolType = UserPoolType'
{ _uptStatus :: !(Maybe StatusType)
, _uptUserPoolTags :: !(Maybe (Map Text Text))
, _uptEmailConfigurationFailure :: !(Maybe Text)
, _uptLastModifiedDate :: !(Maybe POSIX)
, _uptVerificationMessageTemplate :: !(Maybe VerificationMessageTemplateType)
, _uptEstimatedNumberOfUsers :: !(Maybe Int)
, _uptEmailVerificationMessage :: !(Maybe Text)
, _uptSmsAuthenticationMessage :: !(Maybe Text)
, _uptSchemaAttributes :: !(Maybe (List1 SchemaAttributeType))
, _uptEmailVerificationSubject :: !(Maybe Text)
, _uptUsernameAttributes :: !(Maybe [UsernameAttributeType])
, _uptAliasAttributes :: !(Maybe [AliasAttributeType])
, _uptEmailConfiguration :: !(Maybe EmailConfigurationType)
, _uptSmsVerificationMessage :: !(Maybe Text)
, _uptName :: !(Maybe Text)
, _uptMFAConfiguration :: !(Maybe UserPoolMFAType)
, _uptId :: !(Maybe Text)
, _uptSmsConfigurationFailure :: !(Maybe Text)
, _uptCreationDate :: !(Maybe POSIX)
, _uptLambdaConfig :: !(Maybe LambdaConfigType)
, _uptSmsConfiguration :: !(Maybe SmsConfigurationType)
, _uptAdminCreateUserConfig :: !(Maybe AdminCreateUserConfigType)
, _uptDeviceConfiguration :: !(Maybe DeviceConfigurationType)
, _uptAutoVerifiedAttributes :: !(Maybe [VerifiedAttributeType])
, _uptPolicies :: !(Maybe UserPoolPolicyType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
userPoolType
:: UserPoolType
userPoolType =
UserPoolType'
{ _uptStatus = Nothing
, _uptUserPoolTags = Nothing
, _uptEmailConfigurationFailure = Nothing
, _uptLastModifiedDate = Nothing
, _uptVerificationMessageTemplate = Nothing
, _uptEstimatedNumberOfUsers = Nothing
, _uptEmailVerificationMessage = Nothing
, _uptSmsAuthenticationMessage = Nothing
, _uptSchemaAttributes = Nothing
, _uptEmailVerificationSubject = Nothing
, _uptUsernameAttributes = Nothing
, _uptAliasAttributes = Nothing
, _uptEmailConfiguration = Nothing
, _uptSmsVerificationMessage = Nothing
, _uptName = Nothing
, _uptMFAConfiguration = Nothing
, _uptId = Nothing
, _uptSmsConfigurationFailure = Nothing
, _uptCreationDate = Nothing
, _uptLambdaConfig = Nothing
, _uptSmsConfiguration = Nothing
, _uptAdminCreateUserConfig = Nothing
, _uptDeviceConfiguration = Nothing
, _uptAutoVerifiedAttributes = Nothing
, _uptPolicies = Nothing
}
uptStatus :: Lens' UserPoolType (Maybe StatusType)
uptStatus = lens _uptStatus (\ s a -> s{_uptStatus = a});
uptUserPoolTags :: Lens' UserPoolType (HashMap Text Text)
uptUserPoolTags = lens _uptUserPoolTags (\ s a -> s{_uptUserPoolTags = a}) . _Default . _Map;
uptEmailConfigurationFailure :: Lens' UserPoolType (Maybe Text)
uptEmailConfigurationFailure = lens _uptEmailConfigurationFailure (\ s a -> s{_uptEmailConfigurationFailure = a});
uptLastModifiedDate :: Lens' UserPoolType (Maybe UTCTime)
uptLastModifiedDate = lens _uptLastModifiedDate (\ s a -> s{_uptLastModifiedDate = a}) . mapping _Time;
uptVerificationMessageTemplate :: Lens' UserPoolType (Maybe VerificationMessageTemplateType)
uptVerificationMessageTemplate = lens _uptVerificationMessageTemplate (\ s a -> s{_uptVerificationMessageTemplate = a});
uptEstimatedNumberOfUsers :: Lens' UserPoolType (Maybe Int)
uptEstimatedNumberOfUsers = lens _uptEstimatedNumberOfUsers (\ s a -> s{_uptEstimatedNumberOfUsers = a});
uptEmailVerificationMessage :: Lens' UserPoolType (Maybe Text)
uptEmailVerificationMessage = lens _uptEmailVerificationMessage (\ s a -> s{_uptEmailVerificationMessage = a});
uptSmsAuthenticationMessage :: Lens' UserPoolType (Maybe Text)
uptSmsAuthenticationMessage = lens _uptSmsAuthenticationMessage (\ s a -> s{_uptSmsAuthenticationMessage = a});
uptSchemaAttributes :: Lens' UserPoolType (Maybe (NonEmpty SchemaAttributeType))
uptSchemaAttributes = lens _uptSchemaAttributes (\ s a -> s{_uptSchemaAttributes = a}) . mapping _List1;
uptEmailVerificationSubject :: Lens' UserPoolType (Maybe Text)
uptEmailVerificationSubject = lens _uptEmailVerificationSubject (\ s a -> s{_uptEmailVerificationSubject = a});
uptUsernameAttributes :: Lens' UserPoolType [UsernameAttributeType]
uptUsernameAttributes = lens _uptUsernameAttributes (\ s a -> s{_uptUsernameAttributes = a}) . _Default . _Coerce;
uptAliasAttributes :: Lens' UserPoolType [AliasAttributeType]
uptAliasAttributes = lens _uptAliasAttributes (\ s a -> s{_uptAliasAttributes = a}) . _Default . _Coerce;
uptEmailConfiguration :: Lens' UserPoolType (Maybe EmailConfigurationType)
uptEmailConfiguration = lens _uptEmailConfiguration (\ s a -> s{_uptEmailConfiguration = a});
uptSmsVerificationMessage :: Lens' UserPoolType (Maybe Text)
uptSmsVerificationMessage = lens _uptSmsVerificationMessage (\ s a -> s{_uptSmsVerificationMessage = a});
uptName :: Lens' UserPoolType (Maybe Text)
uptName = lens _uptName (\ s a -> s{_uptName = a});
uptMFAConfiguration :: Lens' UserPoolType (Maybe UserPoolMFAType)
uptMFAConfiguration = lens _uptMFAConfiguration (\ s a -> s{_uptMFAConfiguration = a});
uptId :: Lens' UserPoolType (Maybe Text)
uptId = lens _uptId (\ s a -> s{_uptId = a});
uptSmsConfigurationFailure :: Lens' UserPoolType (Maybe Text)
uptSmsConfigurationFailure = lens _uptSmsConfigurationFailure (\ s a -> s{_uptSmsConfigurationFailure = a});
uptCreationDate :: Lens' UserPoolType (Maybe UTCTime)
uptCreationDate = lens _uptCreationDate (\ s a -> s{_uptCreationDate = a}) . mapping _Time;
uptLambdaConfig :: Lens' UserPoolType (Maybe LambdaConfigType)
uptLambdaConfig = lens _uptLambdaConfig (\ s a -> s{_uptLambdaConfig = a});
uptSmsConfiguration :: Lens' UserPoolType (Maybe SmsConfigurationType)
uptSmsConfiguration = lens _uptSmsConfiguration (\ s a -> s{_uptSmsConfiguration = a});
uptAdminCreateUserConfig :: Lens' UserPoolType (Maybe AdminCreateUserConfigType)
uptAdminCreateUserConfig = lens _uptAdminCreateUserConfig (\ s a -> s{_uptAdminCreateUserConfig = a});
uptDeviceConfiguration :: Lens' UserPoolType (Maybe DeviceConfigurationType)
uptDeviceConfiguration = lens _uptDeviceConfiguration (\ s a -> s{_uptDeviceConfiguration = a});
uptAutoVerifiedAttributes :: Lens' UserPoolType [VerifiedAttributeType]
uptAutoVerifiedAttributes = lens _uptAutoVerifiedAttributes (\ s a -> s{_uptAutoVerifiedAttributes = a}) . _Default . _Coerce;
uptPolicies :: Lens' UserPoolType (Maybe UserPoolPolicyType)
uptPolicies = lens _uptPolicies (\ s a -> s{_uptPolicies = a});
instance FromJSON UserPoolType where
parseJSON
= withObject "UserPoolType"
(\ x ->
UserPoolType' <$>
(x .:? "Status") <*>
(x .:? "UserPoolTags" .!= mempty)
<*> (x .:? "EmailConfigurationFailure")
<*> (x .:? "LastModifiedDate")
<*> (x .:? "VerificationMessageTemplate")
<*> (x .:? "EstimatedNumberOfUsers")
<*> (x .:? "EmailVerificationMessage")
<*> (x .:? "SmsAuthenticationMessage")
<*> (x .:? "SchemaAttributes")
<*> (x .:? "EmailVerificationSubject")
<*> (x .:? "UsernameAttributes" .!= mempty)
<*> (x .:? "AliasAttributes" .!= mempty)
<*> (x .:? "EmailConfiguration")
<*> (x .:? "SmsVerificationMessage")
<*> (x .:? "Name")
<*> (x .:? "MfaConfiguration")
<*> (x .:? "Id")
<*> (x .:? "SmsConfigurationFailure")
<*> (x .:? "CreationDate")
<*> (x .:? "LambdaConfig")
<*> (x .:? "SmsConfiguration")
<*> (x .:? "AdminCreateUserConfig")
<*> (x .:? "DeviceConfiguration")
<*> (x .:? "AutoVerifiedAttributes" .!= mempty)
<*> (x .:? "Policies"))
instance Hashable UserPoolType where
instance NFData UserPoolType where
data UserType = UserType'
{ _utEnabled :: !(Maybe Bool)
, _utUserStatus :: !(Maybe UserStatusType)
, _utUsername :: !(Maybe (Sensitive Text))
, _utUserCreateDate :: !(Maybe POSIX)
, _utAttributes :: !(Maybe [AttributeType])
, _utMFAOptions :: !(Maybe [MFAOptionType])
, _utUserLastModifiedDate :: !(Maybe POSIX)
} deriving (Eq, Show, Data, Typeable, Generic)
userType
:: UserType
userType =
UserType'
{ _utEnabled = Nothing
, _utUserStatus = Nothing
, _utUsername = Nothing
, _utUserCreateDate = Nothing
, _utAttributes = Nothing
, _utMFAOptions = Nothing
, _utUserLastModifiedDate = Nothing
}
utEnabled :: Lens' UserType (Maybe Bool)
utEnabled = lens _utEnabled (\ s a -> s{_utEnabled = a});
utUserStatus :: Lens' UserType (Maybe UserStatusType)
utUserStatus = lens _utUserStatus (\ s a -> s{_utUserStatus = a});
utUsername :: Lens' UserType (Maybe Text)
utUsername = lens _utUsername (\ s a -> s{_utUsername = a}) . mapping _Sensitive;
utUserCreateDate :: Lens' UserType (Maybe UTCTime)
utUserCreateDate = lens _utUserCreateDate (\ s a -> s{_utUserCreateDate = a}) . mapping _Time;
utAttributes :: Lens' UserType [AttributeType]
utAttributes = lens _utAttributes (\ s a -> s{_utAttributes = a}) . _Default . _Coerce;
utMFAOptions :: Lens' UserType [MFAOptionType]
utMFAOptions = lens _utMFAOptions (\ s a -> s{_utMFAOptions = a}) . _Default . _Coerce;
utUserLastModifiedDate :: Lens' UserType (Maybe UTCTime)
utUserLastModifiedDate = lens _utUserLastModifiedDate (\ s a -> s{_utUserLastModifiedDate = a}) . mapping _Time;
instance FromJSON UserType where
parseJSON
= withObject "UserType"
(\ x ->
UserType' <$>
(x .:? "Enabled") <*> (x .:? "UserStatus") <*>
(x .:? "Username")
<*> (x .:? "UserCreateDate")
<*> (x .:? "Attributes" .!= mempty)
<*> (x .:? "MFAOptions" .!= mempty)
<*> (x .:? "UserLastModifiedDate"))
instance Hashable UserType where
instance NFData UserType where
data VerificationMessageTemplateType = VerificationMessageTemplateType'
{ _vmttDefaultEmailOption :: !(Maybe DefaultEmailOptionType)
, _vmttEmailSubject :: !(Maybe Text)
, _vmttEmailSubjectByLink :: !(Maybe Text)
, _vmttSmsMessage :: !(Maybe Text)
, _vmttEmailMessageByLink :: !(Maybe Text)
, _vmttEmailMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
verificationMessageTemplateType
:: VerificationMessageTemplateType
verificationMessageTemplateType =
VerificationMessageTemplateType'
{ _vmttDefaultEmailOption = Nothing
, _vmttEmailSubject = Nothing
, _vmttEmailSubjectByLink = Nothing
, _vmttSmsMessage = Nothing
, _vmttEmailMessageByLink = Nothing
, _vmttEmailMessage = Nothing
}
vmttDefaultEmailOption :: Lens' VerificationMessageTemplateType (Maybe DefaultEmailOptionType)
vmttDefaultEmailOption = lens _vmttDefaultEmailOption (\ s a -> s{_vmttDefaultEmailOption = a});
vmttEmailSubject :: Lens' VerificationMessageTemplateType (Maybe Text)
vmttEmailSubject = lens _vmttEmailSubject (\ s a -> s{_vmttEmailSubject = a});
vmttEmailSubjectByLink :: Lens' VerificationMessageTemplateType (Maybe Text)
vmttEmailSubjectByLink = lens _vmttEmailSubjectByLink (\ s a -> s{_vmttEmailSubjectByLink = a});
vmttSmsMessage :: Lens' VerificationMessageTemplateType (Maybe Text)
vmttSmsMessage = lens _vmttSmsMessage (\ s a -> s{_vmttSmsMessage = a});
vmttEmailMessageByLink :: Lens' VerificationMessageTemplateType (Maybe Text)
vmttEmailMessageByLink = lens _vmttEmailMessageByLink (\ s a -> s{_vmttEmailMessageByLink = a});
vmttEmailMessage :: Lens' VerificationMessageTemplateType (Maybe Text)
vmttEmailMessage = lens _vmttEmailMessage (\ s a -> s{_vmttEmailMessage = a});
instance FromJSON VerificationMessageTemplateType
where
parseJSON
= withObject "VerificationMessageTemplateType"
(\ x ->
VerificationMessageTemplateType' <$>
(x .:? "DefaultEmailOption") <*>
(x .:? "EmailSubject")
<*> (x .:? "EmailSubjectByLink")
<*> (x .:? "SmsMessage")
<*> (x .:? "EmailMessageByLink")
<*> (x .:? "EmailMessage"))
instance Hashable VerificationMessageTemplateType
where
instance NFData VerificationMessageTemplateType where
instance ToJSON VerificationMessageTemplateType where
toJSON VerificationMessageTemplateType'{..}
= object
(catMaybes
[("DefaultEmailOption" .=) <$>
_vmttDefaultEmailOption,
("EmailSubject" .=) <$> _vmttEmailSubject,
("EmailSubjectByLink" .=) <$>
_vmttEmailSubjectByLink,
("SmsMessage" .=) <$> _vmttSmsMessage,
("EmailMessageByLink" .=) <$>
_vmttEmailMessageByLink,
("EmailMessage" .=) <$> _vmttEmailMessage])