module Network.AWS.IoT.DescribeCertificate
(
describeCertificate
, DescribeCertificate
, desCertificateId
, describeCertificateResponse
, DescribeCertificateResponse
, dcrsCertificateDescription
, dcrsResponseStatus
) 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 DescribeCertificate = DescribeCertificate'
{ _desCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCertificate
:: Text
-> DescribeCertificate
describeCertificate pCertificateId_ =
DescribeCertificate'
{ _desCertificateId = pCertificateId_
}
desCertificateId :: Lens' DescribeCertificate Text
desCertificateId = lens _desCertificateId (\ s a -> s{_desCertificateId = a});
instance AWSRequest DescribeCertificate where
type Rs DescribeCertificate =
DescribeCertificateResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
DescribeCertificateResponse' <$>
(x .?> "certificateDescription") <*>
(pure (fromEnum s)))
instance Hashable DescribeCertificate
instance NFData DescribeCertificate
instance ToHeaders DescribeCertificate where
toHeaders = const mempty
instance ToPath DescribeCertificate where
toPath DescribeCertificate'{..}
= mconcat ["/certificates/", toBS _desCertificateId]
instance ToQuery DescribeCertificate where
toQuery = const mempty
data DescribeCertificateResponse = DescribeCertificateResponse'
{ _dcrsCertificateDescription :: !(Maybe CertificateDescription)
, _dcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCertificateResponse
:: Int
-> DescribeCertificateResponse
describeCertificateResponse pResponseStatus_ =
DescribeCertificateResponse'
{ _dcrsCertificateDescription = Nothing
, _dcrsResponseStatus = pResponseStatus_
}
dcrsCertificateDescription :: Lens' DescribeCertificateResponse (Maybe CertificateDescription)
dcrsCertificateDescription = lens _dcrsCertificateDescription (\ s a -> s{_dcrsCertificateDescription = a});
dcrsResponseStatus :: Lens' DescribeCertificateResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
instance NFData DescribeCertificateResponse