module Network.AWS.ELBv2.ModifyRule
(
modifyRule
, ModifyRule
, mrActions
, mrConditions
, mrRuleARN
, modifyRuleResponse
, ModifyRuleResponse
, mrrsRules
, mrrsResponseStatus
) where
import Network.AWS.ELBv2.Types
import Network.AWS.ELBv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyRule = ModifyRule'
{ _mrActions :: !(Maybe [Action])
, _mrConditions :: !(Maybe [RuleCondition])
, _mrRuleARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyRule
:: Text
-> ModifyRule
modifyRule pRuleARN_ =
ModifyRule'
{_mrActions = Nothing, _mrConditions = Nothing, _mrRuleARN = pRuleARN_}
mrActions :: Lens' ModifyRule [Action]
mrActions = lens _mrActions (\ s a -> s{_mrActions = a}) . _Default . _Coerce;
mrConditions :: Lens' ModifyRule [RuleCondition]
mrConditions = lens _mrConditions (\ s a -> s{_mrConditions = a}) . _Default . _Coerce;
mrRuleARN :: Lens' ModifyRule Text
mrRuleARN = lens _mrRuleARN (\ s a -> s{_mrRuleARN = a});
instance AWSRequest ModifyRule where
type Rs ModifyRule = ModifyRuleResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "ModifyRuleResult"
(\ s h x ->
ModifyRuleResponse' <$>
(x .@? "Rules" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable ModifyRule where
instance NFData ModifyRule where
instance ToHeaders ModifyRule where
toHeaders = const mempty
instance ToPath ModifyRule where
toPath = const "/"
instance ToQuery ModifyRule where
toQuery ModifyRule'{..}
= mconcat
["Action" =: ("ModifyRule" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"Actions" =:
toQuery (toQueryList "member" <$> _mrActions),
"Conditions" =:
toQuery (toQueryList "member" <$> _mrConditions),
"RuleArn" =: _mrRuleARN]
data ModifyRuleResponse = ModifyRuleResponse'
{ _mrrsRules :: !(Maybe [Rule])
, _mrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyRuleResponse
:: Int
-> ModifyRuleResponse
modifyRuleResponse pResponseStatus_ =
ModifyRuleResponse'
{_mrrsRules = Nothing, _mrrsResponseStatus = pResponseStatus_}
mrrsRules :: Lens' ModifyRuleResponse [Rule]
mrrsRules = lens _mrrsRules (\ s a -> s{_mrrsRules = a}) . _Default . _Coerce;
mrrsResponseStatus :: Lens' ModifyRuleResponse Int
mrrsResponseStatus = lens _mrrsResponseStatus (\ s a -> s{_mrrsResponseStatus = a});
instance NFData ModifyRuleResponse where