{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.Glue.GetCrawler
(
getCrawler
, GetCrawler
, gccName
, getCrawlerResponse
, GetCrawlerResponse
, getersCrawler
, getersResponseStatus
) 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
newtype GetCrawler = GetCrawler'
{ _gccName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCrawler
:: Text
-> GetCrawler
getCrawler pName_ = GetCrawler' {_gccName = pName_}
gccName :: Lens' GetCrawler Text
gccName = lens _gccName (\ s a -> s{_gccName = a})
instance AWSRequest GetCrawler where
type Rs GetCrawler = GetCrawlerResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetCrawlerResponse' <$>
(x .?> "Crawler") <*> (pure (fromEnum s)))
instance Hashable GetCrawler where
instance NFData GetCrawler where
instance ToHeaders GetCrawler where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetCrawler" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetCrawler where
toJSON GetCrawler'{..}
= object (catMaybes [Just ("Name" .= _gccName)])
instance ToPath GetCrawler where
toPath = const "/"
instance ToQuery GetCrawler where
toQuery = const mempty
data GetCrawlerResponse = GetCrawlerResponse'
{ _getersCrawler :: !(Maybe Crawler)
, _getersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCrawlerResponse
:: Int
-> GetCrawlerResponse
getCrawlerResponse pResponseStatus_ =
GetCrawlerResponse'
{_getersCrawler = Nothing, _getersResponseStatus = pResponseStatus_}
getersCrawler :: Lens' GetCrawlerResponse (Maybe Crawler)
getersCrawler = lens _getersCrawler (\ s a -> s{_getersCrawler = a})
getersResponseStatus :: Lens' GetCrawlerResponse Int
getersResponseStatus = lens _getersResponseStatus (\ s a -> s{_getersResponseStatus = a})
instance NFData GetCrawlerResponse where