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
instance NFData DeleteReceiptFilter
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