{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CognitoIdentityProvider.AdminSetUserMFAPreference
(
adminSetUserMFAPreference
, AdminSetUserMFAPreference
, asumpSMSMFASettings
, asumpSoftwareTokenMFASettings
, asumpUsername
, asumpUserPoolId
, adminSetUserMFAPreferenceResponse
, AdminSetUserMFAPreferenceResponse
, asumprsResponseStatus
) where
import Network.AWS.CognitoIdentityProvider.Types
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AdminSetUserMFAPreference = AdminSetUserMFAPreference'
{ _asumpSMSMFASettings :: !(Maybe SMSMFASettingsType)
, _asumpSoftwareTokenMFASettings :: !(Maybe SoftwareTokenMFASettingsType)
, _asumpUsername :: !(Sensitive Text)
, _asumpUserPoolId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
adminSetUserMFAPreference
:: Text
-> Text
-> AdminSetUserMFAPreference
adminSetUserMFAPreference pUsername_ pUserPoolId_ =
AdminSetUserMFAPreference'
{ _asumpSMSMFASettings = Nothing
, _asumpSoftwareTokenMFASettings = Nothing
, _asumpUsername = _Sensitive # pUsername_
, _asumpUserPoolId = pUserPoolId_
}
asumpSMSMFASettings :: Lens' AdminSetUserMFAPreference (Maybe SMSMFASettingsType)
asumpSMSMFASettings = lens _asumpSMSMFASettings (\ s a -> s{_asumpSMSMFASettings = a})
asumpSoftwareTokenMFASettings :: Lens' AdminSetUserMFAPreference (Maybe SoftwareTokenMFASettingsType)
asumpSoftwareTokenMFASettings = lens _asumpSoftwareTokenMFASettings (\ s a -> s{_asumpSoftwareTokenMFASettings = a})
asumpUsername :: Lens' AdminSetUserMFAPreference Text
asumpUsername = lens _asumpUsername (\ s a -> s{_asumpUsername = a}) . _Sensitive
asumpUserPoolId :: Lens' AdminSetUserMFAPreference Text
asumpUserPoolId = lens _asumpUserPoolId (\ s a -> s{_asumpUserPoolId = a})
instance AWSRequest AdminSetUserMFAPreference where
type Rs AdminSetUserMFAPreference =
AdminSetUserMFAPreferenceResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
AdminSetUserMFAPreferenceResponse' <$>
(pure (fromEnum s)))
instance Hashable AdminSetUserMFAPreference where
instance NFData AdminSetUserMFAPreference where
instance ToHeaders AdminSetUserMFAPreference where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.AdminSetUserMFAPreference"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AdminSetUserMFAPreference where
toJSON AdminSetUserMFAPreference'{..}
= object
(catMaybes
[("SMSMfaSettings" .=) <$> _asumpSMSMFASettings,
("SoftwareTokenMfaSettings" .=) <$>
_asumpSoftwareTokenMFASettings,
Just ("Username" .= _asumpUsername),
Just ("UserPoolId" .= _asumpUserPoolId)])
instance ToPath AdminSetUserMFAPreference where
toPath = const "/"
instance ToQuery AdminSetUserMFAPreference where
toQuery = const mempty
newtype AdminSetUserMFAPreferenceResponse = AdminSetUserMFAPreferenceResponse'
{ _asumprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
adminSetUserMFAPreferenceResponse
:: Int
-> AdminSetUserMFAPreferenceResponse
adminSetUserMFAPreferenceResponse pResponseStatus_ =
AdminSetUserMFAPreferenceResponse' {_asumprsResponseStatus = pResponseStatus_}
asumprsResponseStatus :: Lens' AdminSetUserMFAPreferenceResponse Int
asumprsResponseStatus = lens _asumprsResponseStatus (\ s a -> s{_asumprsResponseStatus = a})
instance NFData AdminSetUserMFAPreferenceResponse
where