module Network.AWS.ELB.ModifyLoadBalancerAttributes
(
ModifyLoadBalancerAttributes
, modifyLoadBalancerAttributes
, mlbaLoadBalancerAttributes
, mlbaLoadBalancerName
, ModifyLoadBalancerAttributesResponse
, modifyLoadBalancerAttributesResponse
, mlbarLoadBalancerAttributes
, mlbarLoadBalancerName
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributes
{ _mlbaLoadBalancerAttributes :: LoadBalancerAttributes
, _mlbaLoadBalancerName :: Text
} deriving (Eq, Show)
modifyLoadBalancerAttributes :: Text
-> LoadBalancerAttributes
-> ModifyLoadBalancerAttributes
modifyLoadBalancerAttributes p1 p2 = ModifyLoadBalancerAttributes
{ _mlbaLoadBalancerName = p1
, _mlbaLoadBalancerAttributes = p2
}
mlbaLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributes LoadBalancerAttributes
mlbaLoadBalancerAttributes =
lens _mlbaLoadBalancerAttributes
(\s a -> s { _mlbaLoadBalancerAttributes = a })
mlbaLoadBalancerName :: Lens' ModifyLoadBalancerAttributes Text
mlbaLoadBalancerName =
lens _mlbaLoadBalancerName (\s a -> s { _mlbaLoadBalancerName = a })
data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse
{ _mlbarLoadBalancerAttributes :: Maybe LoadBalancerAttributes
, _mlbarLoadBalancerName :: Maybe Text
} deriving (Eq, Show)
modifyLoadBalancerAttributesResponse :: ModifyLoadBalancerAttributesResponse
modifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse
{ _mlbarLoadBalancerName = Nothing
, _mlbarLoadBalancerAttributes = Nothing
}
mlbarLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)
mlbarLoadBalancerAttributes =
lens _mlbarLoadBalancerAttributes
(\s a -> s { _mlbarLoadBalancerAttributes = a })
mlbarLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text)
mlbarLoadBalancerName =
lens _mlbarLoadBalancerName (\s a -> s { _mlbarLoadBalancerName = a })
instance ToPath ModifyLoadBalancerAttributes where
toPath = const "/"
instance ToQuery ModifyLoadBalancerAttributes where
toQuery ModifyLoadBalancerAttributes{..} = mconcat
[ "LoadBalancerAttributes" =? _mlbaLoadBalancerAttributes
, "LoadBalancerName" =? _mlbaLoadBalancerName
]
instance ToHeaders ModifyLoadBalancerAttributes
instance AWSRequest ModifyLoadBalancerAttributes where
type Sv ModifyLoadBalancerAttributes = ELB
type Rs ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributesResponse
request = post "ModifyLoadBalancerAttributes"
response = xmlResponse
instance FromXML ModifyLoadBalancerAttributesResponse where
parseXML = withElement "ModifyLoadBalancerAttributesResult" $ \x -> ModifyLoadBalancerAttributesResponse
<$> x .@? "LoadBalancerAttributes"
<*> x .@? "LoadBalancerName"