module Network.AWS.Greengrass.GetGroupCertificateAuthority
(
getGroupCertificateAuthority
, GetGroupCertificateAuthority
, ggcaCertificateAuthorityId
, ggcaGroupId
, getGroupCertificateAuthorityResponse
, GetGroupCertificateAuthorityResponse
, ggcarsPemEncodedCertificate
, ggcarsGroupCertificateAuthorityARN
, ggcarsGroupCertificateAuthorityId
, ggcarsResponseStatus
) where
import Network.AWS.Greengrass.Types
import Network.AWS.Greengrass.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetGroupCertificateAuthority = GetGroupCertificateAuthority'
{ _ggcaCertificateAuthorityId :: !Text
, _ggcaGroupId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getGroupCertificateAuthority
:: Text
-> Text
-> GetGroupCertificateAuthority
getGroupCertificateAuthority pCertificateAuthorityId_ pGroupId_ =
GetGroupCertificateAuthority'
{ _ggcaCertificateAuthorityId = pCertificateAuthorityId_
, _ggcaGroupId = pGroupId_
}
ggcaCertificateAuthorityId :: Lens' GetGroupCertificateAuthority Text
ggcaCertificateAuthorityId = lens _ggcaCertificateAuthorityId (\ s a -> s{_ggcaCertificateAuthorityId = a});
ggcaGroupId :: Lens' GetGroupCertificateAuthority Text
ggcaGroupId = lens _ggcaGroupId (\ s a -> s{_ggcaGroupId = a});
instance AWSRequest GetGroupCertificateAuthority
where
type Rs GetGroupCertificateAuthority =
GetGroupCertificateAuthorityResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetGroupCertificateAuthorityResponse' <$>
(x .?> "PemEncodedCertificate") <*>
(x .?> "GroupCertificateAuthorityArn")
<*> (x .?> "GroupCertificateAuthorityId")
<*> (pure (fromEnum s)))
instance Hashable GetGroupCertificateAuthority where
instance NFData GetGroupCertificateAuthority where
instance ToHeaders GetGroupCertificateAuthority where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetGroupCertificateAuthority where
toPath GetGroupCertificateAuthority'{..}
= mconcat
["/greengrass/groups/", toBS _ggcaGroupId,
"/certificateauthorities/",
toBS _ggcaCertificateAuthorityId]
instance ToQuery GetGroupCertificateAuthority where
toQuery = const mempty
data GetGroupCertificateAuthorityResponse = GetGroupCertificateAuthorityResponse'
{ _ggcarsPemEncodedCertificate :: !(Maybe Text)
, _ggcarsGroupCertificateAuthorityARN :: !(Maybe Text)
, _ggcarsGroupCertificateAuthorityId :: !(Maybe Text)
, _ggcarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getGroupCertificateAuthorityResponse
:: Int
-> GetGroupCertificateAuthorityResponse
getGroupCertificateAuthorityResponse pResponseStatus_ =
GetGroupCertificateAuthorityResponse'
{ _ggcarsPemEncodedCertificate = Nothing
, _ggcarsGroupCertificateAuthorityARN = Nothing
, _ggcarsGroupCertificateAuthorityId = Nothing
, _ggcarsResponseStatus = pResponseStatus_
}
ggcarsPemEncodedCertificate :: Lens' GetGroupCertificateAuthorityResponse (Maybe Text)
ggcarsPemEncodedCertificate = lens _ggcarsPemEncodedCertificate (\ s a -> s{_ggcarsPemEncodedCertificate = a});
ggcarsGroupCertificateAuthorityARN :: Lens' GetGroupCertificateAuthorityResponse (Maybe Text)
ggcarsGroupCertificateAuthorityARN = lens _ggcarsGroupCertificateAuthorityARN (\ s a -> s{_ggcarsGroupCertificateAuthorityARN = a});
ggcarsGroupCertificateAuthorityId :: Lens' GetGroupCertificateAuthorityResponse (Maybe Text)
ggcarsGroupCertificateAuthorityId = lens _ggcarsGroupCertificateAuthorityId (\ s a -> s{_ggcarsGroupCertificateAuthorityId = a});
ggcarsResponseStatus :: Lens' GetGroupCertificateAuthorityResponse Int
ggcarsResponseStatus = lens _ggcarsResponseStatus (\ s a -> s{_ggcarsResponseStatus = a});
instance NFData GetGroupCertificateAuthorityResponse
where