module Network.AWS.Glue.GetTriggers
(
getTriggers
, GetTriggers
, gtsNextToken
, gtsMaxResults
, gtsDependentJobName
, getTriggersResponse
, GetTriggersResponse
, gttrsTriggers
, gttrsNextToken
, gttrsResponseStatus
) where
import Network.AWS.Glue.Types
import Network.AWS.Glue.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetTriggers = GetTriggers'
{ _gtsNextToken :: !(Maybe Text)
, _gtsMaxResults :: !(Maybe Nat)
, _gtsDependentJobName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTriggers
:: GetTriggers
getTriggers =
GetTriggers'
{ _gtsNextToken = Nothing
, _gtsMaxResults = Nothing
, _gtsDependentJobName = Nothing
}
gtsNextToken :: Lens' GetTriggers (Maybe Text)
gtsNextToken = lens _gtsNextToken (\ s a -> s{_gtsNextToken = a});
gtsMaxResults :: Lens' GetTriggers (Maybe Natural)
gtsMaxResults = lens _gtsMaxResults (\ s a -> s{_gtsMaxResults = a}) . mapping _Nat;
gtsDependentJobName :: Lens' GetTriggers (Maybe Text)
gtsDependentJobName = lens _gtsDependentJobName (\ s a -> s{_gtsDependentJobName = a});
instance AWSRequest GetTriggers where
type Rs GetTriggers = GetTriggersResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetTriggersResponse' <$>
(x .?> "Triggers" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable GetTriggers where
instance NFData GetTriggers where
instance ToHeaders GetTriggers where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetTriggers" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetTriggers where
toJSON GetTriggers'{..}
= object
(catMaybes
[("NextToken" .=) <$> _gtsNextToken,
("MaxResults" .=) <$> _gtsMaxResults,
("DependentJobName" .=) <$> _gtsDependentJobName])
instance ToPath GetTriggers where
toPath = const "/"
instance ToQuery GetTriggers where
toQuery = const mempty
data GetTriggersResponse = GetTriggersResponse'
{ _gttrsTriggers :: !(Maybe [Trigger])
, _gttrsNextToken :: !(Maybe Text)
, _gttrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTriggersResponse
:: Int
-> GetTriggersResponse
getTriggersResponse pResponseStatus_ =
GetTriggersResponse'
{ _gttrsTriggers = Nothing
, _gttrsNextToken = Nothing
, _gttrsResponseStatus = pResponseStatus_
}
gttrsTriggers :: Lens' GetTriggersResponse [Trigger]
gttrsTriggers = lens _gttrsTriggers (\ s a -> s{_gttrsTriggers = a}) . _Default . _Coerce;
gttrsNextToken :: Lens' GetTriggersResponse (Maybe Text)
gttrsNextToken = lens _gttrsNextToken (\ s a -> s{_gttrsNextToken = a});
gttrsResponseStatus :: Lens' GetTriggersResponse Int
gttrsResponseStatus = lens _gttrsResponseStatus (\ s a -> s{_gttrsResponseStatus = a});
instance NFData GetTriggersResponse where