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