{-# 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.UpdateTrigger
(
updateTrigger
, UpdateTrigger
, utName
, utTriggerUpdate
, updateTriggerResponse
, UpdateTriggerResponse
, updrsTrigger
, updrsResponseStatus
) 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 UpdateTrigger = UpdateTrigger'
{ _utName :: !Text
, _utTriggerUpdate :: !TriggerUpdate
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateTrigger
:: Text
-> TriggerUpdate
-> UpdateTrigger
updateTrigger pName_ pTriggerUpdate_ =
UpdateTrigger' {_utName = pName_, _utTriggerUpdate = pTriggerUpdate_}
utName :: Lens' UpdateTrigger Text
utName = lens _utName (\ s a -> s{_utName = a})
utTriggerUpdate :: Lens' UpdateTrigger TriggerUpdate
utTriggerUpdate = lens _utTriggerUpdate (\ s a -> s{_utTriggerUpdate = a})
instance AWSRequest UpdateTrigger where
type Rs UpdateTrigger = UpdateTriggerResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
UpdateTriggerResponse' <$>
(x .?> "Trigger") <*> (pure (fromEnum s)))
instance Hashable UpdateTrigger where
instance NFData UpdateTrigger where
instance ToHeaders UpdateTrigger where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.UpdateTrigger" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateTrigger where
toJSON UpdateTrigger'{..}
= object
(catMaybes
[Just ("Name" .= _utName),
Just ("TriggerUpdate" .= _utTriggerUpdate)])
instance ToPath UpdateTrigger where
toPath = const "/"
instance ToQuery UpdateTrigger where
toQuery = const mempty
data UpdateTriggerResponse = UpdateTriggerResponse'
{ _updrsTrigger :: !(Maybe Trigger)
, _updrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateTriggerResponse
:: Int
-> UpdateTriggerResponse
updateTriggerResponse pResponseStatus_ =
UpdateTriggerResponse'
{_updrsTrigger = Nothing, _updrsResponseStatus = pResponseStatus_}
updrsTrigger :: Lens' UpdateTriggerResponse (Maybe Trigger)
updrsTrigger = lens _updrsTrigger (\ s a -> s{_updrsTrigger = a})
updrsResponseStatus :: Lens' UpdateTriggerResponse Int
updrsResponseStatus = lens _updrsResponseStatus (\ s a -> s{_updrsResponseStatus = a})
instance NFData UpdateTriggerResponse where