module Network.AWS.Greengrass.ListDeviceDefinitions
(
listDeviceDefinitions
, ListDeviceDefinitions
, lddNextToken
, lddMaxResults
, listDeviceDefinitionsResponse
, ListDeviceDefinitionsResponse
, lddrsNextToken
, lddrsDefinitions
, lddrsResponseStatus
) 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 ListDeviceDefinitions = ListDeviceDefinitions'
{ _lddNextToken :: !(Maybe Text)
, _lddMaxResults :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDeviceDefinitions
:: ListDeviceDefinitions
listDeviceDefinitions =
ListDeviceDefinitions' {_lddNextToken = Nothing, _lddMaxResults = Nothing}
lddNextToken :: Lens' ListDeviceDefinitions (Maybe Text)
lddNextToken = lens _lddNextToken (\ s a -> s{_lddNextToken = a});
lddMaxResults :: Lens' ListDeviceDefinitions (Maybe Text)
lddMaxResults = lens _lddMaxResults (\ s a -> s{_lddMaxResults = a});
instance AWSRequest ListDeviceDefinitions where
type Rs ListDeviceDefinitions =
ListDeviceDefinitionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListDeviceDefinitionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Definitions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListDeviceDefinitions where
instance NFData ListDeviceDefinitions where
instance ToHeaders ListDeviceDefinitions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListDeviceDefinitions where
toPath = const "/greengrass/definition/devices"
instance ToQuery ListDeviceDefinitions where
toQuery ListDeviceDefinitions'{..}
= mconcat
["NextToken" =: _lddNextToken,
"MaxResults" =: _lddMaxResults]
data ListDeviceDefinitionsResponse = ListDeviceDefinitionsResponse'
{ _lddrsNextToken :: !(Maybe Text)
, _lddrsDefinitions :: !(Maybe [DefinitionInformation])
, _lddrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDeviceDefinitionsResponse
:: Int
-> ListDeviceDefinitionsResponse
listDeviceDefinitionsResponse pResponseStatus_ =
ListDeviceDefinitionsResponse'
{ _lddrsNextToken = Nothing
, _lddrsDefinitions = Nothing
, _lddrsResponseStatus = pResponseStatus_
}
lddrsNextToken :: Lens' ListDeviceDefinitionsResponse (Maybe Text)
lddrsNextToken = lens _lddrsNextToken (\ s a -> s{_lddrsNextToken = a});
lddrsDefinitions :: Lens' ListDeviceDefinitionsResponse [DefinitionInformation]
lddrsDefinitions = lens _lddrsDefinitions (\ s a -> s{_lddrsDefinitions = a}) . _Default . _Coerce;
lddrsResponseStatus :: Lens' ListDeviceDefinitionsResponse Int
lddrsResponseStatus = lens _lddrsResponseStatus (\ s a -> s{_lddrsResponseStatus = a});
instance NFData ListDeviceDefinitionsResponse where