{-# 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.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 where
instance NFData DescribeCertificate where
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 where