{-# 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.ListPipelines
(
listPipelines
, ListPipelines
, lpAscending
, lpPageToken
, listPipelinesResponse
, ListPipelinesResponse
, lprsNextPageToken
, lprsPipelines
, lprsResponseStatus
) 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 ListPipelines = ListPipelines'
{ _lpAscending :: !(Maybe Text)
, _lpPageToken :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPipelines
:: ListPipelines
listPipelines = ListPipelines' {_lpAscending = Nothing, _lpPageToken = Nothing}
lpAscending :: Lens' ListPipelines (Maybe Text)
lpAscending = lens _lpAscending (\ s a -> s{_lpAscending = a})
lpPageToken :: Lens' ListPipelines (Maybe Text)
lpPageToken = lens _lpPageToken (\ s a -> s{_lpPageToken = a})
instance AWSPager ListPipelines where
page rq rs
| stop (rs ^. lprsNextPageToken) = Nothing
| stop (rs ^. lprsPipelines) = Nothing
| otherwise =
Just $ rq & lpPageToken .~ rs ^. lprsNextPageToken
instance AWSRequest ListPipelines where
type Rs ListPipelines = ListPipelinesResponse
request = get elasticTranscoder
response
= receiveJSON
(\ s h x ->
ListPipelinesResponse' <$>
(x .?> "NextPageToken") <*>
(x .?> "Pipelines" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListPipelines where
instance NFData ListPipelines where
instance ToHeaders ListPipelines where
toHeaders = const mempty
instance ToPath ListPipelines where
toPath = const "/2012-09-25/pipelines"
instance ToQuery ListPipelines where
toQuery ListPipelines'{..}
= mconcat
["Ascending" =: _lpAscending,
"PageToken" =: _lpPageToken]
data ListPipelinesResponse = ListPipelinesResponse'
{ _lprsNextPageToken :: !(Maybe Text)
, _lprsPipelines :: !(Maybe [Pipeline])
, _lprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPipelinesResponse
:: Int
-> ListPipelinesResponse
listPipelinesResponse pResponseStatus_ =
ListPipelinesResponse'
{ _lprsNextPageToken = Nothing
, _lprsPipelines = Nothing
, _lprsResponseStatus = pResponseStatus_
}
lprsNextPageToken :: Lens' ListPipelinesResponse (Maybe Text)
lprsNextPageToken = lens _lprsNextPageToken (\ s a -> s{_lprsNextPageToken = a})
lprsPipelines :: Lens' ListPipelinesResponse [Pipeline]
lprsPipelines = lens _lprsPipelines (\ s a -> s{_lprsPipelines = a}) . _Default . _Coerce
lprsResponseStatus :: Lens' ListPipelinesResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
instance NFData ListPipelinesResponse where