{-# 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.UpdateConfigurationSetSendingEnabled
(
updateConfigurationSetSendingEnabled
, UpdateConfigurationSetSendingEnabled
, ucsseConfigurationSetName
, ucsseEnabled
, updateConfigurationSetSendingEnabledResponse
, UpdateConfigurationSetSendingEnabledResponse
) 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 UpdateConfigurationSetSendingEnabled = UpdateConfigurationSetSendingEnabled'
{ _ucsseConfigurationSetName :: !Text
, _ucsseEnabled :: !Bool
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateConfigurationSetSendingEnabled
:: Text
-> Bool
-> UpdateConfigurationSetSendingEnabled
updateConfigurationSetSendingEnabled pConfigurationSetName_ pEnabled_ =
UpdateConfigurationSetSendingEnabled'
{ _ucsseConfigurationSetName = pConfigurationSetName_
, _ucsseEnabled = pEnabled_
}
ucsseConfigurationSetName :: Lens' UpdateConfigurationSetSendingEnabled Text
ucsseConfigurationSetName = lens _ucsseConfigurationSetName (\ s a -> s{_ucsseConfigurationSetName = a})
ucsseEnabled :: Lens' UpdateConfigurationSetSendingEnabled Bool
ucsseEnabled = lens _ucsseEnabled (\ s a -> s{_ucsseEnabled = a})
instance AWSRequest
UpdateConfigurationSetSendingEnabled
where
type Rs UpdateConfigurationSetSendingEnabled =
UpdateConfigurationSetSendingEnabledResponse
request = postQuery ses
response
= receiveNull
UpdateConfigurationSetSendingEnabledResponse'
instance Hashable
UpdateConfigurationSetSendingEnabled
where
instance NFData UpdateConfigurationSetSendingEnabled
where
instance ToHeaders
UpdateConfigurationSetSendingEnabled
where
toHeaders = const mempty
instance ToPath UpdateConfigurationSetSendingEnabled
where
toPath = const "/"
instance ToQuery UpdateConfigurationSetSendingEnabled
where
toQuery UpdateConfigurationSetSendingEnabled'{..}
= mconcat
["Action" =:
("UpdateConfigurationSetSendingEnabled" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"ConfigurationSetName" =: _ucsseConfigurationSetName,
"Enabled" =: _ucsseEnabled]
data UpdateConfigurationSetSendingEnabledResponse =
UpdateConfigurationSetSendingEnabledResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateConfigurationSetSendingEnabledResponse
:: UpdateConfigurationSetSendingEnabledResponse
updateConfigurationSetSendingEnabledResponse =
UpdateConfigurationSetSendingEnabledResponse'
instance NFData
UpdateConfigurationSetSendingEnabledResponse
where