{-# 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.ListResourceDefinitions
(
listResourceDefinitions
, ListResourceDefinitions
, lrdNextToken
, lrdMaxResults
, listResourceDefinitionsResponse
, ListResourceDefinitionsResponse
, lrdrsNextToken
, lrdrsDefinitions
, lrdrsResponseStatus
) 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 ListResourceDefinitions = ListResourceDefinitions'
{ _lrdNextToken :: !(Maybe Text)
, _lrdMaxResults :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listResourceDefinitions
:: ListResourceDefinitions
listResourceDefinitions =
ListResourceDefinitions' {_lrdNextToken = Nothing, _lrdMaxResults = Nothing}
lrdNextToken :: Lens' ListResourceDefinitions (Maybe Text)
lrdNextToken = lens _lrdNextToken (\ s a -> s{_lrdNextToken = a})
lrdMaxResults :: Lens' ListResourceDefinitions (Maybe Text)
lrdMaxResults = lens _lrdMaxResults (\ s a -> s{_lrdMaxResults = a})
instance AWSRequest ListResourceDefinitions where
type Rs ListResourceDefinitions =
ListResourceDefinitionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListResourceDefinitionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Definitions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListResourceDefinitions where
instance NFData ListResourceDefinitions where
instance ToHeaders ListResourceDefinitions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListResourceDefinitions where
toPath = const "/greengrass/definition/resources"
instance ToQuery ListResourceDefinitions where
toQuery ListResourceDefinitions'{..}
= mconcat
["NextToken" =: _lrdNextToken,
"MaxResults" =: _lrdMaxResults]
data ListResourceDefinitionsResponse = ListResourceDefinitionsResponse'
{ _lrdrsNextToken :: !(Maybe Text)
, _lrdrsDefinitions :: !(Maybe [DefinitionInformation])
, _lrdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listResourceDefinitionsResponse
:: Int
-> ListResourceDefinitionsResponse
listResourceDefinitionsResponse pResponseStatus_ =
ListResourceDefinitionsResponse'
{ _lrdrsNextToken = Nothing
, _lrdrsDefinitions = Nothing
, _lrdrsResponseStatus = pResponseStatus_
}
lrdrsNextToken :: Lens' ListResourceDefinitionsResponse (Maybe Text)
lrdrsNextToken = lens _lrdrsNextToken (\ s a -> s{_lrdrsNextToken = a})
lrdrsDefinitions :: Lens' ListResourceDefinitionsResponse [DefinitionInformation]
lrdrsDefinitions = lens _lrdrsDefinitions (\ s a -> s{_lrdrsDefinitions = a}) . _Default . _Coerce
lrdrsResponseStatus :: Lens' ListResourceDefinitionsResponse Int
lrdrsResponseStatus = lens _lrdrsResponseStatus (\ s a -> s{_lrdrsResponseStatus = a})
instance NFData ListResourceDefinitionsResponse where