module Network.AWS.Greengrass.UpdateGroup
(
updateGroup
, UpdateGroup
, ugName
, ugGroupId
, updateGroupResponse
, UpdateGroupResponse
, ugrsResponseStatus
) 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 UpdateGroup = UpdateGroup'
{ _ugName :: !(Maybe Text)
, _ugGroupId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateGroup
:: Text
-> UpdateGroup
updateGroup pGroupId_ = UpdateGroup' {_ugName = Nothing, _ugGroupId = pGroupId_}
ugName :: Lens' UpdateGroup (Maybe Text)
ugName = lens _ugName (\ s a -> s{_ugName = a});
ugGroupId :: Lens' UpdateGroup Text
ugGroupId = lens _ugGroupId (\ s a -> s{_ugGroupId = a});
instance AWSRequest UpdateGroup where
type Rs UpdateGroup = UpdateGroupResponse
request = putJSON greengrass
response
= receiveEmpty
(\ s h x ->
UpdateGroupResponse' <$> (pure (fromEnum s)))
instance Hashable UpdateGroup where
instance NFData UpdateGroup where
instance ToHeaders UpdateGroup where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateGroup where
toJSON UpdateGroup'{..}
= object (catMaybes [("Name" .=) <$> _ugName])
instance ToPath UpdateGroup where
toPath UpdateGroup'{..}
= mconcat ["/greengrass/groups/", toBS _ugGroupId]
instance ToQuery UpdateGroup where
toQuery = const mempty
newtype UpdateGroupResponse = UpdateGroupResponse'
{ _ugrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateGroupResponse
:: Int
-> UpdateGroupResponse
updateGroupResponse pResponseStatus_ =
UpdateGroupResponse' {_ugrsResponseStatus = pResponseStatus_}
ugrsResponseStatus :: Lens' UpdateGroupResponse Int
ugrsResponseStatus = lens _ugrsResponseStatus (\ s a -> s{_ugrsResponseStatus = a});
instance NFData UpdateGroupResponse where