{-# 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.ElasticTranscoder.ListJobsByStatus
(
listJobsByStatus
, ListJobsByStatus
, ljbsAscending
, ljbsPageToken
, ljbsStatus
, listJobsByStatusResponse
, ListJobsByStatusResponse
, ljbsrsNextPageToken
, ljbsrsJobs
, ljbsrsResponseStatus
) where
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.ElasticTranscoder.Types.Product
import Network.AWS.Lens
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 Rs ListJobsByStatus = ListJobsByStatusResponse
request = get elasticTranscoder
response
= receiveJSON
(\ s h x ->
ListJobsByStatusResponse' <$>
(x .?> "NextPageToken") <*> (x .?> "Jobs" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListJobsByStatus where
instance NFData ListJobsByStatus where
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'])
, _ljbsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listJobsByStatusResponse
:: Int
-> ListJobsByStatusResponse
listJobsByStatusResponse pResponseStatus_ =
ListJobsByStatusResponse'
{ _ljbsrsNextPageToken = Nothing
, _ljbsrsJobs = Nothing
, _ljbsrsResponseStatus = pResponseStatus_
}
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
ljbsrsResponseStatus :: Lens' ListJobsByStatusResponse Int
ljbsrsResponseStatus = lens _ljbsrsResponseStatus (\ s a -> s{_ljbsrsResponseStatus = a})
instance NFData ListJobsByStatusResponse where