{-# 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.GetCustomVerificationEmailTemplate
(
getCustomVerificationEmailTemplate
, GetCustomVerificationEmailTemplate
, gcvetTemplateName
, getCustomVerificationEmailTemplateResponse
, GetCustomVerificationEmailTemplateResponse
, gcvetrsFromEmailAddress
, gcvetrsTemplateName
, gcvetrsFailureRedirectionURL
, gcvetrsTemplateSubject
, gcvetrsSuccessRedirectionURL
, gcvetrsTemplateContent
, gcvetrsResponseStatus
) 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
newtype GetCustomVerificationEmailTemplate = GetCustomVerificationEmailTemplate'
{ _gcvetTemplateName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCustomVerificationEmailTemplate
:: Text
-> GetCustomVerificationEmailTemplate
getCustomVerificationEmailTemplate pTemplateName_ =
GetCustomVerificationEmailTemplate' {_gcvetTemplateName = pTemplateName_}
gcvetTemplateName :: Lens' GetCustomVerificationEmailTemplate Text
gcvetTemplateName = lens _gcvetTemplateName (\ s a -> s{_gcvetTemplateName = a})
instance AWSRequest
GetCustomVerificationEmailTemplate
where
type Rs GetCustomVerificationEmailTemplate =
GetCustomVerificationEmailTemplateResponse
request = postQuery ses
response
= receiveXMLWrapper
"GetCustomVerificationEmailTemplateResult"
(\ s h x ->
GetCustomVerificationEmailTemplateResponse' <$>
(x .@? "FromEmailAddress") <*> (x .@? "TemplateName")
<*> (x .@? "FailureRedirectionURL")
<*> (x .@? "TemplateSubject")
<*> (x .@? "SuccessRedirectionURL")
<*> (x .@? "TemplateContent")
<*> (pure (fromEnum s)))
instance Hashable GetCustomVerificationEmailTemplate
where
instance NFData GetCustomVerificationEmailTemplate
where
instance ToHeaders GetCustomVerificationEmailTemplate
where
toHeaders = const mempty
instance ToPath GetCustomVerificationEmailTemplate
where
toPath = const "/"
instance ToQuery GetCustomVerificationEmailTemplate
where
toQuery GetCustomVerificationEmailTemplate'{..}
= mconcat
["Action" =:
("GetCustomVerificationEmailTemplate" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"TemplateName" =: _gcvetTemplateName]
data GetCustomVerificationEmailTemplateResponse = GetCustomVerificationEmailTemplateResponse'
{ _gcvetrsFromEmailAddress :: !(Maybe Text)
, _gcvetrsTemplateName :: !(Maybe Text)
, _gcvetrsFailureRedirectionURL :: !(Maybe Text)
, _gcvetrsTemplateSubject :: !(Maybe Text)
, _gcvetrsSuccessRedirectionURL :: !(Maybe Text)
, _gcvetrsTemplateContent :: !(Maybe Text)
, _gcvetrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCustomVerificationEmailTemplateResponse
:: Int
-> GetCustomVerificationEmailTemplateResponse
getCustomVerificationEmailTemplateResponse pResponseStatus_ =
GetCustomVerificationEmailTemplateResponse'
{ _gcvetrsFromEmailAddress = Nothing
, _gcvetrsTemplateName = Nothing
, _gcvetrsFailureRedirectionURL = Nothing
, _gcvetrsTemplateSubject = Nothing
, _gcvetrsSuccessRedirectionURL = Nothing
, _gcvetrsTemplateContent = Nothing
, _gcvetrsResponseStatus = pResponseStatus_
}
gcvetrsFromEmailAddress :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
gcvetrsFromEmailAddress = lens _gcvetrsFromEmailAddress (\ s a -> s{_gcvetrsFromEmailAddress = a})
gcvetrsTemplateName :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
gcvetrsTemplateName = lens _gcvetrsTemplateName (\ s a -> s{_gcvetrsTemplateName = a})
gcvetrsFailureRedirectionURL :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
gcvetrsFailureRedirectionURL = lens _gcvetrsFailureRedirectionURL (\ s a -> s{_gcvetrsFailureRedirectionURL = a})
gcvetrsTemplateSubject :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
gcvetrsTemplateSubject = lens _gcvetrsTemplateSubject (\ s a -> s{_gcvetrsTemplateSubject = a})
gcvetrsSuccessRedirectionURL :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
gcvetrsSuccessRedirectionURL = lens _gcvetrsSuccessRedirectionURL (\ s a -> s{_gcvetrsSuccessRedirectionURL = a})
gcvetrsTemplateContent :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
gcvetrsTemplateContent = lens _gcvetrsTemplateContent (\ s a -> s{_gcvetrsTemplateContent = a})
gcvetrsResponseStatus :: Lens' GetCustomVerificationEmailTemplateResponse Int
gcvetrsResponseStatus = lens _gcvetrsResponseStatus (\ s a -> s{_gcvetrsResponseStatus = a})
instance NFData
GetCustomVerificationEmailTemplateResponse
where