{-# 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.UpdateCustomVerificationEmailTemplate
(
updateCustomVerificationEmailTemplate
, UpdateCustomVerificationEmailTemplate
, ucvetFromEmailAddress
, ucvetFailureRedirectionURL
, ucvetTemplateSubject
, ucvetSuccessRedirectionURL
, ucvetTemplateContent
, ucvetTemplateName
, updateCustomVerificationEmailTemplateResponse
, UpdateCustomVerificationEmailTemplateResponse
) 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 UpdateCustomVerificationEmailTemplate = UpdateCustomVerificationEmailTemplate'
{ _ucvetFromEmailAddress :: !(Maybe Text)
, _ucvetFailureRedirectionURL :: !(Maybe Text)
, _ucvetTemplateSubject :: !(Maybe Text)
, _ucvetSuccessRedirectionURL :: !(Maybe Text)
, _ucvetTemplateContent :: !(Maybe Text)
, _ucvetTemplateName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateCustomVerificationEmailTemplate
:: Text
-> UpdateCustomVerificationEmailTemplate
updateCustomVerificationEmailTemplate pTemplateName_ =
UpdateCustomVerificationEmailTemplate'
{ _ucvetFromEmailAddress = Nothing
, _ucvetFailureRedirectionURL = Nothing
, _ucvetTemplateSubject = Nothing
, _ucvetSuccessRedirectionURL = Nothing
, _ucvetTemplateContent = Nothing
, _ucvetTemplateName = pTemplateName_
}
ucvetFromEmailAddress :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)
ucvetFromEmailAddress = lens _ucvetFromEmailAddress (\ s a -> s{_ucvetFromEmailAddress = a})
ucvetFailureRedirectionURL :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)
ucvetFailureRedirectionURL = lens _ucvetFailureRedirectionURL (\ s a -> s{_ucvetFailureRedirectionURL = a})
ucvetTemplateSubject :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)
ucvetTemplateSubject = lens _ucvetTemplateSubject (\ s a -> s{_ucvetTemplateSubject = a})
ucvetSuccessRedirectionURL :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)
ucvetSuccessRedirectionURL = lens _ucvetSuccessRedirectionURL (\ s a -> s{_ucvetSuccessRedirectionURL = a})
ucvetTemplateContent :: Lens' UpdateCustomVerificationEmailTemplate (Maybe Text)
ucvetTemplateContent = lens _ucvetTemplateContent (\ s a -> s{_ucvetTemplateContent = a})
ucvetTemplateName :: Lens' UpdateCustomVerificationEmailTemplate Text
ucvetTemplateName = lens _ucvetTemplateName (\ s a -> s{_ucvetTemplateName = a})
instance AWSRequest
UpdateCustomVerificationEmailTemplate
where
type Rs UpdateCustomVerificationEmailTemplate =
UpdateCustomVerificationEmailTemplateResponse
request = postQuery ses
response
= receiveNull
UpdateCustomVerificationEmailTemplateResponse'
instance Hashable
UpdateCustomVerificationEmailTemplate
where
instance NFData UpdateCustomVerificationEmailTemplate
where
instance ToHeaders
UpdateCustomVerificationEmailTemplate
where
toHeaders = const mempty
instance ToPath UpdateCustomVerificationEmailTemplate
where
toPath = const "/"
instance ToQuery
UpdateCustomVerificationEmailTemplate
where
toQuery UpdateCustomVerificationEmailTemplate'{..}
= mconcat
["Action" =:
("UpdateCustomVerificationEmailTemplate" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"FromEmailAddress" =: _ucvetFromEmailAddress,
"FailureRedirectionURL" =:
_ucvetFailureRedirectionURL,
"TemplateSubject" =: _ucvetTemplateSubject,
"SuccessRedirectionURL" =:
_ucvetSuccessRedirectionURL,
"TemplateContent" =: _ucvetTemplateContent,
"TemplateName" =: _ucvetTemplateName]
data UpdateCustomVerificationEmailTemplateResponse =
UpdateCustomVerificationEmailTemplateResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateCustomVerificationEmailTemplateResponse
:: UpdateCustomVerificationEmailTemplateResponse
updateCustomVerificationEmailTemplateResponse =
UpdateCustomVerificationEmailTemplateResponse'
instance NFData
UpdateCustomVerificationEmailTemplateResponse
where