{-# 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.Greengrass.UpdateGroupCertificateConfiguration
(
updateGroupCertificateConfiguration
, UpdateGroupCertificateConfiguration
, ugccCertificateExpiryInMilliseconds
, ugccGroupId
, updateGroupCertificateConfigurationResponse
, UpdateGroupCertificateConfigurationResponse
, ugccrsCertificateAuthorityExpiryInMilliseconds
, ugccrsGroupId
, ugccrsCertificateExpiryInMilliseconds
, ugccrsResponseStatus
) 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 UpdateGroupCertificateConfiguration = UpdateGroupCertificateConfiguration'
{ _ugccCertificateExpiryInMilliseconds :: !(Maybe Text)
, _ugccGroupId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateGroupCertificateConfiguration
:: Text
-> UpdateGroupCertificateConfiguration
updateGroupCertificateConfiguration pGroupId_ =
UpdateGroupCertificateConfiguration'
{_ugccCertificateExpiryInMilliseconds = Nothing, _ugccGroupId = pGroupId_}
ugccCertificateExpiryInMilliseconds :: Lens' UpdateGroupCertificateConfiguration (Maybe Text)
ugccCertificateExpiryInMilliseconds = lens _ugccCertificateExpiryInMilliseconds (\ s a -> s{_ugccCertificateExpiryInMilliseconds = a})
ugccGroupId :: Lens' UpdateGroupCertificateConfiguration Text
ugccGroupId = lens _ugccGroupId (\ s a -> s{_ugccGroupId = a})
instance AWSRequest
UpdateGroupCertificateConfiguration
where
type Rs UpdateGroupCertificateConfiguration =
UpdateGroupCertificateConfigurationResponse
request = putJSON greengrass
response
= receiveJSON
(\ s h x ->
UpdateGroupCertificateConfigurationResponse' <$>
(x .?> "CertificateAuthorityExpiryInMilliseconds")
<*> (x .?> "GroupId")
<*> (x .?> "CertificateExpiryInMilliseconds")
<*> (pure (fromEnum s)))
instance Hashable UpdateGroupCertificateConfiguration
where
instance NFData UpdateGroupCertificateConfiguration
where
instance ToHeaders
UpdateGroupCertificateConfiguration
where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateGroupCertificateConfiguration
where
toJSON UpdateGroupCertificateConfiguration'{..}
= object
(catMaybes
[("CertificateExpiryInMilliseconds" .=) <$>
_ugccCertificateExpiryInMilliseconds])
instance ToPath UpdateGroupCertificateConfiguration
where
toPath UpdateGroupCertificateConfiguration'{..}
= mconcat
["/greengrass/groups/", toBS _ugccGroupId,
"/certificateauthorities/configuration/expiry"]
instance ToQuery UpdateGroupCertificateConfiguration
where
toQuery = const mempty
data UpdateGroupCertificateConfigurationResponse = UpdateGroupCertificateConfigurationResponse'
{ _ugccrsCertificateAuthorityExpiryInMilliseconds :: !(Maybe Text)
, _ugccrsGroupId :: !(Maybe Text)
, _ugccrsCertificateExpiryInMilliseconds :: !(Maybe Text)
, _ugccrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateGroupCertificateConfigurationResponse
:: Int
-> UpdateGroupCertificateConfigurationResponse
updateGroupCertificateConfigurationResponse pResponseStatus_ =
UpdateGroupCertificateConfigurationResponse'
{ _ugccrsCertificateAuthorityExpiryInMilliseconds = Nothing
, _ugccrsGroupId = Nothing
, _ugccrsCertificateExpiryInMilliseconds = Nothing
, _ugccrsResponseStatus = pResponseStatus_
}
ugccrsCertificateAuthorityExpiryInMilliseconds :: Lens' UpdateGroupCertificateConfigurationResponse (Maybe Text)
ugccrsCertificateAuthorityExpiryInMilliseconds = lens _ugccrsCertificateAuthorityExpiryInMilliseconds (\ s a -> s{_ugccrsCertificateAuthorityExpiryInMilliseconds = a})
ugccrsGroupId :: Lens' UpdateGroupCertificateConfigurationResponse (Maybe Text)
ugccrsGroupId = lens _ugccrsGroupId (\ s a -> s{_ugccrsGroupId = a})
ugccrsCertificateExpiryInMilliseconds :: Lens' UpdateGroupCertificateConfigurationResponse (Maybe Text)
ugccrsCertificateExpiryInMilliseconds = lens _ugccrsCertificateExpiryInMilliseconds (\ s a -> s{_ugccrsCertificateExpiryInMilliseconds = a})
ugccrsResponseStatus :: Lens' UpdateGroupCertificateConfigurationResponse Int
ugccrsResponseStatus = lens _ugccrsResponseStatus (\ s a -> s{_ugccrsResponseStatus = a})
instance NFData
UpdateGroupCertificateConfigurationResponse
where