{-# 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.DeleteCustomVerificationEmailTemplate
(
deleteCustomVerificationEmailTemplate
, DeleteCustomVerificationEmailTemplate
, dcvetTemplateName
, deleteCustomVerificationEmailTemplateResponse
, DeleteCustomVerificationEmailTemplateResponse
) 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 DeleteCustomVerificationEmailTemplate = DeleteCustomVerificationEmailTemplate'
{ _dcvetTemplateName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteCustomVerificationEmailTemplate
:: Text
-> DeleteCustomVerificationEmailTemplate
deleteCustomVerificationEmailTemplate pTemplateName_ =
DeleteCustomVerificationEmailTemplate' {_dcvetTemplateName = pTemplateName_}
dcvetTemplateName :: Lens' DeleteCustomVerificationEmailTemplate Text
dcvetTemplateName = lens _dcvetTemplateName (\ s a -> s{_dcvetTemplateName = a})
instance AWSRequest
DeleteCustomVerificationEmailTemplate
where
type Rs DeleteCustomVerificationEmailTemplate =
DeleteCustomVerificationEmailTemplateResponse
request = postQuery ses
response
= receiveNull
DeleteCustomVerificationEmailTemplateResponse'
instance Hashable
DeleteCustomVerificationEmailTemplate
where
instance NFData DeleteCustomVerificationEmailTemplate
where
instance ToHeaders
DeleteCustomVerificationEmailTemplate
where
toHeaders = const mempty
instance ToPath DeleteCustomVerificationEmailTemplate
where
toPath = const "/"
instance ToQuery
DeleteCustomVerificationEmailTemplate
where
toQuery DeleteCustomVerificationEmailTemplate'{..}
= mconcat
["Action" =:
("DeleteCustomVerificationEmailTemplate" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"TemplateName" =: _dcvetTemplateName]
data DeleteCustomVerificationEmailTemplateResponse =
DeleteCustomVerificationEmailTemplateResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteCustomVerificationEmailTemplateResponse
:: DeleteCustomVerificationEmailTemplateResponse
deleteCustomVerificationEmailTemplateResponse =
DeleteCustomVerificationEmailTemplateResponse'
instance NFData
DeleteCustomVerificationEmailTemplateResponse
where