module Network.AWS.Greengrass.GetGroupVersion
(
getGroupVersion
, GetGroupVersion
, ggvGroupVersionId
, ggvGroupId
, getGroupVersionResponse
, GetGroupVersionResponse
, ggvrsDefinition
, ggvrsARN
, ggvrsCreationTimestamp
, ggvrsVersion
, ggvrsId
, ggvrsResponseStatus
) 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 GetGroupVersion = GetGroupVersion'
{ _ggvGroupVersionId :: !Text
, _ggvGroupId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getGroupVersion
:: Text
-> Text
-> GetGroupVersion
getGroupVersion pGroupVersionId_ pGroupId_ =
GetGroupVersion'
{_ggvGroupVersionId = pGroupVersionId_, _ggvGroupId = pGroupId_}
ggvGroupVersionId :: Lens' GetGroupVersion Text
ggvGroupVersionId = lens _ggvGroupVersionId (\ s a -> s{_ggvGroupVersionId = a});
ggvGroupId :: Lens' GetGroupVersion Text
ggvGroupId = lens _ggvGroupId (\ s a -> s{_ggvGroupId = a});
instance AWSRequest GetGroupVersion where
type Rs GetGroupVersion = GetGroupVersionResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetGroupVersionResponse' <$>
(x .?> "Definition") <*> (x .?> "Arn") <*>
(x .?> "CreationTimestamp")
<*> (x .?> "Version")
<*> (x .?> "Id")
<*> (pure (fromEnum s)))
instance Hashable GetGroupVersion where
instance NFData GetGroupVersion where
instance ToHeaders GetGroupVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetGroupVersion where
toPath GetGroupVersion'{..}
= mconcat
["/greengrass/groups/", toBS _ggvGroupId,
"/versions/", toBS _ggvGroupVersionId]
instance ToQuery GetGroupVersion where
toQuery = const mempty
data GetGroupVersionResponse = GetGroupVersionResponse'
{ _ggvrsDefinition :: !(Maybe GroupVersion)
, _ggvrsARN :: !(Maybe Text)
, _ggvrsCreationTimestamp :: !(Maybe Text)
, _ggvrsVersion :: !(Maybe Text)
, _ggvrsId :: !(Maybe Text)
, _ggvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getGroupVersionResponse
:: Int
-> GetGroupVersionResponse
getGroupVersionResponse pResponseStatus_ =
GetGroupVersionResponse'
{ _ggvrsDefinition = Nothing
, _ggvrsARN = Nothing
, _ggvrsCreationTimestamp = Nothing
, _ggvrsVersion = Nothing
, _ggvrsId = Nothing
, _ggvrsResponseStatus = pResponseStatus_
}
ggvrsDefinition :: Lens' GetGroupVersionResponse (Maybe GroupVersion)
ggvrsDefinition = lens _ggvrsDefinition (\ s a -> s{_ggvrsDefinition = a});
ggvrsARN :: Lens' GetGroupVersionResponse (Maybe Text)
ggvrsARN = lens _ggvrsARN (\ s a -> s{_ggvrsARN = a});
ggvrsCreationTimestamp :: Lens' GetGroupVersionResponse (Maybe Text)
ggvrsCreationTimestamp = lens _ggvrsCreationTimestamp (\ s a -> s{_ggvrsCreationTimestamp = a});
ggvrsVersion :: Lens' GetGroupVersionResponse (Maybe Text)
ggvrsVersion = lens _ggvrsVersion (\ s a -> s{_ggvrsVersion = a});
ggvrsId :: Lens' GetGroupVersionResponse (Maybe Text)
ggvrsId = lens _ggvrsId (\ s a -> s{_ggvrsId = a});
ggvrsResponseStatus :: Lens' GetGroupVersionResponse Int
ggvrsResponseStatus = lens _ggvrsResponseStatus (\ s a -> s{_ggvrsResponseStatus = a});
instance NFData GetGroupVersionResponse where