module Network.AWS.IAM.ResyncMFADevice
(
ResyncMFADevice
, resyncMFADevice
, rmfadAuthenticationCode1
, rmfadAuthenticationCode2
, rmfadSerialNumber
, rmfadUserName
, ResyncMFADeviceResponse
, resyncMFADeviceResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data ResyncMFADevice = ResyncMFADevice
{ _rmfadAuthenticationCode1 :: Text
, _rmfadAuthenticationCode2 :: Text
, _rmfadSerialNumber :: Text
, _rmfadUserName :: Text
} deriving (Eq, Ord, Read, Show)
resyncMFADevice :: Text
-> Text
-> Text
-> Text
-> ResyncMFADevice
resyncMFADevice p1 p2 p3 p4 = ResyncMFADevice
{ _rmfadUserName = p1
, _rmfadSerialNumber = p2
, _rmfadAuthenticationCode1 = p3
, _rmfadAuthenticationCode2 = p4
}
rmfadAuthenticationCode1 :: Lens' ResyncMFADevice Text
rmfadAuthenticationCode1 =
lens _rmfadAuthenticationCode1
(\s a -> s { _rmfadAuthenticationCode1 = a })
rmfadAuthenticationCode2 :: Lens' ResyncMFADevice Text
rmfadAuthenticationCode2 =
lens _rmfadAuthenticationCode2
(\s a -> s { _rmfadAuthenticationCode2 = a })
rmfadSerialNumber :: Lens' ResyncMFADevice Text
rmfadSerialNumber =
lens _rmfadSerialNumber (\s a -> s { _rmfadSerialNumber = a })
rmfadUserName :: Lens' ResyncMFADevice Text
rmfadUserName = lens _rmfadUserName (\s a -> s { _rmfadUserName = a })
data ResyncMFADeviceResponse = ResyncMFADeviceResponse
deriving (Eq, Ord, Read, Show, Generic)
resyncMFADeviceResponse :: ResyncMFADeviceResponse
resyncMFADeviceResponse = ResyncMFADeviceResponse
instance ToPath ResyncMFADevice where
toPath = const "/"
instance ToQuery ResyncMFADevice where
toQuery ResyncMFADevice{..} = mconcat
[ "AuthenticationCode1" =? _rmfadAuthenticationCode1
, "AuthenticationCode2" =? _rmfadAuthenticationCode2
, "SerialNumber" =? _rmfadSerialNumber
, "UserName" =? _rmfadUserName
]
instance ToHeaders ResyncMFADevice
instance AWSRequest ResyncMFADevice where
type Sv ResyncMFADevice = IAM
type Rs ResyncMFADevice = ResyncMFADeviceResponse
request = post "ResyncMFADevice"
response = nullResponse ResyncMFADeviceResponse