{-# 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 AccountTakeoverActionType = AccountTakeoverActionType'
{ _atatNotify :: !Bool
, _atatEventAction :: !AccountTakeoverEventActionType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
accountTakeoverActionType
:: Bool
-> AccountTakeoverEventActionType
-> AccountTakeoverActionType
accountTakeoverActionType pNotify_ pEventAction_ =
AccountTakeoverActionType'
{_atatNotify = pNotify_, _atatEventAction = pEventAction_}
atatNotify :: Lens' AccountTakeoverActionType Bool
atatNotify = lens _atatNotify (\ s a -> s{_atatNotify = a})
atatEventAction :: Lens' AccountTakeoverActionType AccountTakeoverEventActionType
atatEventAction = lens _atatEventAction (\ s a -> s{_atatEventAction = a})
instance FromJSON AccountTakeoverActionType where
parseJSON
= withObject "AccountTakeoverActionType"
(\ x ->
AccountTakeoverActionType' <$>
(x .: "Notify") <*> (x .: "EventAction"))
instance Hashable AccountTakeoverActionType where
instance NFData AccountTakeoverActionType where
instance ToJSON AccountTakeoverActionType where
toJSON AccountTakeoverActionType'{..}
= object
(catMaybes
[Just ("Notify" .= _atatNotify),
Just ("EventAction" .= _atatEventAction)])
data AccountTakeoverActionsType = AccountTakeoverActionsType'
{ _atatLowAction :: !(Maybe AccountTakeoverActionType)
, _atatHighAction :: !(Maybe AccountTakeoverActionType)
, _atatMediumAction :: !(Maybe AccountTakeoverActionType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
accountTakeoverActionsType
:: AccountTakeoverActionsType
accountTakeoverActionsType =
AccountTakeoverActionsType'
{ _atatLowAction = Nothing
, _atatHighAction = Nothing
, _atatMediumAction = Nothing
}
atatLowAction :: Lens' AccountTakeoverActionsType (Maybe AccountTakeoverActionType)
atatLowAction = lens _atatLowAction (\ s a -> s{_atatLowAction = a})
atatHighAction :: Lens' AccountTakeoverActionsType (Maybe AccountTakeoverActionType)
atatHighAction = lens _atatHighAction (\ s a -> s{_atatHighAction = a})
atatMediumAction :: Lens' AccountTakeoverActionsType (Maybe AccountTakeoverActionType)
atatMediumAction = lens _atatMediumAction (\ s a -> s{_atatMediumAction = a})
instance FromJSON AccountTakeoverActionsType where
parseJSON
= withObject "AccountTakeoverActionsType"
(\ x ->
AccountTakeoverActionsType' <$>
(x .:? "LowAction") <*> (x .:? "HighAction") <*>
(x .:? "MediumAction"))
instance Hashable AccountTakeoverActionsType where
instance NFData AccountTakeoverActionsType where
instance ToJSON AccountTakeoverActionsType where
toJSON AccountTakeoverActionsType'{..}
= object
(catMaybes
[("LowAction" .=) <$> _atatLowAction,
("HighAction" .=) <$> _atatHighAction,
("MediumAction" .=) <$> _atatMediumAction])
data AccountTakeoverRiskConfigurationType = AccountTakeoverRiskConfigurationType'
{ _atrctNotifyConfiguration :: !(Maybe NotifyConfigurationType)
, _atrctActions :: !AccountTakeoverActionsType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
accountTakeoverRiskConfigurationType
:: AccountTakeoverActionsType
-> AccountTakeoverRiskConfigurationType
accountTakeoverRiskConfigurationType pActions_ =
AccountTakeoverRiskConfigurationType'
{_atrctNotifyConfiguration = Nothing, _atrctActions = pActions_}
atrctNotifyConfiguration :: Lens' AccountTakeoverRiskConfigurationType (Maybe NotifyConfigurationType)
atrctNotifyConfiguration = lens _atrctNotifyConfiguration (\ s a -> s{_atrctNotifyConfiguration = a})
atrctActions :: Lens' AccountTakeoverRiskConfigurationType AccountTakeoverActionsType
atrctActions = lens _atrctActions (\ s a -> s{_atrctActions = a})
instance FromJSON
AccountTakeoverRiskConfigurationType
where
parseJSON
= withObject "AccountTakeoverRiskConfigurationType"
(\ x ->
AccountTakeoverRiskConfigurationType' <$>
(x .:? "NotifyConfiguration") <*> (x .: "Actions"))
instance Hashable
AccountTakeoverRiskConfigurationType
where
instance NFData AccountTakeoverRiskConfigurationType
where
instance ToJSON AccountTakeoverRiskConfigurationType
where
toJSON AccountTakeoverRiskConfigurationType'{..}
= object
(catMaybes
[("NotifyConfiguration" .=) <$>
_atrctNotifyConfiguration,
Just ("Actions" .= _atrctActions)])
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 AnalyticsConfigurationType = AnalyticsConfigurationType'
{ _actUserDataShared :: !(Maybe Bool)
, _actApplicationId :: !Text
, _actRoleARN :: !Text
, _actExternalId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
analyticsConfigurationType
:: Text
-> Text
-> Text
-> AnalyticsConfigurationType
analyticsConfigurationType pApplicationId_ pRoleARN_ pExternalId_ =
AnalyticsConfigurationType'
{ _actUserDataShared = Nothing
, _actApplicationId = pApplicationId_
, _actRoleARN = pRoleARN_
, _actExternalId = pExternalId_
}
actUserDataShared :: Lens' AnalyticsConfigurationType (Maybe Bool)
actUserDataShared = lens _actUserDataShared (\ s a -> s{_actUserDataShared = a})
actApplicationId :: Lens' AnalyticsConfigurationType Text
actApplicationId = lens _actApplicationId (\ s a -> s{_actApplicationId = a})
actRoleARN :: Lens' AnalyticsConfigurationType Text
actRoleARN = lens _actRoleARN (\ s a -> s{_actRoleARN = a})
actExternalId :: Lens' AnalyticsConfigurationType Text
actExternalId = lens _actExternalId (\ s a -> s{_actExternalId = a})
instance FromJSON AnalyticsConfigurationType where
parseJSON
= withObject "AnalyticsConfigurationType"
(\ x ->
AnalyticsConfigurationType' <$>
(x .:? "UserDataShared") <*> (x .: "ApplicationId")
<*> (x .: "RoleArn")
<*> (x .: "ExternalId"))
instance Hashable AnalyticsConfigurationType where
instance NFData AnalyticsConfigurationType where
instance ToJSON AnalyticsConfigurationType where
toJSON AnalyticsConfigurationType'{..}
= object
(catMaybes
[("UserDataShared" .=) <$> _actUserDataShared,
Just ("ApplicationId" .= _actApplicationId),
Just ("RoleArn" .= _actRoleARN),
Just ("ExternalId" .= _actExternalId)])
newtype AnalyticsMetadataType = AnalyticsMetadataType'
{ _amtAnalyticsEndpointId :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
analyticsMetadataType
:: AnalyticsMetadataType
analyticsMetadataType =
AnalyticsMetadataType' {_amtAnalyticsEndpointId = Nothing}
amtAnalyticsEndpointId :: Lens' AnalyticsMetadataType (Maybe Text)
amtAnalyticsEndpointId = lens _amtAnalyticsEndpointId (\ s a -> s{_amtAnalyticsEndpointId = a})
instance Hashable AnalyticsMetadataType where
instance NFData AnalyticsMetadataType where
instance ToJSON AnalyticsMetadataType where
toJSON AnalyticsMetadataType'{..}
= object
(catMaybes
[("AnalyticsEndpointId" .=) <$>
_amtAnalyticsEndpointId])
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 AuthEventType = AuthEventType'
{ _aetEventRisk :: !(Maybe EventRiskType)
, _aetEventResponse :: !(Maybe EventResponseType)
, _aetEventContextData :: !(Maybe EventContextDataType)
, _aetChallengeResponses :: !(Maybe [ChallengeResponseType])
, _aetEventType :: !(Maybe EventType)
, _aetCreationDate :: !(Maybe POSIX)
, _aetEventFeedback :: !(Maybe EventFeedbackType)
, _aetEventId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
authEventType
:: AuthEventType
authEventType =
AuthEventType'
{ _aetEventRisk = Nothing
, _aetEventResponse = Nothing
, _aetEventContextData = Nothing
, _aetChallengeResponses = Nothing
, _aetEventType = Nothing
, _aetCreationDate = Nothing
, _aetEventFeedback = Nothing
, _aetEventId = Nothing
}
aetEventRisk :: Lens' AuthEventType (Maybe EventRiskType)
aetEventRisk = lens _aetEventRisk (\ s a -> s{_aetEventRisk = a})
aetEventResponse :: Lens' AuthEventType (Maybe EventResponseType)
aetEventResponse = lens _aetEventResponse (\ s a -> s{_aetEventResponse = a})
aetEventContextData :: Lens' AuthEventType (Maybe EventContextDataType)
aetEventContextData = lens _aetEventContextData (\ s a -> s{_aetEventContextData = a})
aetChallengeResponses :: Lens' AuthEventType [ChallengeResponseType]
aetChallengeResponses = lens _aetChallengeResponses (\ s a -> s{_aetChallengeResponses = a}) . _Default . _Coerce
aetEventType :: Lens' AuthEventType (Maybe EventType)
aetEventType = lens _aetEventType (\ s a -> s{_aetEventType = a})
aetCreationDate :: Lens' AuthEventType (Maybe UTCTime)
aetCreationDate = lens _aetCreationDate (\ s a -> s{_aetCreationDate = a}) . mapping _Time
aetEventFeedback :: Lens' AuthEventType (Maybe EventFeedbackType)
aetEventFeedback = lens _aetEventFeedback (\ s a -> s{_aetEventFeedback = a})
aetEventId :: Lens' AuthEventType (Maybe Text)
aetEventId = lens _aetEventId (\ s a -> s{_aetEventId = a})
instance FromJSON AuthEventType where
parseJSON
= withObject "AuthEventType"
(\ x ->
AuthEventType' <$>
(x .:? "EventRisk") <*> (x .:? "EventResponse") <*>
(x .:? "EventContextData")
<*> (x .:? "ChallengeResponses" .!= mempty)
<*> (x .:? "EventType")
<*> (x .:? "CreationDate")
<*> (x .:? "EventFeedback")
<*> (x .:? "EventId"))
instance Hashable AuthEventType where
instance NFData AuthEventType where
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 ChallengeResponseType = ChallengeResponseType'
{ _crtChallengeName :: !(Maybe ChallengeName)
, _crtChallengeResponse :: !(Maybe ChallengeResponse)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
challengeResponseType
:: ChallengeResponseType
challengeResponseType =
ChallengeResponseType'
{_crtChallengeName = Nothing, _crtChallengeResponse = Nothing}
crtChallengeName :: Lens' ChallengeResponseType (Maybe ChallengeName)
crtChallengeName = lens _crtChallengeName (\ s a -> s{_crtChallengeName = a})
crtChallengeResponse :: Lens' ChallengeResponseType (Maybe ChallengeResponse)
crtChallengeResponse = lens _crtChallengeResponse (\ s a -> s{_crtChallengeResponse = a})
instance FromJSON ChallengeResponseType where
parseJSON
= withObject "ChallengeResponseType"
(\ x ->
ChallengeResponseType' <$>
(x .:? "ChallengeName") <*>
(x .:? "ChallengeResponse"))
instance Hashable ChallengeResponseType where
instance NFData ChallengeResponseType 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
newtype CompromisedCredentialsActionsType = CompromisedCredentialsActionsType'
{ _ccatEventAction :: CompromisedCredentialsEventActionType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
compromisedCredentialsActionsType
:: CompromisedCredentialsEventActionType
-> CompromisedCredentialsActionsType
compromisedCredentialsActionsType pEventAction_ =
CompromisedCredentialsActionsType' {_ccatEventAction = pEventAction_}
ccatEventAction :: Lens' CompromisedCredentialsActionsType CompromisedCredentialsEventActionType
ccatEventAction = lens _ccatEventAction (\ s a -> s{_ccatEventAction = a})
instance FromJSON CompromisedCredentialsActionsType
where
parseJSON
= withObject "CompromisedCredentialsActionsType"
(\ x ->
CompromisedCredentialsActionsType' <$>
(x .: "EventAction"))
instance Hashable CompromisedCredentialsActionsType
where
instance NFData CompromisedCredentialsActionsType
where
instance ToJSON CompromisedCredentialsActionsType
where
toJSON CompromisedCredentialsActionsType'{..}
= object
(catMaybes
[Just ("EventAction" .= _ccatEventAction)])
data CompromisedCredentialsRiskConfigurationType = CompromisedCredentialsRiskConfigurationType'
{ _ccrctEventFilter :: !(Maybe [EventFilterType])
, _ccrctActions :: !CompromisedCredentialsActionsType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
compromisedCredentialsRiskConfigurationType
:: CompromisedCredentialsActionsType
-> CompromisedCredentialsRiskConfigurationType
compromisedCredentialsRiskConfigurationType pActions_ =
CompromisedCredentialsRiskConfigurationType'
{_ccrctEventFilter = Nothing, _ccrctActions = pActions_}
ccrctEventFilter :: Lens' CompromisedCredentialsRiskConfigurationType [EventFilterType]
ccrctEventFilter = lens _ccrctEventFilter (\ s a -> s{_ccrctEventFilter = a}) . _Default . _Coerce
ccrctActions :: Lens' CompromisedCredentialsRiskConfigurationType CompromisedCredentialsActionsType
ccrctActions = lens _ccrctActions (\ s a -> s{_ccrctActions = a})
instance FromJSON
CompromisedCredentialsRiskConfigurationType
where
parseJSON
= withObject
"CompromisedCredentialsRiskConfigurationType"
(\ x ->
CompromisedCredentialsRiskConfigurationType' <$>
(x .:? "EventFilter" .!= mempty) <*>
(x .: "Actions"))
instance Hashable
CompromisedCredentialsRiskConfigurationType
where
instance NFData
CompromisedCredentialsRiskConfigurationType
where
instance ToJSON
CompromisedCredentialsRiskConfigurationType
where
toJSON
CompromisedCredentialsRiskConfigurationType'{..}
= object
(catMaybes
[("EventFilter" .=) <$> _ccrctEventFilter,
Just ("Actions" .= _ccrctActions)])
data ContextDataType = ContextDataType'
{ _cdtEncodedData :: !(Maybe Text)
, _cdtIPAddress :: !Text
, _cdtServerName :: !Text
, _cdtServerPath :: !Text
, _cdtHTTPHeaders :: ![HTTPHeader]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
contextDataType
:: Text
-> Text
-> Text
-> ContextDataType
contextDataType pIPAddress_ pServerName_ pServerPath_ =
ContextDataType'
{ _cdtEncodedData = Nothing
, _cdtIPAddress = pIPAddress_
, _cdtServerName = pServerName_
, _cdtServerPath = pServerPath_
, _cdtHTTPHeaders = mempty
}
cdtEncodedData :: Lens' ContextDataType (Maybe Text)
cdtEncodedData = lens _cdtEncodedData (\ s a -> s{_cdtEncodedData = a})
cdtIPAddress :: Lens' ContextDataType Text
cdtIPAddress = lens _cdtIPAddress (\ s a -> s{_cdtIPAddress = a})
cdtServerName :: Lens' ContextDataType Text
cdtServerName = lens _cdtServerName (\ s a -> s{_cdtServerName = a})
cdtServerPath :: Lens' ContextDataType Text
cdtServerPath = lens _cdtServerPath (\ s a -> s{_cdtServerPath = a})
cdtHTTPHeaders :: Lens' ContextDataType [HTTPHeader]
cdtHTTPHeaders = lens _cdtHTTPHeaders (\ s a -> s{_cdtHTTPHeaders = a}) . _Coerce
instance Hashable ContextDataType where
instance NFData ContextDataType where
instance ToJSON ContextDataType where
toJSON ContextDataType'{..}
= object
(catMaybes
[("EncodedData" .=) <$> _cdtEncodedData,
Just ("IpAddress" .= _cdtIPAddress),
Just ("ServerName" .= _cdtServerName),
Just ("ServerPath" .= _cdtServerPath),
Just ("HttpHeaders" .= _cdtHTTPHeaders)])
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 EventContextDataType = EventContextDataType'
{ _ecdtIPAddress :: !(Maybe Text)
, _ecdtCountry :: !(Maybe Text)
, _ecdtCity :: !(Maybe Text)
, _ecdtDeviceName :: !(Maybe Text)
, _ecdtTimezone :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventContextDataType
:: EventContextDataType
eventContextDataType =
EventContextDataType'
{ _ecdtIPAddress = Nothing
, _ecdtCountry = Nothing
, _ecdtCity = Nothing
, _ecdtDeviceName = Nothing
, _ecdtTimezone = Nothing
}
ecdtIPAddress :: Lens' EventContextDataType (Maybe Text)
ecdtIPAddress = lens _ecdtIPAddress (\ s a -> s{_ecdtIPAddress = a})
ecdtCountry :: Lens' EventContextDataType (Maybe Text)
ecdtCountry = lens _ecdtCountry (\ s a -> s{_ecdtCountry = a})
ecdtCity :: Lens' EventContextDataType (Maybe Text)
ecdtCity = lens _ecdtCity (\ s a -> s{_ecdtCity = a})
ecdtDeviceName :: Lens' EventContextDataType (Maybe Text)
ecdtDeviceName = lens _ecdtDeviceName (\ s a -> s{_ecdtDeviceName = a})
ecdtTimezone :: Lens' EventContextDataType (Maybe Text)
ecdtTimezone = lens _ecdtTimezone (\ s a -> s{_ecdtTimezone = a})
instance FromJSON EventContextDataType where
parseJSON
= withObject "EventContextDataType"
(\ x ->
EventContextDataType' <$>
(x .:? "IpAddress") <*> (x .:? "Country") <*>
(x .:? "City")
<*> (x .:? "DeviceName")
<*> (x .:? "Timezone"))
instance Hashable EventContextDataType where
instance NFData EventContextDataType where
data EventFeedbackType = EventFeedbackType'
{ _eftFeedbackDate :: !(Maybe POSIX)
, _eftFeedbackValue :: !FeedbackValueType
, _eftProvider :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventFeedbackType
:: FeedbackValueType
-> Text
-> EventFeedbackType
eventFeedbackType pFeedbackValue_ pProvider_ =
EventFeedbackType'
{ _eftFeedbackDate = Nothing
, _eftFeedbackValue = pFeedbackValue_
, _eftProvider = pProvider_
}
eftFeedbackDate :: Lens' EventFeedbackType (Maybe UTCTime)
eftFeedbackDate = lens _eftFeedbackDate (\ s a -> s{_eftFeedbackDate = a}) . mapping _Time
eftFeedbackValue :: Lens' EventFeedbackType FeedbackValueType
eftFeedbackValue = lens _eftFeedbackValue (\ s a -> s{_eftFeedbackValue = a})
eftProvider :: Lens' EventFeedbackType Text
eftProvider = lens _eftProvider (\ s a -> s{_eftProvider = a})
instance FromJSON EventFeedbackType where
parseJSON
= withObject "EventFeedbackType"
(\ x ->
EventFeedbackType' <$>
(x .:? "FeedbackDate") <*> (x .: "FeedbackValue") <*>
(x .: "Provider"))
instance Hashable EventFeedbackType where
instance NFData EventFeedbackType where
data EventRiskType = EventRiskType'
{ _ertRiskLevel :: !(Maybe RiskLevelType)
, _ertRiskDecision :: !(Maybe RiskDecisionType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventRiskType
:: EventRiskType
eventRiskType =
EventRiskType' {_ertRiskLevel = Nothing, _ertRiskDecision = Nothing}
ertRiskLevel :: Lens' EventRiskType (Maybe RiskLevelType)
ertRiskLevel = lens _ertRiskLevel (\ s a -> s{_ertRiskLevel = a})
ertRiskDecision :: Lens' EventRiskType (Maybe RiskDecisionType)
ertRiskDecision = lens _ertRiskDecision (\ s a -> s{_ertRiskDecision = a})
instance FromJSON EventRiskType where
parseJSON
= withObject "EventRiskType"
(\ x ->
EventRiskType' <$>
(x .:? "RiskLevel") <*> (x .:? "RiskDecision"))
instance Hashable EventRiskType where
instance NFData EventRiskType where
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 HTTPHeader = HTTPHeader'
{ _httphHeaderValue :: !(Maybe Text)
, _httphHeaderName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
hTTPHeader
:: HTTPHeader
hTTPHeader =
HTTPHeader' {_httphHeaderValue = Nothing, _httphHeaderName = Nothing}
httphHeaderValue :: Lens' HTTPHeader (Maybe Text)
httphHeaderValue = lens _httphHeaderValue (\ s a -> s{_httphHeaderValue = a})
httphHeaderName :: Lens' HTTPHeader (Maybe Text)
httphHeaderName = lens _httphHeaderName (\ s a -> s{_httphHeaderName = a})
instance Hashable HTTPHeader where
instance NFData HTTPHeader where
instance ToJSON HTTPHeader where
toJSON HTTPHeader'{..}
= object
(catMaybes
[("headerValue" .=) <$> _httphHeaderValue,
("headerName" .=) <$> _httphHeaderName])
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)
, _lctPreTokenGeneration :: !(Maybe Text)
, _lctUserMigration :: !(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
, _lctPreTokenGeneration = Nothing
, _lctUserMigration = 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})
lctPreTokenGeneration :: Lens' LambdaConfigType (Maybe Text)
lctPreTokenGeneration = lens _lctPreTokenGeneration (\ s a -> s{_lctPreTokenGeneration = a})
lctUserMigration :: Lens' LambdaConfigType (Maybe Text)
lctUserMigration = lens _lctUserMigration (\ s a -> s{_lctUserMigration = 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 .:? "PreTokenGeneration")
<*> (x .:? "UserMigration")
<*> (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,
("PreTokenGeneration" .=) <$> _lctPreTokenGeneration,
("UserMigration" .=) <$> _lctUserMigration,
("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 NotifyConfigurationType = NotifyConfigurationType'
{ _nctNoActionEmail :: !(Maybe NotifyEmailType)
, _nctFrom :: !(Maybe Text)
, _nctReplyTo :: !(Maybe Text)
, _nctBlockEmail :: !(Maybe NotifyEmailType)
, _nctMFAEmail :: !(Maybe NotifyEmailType)
, _nctSourceARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
notifyConfigurationType
:: Text
-> NotifyConfigurationType
notifyConfigurationType pSourceARN_ =
NotifyConfigurationType'
{ _nctNoActionEmail = Nothing
, _nctFrom = Nothing
, _nctReplyTo = Nothing
, _nctBlockEmail = Nothing
, _nctMFAEmail = Nothing
, _nctSourceARN = pSourceARN_
}
nctNoActionEmail :: Lens' NotifyConfigurationType (Maybe NotifyEmailType)
nctNoActionEmail = lens _nctNoActionEmail (\ s a -> s{_nctNoActionEmail = a})
nctFrom :: Lens' NotifyConfigurationType (Maybe Text)
nctFrom = lens _nctFrom (\ s a -> s{_nctFrom = a})
nctReplyTo :: Lens' NotifyConfigurationType (Maybe Text)
nctReplyTo = lens _nctReplyTo (\ s a -> s{_nctReplyTo = a})
nctBlockEmail :: Lens' NotifyConfigurationType (Maybe NotifyEmailType)
nctBlockEmail = lens _nctBlockEmail (\ s a -> s{_nctBlockEmail = a})
nctMFAEmail :: Lens' NotifyConfigurationType (Maybe NotifyEmailType)
nctMFAEmail = lens _nctMFAEmail (\ s a -> s{_nctMFAEmail = a})
nctSourceARN :: Lens' NotifyConfigurationType Text
nctSourceARN = lens _nctSourceARN (\ s a -> s{_nctSourceARN = a})
instance FromJSON NotifyConfigurationType where
parseJSON
= withObject "NotifyConfigurationType"
(\ x ->
NotifyConfigurationType' <$>
(x .:? "NoActionEmail") <*> (x .:? "From") <*>
(x .:? "ReplyTo")
<*> (x .:? "BlockEmail")
<*> (x .:? "MfaEmail")
<*> (x .: "SourceArn"))
instance Hashable NotifyConfigurationType where
instance NFData NotifyConfigurationType where
instance ToJSON NotifyConfigurationType where
toJSON NotifyConfigurationType'{..}
= object
(catMaybes
[("NoActionEmail" .=) <$> _nctNoActionEmail,
("From" .=) <$> _nctFrom,
("ReplyTo" .=) <$> _nctReplyTo,
("BlockEmail" .=) <$> _nctBlockEmail,
("MfaEmail" .=) <$> _nctMFAEmail,
Just ("SourceArn" .= _nctSourceARN)])
data NotifyEmailType = NotifyEmailType'
{ _netTextBody :: !(Maybe Text)
, _netHTMLBody :: !(Maybe Text)
, _netSubject :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
notifyEmailType
:: Text
-> NotifyEmailType
notifyEmailType pSubject_ =
NotifyEmailType'
{_netTextBody = Nothing, _netHTMLBody = Nothing, _netSubject = pSubject_}
netTextBody :: Lens' NotifyEmailType (Maybe Text)
netTextBody = lens _netTextBody (\ s a -> s{_netTextBody = a})
netHTMLBody :: Lens' NotifyEmailType (Maybe Text)
netHTMLBody = lens _netHTMLBody (\ s a -> s{_netHTMLBody = a})
netSubject :: Lens' NotifyEmailType Text
netSubject = lens _netSubject (\ s a -> s{_netSubject = a})
instance FromJSON NotifyEmailType where
parseJSON
= withObject "NotifyEmailType"
(\ x ->
NotifyEmailType' <$>
(x .:? "TextBody") <*> (x .:? "HtmlBody") <*>
(x .: "Subject"))
instance Hashable NotifyEmailType where
instance NFData NotifyEmailType where
instance ToJSON NotifyEmailType where
toJSON NotifyEmailType'{..}
= object
(catMaybes
[("TextBody" .=) <$> _netTextBody,
("HtmlBody" .=) <$> _netHTMLBody,
Just ("Subject" .= _netSubject)])
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 RiskConfigurationType = RiskConfigurationType'
{ _rctRiskExceptionConfiguration :: !(Maybe RiskExceptionConfigurationType)
, _rctClientId :: !(Maybe (Sensitive Text))
, _rctAccountTakeoverRiskConfiguration :: !(Maybe AccountTakeoverRiskConfigurationType)
, _rctLastModifiedDate :: !(Maybe POSIX)
, _rctUserPoolId :: !(Maybe Text)
, _rctCompromisedCredentialsRiskConfiguration :: !(Maybe CompromisedCredentialsRiskConfigurationType)
} deriving (Eq, Show, Data, Typeable, Generic)
riskConfigurationType
:: RiskConfigurationType
riskConfigurationType =
RiskConfigurationType'
{ _rctRiskExceptionConfiguration = Nothing
, _rctClientId = Nothing
, _rctAccountTakeoverRiskConfiguration = Nothing
, _rctLastModifiedDate = Nothing
, _rctUserPoolId = Nothing
, _rctCompromisedCredentialsRiskConfiguration = Nothing
}
rctRiskExceptionConfiguration :: Lens' RiskConfigurationType (Maybe RiskExceptionConfigurationType)
rctRiskExceptionConfiguration = lens _rctRiskExceptionConfiguration (\ s a -> s{_rctRiskExceptionConfiguration = a})
rctClientId :: Lens' RiskConfigurationType (Maybe Text)
rctClientId = lens _rctClientId (\ s a -> s{_rctClientId = a}) . mapping _Sensitive
rctAccountTakeoverRiskConfiguration :: Lens' RiskConfigurationType (Maybe AccountTakeoverRiskConfigurationType)
rctAccountTakeoverRiskConfiguration = lens _rctAccountTakeoverRiskConfiguration (\ s a -> s{_rctAccountTakeoverRiskConfiguration = a})
rctLastModifiedDate :: Lens' RiskConfigurationType (Maybe UTCTime)
rctLastModifiedDate = lens _rctLastModifiedDate (\ s a -> s{_rctLastModifiedDate = a}) . mapping _Time
rctUserPoolId :: Lens' RiskConfigurationType (Maybe Text)
rctUserPoolId = lens _rctUserPoolId (\ s a -> s{_rctUserPoolId = a})
rctCompromisedCredentialsRiskConfiguration :: Lens' RiskConfigurationType (Maybe CompromisedCredentialsRiskConfigurationType)
rctCompromisedCredentialsRiskConfiguration = lens _rctCompromisedCredentialsRiskConfiguration (\ s a -> s{_rctCompromisedCredentialsRiskConfiguration = a})
instance FromJSON RiskConfigurationType where
parseJSON
= withObject "RiskConfigurationType"
(\ x ->
RiskConfigurationType' <$>
(x .:? "RiskExceptionConfiguration") <*>
(x .:? "ClientId")
<*> (x .:? "AccountTakeoverRiskConfiguration")
<*> (x .:? "LastModifiedDate")
<*> (x .:? "UserPoolId")
<*>
(x .:? "CompromisedCredentialsRiskConfiguration"))
instance Hashable RiskConfigurationType where
instance NFData RiskConfigurationType where
data RiskExceptionConfigurationType = RiskExceptionConfigurationType'
{ _rectSkippedIPRangeList :: !(Maybe [Text])
, _rectBlockedIPRangeList :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
riskExceptionConfigurationType
:: RiskExceptionConfigurationType
riskExceptionConfigurationType =
RiskExceptionConfigurationType'
{_rectSkippedIPRangeList = Nothing, _rectBlockedIPRangeList = Nothing}
rectSkippedIPRangeList :: Lens' RiskExceptionConfigurationType [Text]
rectSkippedIPRangeList = lens _rectSkippedIPRangeList (\ s a -> s{_rectSkippedIPRangeList = a}) . _Default . _Coerce
rectBlockedIPRangeList :: Lens' RiskExceptionConfigurationType [Text]
rectBlockedIPRangeList = lens _rectBlockedIPRangeList (\ s a -> s{_rectBlockedIPRangeList = a}) . _Default . _Coerce
instance FromJSON RiskExceptionConfigurationType
where
parseJSON
= withObject "RiskExceptionConfigurationType"
(\ x ->
RiskExceptionConfigurationType' <$>
(x .:? "SkippedIPRangeList" .!= mempty) <*>
(x .:? "BlockedIPRangeList" .!= mempty))
instance Hashable RiskExceptionConfigurationType
where
instance NFData RiskExceptionConfigurationType where
instance ToJSON RiskExceptionConfigurationType where
toJSON RiskExceptionConfigurationType'{..}
= object
(catMaybes
[("SkippedIPRangeList" .=) <$>
_rectSkippedIPRangeList,
("BlockedIPRangeList" .=) <$>
_rectBlockedIPRangeList])
data SMSMFASettingsType = SMSMFASettingsType'
{ _smsmstEnabled :: !(Maybe Bool)
, _smsmstPreferredMFA :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sMSMFASettingsType
:: SMSMFASettingsType
sMSMFASettingsType =
SMSMFASettingsType' {_smsmstEnabled = Nothing, _smsmstPreferredMFA = Nothing}
smsmstEnabled :: Lens' SMSMFASettingsType (Maybe Bool)
smsmstEnabled = lens _smsmstEnabled (\ s a -> s{_smsmstEnabled = a})
smsmstPreferredMFA :: Lens' SMSMFASettingsType (Maybe Bool)
smsmstPreferredMFA = lens _smsmstPreferredMFA (\ s a -> s{_smsmstPreferredMFA = a})
instance Hashable SMSMFASettingsType where
instance NFData SMSMFASettingsType where
instance ToJSON SMSMFASettingsType where
toJSON SMSMFASettingsType'{..}
= object
(catMaybes
[("Enabled" .=) <$> _smsmstEnabled,
("PreferredMfa" .=) <$> _smsmstPreferredMFA])
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 SmsMFAConfigType = SmsMFAConfigType'
{ _smctSmsAuthenticationMessage :: !(Maybe Text)
, _smctSmsConfiguration :: !(Maybe SmsConfigurationType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
smsMFAConfigType
:: SmsMFAConfigType
smsMFAConfigType =
SmsMFAConfigType'
{_smctSmsAuthenticationMessage = Nothing, _smctSmsConfiguration = Nothing}
smctSmsAuthenticationMessage :: Lens' SmsMFAConfigType (Maybe Text)
smctSmsAuthenticationMessage = lens _smctSmsAuthenticationMessage (\ s a -> s{_smctSmsAuthenticationMessage = a})
smctSmsConfiguration :: Lens' SmsMFAConfigType (Maybe SmsConfigurationType)
smctSmsConfiguration = lens _smctSmsConfiguration (\ s a -> s{_smctSmsConfiguration = a})
instance FromJSON SmsMFAConfigType where
parseJSON
= withObject "SmsMFAConfigType"
(\ x ->
SmsMFAConfigType' <$>
(x .:? "SmsAuthenticationMessage") <*>
(x .:? "SmsConfiguration"))
instance Hashable SmsMFAConfigType where
instance NFData SmsMFAConfigType where
instance ToJSON SmsMFAConfigType where
toJSON SmsMFAConfigType'{..}
= object
(catMaybes
[("SmsAuthenticationMessage" .=) <$>
_smctSmsAuthenticationMessage,
("SmsConfiguration" .=) <$> _smctSmsConfiguration])
newtype SoftwareTokenMFAConfigType = SoftwareTokenMFAConfigType'
{ _stmctEnabled :: Maybe Bool
} deriving (Eq, Read, Show, Data, Typeable, Generic)
softwareTokenMFAConfigType
:: SoftwareTokenMFAConfigType
softwareTokenMFAConfigType =
SoftwareTokenMFAConfigType' {_stmctEnabled = Nothing}
stmctEnabled :: Lens' SoftwareTokenMFAConfigType (Maybe Bool)
stmctEnabled = lens _stmctEnabled (\ s a -> s{_stmctEnabled = a})
instance FromJSON SoftwareTokenMFAConfigType where
parseJSON
= withObject "SoftwareTokenMFAConfigType"
(\ x ->
SoftwareTokenMFAConfigType' <$> (x .:? "Enabled"))
instance Hashable SoftwareTokenMFAConfigType where
instance NFData SoftwareTokenMFAConfigType where
instance ToJSON SoftwareTokenMFAConfigType where
toJSON SoftwareTokenMFAConfigType'{..}
= object
(catMaybes [("Enabled" .=) <$> _stmctEnabled])
data SoftwareTokenMFASettingsType = SoftwareTokenMFASettingsType'
{ _stmstEnabled :: !(Maybe Bool)
, _stmstPreferredMFA :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
softwareTokenMFASettingsType
:: SoftwareTokenMFASettingsType
softwareTokenMFASettingsType =
SoftwareTokenMFASettingsType'
{_stmstEnabled = Nothing, _stmstPreferredMFA = Nothing}
stmstEnabled :: Lens' SoftwareTokenMFASettingsType (Maybe Bool)
stmstEnabled = lens _stmstEnabled (\ s a -> s{_stmstEnabled = a})
stmstPreferredMFA :: Lens' SoftwareTokenMFASettingsType (Maybe Bool)
stmstPreferredMFA = lens _stmstPreferredMFA (\ s a -> s{_stmstPreferredMFA = a})
instance Hashable SoftwareTokenMFASettingsType where
instance NFData SoftwareTokenMFASettingsType where
instance ToJSON SoftwareTokenMFASettingsType where
toJSON SoftwareTokenMFASettingsType'{..}
= object
(catMaybes
[("Enabled" .=) <$> _stmstEnabled,
("PreferredMfa" .=) <$> _stmstPreferredMFA])
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
newtype UserContextDataType = UserContextDataType'
{ _ucdtEncodedData :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
userContextDataType
:: UserContextDataType
userContextDataType = UserContextDataType' {_ucdtEncodedData = Nothing}
ucdtEncodedData :: Lens' UserContextDataType (Maybe Text)
ucdtEncodedData = lens _ucdtEncodedData (\ s a -> s{_ucdtEncodedData = a})
instance Hashable UserContextDataType where
instance NFData UserContextDataType where
instance ToJSON UserContextDataType where
toJSON UserContextDataType'{..}
= object
(catMaybes [("EncodedData" .=) <$> _ucdtEncodedData])
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
newtype UserPoolAddOnsType = UserPoolAddOnsType'
{ _upaotAdvancedSecurityMode :: AdvancedSecurityModeType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
userPoolAddOnsType
:: AdvancedSecurityModeType
-> UserPoolAddOnsType
userPoolAddOnsType pAdvancedSecurityMode_ =
UserPoolAddOnsType' {_upaotAdvancedSecurityMode = pAdvancedSecurityMode_}
upaotAdvancedSecurityMode :: Lens' UserPoolAddOnsType AdvancedSecurityModeType
upaotAdvancedSecurityMode = lens _upaotAdvancedSecurityMode (\ s a -> s{_upaotAdvancedSecurityMode = a})
instance FromJSON UserPoolAddOnsType where
parseJSON
= withObject "UserPoolAddOnsType"
(\ x ->
UserPoolAddOnsType' <$>
(x .: "AdvancedSecurityMode"))
instance Hashable UserPoolAddOnsType where
instance NFData UserPoolAddOnsType where
instance ToJSON UserPoolAddOnsType where
toJSON UserPoolAddOnsType'{..}
= object
(catMaybes
[Just
("AdvancedSecurityMode" .=
_upaotAdvancedSecurityMode)])
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])
, _upctAnalyticsConfiguration :: !(Maybe AnalyticsConfigurationType)
, _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
, _upctAnalyticsConfiguration = 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
upctAnalyticsConfiguration :: Lens' UserPoolClientType (Maybe AnalyticsConfigurationType)
upctAnalyticsConfiguration = lens _upctAnalyticsConfiguration (\ s a -> s{_upctAnalyticsConfiguration = a})
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 .:? "AnalyticsConfiguration")
<*> (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)
, _uptDomain :: !(Maybe Text)
, _uptEmailVerificationMessage :: !(Maybe Text)
, _uptSmsAuthenticationMessage :: !(Maybe Text)
, _uptUserPoolAddOns :: !(Maybe UserPoolAddOnsType)
, _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
, _uptDomain = Nothing
, _uptEmailVerificationMessage = Nothing
, _uptSmsAuthenticationMessage = Nothing
, _uptUserPoolAddOns = 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})
uptDomain :: Lens' UserPoolType (Maybe Text)
uptDomain = lens _uptDomain (\ s a -> s{_uptDomain = 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})
uptUserPoolAddOns :: Lens' UserPoolType (Maybe UserPoolAddOnsType)
uptUserPoolAddOns = lens _uptUserPoolAddOns (\ s a -> s{_uptUserPoolAddOns = 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 .:? "Domain")
<*> (x .:? "EmailVerificationMessage")
<*> (x .:? "SmsAuthenticationMessage")
<*> (x .:? "UserPoolAddOns")
<*> (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])