{-# 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.UpdateCrawlerSchedule
(
updateCrawlerSchedule
, UpdateCrawlerSchedule
, ucsSchedule
, ucsCrawlerName
, updateCrawlerScheduleResponse
, UpdateCrawlerScheduleResponse
, ucsrsResponseStatus
) 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 UpdateCrawlerSchedule = UpdateCrawlerSchedule'
{ _ucsSchedule :: !(Maybe Text)
, _ucsCrawlerName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateCrawlerSchedule
:: Text
-> UpdateCrawlerSchedule
updateCrawlerSchedule pCrawlerName_ =
UpdateCrawlerSchedule'
{_ucsSchedule = Nothing, _ucsCrawlerName = pCrawlerName_}
ucsSchedule :: Lens' UpdateCrawlerSchedule (Maybe Text)
ucsSchedule = lens _ucsSchedule (\ s a -> s{_ucsSchedule = a})
ucsCrawlerName :: Lens' UpdateCrawlerSchedule Text
ucsCrawlerName = lens _ucsCrawlerName (\ s a -> s{_ucsCrawlerName = a})
instance AWSRequest UpdateCrawlerSchedule where
type Rs UpdateCrawlerSchedule =
UpdateCrawlerScheduleResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
UpdateCrawlerScheduleResponse' <$>
(pure (fromEnum s)))
instance Hashable UpdateCrawlerSchedule where
instance NFData UpdateCrawlerSchedule where
instance ToHeaders UpdateCrawlerSchedule where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.UpdateCrawlerSchedule" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateCrawlerSchedule where
toJSON UpdateCrawlerSchedule'{..}
= object
(catMaybes
[("Schedule" .=) <$> _ucsSchedule,
Just ("CrawlerName" .= _ucsCrawlerName)])
instance ToPath UpdateCrawlerSchedule where
toPath = const "/"
instance ToQuery UpdateCrawlerSchedule where
toQuery = const mempty
newtype UpdateCrawlerScheduleResponse = UpdateCrawlerScheduleResponse'
{ _ucsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateCrawlerScheduleResponse
:: Int
-> UpdateCrawlerScheduleResponse
updateCrawlerScheduleResponse pResponseStatus_ =
UpdateCrawlerScheduleResponse' {_ucsrsResponseStatus = pResponseStatus_}
ucsrsResponseStatus :: Lens' UpdateCrawlerScheduleResponse Int
ucsrsResponseStatus = lens _ucsrsResponseStatus (\ s a -> s{_ucsrsResponseStatus = a})
instance NFData UpdateCrawlerScheduleResponse where