{-# 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.ResourceGroups.ListGroupResources
(
listGroupResources
, ListGroupResources
, lgrNextToken
, lgrMaxResults
, lgrGroupName
, listGroupResourcesResponse
, ListGroupResourcesResponse
, lgrrsNextToken
, lgrrsResourceIdentifiers
, lgrrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.ResourceGroups.Types
import Network.AWS.ResourceGroups.Types.Product
import Network.AWS.Response
data ListGroupResources = ListGroupResources'
{ _lgrNextToken :: !(Maybe Text)
, _lgrMaxResults :: !(Maybe Nat)
, _lgrGroupName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listGroupResources
:: Text
-> ListGroupResources
listGroupResources pGroupName_ =
ListGroupResources'
{ _lgrNextToken = Nothing
, _lgrMaxResults = Nothing
, _lgrGroupName = pGroupName_
}
lgrNextToken :: Lens' ListGroupResources (Maybe Text)
lgrNextToken = lens _lgrNextToken (\ s a -> s{_lgrNextToken = a})
lgrMaxResults :: Lens' ListGroupResources (Maybe Natural)
lgrMaxResults = lens _lgrMaxResults (\ s a -> s{_lgrMaxResults = a}) . mapping _Nat
lgrGroupName :: Lens' ListGroupResources Text
lgrGroupName = lens _lgrGroupName (\ s a -> s{_lgrGroupName = a})
instance AWSPager ListGroupResources where
page rq rs
| stop (rs ^. lgrrsNextToken) = Nothing
| stop (rs ^. lgrrsResourceIdentifiers) = Nothing
| otherwise =
Just $ rq & lgrNextToken .~ rs ^. lgrrsNextToken
instance AWSRequest ListGroupResources where
type Rs ListGroupResources =
ListGroupResourcesResponse
request = get resourceGroups
response
= receiveJSON
(\ s h x ->
ListGroupResourcesResponse' <$>
(x .?> "NextToken") <*>
(x .?> "ResourceIdentifiers" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListGroupResources where
instance NFData ListGroupResources where
instance ToHeaders ListGroupResources where
toHeaders = const mempty
instance ToPath ListGroupResources where
toPath ListGroupResources'{..}
= mconcat
["/groups/", toBS _lgrGroupName,
"/resource-identifiers"]
instance ToQuery ListGroupResources where
toQuery ListGroupResources'{..}
= mconcat
["nextToken" =: _lgrNextToken,
"maxResults" =: _lgrMaxResults]
data ListGroupResourcesResponse = ListGroupResourcesResponse'
{ _lgrrsNextToken :: !(Maybe Text)
, _lgrrsResourceIdentifiers :: !(Maybe [ResourceIdentifier])
, _lgrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listGroupResourcesResponse
:: Int
-> ListGroupResourcesResponse
listGroupResourcesResponse pResponseStatus_ =
ListGroupResourcesResponse'
{ _lgrrsNextToken = Nothing
, _lgrrsResourceIdentifiers = Nothing
, _lgrrsResponseStatus = pResponseStatus_
}
lgrrsNextToken :: Lens' ListGroupResourcesResponse (Maybe Text)
lgrrsNextToken = lens _lgrrsNextToken (\ s a -> s{_lgrrsNextToken = a})
lgrrsResourceIdentifiers :: Lens' ListGroupResourcesResponse [ResourceIdentifier]
lgrrsResourceIdentifiers = lens _lgrrsResourceIdentifiers (\ s a -> s{_lgrrsResourceIdentifiers = a}) . _Default . _Coerce
lgrrsResponseStatus :: Lens' ListGroupResourcesResponse Int
lgrrsResponseStatus = lens _lgrrsResponseStatus (\ s a -> s{_lgrrsResponseStatus = a})
instance NFData ListGroupResourcesResponse where