{-# 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.ReorderReceiptRuleSet
(
reorderReceiptRuleSet
, ReorderReceiptRuleSet
, rrrsRuleSetName
, rrrsRuleNames
, reorderReceiptRuleSetResponse
, ReorderReceiptRuleSetResponse
, rrrsrsResponseStatus
) 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 ReorderReceiptRuleSet = ReorderReceiptRuleSet'
{ _rrrsRuleSetName :: !Text
, _rrrsRuleNames :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
reorderReceiptRuleSet
:: Text
-> ReorderReceiptRuleSet
reorderReceiptRuleSet pRuleSetName_ =
ReorderReceiptRuleSet'
{_rrrsRuleSetName = pRuleSetName_, _rrrsRuleNames = mempty}
rrrsRuleSetName :: Lens' ReorderReceiptRuleSet Text
rrrsRuleSetName = lens _rrrsRuleSetName (\ s a -> s{_rrrsRuleSetName = a})
rrrsRuleNames :: Lens' ReorderReceiptRuleSet [Text]
rrrsRuleNames = lens _rrrsRuleNames (\ s a -> s{_rrrsRuleNames = a}) . _Coerce
instance AWSRequest ReorderReceiptRuleSet where
type Rs ReorderReceiptRuleSet =
ReorderReceiptRuleSetResponse
request = postQuery ses
response
= receiveXMLWrapper "ReorderReceiptRuleSetResult"
(\ s h x ->
ReorderReceiptRuleSetResponse' <$>
(pure (fromEnum s)))
instance Hashable ReorderReceiptRuleSet where
instance NFData ReorderReceiptRuleSet where
instance ToHeaders ReorderReceiptRuleSet where
toHeaders = const mempty
instance ToPath ReorderReceiptRuleSet where
toPath = const "/"
instance ToQuery ReorderReceiptRuleSet where
toQuery ReorderReceiptRuleSet'{..}
= mconcat
["Action" =: ("ReorderReceiptRuleSet" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"RuleSetName" =: _rrrsRuleSetName,
"RuleNames" =: toQueryList "member" _rrrsRuleNames]
newtype ReorderReceiptRuleSetResponse = ReorderReceiptRuleSetResponse'
{ _rrrsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
reorderReceiptRuleSetResponse
:: Int
-> ReorderReceiptRuleSetResponse
reorderReceiptRuleSetResponse pResponseStatus_ =
ReorderReceiptRuleSetResponse' {_rrrsrsResponseStatus = pResponseStatus_}
rrrsrsResponseStatus :: Lens' ReorderReceiptRuleSetResponse Int
rrrsrsResponseStatus = lens _rrrsrsResponseStatus (\ s a -> s{_rrrsrsResponseStatus = a})
instance NFData ReorderReceiptRuleSetResponse where