module Network.AWS.SES.DescribeActiveReceiptRuleSet
(
describeActiveReceiptRuleSet
, DescribeActiveReceiptRuleSet
, describeActiveReceiptRuleSetResponse
, DescribeActiveReceiptRuleSetResponse
, darrsrsRules
, darrsrsMetadata
, darrsrsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SES.Types
import Network.AWS.SES.Types.Product
data DescribeActiveReceiptRuleSet =
DescribeActiveReceiptRuleSet'
deriving (Eq,Read,Show,Data,Typeable,Generic)
describeActiveReceiptRuleSet
:: DescribeActiveReceiptRuleSet
describeActiveReceiptRuleSet = DescribeActiveReceiptRuleSet'
instance AWSRequest DescribeActiveReceiptRuleSet
where
type Rs DescribeActiveReceiptRuleSet =
DescribeActiveReceiptRuleSetResponse
request = postQuery sES
response
= receiveXMLWrapper
"DescribeActiveReceiptRuleSetResult"
(\ s h x ->
DescribeActiveReceiptRuleSetResponse' <$>
(x .@? "Rules" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Metadata")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeActiveReceiptRuleSet where
toHeaders = const mempty
instance ToPath DescribeActiveReceiptRuleSet where
toPath = const "/"
instance ToQuery DescribeActiveReceiptRuleSet where
toQuery
= const
(mconcat
["Action" =:
("DescribeActiveReceiptRuleSet" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString)])
data DescribeActiveReceiptRuleSetResponse = DescribeActiveReceiptRuleSetResponse'
{ _darrsrsRules :: !(Maybe [ReceiptRule])
, _darrsrsMetadata :: !(Maybe ReceiptRuleSetMetadata)
, _darrsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeActiveReceiptRuleSetResponse
:: Int
-> DescribeActiveReceiptRuleSetResponse
describeActiveReceiptRuleSetResponse pResponseStatus_ =
DescribeActiveReceiptRuleSetResponse'
{ _darrsrsRules = Nothing
, _darrsrsMetadata = Nothing
, _darrsrsResponseStatus = pResponseStatus_
}
darrsrsRules :: Lens' DescribeActiveReceiptRuleSetResponse [ReceiptRule]
darrsrsRules = lens _darrsrsRules (\ s a -> s{_darrsrsRules = a}) . _Default . _Coerce;
darrsrsMetadata :: Lens' DescribeActiveReceiptRuleSetResponse (Maybe ReceiptRuleSetMetadata)
darrsrsMetadata = lens _darrsrsMetadata (\ s a -> s{_darrsrsMetadata = a});
darrsrsResponseStatus :: Lens' DescribeActiveReceiptRuleSetResponse Int
darrsrsResponseStatus = lens _darrsrsResponseStatus (\ s a -> s{_darrsrsResponseStatus = a});