{-# 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.SetIdentityFeedbackForwardingEnabled
(
setIdentityFeedbackForwardingEnabled
, SetIdentityFeedbackForwardingEnabled
, siffeIdentity
, siffeForwardingEnabled
, setIdentityFeedbackForwardingEnabledResponse
, SetIdentityFeedbackForwardingEnabledResponse
, siffersResponseStatus
) 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 SetIdentityFeedbackForwardingEnabled = SetIdentityFeedbackForwardingEnabled'
{ _siffeIdentity :: !Text
, _siffeForwardingEnabled :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setIdentityFeedbackForwardingEnabled
:: Text
-> Bool
-> SetIdentityFeedbackForwardingEnabled
setIdentityFeedbackForwardingEnabled pIdentity_ pForwardingEnabled_ =
SetIdentityFeedbackForwardingEnabled'
{ _siffeIdentity = pIdentity_
, _siffeForwardingEnabled = pForwardingEnabled_
}
siffeIdentity :: Lens' SetIdentityFeedbackForwardingEnabled Text
siffeIdentity = lens _siffeIdentity (\ s a -> s{_siffeIdentity = a});
siffeForwardingEnabled :: Lens' SetIdentityFeedbackForwardingEnabled Bool
siffeForwardingEnabled = lens _siffeForwardingEnabled (\ s a -> s{_siffeForwardingEnabled = a});
instance AWSRequest
SetIdentityFeedbackForwardingEnabled where
type Rs SetIdentityFeedbackForwardingEnabled =
SetIdentityFeedbackForwardingEnabledResponse
request = postQuery ses
response
= receiveXMLWrapper
"SetIdentityFeedbackForwardingEnabledResult"
(\ s h x ->
SetIdentityFeedbackForwardingEnabledResponse' <$>
(pure (fromEnum s)))
instance Hashable
SetIdentityFeedbackForwardingEnabled
instance NFData SetIdentityFeedbackForwardingEnabled
instance ToHeaders
SetIdentityFeedbackForwardingEnabled where
toHeaders = const mempty
instance ToPath SetIdentityFeedbackForwardingEnabled
where
toPath = const "/"
instance ToQuery SetIdentityFeedbackForwardingEnabled
where
toQuery SetIdentityFeedbackForwardingEnabled'{..}
= mconcat
["Action" =:
("SetIdentityFeedbackForwardingEnabled" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"Identity" =: _siffeIdentity,
"ForwardingEnabled" =: _siffeForwardingEnabled]
newtype SetIdentityFeedbackForwardingEnabledResponse = SetIdentityFeedbackForwardingEnabledResponse'
{ _siffersResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setIdentityFeedbackForwardingEnabledResponse
:: Int
-> SetIdentityFeedbackForwardingEnabledResponse
setIdentityFeedbackForwardingEnabledResponse pResponseStatus_ =
SetIdentityFeedbackForwardingEnabledResponse'
{ _siffersResponseStatus = pResponseStatus_
}
siffersResponseStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int
siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a});
instance NFData
SetIdentityFeedbackForwardingEnabledResponse