module Network.AWS.CodePipeline.ListPipelines
(
listPipelines
, ListPipelines
, lpNextToken
, listPipelinesResponse
, ListPipelinesResponse
, lprsPipelines
, lprsNextToken
, lprsStatus
) where
import Network.AWS.CodePipeline.Types
import Network.AWS.CodePipeline.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype ListPipelines = ListPipelines'
{ _lpNextToken :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listPipelines
:: ListPipelines
listPipelines =
ListPipelines'
{ _lpNextToken = Nothing
}
lpNextToken :: Lens' ListPipelines (Maybe Text)
lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a});
instance AWSRequest ListPipelines where
type Sv ListPipelines = CodePipeline
type Rs ListPipelines = ListPipelinesResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
ListPipelinesResponse' <$>
(x .?> "pipelines" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance ToHeaders ListPipelines where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.ListPipelines" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListPipelines where
toJSON ListPipelines'{..}
= object ["nextToken" .= _lpNextToken]
instance ToPath ListPipelines where
toPath = const "/"
instance ToQuery ListPipelines where
toQuery = const mempty
data ListPipelinesResponse = ListPipelinesResponse'
{ _lprsPipelines :: !(Maybe [PipelineSummary])
, _lprsNextToken :: !(Maybe Text)
, _lprsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listPipelinesResponse
:: Int
-> ListPipelinesResponse
listPipelinesResponse pStatus_ =
ListPipelinesResponse'
{ _lprsPipelines = Nothing
, _lprsNextToken = Nothing
, _lprsStatus = pStatus_
}
lprsPipelines :: Lens' ListPipelinesResponse [PipelineSummary]
lprsPipelines = lens _lprsPipelines (\ s a -> s{_lprsPipelines = a}) . _Default . _Coerce;
lprsNextToken :: Lens' ListPipelinesResponse (Maybe Text)
lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a});
lprsStatus :: Lens' ListPipelinesResponse Int
lprsStatus = lens _lprsStatus (\ s a -> s{_lprsStatus = a});