{-# 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.ListResourceDefinitionVersions
(
listResourceDefinitionVersions
, ListResourceDefinitionVersions
, lrdvNextToken
, lrdvMaxResults
, lrdvResourceDefinitionId
, listResourceDefinitionVersionsResponse
, ListResourceDefinitionVersionsResponse
, lrdvrsVersions
, lrdvrsNextToken
, lrdvrsResponseStatus
) 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 ListResourceDefinitionVersions = ListResourceDefinitionVersions'
{ _lrdvNextToken :: !(Maybe Text)
, _lrdvMaxResults :: !(Maybe Text)
, _lrdvResourceDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listResourceDefinitionVersions
:: Text
-> ListResourceDefinitionVersions
listResourceDefinitionVersions pResourceDefinitionId_ =
ListResourceDefinitionVersions'
{ _lrdvNextToken = Nothing
, _lrdvMaxResults = Nothing
, _lrdvResourceDefinitionId = pResourceDefinitionId_
}
lrdvNextToken :: Lens' ListResourceDefinitionVersions (Maybe Text)
lrdvNextToken = lens _lrdvNextToken (\ s a -> s{_lrdvNextToken = a})
lrdvMaxResults :: Lens' ListResourceDefinitionVersions (Maybe Text)
lrdvMaxResults = lens _lrdvMaxResults (\ s a -> s{_lrdvMaxResults = a})
lrdvResourceDefinitionId :: Lens' ListResourceDefinitionVersions Text
lrdvResourceDefinitionId = lens _lrdvResourceDefinitionId (\ s a -> s{_lrdvResourceDefinitionId = a})
instance AWSRequest ListResourceDefinitionVersions
where
type Rs ListResourceDefinitionVersions =
ListResourceDefinitionVersionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListResourceDefinitionVersionsResponse' <$>
(x .?> "Versions" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListResourceDefinitionVersions
where
instance NFData ListResourceDefinitionVersions where
instance ToHeaders ListResourceDefinitionVersions
where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListResourceDefinitionVersions where
toPath ListResourceDefinitionVersions'{..}
= mconcat
["/greengrass/definition/resources/",
toBS _lrdvResourceDefinitionId, "/versions"]
instance ToQuery ListResourceDefinitionVersions where
toQuery ListResourceDefinitionVersions'{..}
= mconcat
["NextToken" =: _lrdvNextToken,
"MaxResults" =: _lrdvMaxResults]
data ListResourceDefinitionVersionsResponse = ListResourceDefinitionVersionsResponse'
{ _lrdvrsVersions :: !(Maybe [VersionInformation])
, _lrdvrsNextToken :: !(Maybe Text)
, _lrdvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listResourceDefinitionVersionsResponse
:: Int
-> ListResourceDefinitionVersionsResponse
listResourceDefinitionVersionsResponse pResponseStatus_ =
ListResourceDefinitionVersionsResponse'
{ _lrdvrsVersions = Nothing
, _lrdvrsNextToken = Nothing
, _lrdvrsResponseStatus = pResponseStatus_
}
lrdvrsVersions :: Lens' ListResourceDefinitionVersionsResponse [VersionInformation]
lrdvrsVersions = lens _lrdvrsVersions (\ s a -> s{_lrdvrsVersions = a}) . _Default . _Coerce
lrdvrsNextToken :: Lens' ListResourceDefinitionVersionsResponse (Maybe Text)
lrdvrsNextToken = lens _lrdvrsNextToken (\ s a -> s{_lrdvrsNextToken = a})
lrdvrsResponseStatus :: Lens' ListResourceDefinitionVersionsResponse Int
lrdvrsResponseStatus = lens _lrdvrsResponseStatus (\ s a -> s{_lrdvrsResponseStatus = a})
instance NFData
ListResourceDefinitionVersionsResponse
where