{-# 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.DescribeReceiptRule
(
describeReceiptRule
, DescribeReceiptRule
, drrRuleSetName
, drrRuleName
, describeReceiptRuleResponse
, DescribeReceiptRuleResponse
, drrrsRule
, drrrsResponseStatus
) 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 DescribeReceiptRule = DescribeReceiptRule'
{ _drrRuleSetName :: !Text
, _drrRuleName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReceiptRule
:: Text
-> Text
-> DescribeReceiptRule
describeReceiptRule pRuleSetName_ pRuleName_ =
DescribeReceiptRule'
{_drrRuleSetName = pRuleSetName_, _drrRuleName = pRuleName_}
drrRuleSetName :: Lens' DescribeReceiptRule Text
drrRuleSetName = lens _drrRuleSetName (\ s a -> s{_drrRuleSetName = a})
drrRuleName :: Lens' DescribeReceiptRule Text
drrRuleName = lens _drrRuleName (\ s a -> s{_drrRuleName = a})
instance AWSRequest DescribeReceiptRule where
type Rs DescribeReceiptRule =
DescribeReceiptRuleResponse
request = postQuery ses
response
= receiveXMLWrapper "DescribeReceiptRuleResult"
(\ s h x ->
DescribeReceiptRuleResponse' <$>
(x .@? "Rule") <*> (pure (fromEnum s)))
instance Hashable DescribeReceiptRule where
instance NFData DescribeReceiptRule where
instance ToHeaders DescribeReceiptRule where
toHeaders = const mempty
instance ToPath DescribeReceiptRule where
toPath = const "/"
instance ToQuery DescribeReceiptRule where
toQuery DescribeReceiptRule'{..}
= mconcat
["Action" =: ("DescribeReceiptRule" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"RuleSetName" =: _drrRuleSetName,
"RuleName" =: _drrRuleName]
data DescribeReceiptRuleResponse = DescribeReceiptRuleResponse'
{ _drrrsRule :: !(Maybe ReceiptRule)
, _drrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReceiptRuleResponse
:: Int
-> DescribeReceiptRuleResponse
describeReceiptRuleResponse pResponseStatus_ =
DescribeReceiptRuleResponse'
{_drrrsRule = Nothing, _drrrsResponseStatus = pResponseStatus_}
drrrsRule :: Lens' DescribeReceiptRuleResponse (Maybe ReceiptRule)
drrrsRule = lens _drrrsRule (\ s a -> s{_drrrsRule = a})
drrrsResponseStatus :: Lens' DescribeReceiptRuleResponse Int
drrrsResponseStatus = lens _drrrsResponseStatus (\ s a -> s{_drrrsResponseStatus = a})
instance NFData DescribeReceiptRuleResponse where