module Network.AWS.Glue.ResetJobBookmark
(
resetJobBookmark
, ResetJobBookmark
, rjbJobName
, resetJobBookmarkResponse
, ResetJobBookmarkResponse
, rjbrsJobBookmarkEntry
, rjbrsResponseStatus
) 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 ResetJobBookmark = ResetJobBookmark'
{ _rjbJobName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resetJobBookmark
:: Text
-> ResetJobBookmark
resetJobBookmark pJobName_ = ResetJobBookmark' {_rjbJobName = pJobName_}
rjbJobName :: Lens' ResetJobBookmark Text
rjbJobName = lens _rjbJobName (\ s a -> s{_rjbJobName = a});
instance AWSRequest ResetJobBookmark where
type Rs ResetJobBookmark = ResetJobBookmarkResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
ResetJobBookmarkResponse' <$>
(x .?> "JobBookmarkEntry") <*> (pure (fromEnum s)))
instance Hashable ResetJobBookmark where
instance NFData ResetJobBookmark where
instance ToHeaders ResetJobBookmark where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.ResetJobBookmark" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ResetJobBookmark where
toJSON ResetJobBookmark'{..}
= object
(catMaybes [Just ("JobName" .= _rjbJobName)])
instance ToPath ResetJobBookmark where
toPath = const "/"
instance ToQuery ResetJobBookmark where
toQuery = const mempty
data ResetJobBookmarkResponse = ResetJobBookmarkResponse'
{ _rjbrsJobBookmarkEntry :: !(Maybe JobBookmarkEntry)
, _rjbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resetJobBookmarkResponse
:: Int
-> ResetJobBookmarkResponse
resetJobBookmarkResponse pResponseStatus_ =
ResetJobBookmarkResponse'
{_rjbrsJobBookmarkEntry = Nothing, _rjbrsResponseStatus = pResponseStatus_}
rjbrsJobBookmarkEntry :: Lens' ResetJobBookmarkResponse (Maybe JobBookmarkEntry)
rjbrsJobBookmarkEntry = lens _rjbrsJobBookmarkEntry (\ s a -> s{_rjbrsJobBookmarkEntry = a});
rjbrsResponseStatus :: Lens' ResetJobBookmarkResponse Int
rjbrsResponseStatus = lens _rjbrsResponseStatus (\ s a -> s{_rjbrsResponseStatus = a});
instance NFData ResetJobBookmarkResponse where