{-# 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.DeleteReceiptFilter
(
deleteReceiptFilter
, DeleteReceiptFilter
, drfFilterName
, deleteReceiptFilterResponse
, DeleteReceiptFilterResponse
, drfrsResponseStatus
) 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 DeleteReceiptFilter = DeleteReceiptFilter'
{ _drfFilterName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteReceiptFilter
:: Text
-> DeleteReceiptFilter
deleteReceiptFilter pFilterName_ =
DeleteReceiptFilter' {_drfFilterName = pFilterName_}
drfFilterName :: Lens' DeleteReceiptFilter Text
drfFilterName = lens _drfFilterName (\ s a -> s{_drfFilterName = a})
instance AWSRequest DeleteReceiptFilter where
type Rs DeleteReceiptFilter =
DeleteReceiptFilterResponse
request = postQuery ses
response
= receiveXMLWrapper "DeleteReceiptFilterResult"
(\ s h x ->
DeleteReceiptFilterResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteReceiptFilter where
instance NFData DeleteReceiptFilter where
instance ToHeaders DeleteReceiptFilter where
toHeaders = const mempty
instance ToPath DeleteReceiptFilter where
toPath = const "/"
instance ToQuery DeleteReceiptFilter where
toQuery DeleteReceiptFilter'{..}
= mconcat
["Action" =: ("DeleteReceiptFilter" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"FilterName" =: _drfFilterName]
newtype DeleteReceiptFilterResponse = DeleteReceiptFilterResponse'
{ _drfrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteReceiptFilterResponse
:: Int
-> DeleteReceiptFilterResponse
deleteReceiptFilterResponse pResponseStatus_ =
DeleteReceiptFilterResponse' {_drfrsResponseStatus = pResponseStatus_}
drfrsResponseStatus :: Lens' DeleteReceiptFilterResponse Int
drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a})
instance NFData DeleteReceiptFilterResponse where