module Network.AWS.IAM.DeleteVirtualMFADevice
(
DeleteVirtualMFADevice
, deleteVirtualMFADevice
, dvmfadSerialNumber
, DeleteVirtualMFADeviceResponse
, deleteVirtualMFADeviceResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
newtype DeleteVirtualMFADevice = DeleteVirtualMFADevice
{ _dvmfadSerialNumber :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deleteVirtualMFADevice :: Text
-> DeleteVirtualMFADevice
deleteVirtualMFADevice p1 = DeleteVirtualMFADevice
{ _dvmfadSerialNumber = p1
}
dvmfadSerialNumber :: Lens' DeleteVirtualMFADevice Text
dvmfadSerialNumber =
lens _dvmfadSerialNumber (\s a -> s { _dvmfadSerialNumber = a })
data DeleteVirtualMFADeviceResponse = DeleteVirtualMFADeviceResponse
deriving (Eq, Ord, Show, Generic)
deleteVirtualMFADeviceResponse :: DeleteVirtualMFADeviceResponse
deleteVirtualMFADeviceResponse = DeleteVirtualMFADeviceResponse
instance ToPath DeleteVirtualMFADevice where
toPath = const "/"
instance ToQuery DeleteVirtualMFADevice where
toQuery DeleteVirtualMFADevice{..} = mconcat
[ "SerialNumber" =? _dvmfadSerialNumber
]
instance ToHeaders DeleteVirtualMFADevice
instance AWSRequest DeleteVirtualMFADevice where
type Sv DeleteVirtualMFADevice = IAM
type Rs DeleteVirtualMFADevice = DeleteVirtualMFADeviceResponse
request = post "DeleteVirtualMFADevice"
response = nullResponse DeleteVirtualMFADeviceResponse