{-# 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.CodeCommit.ListPullRequests
(
listPullRequests
, ListPullRequests
, lprAuthorARN
, lprNextToken
, lprPullRequestStatus
, lprMaxResults
, lprRepositoryName
, listPullRequestsResponse
, ListPullRequestsResponse
, lprrsNextToken
, lprrsResponseStatus
, lprrsPullRequestIds
) where
import Network.AWS.CodeCommit.Types
import Network.AWS.CodeCommit.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListPullRequests = ListPullRequests'
{ _lprAuthorARN :: !(Maybe Text)
, _lprNextToken :: !(Maybe Text)
, _lprPullRequestStatus :: !(Maybe PullRequestStatusEnum)
, _lprMaxResults :: !(Maybe Int)
, _lprRepositoryName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPullRequests
:: Text
-> ListPullRequests
listPullRequests pRepositoryName_ =
ListPullRequests'
{ _lprAuthorARN = Nothing
, _lprNextToken = Nothing
, _lprPullRequestStatus = Nothing
, _lprMaxResults = Nothing
, _lprRepositoryName = pRepositoryName_
}
lprAuthorARN :: Lens' ListPullRequests (Maybe Text)
lprAuthorARN = lens _lprAuthorARN (\ s a -> s{_lprAuthorARN = a})
lprNextToken :: Lens' ListPullRequests (Maybe Text)
lprNextToken = lens _lprNextToken (\ s a -> s{_lprNextToken = a})
lprPullRequestStatus :: Lens' ListPullRequests (Maybe PullRequestStatusEnum)
lprPullRequestStatus = lens _lprPullRequestStatus (\ s a -> s{_lprPullRequestStatus = a})
lprMaxResults :: Lens' ListPullRequests (Maybe Int)
lprMaxResults = lens _lprMaxResults (\ s a -> s{_lprMaxResults = a})
lprRepositoryName :: Lens' ListPullRequests Text
lprRepositoryName = lens _lprRepositoryName (\ s a -> s{_lprRepositoryName = a})
instance AWSPager ListPullRequests where
page rq rs
| stop (rs ^. lprrsNextToken) = Nothing
| stop (rs ^. lprrsPullRequestIds) = Nothing
| otherwise =
Just $ rq & lprNextToken .~ rs ^. lprrsNextToken
instance AWSRequest ListPullRequests where
type Rs ListPullRequests = ListPullRequestsResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
ListPullRequestsResponse' <$>
(x .?> "nextToken") <*> (pure (fromEnum s)) <*>
(x .?> "pullRequestIds" .!@ mempty))
instance Hashable ListPullRequests where
instance NFData ListPullRequests where
instance ToHeaders ListPullRequests where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.ListPullRequests" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListPullRequests where
toJSON ListPullRequests'{..}
= object
(catMaybes
[("authorArn" .=) <$> _lprAuthorARN,
("nextToken" .=) <$> _lprNextToken,
("pullRequestStatus" .=) <$> _lprPullRequestStatus,
("maxResults" .=) <$> _lprMaxResults,
Just ("repositoryName" .= _lprRepositoryName)])
instance ToPath ListPullRequests where
toPath = const "/"
instance ToQuery ListPullRequests where
toQuery = const mempty
data ListPullRequestsResponse = ListPullRequestsResponse'
{ _lprrsNextToken :: !(Maybe Text)
, _lprrsResponseStatus :: !Int
, _lprrsPullRequestIds :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPullRequestsResponse
:: Int
-> ListPullRequestsResponse
listPullRequestsResponse pResponseStatus_ =
ListPullRequestsResponse'
{ _lprrsNextToken = Nothing
, _lprrsResponseStatus = pResponseStatus_
, _lprrsPullRequestIds = mempty
}
lprrsNextToken :: Lens' ListPullRequestsResponse (Maybe Text)
lprrsNextToken = lens _lprrsNextToken (\ s a -> s{_lprrsNextToken = a})
lprrsResponseStatus :: Lens' ListPullRequestsResponse Int
lprrsResponseStatus = lens _lprrsResponseStatus (\ s a -> s{_lprrsResponseStatus = a})
lprrsPullRequestIds :: Lens' ListPullRequestsResponse [Text]
lprrsPullRequestIds = lens _lprrsPullRequestIds (\ s a -> s{_lprrsPullRequestIds = a}) . _Coerce
instance NFData ListPullRequestsResponse where