module Network.AWS.EMR.ListInstanceGroups
(
listInstanceGroups
, ListInstanceGroups
, ligMarker
, ligClusterId
, listInstanceGroupsResponse
, ListInstanceGroupsResponse
, ligrsMarker
, ligrsInstanceGroups
, ligrsResponseStatus
) where
import Network.AWS.EMR.Types
import Network.AWS.EMR.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListInstanceGroups = ListInstanceGroups'
{ _ligMarker :: !(Maybe Text)
, _ligClusterId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listInstanceGroups
:: Text
-> ListInstanceGroups
listInstanceGroups pClusterId_ =
ListInstanceGroups'
{ _ligMarker = Nothing
, _ligClusterId = pClusterId_
}
ligMarker :: Lens' ListInstanceGroups (Maybe Text)
ligMarker = lens _ligMarker (\ s a -> s{_ligMarker = a});
ligClusterId :: Lens' ListInstanceGroups Text
ligClusterId = lens _ligClusterId (\ s a -> s{_ligClusterId = a});
instance AWSPager ListInstanceGroups where
page rq rs
| stop (rs ^. ligrsMarker) = Nothing
| stop (rs ^. ligrsInstanceGroups) = Nothing
| otherwise =
Just $ rq & ligMarker .~ rs ^. ligrsMarker
instance AWSRequest ListInstanceGroups where
type Rs ListInstanceGroups =
ListInstanceGroupsResponse
request = postJSON eMR
response
= receiveJSON
(\ s h x ->
ListInstanceGroupsResponse' <$>
(x .?> "Marker") <*>
(x .?> "InstanceGroups" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders ListInstanceGroups where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.ListInstanceGroups" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListInstanceGroups where
toJSON ListInstanceGroups'{..}
= object
(catMaybes
[("Marker" .=) <$> _ligMarker,
Just ("ClusterId" .= _ligClusterId)])
instance ToPath ListInstanceGroups where
toPath = const "/"
instance ToQuery ListInstanceGroups where
toQuery = const mempty
data ListInstanceGroupsResponse = ListInstanceGroupsResponse'
{ _ligrsMarker :: !(Maybe Text)
, _ligrsInstanceGroups :: !(Maybe [InstanceGroup])
, _ligrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listInstanceGroupsResponse
:: Int
-> ListInstanceGroupsResponse
listInstanceGroupsResponse pResponseStatus_ =
ListInstanceGroupsResponse'
{ _ligrsMarker = Nothing
, _ligrsInstanceGroups = Nothing
, _ligrsResponseStatus = pResponseStatus_
}
ligrsMarker :: Lens' ListInstanceGroupsResponse (Maybe Text)
ligrsMarker = lens _ligrsMarker (\ s a -> s{_ligrsMarker = a});
ligrsInstanceGroups :: Lens' ListInstanceGroupsResponse [InstanceGroup]
ligrsInstanceGroups = lens _ligrsInstanceGroups (\ s a -> s{_ligrsInstanceGroups = a}) . _Default . _Coerce;
ligrsResponseStatus :: Lens' ListInstanceGroupsResponse Int
ligrsResponseStatus = lens _ligrsResponseStatus (\ s a -> s{_ligrsResponseStatus = a});