{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
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
instance NFData AdminCreateUserConfigType
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,Read,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
instance NFData AttributeType
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,Read,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
instance NFData AuthenticationResultType
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
instance NFData CodeDeliveryDetailsType
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
instance NFData DeviceConfigurationType
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
instance NFData DeviceSecretVerifierConfigType
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,Read,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
instance NFData DeviceType
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
instance NFData EmailConfigurationType
instance ToJSON EmailConfigurationType where
toJSON EmailConfigurationType'{..}
= object
(catMaybes
[("SourceArn" .=) <$> _ectSourceARN,
("ReplyToEmailAddress" .=) <$>
_ectReplyToEmailAddress])
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
instance NFData LambdaConfigType
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
instance NFData MFAOptionType
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
instance NFData MessageTemplateType
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
instance NFData NewDeviceMetadataType
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
instance NFData NumberAttributeConstraintsType
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
instance NFData PasswordPolicyType
instance ToJSON PasswordPolicyType where
toJSON PasswordPolicyType'{..}
= object
(catMaybes
[("RequireNumbers" .=) <$> _pptRequireNumbers,
("RequireUppercase" .=) <$> _pptRequireUppercase,
("RequireLowercase" .=) <$> _pptRequireLowercase,
("MinimumLength" .=) <$> _pptMinimumLength,
("RequireSymbols" .=) <$> _pptRequireSymbols])
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
instance NFData SchemaAttributeType
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
instance NFData SmsConfigurationType
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
instance NFData StringAttributeConstraintsType
instance ToJSON StringAttributeConstraintsType where
toJSON StringAttributeConstraintsType'{..}
= object
(catMaybes
[("MaxLength" .=) <$> _sactMaxLength,
("MinLength" .=) <$> _sactMinLength])
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
instance NFData UserImportJobType
data UserPoolClientDescription = UserPoolClientDescription'
{ _upcdClientId :: !(Maybe (Sensitive Text))
, _upcdUserPoolId :: !(Maybe Text)
, _upcdClientName :: !(Maybe Text)
} deriving (Eq,Read,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
instance NFData UserPoolClientDescription
data UserPoolClientType = UserPoolClientType'
{ _upctRefreshTokenValidity :: !(Maybe Nat)
, _upctClientId :: !(Maybe (Sensitive Text))
, _upctExplicitAuthFlows :: !(Maybe [ExplicitAuthFlowsType])
, _upctClientSecret :: !(Maybe (Sensitive Text))
, _upctLastModifiedDate :: !(Maybe POSIX)
, _upctUserPoolId :: !(Maybe Text)
, _upctWriteAttributes :: !(Maybe [Text])
, _upctCreationDate :: !(Maybe POSIX)
, _upctReadAttributes :: !(Maybe [Text])
, _upctClientName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
userPoolClientType
:: UserPoolClientType
userPoolClientType =
UserPoolClientType'
{ _upctRefreshTokenValidity = Nothing
, _upctClientId = Nothing
, _upctExplicitAuthFlows = Nothing
, _upctClientSecret = Nothing
, _upctLastModifiedDate = Nothing
, _upctUserPoolId = Nothing
, _upctWriteAttributes = Nothing
, _upctCreationDate = Nothing
, _upctReadAttributes = Nothing
, _upctClientName = 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;
upctUserPoolId :: Lens' UserPoolClientType (Maybe Text)
upctUserPoolId = lens _upctUserPoolId (\ s a -> s{_upctUserPoolId = 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;
upctClientName :: Lens' UserPoolClientType (Maybe Text)
upctClientName = lens _upctClientName (\ s a -> s{_upctClientName = a});
instance FromJSON UserPoolClientType where
parseJSON
= withObject "UserPoolClientType"
(\ x ->
UserPoolClientType' <$>
(x .:? "RefreshTokenValidity") <*> (x .:? "ClientId")
<*> (x .:? "ExplicitAuthFlows" .!= mempty)
<*> (x .:? "ClientSecret")
<*> (x .:? "LastModifiedDate")
<*> (x .:? "UserPoolId")
<*> (x .:? "WriteAttributes" .!= mempty)
<*> (x .:? "CreationDate")
<*> (x .:? "ReadAttributes" .!= mempty)
<*> (x .:? "ClientName"))
instance Hashable UserPoolClientType
instance NFData UserPoolClientType
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
instance NFData UserPoolDescriptionType
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
instance NFData UserPoolPolicyType
instance ToJSON UserPoolPolicyType where
toJSON UserPoolPolicyType'{..}
= object
(catMaybes
[("PasswordPolicy" .=) <$> _upptPasswordPolicy])
data UserPoolType = UserPoolType'
{ _uptStatus :: !(Maybe StatusType)
, _uptEmailConfigurationFailure :: !(Maybe Text)
, _uptLastModifiedDate :: !(Maybe POSIX)
, _uptEstimatedNumberOfUsers :: !(Maybe Int)
, _uptEmailVerificationMessage :: !(Maybe Text)
, _uptSmsAuthenticationMessage :: !(Maybe Text)
, _uptSchemaAttributes :: !(Maybe (List1 SchemaAttributeType))
, _uptEmailVerificationSubject :: !(Maybe Text)
, _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
, _uptEmailConfigurationFailure = Nothing
, _uptLastModifiedDate = Nothing
, _uptEstimatedNumberOfUsers = Nothing
, _uptEmailVerificationMessage = Nothing
, _uptSmsAuthenticationMessage = Nothing
, _uptSchemaAttributes = Nothing
, _uptEmailVerificationSubject = 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});
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;
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});
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 .:? "EmailConfigurationFailure")
<*> (x .:? "LastModifiedDate")
<*> (x .:? "EstimatedNumberOfUsers")
<*> (x .:? "EmailVerificationMessage")
<*> (x .:? "SmsAuthenticationMessage")
<*> (x .:? "SchemaAttributes")
<*> (x .:? "EmailVerificationSubject")
<*> (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
instance NFData UserPoolType
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,Read,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
instance NFData UserType