{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
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 where
instance NFData DeleteCACertificate where
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 where