module Network.AWS.CodeCommit.GetRepositoryTriggers
(
getRepositoryTriggers
, GetRepositoryTriggers
, grtRepositoryName
, getRepositoryTriggersResponse
, GetRepositoryTriggersResponse
, grtrsConfigurationId
, grtrsTriggers
, grtrsResponseStatus
) 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 GetRepositoryTriggers = GetRepositoryTriggers'
{ _grtRepositoryName :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getRepositoryTriggers
:: GetRepositoryTriggers
getRepositoryTriggers =
GetRepositoryTriggers'
{ _grtRepositoryName = Nothing
}
grtRepositoryName :: Lens' GetRepositoryTriggers (Maybe Text)
grtRepositoryName = lens _grtRepositoryName (\ s a -> s{_grtRepositoryName = a});
instance AWSRequest GetRepositoryTriggers where
type Rs GetRepositoryTriggers =
GetRepositoryTriggersResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
GetRepositoryTriggersResponse' <$>
(x .?> "configurationId") <*>
(x .?> "triggers" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetRepositoryTriggers
instance NFData GetRepositoryTriggers
instance ToHeaders GetRepositoryTriggers where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.GetRepositoryTriggers" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetRepositoryTriggers where
toJSON GetRepositoryTriggers'{..}
= object
(catMaybes
[("repositoryName" .=) <$> _grtRepositoryName])
instance ToPath GetRepositoryTriggers where
toPath = const "/"
instance ToQuery GetRepositoryTriggers where
toQuery = const mempty
data GetRepositoryTriggersResponse = GetRepositoryTriggersResponse'
{ _grtrsConfigurationId :: !(Maybe Text)
, _grtrsTriggers :: !(Maybe [RepositoryTrigger])
, _grtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getRepositoryTriggersResponse
:: Int
-> GetRepositoryTriggersResponse
getRepositoryTriggersResponse pResponseStatus_ =
GetRepositoryTriggersResponse'
{ _grtrsConfigurationId = Nothing
, _grtrsTriggers = Nothing
, _grtrsResponseStatus = pResponseStatus_
}
grtrsConfigurationId :: Lens' GetRepositoryTriggersResponse (Maybe Text)
grtrsConfigurationId = lens _grtrsConfigurationId (\ s a -> s{_grtrsConfigurationId = a});
grtrsTriggers :: Lens' GetRepositoryTriggersResponse [RepositoryTrigger]
grtrsTriggers = lens _grtrsTriggers (\ s a -> s{_grtrsTriggers = a}) . _Default . _Coerce;
grtrsResponseStatus :: Lens' GetRepositoryTriggersResponse Int
grtrsResponseStatus = lens _grtrsResponseStatus (\ s a -> s{_grtrsResponseStatus = a});
instance NFData GetRepositoryTriggersResponse