module Network.AWS.ElasticTranscoder.ListJobsByStatus
(
listJobsByStatus
, ListJobsByStatus
, ljbsAscending
, ljbsPageToken
, ljbsStatus
, listJobsByStatusResponse
, ListJobsByStatusResponse
, ljbsrsNextPageToken
, ljbsrsJobs
, ljbsrsStatus
) where
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.ElasticTranscoder.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListJobsByStatus = ListJobsByStatus'
{ _ljbsAscending :: !(Maybe Text)
, _ljbsPageToken :: !(Maybe Text)
, _ljbsStatus :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listJobsByStatus
:: Text
-> ListJobsByStatus
listJobsByStatus pStatus_ =
ListJobsByStatus'
{ _ljbsAscending = Nothing
, _ljbsPageToken = Nothing
, _ljbsStatus = pStatus_
}
ljbsAscending :: Lens' ListJobsByStatus (Maybe Text)
ljbsAscending = lens _ljbsAscending (\ s a -> s{_ljbsAscending = a});
ljbsPageToken :: Lens' ListJobsByStatus (Maybe Text)
ljbsPageToken = lens _ljbsPageToken (\ s a -> s{_ljbsPageToken = a});
ljbsStatus :: Lens' ListJobsByStatus Text
ljbsStatus = lens _ljbsStatus (\ s a -> s{_ljbsStatus = a});
instance AWSPager ListJobsByStatus where
page rq rs
| stop (rs ^. ljbsrsNextPageToken) = Nothing
| stop (rs ^. ljbsrsJobs) = Nothing
| otherwise =
Just $ rq &
ljbsPageToken .~ rs ^. ljbsrsNextPageToken
instance AWSRequest ListJobsByStatus where
type Sv ListJobsByStatus = ElasticTranscoder
type Rs ListJobsByStatus = ListJobsByStatusResponse
request = get
response
= receiveJSON
(\ s h x ->
ListJobsByStatusResponse' <$>
(x .?> "NextPageToken") <*> (x .?> "Jobs" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders ListJobsByStatus where
toHeaders = const mempty
instance ToPath ListJobsByStatus where
toPath ListJobsByStatus'{..}
= mconcat
["/2012-09-25/jobsByStatus/", toBS _ljbsStatus]
instance ToQuery ListJobsByStatus where
toQuery ListJobsByStatus'{..}
= mconcat
["Ascending" =: _ljbsAscending,
"PageToken" =: _ljbsPageToken]
data ListJobsByStatusResponse = ListJobsByStatusResponse'
{ _ljbsrsNextPageToken :: !(Maybe Text)
, _ljbsrsJobs :: !(Maybe [Job'])
, _ljbsrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listJobsByStatusResponse
:: Int
-> ListJobsByStatusResponse
listJobsByStatusResponse pStatus_ =
ListJobsByStatusResponse'
{ _ljbsrsNextPageToken = Nothing
, _ljbsrsJobs = Nothing
, _ljbsrsStatus = pStatus_
}
ljbsrsNextPageToken :: Lens' ListJobsByStatusResponse (Maybe Text)
ljbsrsNextPageToken = lens _ljbsrsNextPageToken (\ s a -> s{_ljbsrsNextPageToken = a});
ljbsrsJobs :: Lens' ListJobsByStatusResponse [Job']
ljbsrsJobs = lens _ljbsrsJobs (\ s a -> s{_ljbsrsJobs = a}) . _Default . _Coerce;
ljbsrsStatus :: Lens' ListJobsByStatusResponse Int
ljbsrsStatus = lens _ljbsrsStatus (\ s a -> s{_ljbsrsStatus = a});