module Network.AWS.IoT.DeleteCACertificate
(
deleteCACertificate
, DeleteCACertificate
, dcacCertificateId
, deleteCACertificateResponse
, DeleteCACertificateResponse
, dcacrsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteCACertificate = DeleteCACertificate'
{ _dcacCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCACertificate
:: Text
-> DeleteCACertificate
deleteCACertificate pCertificateId_ =
DeleteCACertificate'
{ _dcacCertificateId = pCertificateId_
}
dcacCertificateId :: Lens' DeleteCACertificate Text
dcacCertificateId = lens _dcacCertificateId (\ s a -> s{_dcacCertificateId = a});
instance AWSRequest DeleteCACertificate where
type Rs DeleteCACertificate =
DeleteCACertificateResponse
request = delete ioT
response
= receiveEmpty
(\ s h x ->
DeleteCACertificateResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteCACertificate
instance NFData DeleteCACertificate
instance ToHeaders DeleteCACertificate where
toHeaders = const mempty
instance ToPath DeleteCACertificate where
toPath DeleteCACertificate'{..}
= mconcat
["/cacertificate/", toBS _dcacCertificateId]
instance ToQuery DeleteCACertificate where
toQuery = const mempty
newtype DeleteCACertificateResponse = DeleteCACertificateResponse'
{ _dcacrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCACertificateResponse
:: Int
-> DeleteCACertificateResponse
deleteCACertificateResponse pResponseStatus_ =
DeleteCACertificateResponse'
{ _dcacrsResponseStatus = pResponseStatus_
}
dcacrsResponseStatus :: Lens' DeleteCACertificateResponse Int
dcacrsResponseStatus = lens _dcacrsResponseStatus (\ s a -> s{_dcacrsResponseStatus = a});
instance NFData DeleteCACertificateResponse