{-# 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.CreateCustomVerificationEmailTemplate
(
createCustomVerificationEmailTemplate
, CreateCustomVerificationEmailTemplate
, ccvetTemplateName
, ccvetFromEmailAddress
, ccvetTemplateSubject
, ccvetTemplateContent
, ccvetSuccessRedirectionURL
, ccvetFailureRedirectionURL
, createCustomVerificationEmailTemplateResponse
, CreateCustomVerificationEmailTemplateResponse
) 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 CreateCustomVerificationEmailTemplate = CreateCustomVerificationEmailTemplate'
{ _ccvetTemplateName :: !Text
, _ccvetFromEmailAddress :: !Text
, _ccvetTemplateSubject :: !Text
, _ccvetTemplateContent :: !Text
, _ccvetSuccessRedirectionURL :: !Text
, _ccvetFailureRedirectionURL :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createCustomVerificationEmailTemplate
:: Text
-> Text
-> Text
-> Text
-> Text
-> Text
-> CreateCustomVerificationEmailTemplate
createCustomVerificationEmailTemplate pTemplateName_ pFromEmailAddress_ pTemplateSubject_ pTemplateContent_ pSuccessRedirectionURL_ pFailureRedirectionURL_ =
CreateCustomVerificationEmailTemplate'
{ _ccvetTemplateName = pTemplateName_
, _ccvetFromEmailAddress = pFromEmailAddress_
, _ccvetTemplateSubject = pTemplateSubject_
, _ccvetTemplateContent = pTemplateContent_
, _ccvetSuccessRedirectionURL = pSuccessRedirectionURL_
, _ccvetFailureRedirectionURL = pFailureRedirectionURL_
}
ccvetTemplateName :: Lens' CreateCustomVerificationEmailTemplate Text
ccvetTemplateName = lens _ccvetTemplateName (\ s a -> s{_ccvetTemplateName = a})
ccvetFromEmailAddress :: Lens' CreateCustomVerificationEmailTemplate Text
ccvetFromEmailAddress = lens _ccvetFromEmailAddress (\ s a -> s{_ccvetFromEmailAddress = a})
ccvetTemplateSubject :: Lens' CreateCustomVerificationEmailTemplate Text
ccvetTemplateSubject = lens _ccvetTemplateSubject (\ s a -> s{_ccvetTemplateSubject = a})
ccvetTemplateContent :: Lens' CreateCustomVerificationEmailTemplate Text
ccvetTemplateContent = lens _ccvetTemplateContent (\ s a -> s{_ccvetTemplateContent = a})
ccvetSuccessRedirectionURL :: Lens' CreateCustomVerificationEmailTemplate Text
ccvetSuccessRedirectionURL = lens _ccvetSuccessRedirectionURL (\ s a -> s{_ccvetSuccessRedirectionURL = a})
ccvetFailureRedirectionURL :: Lens' CreateCustomVerificationEmailTemplate Text
ccvetFailureRedirectionURL = lens _ccvetFailureRedirectionURL (\ s a -> s{_ccvetFailureRedirectionURL = a})
instance AWSRequest
CreateCustomVerificationEmailTemplate
where
type Rs CreateCustomVerificationEmailTemplate =
CreateCustomVerificationEmailTemplateResponse
request = postQuery ses
response
= receiveNull
CreateCustomVerificationEmailTemplateResponse'
instance Hashable
CreateCustomVerificationEmailTemplate
where
instance NFData CreateCustomVerificationEmailTemplate
where
instance ToHeaders
CreateCustomVerificationEmailTemplate
where
toHeaders = const mempty
instance ToPath CreateCustomVerificationEmailTemplate
where
toPath = const "/"
instance ToQuery
CreateCustomVerificationEmailTemplate
where
toQuery CreateCustomVerificationEmailTemplate'{..}
= mconcat
["Action" =:
("CreateCustomVerificationEmailTemplate" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"TemplateName" =: _ccvetTemplateName,
"FromEmailAddress" =: _ccvetFromEmailAddress,
"TemplateSubject" =: _ccvetTemplateSubject,
"TemplateContent" =: _ccvetTemplateContent,
"SuccessRedirectionURL" =:
_ccvetSuccessRedirectionURL,
"FailureRedirectionURL" =:
_ccvetFailureRedirectionURL]
data CreateCustomVerificationEmailTemplateResponse =
CreateCustomVerificationEmailTemplateResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
createCustomVerificationEmailTemplateResponse
:: CreateCustomVerificationEmailTemplateResponse
createCustomVerificationEmailTemplateResponse =
CreateCustomVerificationEmailTemplateResponse'
instance NFData
CreateCustomVerificationEmailTemplateResponse
where