module Network.AWS.IoT.DescribeCACertificate
(
describeCACertificate
, DescribeCACertificate
, dCertificateId
, describeCACertificateResponse
, DescribeCACertificateResponse
, desrsCertificateDescription
, desrsResponseStatus
) 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 DescribeCACertificate = DescribeCACertificate'
{ _dCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCACertificate
:: Text
-> DescribeCACertificate
describeCACertificate pCertificateId_ =
DescribeCACertificate'
{ _dCertificateId = pCertificateId_
}
dCertificateId :: Lens' DescribeCACertificate Text
dCertificateId = lens _dCertificateId (\ s a -> s{_dCertificateId = a});
instance AWSRequest DescribeCACertificate where
type Rs DescribeCACertificate =
DescribeCACertificateResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
DescribeCACertificateResponse' <$>
(x .?> "certificateDescription") <*>
(pure (fromEnum s)))
instance Hashable DescribeCACertificate
instance NFData DescribeCACertificate
instance ToHeaders DescribeCACertificate where
toHeaders = const mempty
instance ToPath DescribeCACertificate where
toPath DescribeCACertificate'{..}
= mconcat ["/cacertificate/", toBS _dCertificateId]
instance ToQuery DescribeCACertificate where
toQuery = const mempty
data DescribeCACertificateResponse = DescribeCACertificateResponse'
{ _desrsCertificateDescription :: !(Maybe CACertificateDescription)
, _desrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCACertificateResponse
:: Int
-> DescribeCACertificateResponse
describeCACertificateResponse pResponseStatus_ =
DescribeCACertificateResponse'
{ _desrsCertificateDescription = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsCertificateDescription :: Lens' DescribeCACertificateResponse (Maybe CACertificateDescription)
desrsCertificateDescription = lens _desrsCertificateDescription (\ s a -> s{_desrsCertificateDescription = a});
desrsResponseStatus :: Lens' DescribeCACertificateResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
instance NFData DescribeCACertificateResponse