module Network.AWS.Glue.StopTrigger
(
stopTrigger
, StopTrigger
, stName
, stopTriggerResponse
, StopTriggerResponse
, strsName
, strsResponseStatus
) 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 StopTrigger = StopTrigger'
{ _stName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopTrigger
:: Text
-> StopTrigger
stopTrigger pName_ = StopTrigger' {_stName = pName_}
stName :: Lens' StopTrigger Text
stName = lens _stName (\ s a -> s{_stName = a});
instance AWSRequest StopTrigger where
type Rs StopTrigger = StopTriggerResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
StopTriggerResponse' <$>
(x .?> "Name") <*> (pure (fromEnum s)))
instance Hashable StopTrigger where
instance NFData StopTrigger where
instance ToHeaders StopTrigger where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.StopTrigger" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON StopTrigger where
toJSON StopTrigger'{..}
= object (catMaybes [Just ("Name" .= _stName)])
instance ToPath StopTrigger where
toPath = const "/"
instance ToQuery StopTrigger where
toQuery = const mempty
data StopTriggerResponse = StopTriggerResponse'
{ _strsName :: !(Maybe Text)
, _strsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopTriggerResponse
:: Int
-> StopTriggerResponse
stopTriggerResponse pResponseStatus_ =
StopTriggerResponse'
{_strsName = Nothing, _strsResponseStatus = pResponseStatus_}
strsName :: Lens' StopTriggerResponse (Maybe Text)
strsName = lens _strsName (\ s a -> s{_strsName = a});
strsResponseStatus :: Lens' StopTriggerResponse Int
strsResponseStatus = lens _strsResponseStatus (\ s a -> s{_strsResponseStatus = a});
instance NFData StopTriggerResponse where