{-# 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.ELB.ModifyLoadBalancerAttributes
(
modifyLoadBalancerAttributes
, ModifyLoadBalancerAttributes
, mlbaLoadBalancerName
, mlbaLoadBalancerAttributes
, modifyLoadBalancerAttributesResponse
, ModifyLoadBalancerAttributesResponse
, mlbarsLoadBalancerName
, mlbarsLoadBalancerAttributes
, mlbarsResponseStatus
) where
import Network.AWS.ELB.Types
import Network.AWS.ELB.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributes'
{ _mlbaLoadBalancerName :: !Text
, _mlbaLoadBalancerAttributes :: !LoadBalancerAttributes
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyLoadBalancerAttributes
:: Text
-> LoadBalancerAttributes
-> ModifyLoadBalancerAttributes
modifyLoadBalancerAttributes pLoadBalancerName_ pLoadBalancerAttributes_ =
ModifyLoadBalancerAttributes'
{ _mlbaLoadBalancerName = pLoadBalancerName_
, _mlbaLoadBalancerAttributes = pLoadBalancerAttributes_
}
mlbaLoadBalancerName :: Lens' ModifyLoadBalancerAttributes Text
mlbaLoadBalancerName = lens _mlbaLoadBalancerName (\ s a -> s{_mlbaLoadBalancerName = a})
mlbaLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributes LoadBalancerAttributes
mlbaLoadBalancerAttributes = lens _mlbaLoadBalancerAttributes (\ s a -> s{_mlbaLoadBalancerAttributes = a})
instance AWSRequest ModifyLoadBalancerAttributes
where
type Rs ModifyLoadBalancerAttributes =
ModifyLoadBalancerAttributesResponse
request = postQuery elb
response
= receiveXMLWrapper
"ModifyLoadBalancerAttributesResult"
(\ s h x ->
ModifyLoadBalancerAttributesResponse' <$>
(x .@? "LoadBalancerName") <*>
(x .@? "LoadBalancerAttributes")
<*> (pure (fromEnum s)))
instance Hashable ModifyLoadBalancerAttributes where
instance NFData ModifyLoadBalancerAttributes where
instance ToHeaders ModifyLoadBalancerAttributes where
toHeaders = const mempty
instance ToPath ModifyLoadBalancerAttributes where
toPath = const "/"
instance ToQuery ModifyLoadBalancerAttributes where
toQuery ModifyLoadBalancerAttributes'{..}
= mconcat
["Action" =:
("ModifyLoadBalancerAttributes" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _mlbaLoadBalancerName,
"LoadBalancerAttributes" =:
_mlbaLoadBalancerAttributes]
data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse'
{ _mlbarsLoadBalancerName :: !(Maybe Text)
, _mlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes)
, _mlbarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyLoadBalancerAttributesResponse
:: Int
-> ModifyLoadBalancerAttributesResponse
modifyLoadBalancerAttributesResponse pResponseStatus_ =
ModifyLoadBalancerAttributesResponse'
{ _mlbarsLoadBalancerName = Nothing
, _mlbarsLoadBalancerAttributes = Nothing
, _mlbarsResponseStatus = pResponseStatus_
}
mlbarsLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text)
mlbarsLoadBalancerName = lens _mlbarsLoadBalancerName (\ s a -> s{_mlbarsLoadBalancerName = a})
mlbarsLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)
mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a})
mlbarsResponseStatus :: Lens' ModifyLoadBalancerAttributesResponse Int
mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a})
instance NFData ModifyLoadBalancerAttributesResponse
where