module Network.AWS.IAM.DeactivateMFADevice
(
deactivateMFADevice
, DeactivateMFADevice
, dmdUserName
, dmdSerialNumber
, deactivateMFADeviceResponse
, DeactivateMFADeviceResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeactivateMFADevice = DeactivateMFADevice'
{ _dmdUserName :: !Text
, _dmdSerialNumber :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deactivateMFADevice
:: Text
-> Text
-> DeactivateMFADevice
deactivateMFADevice pUserName_ pSerialNumber_ =
DeactivateMFADevice'
{ _dmdUserName = pUserName_
, _dmdSerialNumber = pSerialNumber_
}
dmdUserName :: Lens' DeactivateMFADevice Text
dmdUserName = lens _dmdUserName (\ s a -> s{_dmdUserName = a});
dmdSerialNumber :: Lens' DeactivateMFADevice Text
dmdSerialNumber = lens _dmdSerialNumber (\ s a -> s{_dmdSerialNumber = a});
instance AWSRequest DeactivateMFADevice where
type Rs DeactivateMFADevice =
DeactivateMFADeviceResponse
request = postQuery iam
response = receiveNull DeactivateMFADeviceResponse'
instance Hashable DeactivateMFADevice
instance NFData DeactivateMFADevice
instance ToHeaders DeactivateMFADevice where
toHeaders = const mempty
instance ToPath DeactivateMFADevice where
toPath = const "/"
instance ToQuery DeactivateMFADevice where
toQuery DeactivateMFADevice'{..}
= mconcat
["Action" =: ("DeactivateMFADevice" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _dmdUserName,
"SerialNumber" =: _dmdSerialNumber]
data DeactivateMFADeviceResponse =
DeactivateMFADeviceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deactivateMFADeviceResponse
:: DeactivateMFADeviceResponse
deactivateMFADeviceResponse = DeactivateMFADeviceResponse'
instance NFData DeactivateMFADeviceResponse