module Network.AWS.CodeCommit.GetRepository
(
getRepository
, GetRepository
, grRepositoryName
, getRepositoryResponse
, GetRepositoryResponse
, grrsRepositoryMetadata
, grrsResponseStatus
) where
import Network.AWS.CodeCommit.Types
import Network.AWS.CodeCommit.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetRepository = GetRepository'
{ _grRepositoryName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getRepository
:: Text
-> GetRepository
getRepository pRepositoryName_ =
GetRepository'
{ _grRepositoryName = pRepositoryName_
}
grRepositoryName :: Lens' GetRepository Text
grRepositoryName = lens _grRepositoryName (\ s a -> s{_grRepositoryName = a});
instance AWSRequest GetRepository where
type Rs GetRepository = GetRepositoryResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
GetRepositoryResponse' <$>
(x .?> "repositoryMetadata") <*> (pure (fromEnum s)))
instance Hashable GetRepository
instance NFData GetRepository
instance ToHeaders GetRepository where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.GetRepository" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetRepository where
toJSON GetRepository'{..}
= object
(catMaybes
[Just ("repositoryName" .= _grRepositoryName)])
instance ToPath GetRepository where
toPath = const "/"
instance ToQuery GetRepository where
toQuery = const mempty
data GetRepositoryResponse = GetRepositoryResponse'
{ _grrsRepositoryMetadata :: !(Maybe RepositoryMetadata)
, _grrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getRepositoryResponse
:: Int
-> GetRepositoryResponse
getRepositoryResponse pResponseStatus_ =
GetRepositoryResponse'
{ _grrsRepositoryMetadata = Nothing
, _grrsResponseStatus = pResponseStatus_
}
grrsRepositoryMetadata :: Lens' GetRepositoryResponse (Maybe RepositoryMetadata)
grrsRepositoryMetadata = lens _grrsRepositoryMetadata (\ s a -> s{_grrsRepositoryMetadata = a});
grrsResponseStatus :: Lens' GetRepositoryResponse Int
grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});
instance NFData GetRepositoryResponse