module Network.AWS.Greengrass.ListLoggerDefinitionVersions
(
listLoggerDefinitionVersions
, ListLoggerDefinitionVersions
, lldvNextToken
, lldvMaxResults
, lldvLoggerDefinitionId
, listLoggerDefinitionVersionsResponse
, ListLoggerDefinitionVersionsResponse
, lldvrsVersions
, lldvrsNextToken
, lldvrsResponseStatus
) 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 ListLoggerDefinitionVersions = ListLoggerDefinitionVersions'
{ _lldvNextToken :: !(Maybe Text)
, _lldvMaxResults :: !(Maybe Text)
, _lldvLoggerDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listLoggerDefinitionVersions
:: Text
-> ListLoggerDefinitionVersions
listLoggerDefinitionVersions pLoggerDefinitionId_ =
ListLoggerDefinitionVersions'
{ _lldvNextToken = Nothing
, _lldvMaxResults = Nothing
, _lldvLoggerDefinitionId = pLoggerDefinitionId_
}
lldvNextToken :: Lens' ListLoggerDefinitionVersions (Maybe Text)
lldvNextToken = lens _lldvNextToken (\ s a -> s{_lldvNextToken = a});
lldvMaxResults :: Lens' ListLoggerDefinitionVersions (Maybe Text)
lldvMaxResults = lens _lldvMaxResults (\ s a -> s{_lldvMaxResults = a});
lldvLoggerDefinitionId :: Lens' ListLoggerDefinitionVersions Text
lldvLoggerDefinitionId = lens _lldvLoggerDefinitionId (\ s a -> s{_lldvLoggerDefinitionId = a});
instance AWSRequest ListLoggerDefinitionVersions
where
type Rs ListLoggerDefinitionVersions =
ListLoggerDefinitionVersionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListLoggerDefinitionVersionsResponse' <$>
(x .?> "Versions" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListLoggerDefinitionVersions where
instance NFData ListLoggerDefinitionVersions where
instance ToHeaders ListLoggerDefinitionVersions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListLoggerDefinitionVersions where
toPath ListLoggerDefinitionVersions'{..}
= mconcat
["/greengrass/definition/loggers/",
toBS _lldvLoggerDefinitionId, "/versions"]
instance ToQuery ListLoggerDefinitionVersions where
toQuery ListLoggerDefinitionVersions'{..}
= mconcat
["NextToken" =: _lldvNextToken,
"MaxResults" =: _lldvMaxResults]
data ListLoggerDefinitionVersionsResponse = ListLoggerDefinitionVersionsResponse'
{ _lldvrsVersions :: !(Maybe [VersionInformation])
, _lldvrsNextToken :: !(Maybe Text)
, _lldvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listLoggerDefinitionVersionsResponse
:: Int
-> ListLoggerDefinitionVersionsResponse
listLoggerDefinitionVersionsResponse pResponseStatus_ =
ListLoggerDefinitionVersionsResponse'
{ _lldvrsVersions = Nothing
, _lldvrsNextToken = Nothing
, _lldvrsResponseStatus = pResponseStatus_
}
lldvrsVersions :: Lens' ListLoggerDefinitionVersionsResponse [VersionInformation]
lldvrsVersions = lens _lldvrsVersions (\ s a -> s{_lldvrsVersions = a}) . _Default . _Coerce;
lldvrsNextToken :: Lens' ListLoggerDefinitionVersionsResponse (Maybe Text)
lldvrsNextToken = lens _lldvrsNextToken (\ s a -> s{_lldvrsNextToken = a});
lldvrsResponseStatus :: Lens' ListLoggerDefinitionVersionsResponse Int
lldvrsResponseStatus = lens _lldvrsResponseStatus (\ s a -> s{_lldvrsResponseStatus = a});
instance NFData ListLoggerDefinitionVersionsResponse
where