module Network.AWS.CodeCommit.ListRepositories
(
listRepositories
, ListRepositories
, lrNextToken
, lrOrder
, lrSortBy
, listRepositoriesResponse
, ListRepositoriesResponse
, lrrsRepositories
, lrrsNextToken
, lrrsResponseStatus
) 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 ListRepositories = ListRepositories'
{ _lrNextToken :: !(Maybe Text)
, _lrOrder :: !(Maybe OrderEnum)
, _lrSortBy :: !(Maybe SortByEnum)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listRepositories
:: ListRepositories
listRepositories =
ListRepositories'
{ _lrNextToken = Nothing
, _lrOrder = Nothing
, _lrSortBy = Nothing
}
lrNextToken :: Lens' ListRepositories (Maybe Text)
lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});
lrOrder :: Lens' ListRepositories (Maybe OrderEnum)
lrOrder = lens _lrOrder (\ s a -> s{_lrOrder = a});
lrSortBy :: Lens' ListRepositories (Maybe SortByEnum)
lrSortBy = lens _lrSortBy (\ s a -> s{_lrSortBy = a});
instance AWSPager ListRepositories where
page rq rs
| stop (rs ^. lrrsNextToken) = Nothing
| stop (rs ^. lrrsRepositories) = Nothing
| otherwise =
Just $ rq & lrNextToken .~ rs ^. lrrsNextToken
instance AWSRequest ListRepositories where
type Rs ListRepositories = ListRepositoriesResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
ListRepositoriesResponse' <$>
(x .?> "repositories" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListRepositories
instance NFData ListRepositories
instance ToHeaders ListRepositories where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.ListRepositories" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListRepositories where
toJSON ListRepositories'{..}
= object
(catMaybes
[("nextToken" .=) <$> _lrNextToken,
("order" .=) <$> _lrOrder,
("sortBy" .=) <$> _lrSortBy])
instance ToPath ListRepositories where
toPath = const "/"
instance ToQuery ListRepositories where
toQuery = const mempty
data ListRepositoriesResponse = ListRepositoriesResponse'
{ _lrrsRepositories :: !(Maybe [RepositoryNameIdPair])
, _lrrsNextToken :: !(Maybe Text)
, _lrrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listRepositoriesResponse
:: Int
-> ListRepositoriesResponse
listRepositoriesResponse pResponseStatus_ =
ListRepositoriesResponse'
{ _lrrsRepositories = Nothing
, _lrrsNextToken = Nothing
, _lrrsResponseStatus = pResponseStatus_
}
lrrsRepositories :: Lens' ListRepositoriesResponse [RepositoryNameIdPair]
lrrsRepositories = lens _lrrsRepositories (\ s a -> s{_lrrsRepositories = a}) . _Default . _Coerce;
lrrsNextToken :: Lens' ListRepositoriesResponse (Maybe Text)
lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});
lrrsResponseStatus :: Lens' ListRepositoriesResponse Int
lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
instance NFData ListRepositoriesResponse