{-# 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.ListGroups
(
listGroups
, ListGroups
, lgNextToken
, lgMaxResults
, listGroupsResponse
, ListGroupsResponse
, lgrsGroups
, lgrsNextToken
, lgrsResponseStatus
) 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 ListGroups = ListGroups'
{ _lgNextToken :: !(Maybe Text)
, _lgMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listGroups
:: ListGroups
listGroups = ListGroups' {_lgNextToken = Nothing, _lgMaxResults = Nothing}
lgNextToken :: Lens' ListGroups (Maybe Text)
lgNextToken = lens _lgNextToken (\ s a -> s{_lgNextToken = a})
lgMaxResults :: Lens' ListGroups (Maybe Natural)
lgMaxResults = lens _lgMaxResults (\ s a -> s{_lgMaxResults = a}) . mapping _Nat
instance AWSPager ListGroups where
page rq rs
| stop (rs ^. lgrsNextToken) = Nothing
| stop (rs ^. lgrsGroups) = Nothing
| otherwise =
Just $ rq & lgNextToken .~ rs ^. lgrsNextToken
instance AWSRequest ListGroups where
type Rs ListGroups = ListGroupsResponse
request = get resourceGroups
response
= receiveJSON
(\ s h x ->
ListGroupsResponse' <$>
(x .?> "Groups" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListGroups where
instance NFData ListGroups where
instance ToHeaders ListGroups where
toHeaders = const mempty
instance ToPath ListGroups where
toPath = const "/groups"
instance ToQuery ListGroups where
toQuery ListGroups'{..}
= mconcat
["nextToken" =: _lgNextToken,
"maxResults" =: _lgMaxResults]
data ListGroupsResponse = ListGroupsResponse'
{ _lgrsGroups :: !(Maybe [Group])
, _lgrsNextToken :: !(Maybe Text)
, _lgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listGroupsResponse
:: Int
-> ListGroupsResponse
listGroupsResponse pResponseStatus_ =
ListGroupsResponse'
{ _lgrsGroups = Nothing
, _lgrsNextToken = Nothing
, _lgrsResponseStatus = pResponseStatus_
}
lgrsGroups :: Lens' ListGroupsResponse [Group]
lgrsGroups = lens _lgrsGroups (\ s a -> s{_lgrsGroups = a}) . _Default . _Coerce
lgrsNextToken :: Lens' ListGroupsResponse (Maybe Text)
lgrsNextToken = lens _lgrsNextToken (\ s a -> s{_lgrsNextToken = a})
lgrsResponseStatus :: Lens' ListGroupsResponse Int
lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a})
instance NFData ListGroupsResponse where