module Network.AWS.EMR.ListClusters
(
listClusters
, ListClusters
, lcCreatedAfter
, lcMarker
, lcClusterStates
, lcCreatedBefore
, listClustersResponse
, ListClustersResponse
, lcrsMarker
, lcrsClusters
, lcrsResponseStatus
) 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 ListClusters = ListClusters'
{ _lcCreatedAfter :: !(Maybe POSIX)
, _lcMarker :: !(Maybe Text)
, _lcClusterStates :: !(Maybe [ClusterState])
, _lcCreatedBefore :: !(Maybe POSIX)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listClusters
:: ListClusters
listClusters =
ListClusters'
{ _lcCreatedAfter = Nothing
, _lcMarker = Nothing
, _lcClusterStates = Nothing
, _lcCreatedBefore = Nothing
}
lcCreatedAfter :: Lens' ListClusters (Maybe UTCTime)
lcCreatedAfter = lens _lcCreatedAfter (\ s a -> s{_lcCreatedAfter = a}) . mapping _Time;
lcMarker :: Lens' ListClusters (Maybe Text)
lcMarker = lens _lcMarker (\ s a -> s{_lcMarker = a});
lcClusterStates :: Lens' ListClusters [ClusterState]
lcClusterStates = lens _lcClusterStates (\ s a -> s{_lcClusterStates = a}) . _Default . _Coerce;
lcCreatedBefore :: Lens' ListClusters (Maybe UTCTime)
lcCreatedBefore = lens _lcCreatedBefore (\ s a -> s{_lcCreatedBefore = a}) . mapping _Time;
instance AWSPager ListClusters where
page rq rs
| stop (rs ^. lcrsMarker) = Nothing
| stop (rs ^. lcrsClusters) = Nothing
| otherwise =
Just $ rq & lcMarker .~ rs ^. lcrsMarker
instance AWSRequest ListClusters where
type Rs ListClusters = ListClustersResponse
request = postJSON eMR
response
= receiveJSON
(\ s h x ->
ListClustersResponse' <$>
(x .?> "Marker") <*> (x .?> "Clusters" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders ListClusters where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.ListClusters" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListClusters where
toJSON ListClusters'{..}
= object
(catMaybes
[("CreatedAfter" .=) <$> _lcCreatedAfter,
("Marker" .=) <$> _lcMarker,
("ClusterStates" .=) <$> _lcClusterStates,
("CreatedBefore" .=) <$> _lcCreatedBefore])
instance ToPath ListClusters where
toPath = const "/"
instance ToQuery ListClusters where
toQuery = const mempty
data ListClustersResponse = ListClustersResponse'
{ _lcrsMarker :: !(Maybe Text)
, _lcrsClusters :: !(Maybe [ClusterSummary])
, _lcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listClustersResponse
:: Int
-> ListClustersResponse
listClustersResponse pResponseStatus_ =
ListClustersResponse'
{ _lcrsMarker = Nothing
, _lcrsClusters = Nothing
, _lcrsResponseStatus = pResponseStatus_
}
lcrsMarker :: Lens' ListClustersResponse (Maybe Text)
lcrsMarker = lens _lcrsMarker (\ s a -> s{_lcrsMarker = a});
lcrsClusters :: Lens' ListClustersResponse [ClusterSummary]
lcrsClusters = lens _lcrsClusters (\ s a -> s{_lcrsClusters = a}) . _Default . _Coerce;
lcrsResponseStatus :: Lens' ListClustersResponse Int
lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});