{-# 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.ListFunctionDefinitions
(
listFunctionDefinitions
, ListFunctionDefinitions
, lfdNextToken
, lfdMaxResults
, listFunctionDefinitionsResponse
, ListFunctionDefinitionsResponse
, lfdrsNextToken
, lfdrsDefinitions
, lfdrsResponseStatus
) 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 ListFunctionDefinitions = ListFunctionDefinitions'
{ _lfdNextToken :: !(Maybe Text)
, _lfdMaxResults :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listFunctionDefinitions
:: ListFunctionDefinitions
listFunctionDefinitions =
ListFunctionDefinitions' {_lfdNextToken = Nothing, _lfdMaxResults = Nothing}
lfdNextToken :: Lens' ListFunctionDefinitions (Maybe Text)
lfdNextToken = lens _lfdNextToken (\ s a -> s{_lfdNextToken = a})
lfdMaxResults :: Lens' ListFunctionDefinitions (Maybe Text)
lfdMaxResults = lens _lfdMaxResults (\ s a -> s{_lfdMaxResults = a})
instance AWSRequest ListFunctionDefinitions where
type Rs ListFunctionDefinitions =
ListFunctionDefinitionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListFunctionDefinitionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Definitions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListFunctionDefinitions where
instance NFData ListFunctionDefinitions where
instance ToHeaders ListFunctionDefinitions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListFunctionDefinitions where
toPath = const "/greengrass/definition/functions"
instance ToQuery ListFunctionDefinitions where
toQuery ListFunctionDefinitions'{..}
= mconcat
["NextToken" =: _lfdNextToken,
"MaxResults" =: _lfdMaxResults]
data ListFunctionDefinitionsResponse = ListFunctionDefinitionsResponse'
{ _lfdrsNextToken :: !(Maybe Text)
, _lfdrsDefinitions :: !(Maybe [DefinitionInformation])
, _lfdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listFunctionDefinitionsResponse
:: Int
-> ListFunctionDefinitionsResponse
listFunctionDefinitionsResponse pResponseStatus_ =
ListFunctionDefinitionsResponse'
{ _lfdrsNextToken = Nothing
, _lfdrsDefinitions = Nothing
, _lfdrsResponseStatus = pResponseStatus_
}
lfdrsNextToken :: Lens' ListFunctionDefinitionsResponse (Maybe Text)
lfdrsNextToken = lens _lfdrsNextToken (\ s a -> s{_lfdrsNextToken = a})
lfdrsDefinitions :: Lens' ListFunctionDefinitionsResponse [DefinitionInformation]
lfdrsDefinitions = lens _lfdrsDefinitions (\ s a -> s{_lfdrsDefinitions = a}) . _Default . _Coerce
lfdrsResponseStatus :: Lens' ListFunctionDefinitionsResponse Int
lfdrsResponseStatus = lens _lfdrsResponseStatus (\ s a -> s{_lfdrsResponseStatus = a})
instance NFData ListFunctionDefinitionsResponse where