module Network.AWS.Greengrass.ListLoggerDefinitions
(
listLoggerDefinitions
, ListLoggerDefinitions
, lldNextToken
, lldMaxResults
, listLoggerDefinitionsResponse
, ListLoggerDefinitionsResponse
, lldrsNextToken
, lldrsDefinitions
, lldrsResponseStatus
) 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 ListLoggerDefinitions = ListLoggerDefinitions'
{ _lldNextToken :: !(Maybe Text)
, _lldMaxResults :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listLoggerDefinitions
:: ListLoggerDefinitions
listLoggerDefinitions =
ListLoggerDefinitions' {_lldNextToken = Nothing, _lldMaxResults = Nothing}
lldNextToken :: Lens' ListLoggerDefinitions (Maybe Text)
lldNextToken = lens _lldNextToken (\ s a -> s{_lldNextToken = a});
lldMaxResults :: Lens' ListLoggerDefinitions (Maybe Text)
lldMaxResults = lens _lldMaxResults (\ s a -> s{_lldMaxResults = a});
instance AWSRequest ListLoggerDefinitions where
type Rs ListLoggerDefinitions =
ListLoggerDefinitionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListLoggerDefinitionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Definitions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListLoggerDefinitions where
instance NFData ListLoggerDefinitions where
instance ToHeaders ListLoggerDefinitions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListLoggerDefinitions where
toPath = const "/greengrass/definition/loggers"
instance ToQuery ListLoggerDefinitions where
toQuery ListLoggerDefinitions'{..}
= mconcat
["NextToken" =: _lldNextToken,
"MaxResults" =: _lldMaxResults]
data ListLoggerDefinitionsResponse = ListLoggerDefinitionsResponse'
{ _lldrsNextToken :: !(Maybe Text)
, _lldrsDefinitions :: !(Maybe [DefinitionInformation])
, _lldrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listLoggerDefinitionsResponse
:: Int
-> ListLoggerDefinitionsResponse
listLoggerDefinitionsResponse pResponseStatus_ =
ListLoggerDefinitionsResponse'
{ _lldrsNextToken = Nothing
, _lldrsDefinitions = Nothing
, _lldrsResponseStatus = pResponseStatus_
}
lldrsNextToken :: Lens' ListLoggerDefinitionsResponse (Maybe Text)
lldrsNextToken = lens _lldrsNextToken (\ s a -> s{_lldrsNextToken = a});
lldrsDefinitions :: Lens' ListLoggerDefinitionsResponse [DefinitionInformation]
lldrsDefinitions = lens _lldrsDefinitions (\ s a -> s{_lldrsDefinitions = a}) . _Default . _Coerce;
lldrsResponseStatus :: Lens' ListLoggerDefinitionsResponse Int
lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a});
instance NFData ListLoggerDefinitionsResponse where