module Network.AWS.Glue.GetCrawlers
(
getCrawlers
, GetCrawlers
, gNextToken
, gMaxResults
, getCrawlersResponse
, GetCrawlersResponse
, grsNextToken
, grsCrawlers
, grsResponseStatus
) 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 GetCrawlers = GetCrawlers'
{ _gNextToken :: !(Maybe Text)
, _gMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCrawlers
:: GetCrawlers
getCrawlers = GetCrawlers' {_gNextToken = Nothing, _gMaxResults = Nothing}
gNextToken :: Lens' GetCrawlers (Maybe Text)
gNextToken = lens _gNextToken (\ s a -> s{_gNextToken = a});
gMaxResults :: Lens' GetCrawlers (Maybe Natural)
gMaxResults = lens _gMaxResults (\ s a -> s{_gMaxResults = a}) . mapping _Nat;
instance AWSRequest GetCrawlers where
type Rs GetCrawlers = GetCrawlersResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetCrawlersResponse' <$>
(x .?> "NextToken") <*> (x .?> "Crawlers" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetCrawlers where
instance NFData GetCrawlers where
instance ToHeaders GetCrawlers where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetCrawlers" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetCrawlers where
toJSON GetCrawlers'{..}
= object
(catMaybes
[("NextToken" .=) <$> _gNextToken,
("MaxResults" .=) <$> _gMaxResults])
instance ToPath GetCrawlers where
toPath = const "/"
instance ToQuery GetCrawlers where
toQuery = const mempty
data GetCrawlersResponse = GetCrawlersResponse'
{ _grsNextToken :: !(Maybe Text)
, _grsCrawlers :: !(Maybe [Crawler])
, _grsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCrawlersResponse
:: Int
-> GetCrawlersResponse
getCrawlersResponse pResponseStatus_ =
GetCrawlersResponse'
{ _grsNextToken = Nothing
, _grsCrawlers = Nothing
, _grsResponseStatus = pResponseStatus_
}
grsNextToken :: Lens' GetCrawlersResponse (Maybe Text)
grsNextToken = lens _grsNextToken (\ s a -> s{_grsNextToken = a});
grsCrawlers :: Lens' GetCrawlersResponse [Crawler]
grsCrawlers = lens _grsCrawlers (\ s a -> s{_grsCrawlers = a}) . _Default . _Coerce;
grsResponseStatus :: Lens' GetCrawlersResponse Int
grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});
instance NFData GetCrawlersResponse where