{-# 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.SES.UpdateConfigurationSetTrackingOptions
(
updateConfigurationSetTrackingOptions
, UpdateConfigurationSetTrackingOptions
, ucstoConfigurationSetName
, ucstoTrackingOptions
, updateConfigurationSetTrackingOptionsResponse
, UpdateConfigurationSetTrackingOptionsResponse
, ucstorsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SES.Types
import Network.AWS.SES.Types.Product
data UpdateConfigurationSetTrackingOptions = UpdateConfigurationSetTrackingOptions'
{ _ucstoConfigurationSetName :: !Text
, _ucstoTrackingOptions :: !TrackingOptions
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateConfigurationSetTrackingOptions
:: Text
-> TrackingOptions
-> UpdateConfigurationSetTrackingOptions
updateConfigurationSetTrackingOptions pConfigurationSetName_ pTrackingOptions_ =
UpdateConfigurationSetTrackingOptions'
{ _ucstoConfigurationSetName = pConfigurationSetName_
, _ucstoTrackingOptions = pTrackingOptions_
}
ucstoConfigurationSetName :: Lens' UpdateConfigurationSetTrackingOptions Text
ucstoConfigurationSetName = lens _ucstoConfigurationSetName (\ s a -> s{_ucstoConfigurationSetName = a})
ucstoTrackingOptions :: Lens' UpdateConfigurationSetTrackingOptions TrackingOptions
ucstoTrackingOptions = lens _ucstoTrackingOptions (\ s a -> s{_ucstoTrackingOptions = a})
instance AWSRequest
UpdateConfigurationSetTrackingOptions
where
type Rs UpdateConfigurationSetTrackingOptions =
UpdateConfigurationSetTrackingOptionsResponse
request = postQuery ses
response
= receiveXMLWrapper
"UpdateConfigurationSetTrackingOptionsResult"
(\ s h x ->
UpdateConfigurationSetTrackingOptionsResponse' <$>
(pure (fromEnum s)))
instance Hashable
UpdateConfigurationSetTrackingOptions
where
instance NFData UpdateConfigurationSetTrackingOptions
where
instance ToHeaders
UpdateConfigurationSetTrackingOptions
where
toHeaders = const mempty
instance ToPath UpdateConfigurationSetTrackingOptions
where
toPath = const "/"
instance ToQuery
UpdateConfigurationSetTrackingOptions
where
toQuery UpdateConfigurationSetTrackingOptions'{..}
= mconcat
["Action" =:
("UpdateConfigurationSetTrackingOptions" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"ConfigurationSetName" =: _ucstoConfigurationSetName,
"TrackingOptions" =: _ucstoTrackingOptions]
newtype UpdateConfigurationSetTrackingOptionsResponse = UpdateConfigurationSetTrackingOptionsResponse'
{ _ucstorsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateConfigurationSetTrackingOptionsResponse
:: Int
-> UpdateConfigurationSetTrackingOptionsResponse
updateConfigurationSetTrackingOptionsResponse pResponseStatus_ =
UpdateConfigurationSetTrackingOptionsResponse'
{_ucstorsResponseStatus = pResponseStatus_}
ucstorsResponseStatus :: Lens' UpdateConfigurationSetTrackingOptionsResponse Int
ucstorsResponseStatus = lens _ucstorsResponseStatus (\ s a -> s{_ucstorsResponseStatus = a})
instance NFData
UpdateConfigurationSetTrackingOptionsResponse
where