module Network.AWS.IAM.DeleteSigningCertificate
(
deleteSigningCertificate
, DeleteSigningCertificate
, dscUserName
, dscCertificateId
, deleteSigningCertificateResponse
, DeleteSigningCertificateResponse
) 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 DeleteSigningCertificate = DeleteSigningCertificate'
{ _dscUserName :: !(Maybe Text)
, _dscCertificateId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteSigningCertificate
:: Text
-> DeleteSigningCertificate
deleteSigningCertificate pCertificateId_ =
DeleteSigningCertificate'
{ _dscUserName = Nothing
, _dscCertificateId = pCertificateId_
}
dscUserName :: Lens' DeleteSigningCertificate (Maybe Text)
dscUserName = lens _dscUserName (\ s a -> s{_dscUserName = a});
dscCertificateId :: Lens' DeleteSigningCertificate Text
dscCertificateId = lens _dscCertificateId (\ s a -> s{_dscCertificateId = a});
instance AWSRequest DeleteSigningCertificate where
type Rs DeleteSigningCertificate =
DeleteSigningCertificateResponse
request = postQuery iam
response
= receiveNull DeleteSigningCertificateResponse'
instance Hashable DeleteSigningCertificate
instance NFData DeleteSigningCertificate
instance ToHeaders DeleteSigningCertificate where
toHeaders = const mempty
instance ToPath DeleteSigningCertificate where
toPath = const "/"
instance ToQuery DeleteSigningCertificate where
toQuery DeleteSigningCertificate'{..}
= mconcat
["Action" =:
("DeleteSigningCertificate" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _dscUserName,
"CertificateId" =: _dscCertificateId]
data DeleteSigningCertificateResponse =
DeleteSigningCertificateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteSigningCertificateResponse
:: DeleteSigningCertificateResponse
deleteSigningCertificateResponse = DeleteSigningCertificateResponse'
instance NFData DeleteSigningCertificateResponse