{-# 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.ListSubscriptionDefinitions
(
listSubscriptionDefinitions
, ListSubscriptionDefinitions
, lsdNextToken
, lsdMaxResults
, listSubscriptionDefinitionsResponse
, ListSubscriptionDefinitionsResponse
, lsdrsNextToken
, lsdrsDefinitions
, lsdrsResponseStatus
) 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 ListSubscriptionDefinitions = ListSubscriptionDefinitions'
{ _lsdNextToken :: !(Maybe Text)
, _lsdMaxResults :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listSubscriptionDefinitions
:: ListSubscriptionDefinitions
listSubscriptionDefinitions =
ListSubscriptionDefinitions'
{_lsdNextToken = Nothing, _lsdMaxResults = Nothing}
lsdNextToken :: Lens' ListSubscriptionDefinitions (Maybe Text)
lsdNextToken = lens _lsdNextToken (\ s a -> s{_lsdNextToken = a})
lsdMaxResults :: Lens' ListSubscriptionDefinitions (Maybe Text)
lsdMaxResults = lens _lsdMaxResults (\ s a -> s{_lsdMaxResults = a})
instance AWSRequest ListSubscriptionDefinitions where
type Rs ListSubscriptionDefinitions =
ListSubscriptionDefinitionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListSubscriptionDefinitionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Definitions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListSubscriptionDefinitions where
instance NFData ListSubscriptionDefinitions where
instance ToHeaders ListSubscriptionDefinitions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListSubscriptionDefinitions where
toPath = const "/greengrass/definition/subscriptions"
instance ToQuery ListSubscriptionDefinitions where
toQuery ListSubscriptionDefinitions'{..}
= mconcat
["NextToken" =: _lsdNextToken,
"MaxResults" =: _lsdMaxResults]
data ListSubscriptionDefinitionsResponse = ListSubscriptionDefinitionsResponse'
{ _lsdrsNextToken :: !(Maybe Text)
, _lsdrsDefinitions :: !(Maybe [DefinitionInformation])
, _lsdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listSubscriptionDefinitionsResponse
:: Int
-> ListSubscriptionDefinitionsResponse
listSubscriptionDefinitionsResponse pResponseStatus_ =
ListSubscriptionDefinitionsResponse'
{ _lsdrsNextToken = Nothing
, _lsdrsDefinitions = Nothing
, _lsdrsResponseStatus = pResponseStatus_
}
lsdrsNextToken :: Lens' ListSubscriptionDefinitionsResponse (Maybe Text)
lsdrsNextToken = lens _lsdrsNextToken (\ s a -> s{_lsdrsNextToken = a})
lsdrsDefinitions :: Lens' ListSubscriptionDefinitionsResponse [DefinitionInformation]
lsdrsDefinitions = lens _lsdrsDefinitions (\ s a -> s{_lsdrsDefinitions = a}) . _Default . _Coerce
lsdrsResponseStatus :: Lens' ListSubscriptionDefinitionsResponse Int
lsdrsResponseStatus = lens _lsdrsResponseStatus (\ s a -> s{_lsdrsResponseStatus = a})
instance NFData ListSubscriptionDefinitionsResponse
where