module Network.AWS.Greengrass.GetGroupCertificateConfiguration
(
getGroupCertificateConfiguration
, GetGroupCertificateConfiguration
, ggccGroupId
, getGroupCertificateConfigurationResponse
, GetGroupCertificateConfigurationResponse
, ggccrsCertificateAuthorityExpiryInMilliseconds
, ggccrsGroupId
, ggccrsCertificateExpiryInMilliseconds
, ggccrsResponseStatus
) 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
newtype GetGroupCertificateConfiguration = GetGroupCertificateConfiguration'
{ _ggccGroupId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getGroupCertificateConfiguration
:: Text
-> GetGroupCertificateConfiguration
getGroupCertificateConfiguration pGroupId_ =
GetGroupCertificateConfiguration' {_ggccGroupId = pGroupId_}
ggccGroupId :: Lens' GetGroupCertificateConfiguration Text
ggccGroupId = lens _ggccGroupId (\ s a -> s{_ggccGroupId = a});
instance AWSRequest GetGroupCertificateConfiguration
where
type Rs GetGroupCertificateConfiguration =
GetGroupCertificateConfigurationResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetGroupCertificateConfigurationResponse' <$>
(x .?> "CertificateAuthorityExpiryInMilliseconds")
<*> (x .?> "GroupId")
<*> (x .?> "CertificateExpiryInMilliseconds")
<*> (pure (fromEnum s)))
instance Hashable GetGroupCertificateConfiguration
where
instance NFData GetGroupCertificateConfiguration
where
instance ToHeaders GetGroupCertificateConfiguration
where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetGroupCertificateConfiguration
where
toPath GetGroupCertificateConfiguration'{..}
= mconcat
["/greengrass/groups/", toBS _ggccGroupId,
"/certificateauthorities/configuration/expiry"]
instance ToQuery GetGroupCertificateConfiguration
where
toQuery = const mempty
data GetGroupCertificateConfigurationResponse = GetGroupCertificateConfigurationResponse'
{ _ggccrsCertificateAuthorityExpiryInMilliseconds :: !(Maybe Text)
, _ggccrsGroupId :: !(Maybe Text)
, _ggccrsCertificateExpiryInMilliseconds :: !(Maybe Text)
, _ggccrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getGroupCertificateConfigurationResponse
:: Int
-> GetGroupCertificateConfigurationResponse
getGroupCertificateConfigurationResponse pResponseStatus_ =
GetGroupCertificateConfigurationResponse'
{ _ggccrsCertificateAuthorityExpiryInMilliseconds = Nothing
, _ggccrsGroupId = Nothing
, _ggccrsCertificateExpiryInMilliseconds = Nothing
, _ggccrsResponseStatus = pResponseStatus_
}
ggccrsCertificateAuthorityExpiryInMilliseconds :: Lens' GetGroupCertificateConfigurationResponse (Maybe Text)
ggccrsCertificateAuthorityExpiryInMilliseconds = lens _ggccrsCertificateAuthorityExpiryInMilliseconds (\ s a -> s{_ggccrsCertificateAuthorityExpiryInMilliseconds = a});
ggccrsGroupId :: Lens' GetGroupCertificateConfigurationResponse (Maybe Text)
ggccrsGroupId = lens _ggccrsGroupId (\ s a -> s{_ggccrsGroupId = a});
ggccrsCertificateExpiryInMilliseconds :: Lens' GetGroupCertificateConfigurationResponse (Maybe Text)
ggccrsCertificateExpiryInMilliseconds = lens _ggccrsCertificateExpiryInMilliseconds (\ s a -> s{_ggccrsCertificateExpiryInMilliseconds = a});
ggccrsResponseStatus :: Lens' GetGroupCertificateConfigurationResponse Int
ggccrsResponseStatus = lens _ggccrsResponseStatus (\ s a -> s{_ggccrsResponseStatus = a});
instance NFData
GetGroupCertificateConfigurationResponse
where