module Network.AWS.IAM.ResyncMFADevice
(
resyncMFADevice
, ResyncMFADevice
, rmdUserName
, rmdSerialNumber
, rmdAuthenticationCode1
, rmdAuthenticationCode2
, resyncMFADeviceResponse
, ResyncMFADeviceResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ResyncMFADevice = ResyncMFADevice'
{ _rmdUserName :: !Text
, _rmdSerialNumber :: !Text
, _rmdAuthenticationCode1 :: !Text
, _rmdAuthenticationCode2 :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
resyncMFADevice
:: Text
-> Text
-> Text
-> Text
-> ResyncMFADevice
resyncMFADevice pUserName_ pSerialNumber_ pAuthenticationCode1_ pAuthenticationCode2_ =
ResyncMFADevice'
{ _rmdUserName = pUserName_
, _rmdSerialNumber = pSerialNumber_
, _rmdAuthenticationCode1 = pAuthenticationCode1_
, _rmdAuthenticationCode2 = pAuthenticationCode2_
}
rmdUserName :: Lens' ResyncMFADevice Text
rmdUserName = lens _rmdUserName (\ s a -> s{_rmdUserName = a});
rmdSerialNumber :: Lens' ResyncMFADevice Text
rmdSerialNumber = lens _rmdSerialNumber (\ s a -> s{_rmdSerialNumber = a});
rmdAuthenticationCode1 :: Lens' ResyncMFADevice Text
rmdAuthenticationCode1 = lens _rmdAuthenticationCode1 (\ s a -> s{_rmdAuthenticationCode1 = a});
rmdAuthenticationCode2 :: Lens' ResyncMFADevice Text
rmdAuthenticationCode2 = lens _rmdAuthenticationCode2 (\ s a -> s{_rmdAuthenticationCode2 = a});
instance AWSRequest ResyncMFADevice where
type Rs ResyncMFADevice = ResyncMFADeviceResponse
request = postQuery iAM
response = receiveNull ResyncMFADeviceResponse'
instance ToHeaders ResyncMFADevice where
toHeaders = const mempty
instance ToPath ResyncMFADevice where
toPath = const "/"
instance ToQuery ResyncMFADevice where
toQuery ResyncMFADevice'{..}
= mconcat
["Action" =: ("ResyncMFADevice" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _rmdUserName,
"SerialNumber" =: _rmdSerialNumber,
"AuthenticationCode1" =: _rmdAuthenticationCode1,
"AuthenticationCode2" =: _rmdAuthenticationCode2]
data ResyncMFADeviceResponse =
ResyncMFADeviceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
resyncMFADeviceResponse
:: ResyncMFADeviceResponse
resyncMFADeviceResponse = ResyncMFADeviceResponse'