module Network.AWS.CodeCommit.BatchGetRepositories
(
batchGetRepositories
, BatchGetRepositories
, bgrRepositoryNames
, batchGetRepositoriesResponse
, BatchGetRepositoriesResponse
, bgrrsRepositories
, bgrrsRepositoriesNotFound
, bgrrsStatus
) where
import Network.AWS.CodeCommit.Types
import Network.AWS.CodeCommit.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype BatchGetRepositories = BatchGetRepositories'
{ _bgrRepositoryNames :: [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
batchGetRepositories
:: BatchGetRepositories
batchGetRepositories =
BatchGetRepositories'
{ _bgrRepositoryNames = mempty
}
bgrRepositoryNames :: Lens' BatchGetRepositories [Text]
bgrRepositoryNames = lens _bgrRepositoryNames (\ s a -> s{_bgrRepositoryNames = a}) . _Coerce;
instance AWSRequest BatchGetRepositories where
type Rs BatchGetRepositories =
BatchGetRepositoriesResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
BatchGetRepositoriesResponse' <$>
(x .?> "repositories" .!@ mempty) <*>
(x .?> "repositoriesNotFound" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders BatchGetRepositories where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.BatchGetRepositories" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON BatchGetRepositories where
toJSON BatchGetRepositories'{..}
= object
(catMaybes
[Just ("repositoryNames" .= _bgrRepositoryNames)])
instance ToPath BatchGetRepositories where
toPath = const "/"
instance ToQuery BatchGetRepositories where
toQuery = const mempty
data BatchGetRepositoriesResponse = BatchGetRepositoriesResponse'
{ _bgrrsRepositories :: !(Maybe [RepositoryMetadata])
, _bgrrsRepositoriesNotFound :: !(Maybe [Text])
, _bgrrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
batchGetRepositoriesResponse
:: Int
-> BatchGetRepositoriesResponse
batchGetRepositoriesResponse pStatus_ =
BatchGetRepositoriesResponse'
{ _bgrrsRepositories = Nothing
, _bgrrsRepositoriesNotFound = Nothing
, _bgrrsStatus = pStatus_
}
bgrrsRepositories :: Lens' BatchGetRepositoriesResponse [RepositoryMetadata]
bgrrsRepositories = lens _bgrrsRepositories (\ s a -> s{_bgrrsRepositories = a}) . _Default . _Coerce;
bgrrsRepositoriesNotFound :: Lens' BatchGetRepositoriesResponse [Text]
bgrrsRepositoriesNotFound = lens _bgrrsRepositoriesNotFound (\ s a -> s{_bgrrsRepositoriesNotFound = a}) . _Default . _Coerce;
bgrrsStatus :: Lens' BatchGetRepositoriesResponse Int
bgrrsStatus = lens _bgrrsStatus (\ s a -> s{_bgrrsStatus = a});