{-# 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.SetUserMFAPreference
(
setUserMFAPreference
, SetUserMFAPreference
, sumpSMSMFASettings
, sumpSoftwareTokenMFASettings
, sumpAccessToken
, setUserMFAPreferenceResponse
, SetUserMFAPreferenceResponse
, sumprsResponseStatus
) 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 SetUserMFAPreference = SetUserMFAPreference'
{ _sumpSMSMFASettings :: !(Maybe SMSMFASettingsType)
, _sumpSoftwareTokenMFASettings :: !(Maybe SoftwareTokenMFASettingsType)
, _sumpAccessToken :: !(Sensitive Text)
} deriving (Eq, Show, Data, Typeable, Generic)
setUserMFAPreference
:: Text
-> SetUserMFAPreference
setUserMFAPreference pAccessToken_ =
SetUserMFAPreference'
{ _sumpSMSMFASettings = Nothing
, _sumpSoftwareTokenMFASettings = Nothing
, _sumpAccessToken = _Sensitive # pAccessToken_
}
sumpSMSMFASettings :: Lens' SetUserMFAPreference (Maybe SMSMFASettingsType)
sumpSMSMFASettings = lens _sumpSMSMFASettings (\ s a -> s{_sumpSMSMFASettings = a})
sumpSoftwareTokenMFASettings :: Lens' SetUserMFAPreference (Maybe SoftwareTokenMFASettingsType)
sumpSoftwareTokenMFASettings = lens _sumpSoftwareTokenMFASettings (\ s a -> s{_sumpSoftwareTokenMFASettings = a})
sumpAccessToken :: Lens' SetUserMFAPreference Text
sumpAccessToken = lens _sumpAccessToken (\ s a -> s{_sumpAccessToken = a}) . _Sensitive
instance AWSRequest SetUserMFAPreference where
type Rs SetUserMFAPreference =
SetUserMFAPreferenceResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
SetUserMFAPreferenceResponse' <$>
(pure (fromEnum s)))
instance Hashable SetUserMFAPreference where
instance NFData SetUserMFAPreference where
instance ToHeaders SetUserMFAPreference where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.SetUserMFAPreference"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SetUserMFAPreference where
toJSON SetUserMFAPreference'{..}
= object
(catMaybes
[("SMSMfaSettings" .=) <$> _sumpSMSMFASettings,
("SoftwareTokenMfaSettings" .=) <$>
_sumpSoftwareTokenMFASettings,
Just ("AccessToken" .= _sumpAccessToken)])
instance ToPath SetUserMFAPreference where
toPath = const "/"
instance ToQuery SetUserMFAPreference where
toQuery = const mempty
newtype SetUserMFAPreferenceResponse = SetUserMFAPreferenceResponse'
{ _sumprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setUserMFAPreferenceResponse
:: Int
-> SetUserMFAPreferenceResponse
setUserMFAPreferenceResponse pResponseStatus_ =
SetUserMFAPreferenceResponse' {_sumprsResponseStatus = pResponseStatus_}
sumprsResponseStatus :: Lens' SetUserMFAPreferenceResponse Int
sumprsResponseStatus = lens _sumprsResponseStatus (\ s a -> s{_sumprsResponseStatus = a})
instance NFData SetUserMFAPreferenceResponse where