module Network.AWS.Redshift.DeleteHSMClientCertificate
(
deleteHSMClientCertificate
, DeleteHSMClientCertificate
, dhsmccHSMClientCertificateIdentifier
, deleteHSMClientCertificateResponse
, DeleteHSMClientCertificateResponse
) where
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteHSMClientCertificate = DeleteHSMClientCertificate'
{ _dhsmccHSMClientCertificateIdentifier :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteHSMClientCertificate
:: Text
-> DeleteHSMClientCertificate
deleteHSMClientCertificate pHSMClientCertificateIdentifier_ =
DeleteHSMClientCertificate'
{ _dhsmccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_
}
dhsmccHSMClientCertificateIdentifier :: Lens' DeleteHSMClientCertificate Text
dhsmccHSMClientCertificateIdentifier = lens _dhsmccHSMClientCertificateIdentifier (\ s a -> s{_dhsmccHSMClientCertificateIdentifier = a});
instance AWSRequest DeleteHSMClientCertificate where
type Rs DeleteHSMClientCertificate =
DeleteHSMClientCertificateResponse
request = postQuery redshift
response
= receiveNull DeleteHSMClientCertificateResponse'
instance ToHeaders DeleteHSMClientCertificate where
toHeaders = const mempty
instance ToPath DeleteHSMClientCertificate where
toPath = const "/"
instance ToQuery DeleteHSMClientCertificate where
toQuery DeleteHSMClientCertificate'{..}
= mconcat
["Action" =:
("DeleteHsmClientCertificate" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"HsmClientCertificateIdentifier" =:
_dhsmccHSMClientCertificateIdentifier]
data DeleteHSMClientCertificateResponse =
DeleteHSMClientCertificateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteHSMClientCertificateResponse
:: DeleteHSMClientCertificateResponse
deleteHSMClientCertificateResponse = DeleteHSMClientCertificateResponse'