{-# 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.DisableAvailabilityZonesForLoadBalancer
(
disableAvailabilityZonesForLoadBalancer
, DisableAvailabilityZonesForLoadBalancer
, dazflbLoadBalancerName
, dazflbAvailabilityZones
, disableAvailabilityZonesForLoadBalancerResponse
, DisableAvailabilityZonesForLoadBalancerResponse
, dazflbrsAvailabilityZones
, dazflbrsResponseStatus
) 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 DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancer'
{ _dazflbLoadBalancerName :: !Text
, _dazflbAvailabilityZones :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disableAvailabilityZonesForLoadBalancer
:: Text
-> DisableAvailabilityZonesForLoadBalancer
disableAvailabilityZonesForLoadBalancer pLoadBalancerName_ =
DisableAvailabilityZonesForLoadBalancer'
{ _dazflbLoadBalancerName = pLoadBalancerName_
, _dazflbAvailabilityZones = mempty
}
dazflbLoadBalancerName :: Lens' DisableAvailabilityZonesForLoadBalancer Text
dazflbLoadBalancerName = lens _dazflbLoadBalancerName (\ s a -> s{_dazflbLoadBalancerName = a})
dazflbAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancer [Text]
dazflbAvailabilityZones = lens _dazflbAvailabilityZones (\ s a -> s{_dazflbAvailabilityZones = a}) . _Coerce
instance AWSRequest
DisableAvailabilityZonesForLoadBalancer
where
type Rs DisableAvailabilityZonesForLoadBalancer =
DisableAvailabilityZonesForLoadBalancerResponse
request = postQuery elb
response
= receiveXMLWrapper
"DisableAvailabilityZonesForLoadBalancerResult"
(\ s h x ->
DisableAvailabilityZonesForLoadBalancerResponse' <$>
(x .@? "AvailabilityZones" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable
DisableAvailabilityZonesForLoadBalancer
where
instance NFData
DisableAvailabilityZonesForLoadBalancer
where
instance ToHeaders
DisableAvailabilityZonesForLoadBalancer
where
toHeaders = const mempty
instance ToPath
DisableAvailabilityZonesForLoadBalancer
where
toPath = const "/"
instance ToQuery
DisableAvailabilityZonesForLoadBalancer
where
toQuery DisableAvailabilityZonesForLoadBalancer'{..}
= mconcat
["Action" =:
("DisableAvailabilityZonesForLoadBalancer" ::
ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _dazflbLoadBalancerName,
"AvailabilityZones" =:
toQueryList "member" _dazflbAvailabilityZones]
data DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse'
{ _dazflbrsAvailabilityZones :: !(Maybe [Text])
, _dazflbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disableAvailabilityZonesForLoadBalancerResponse
:: Int
-> DisableAvailabilityZonesForLoadBalancerResponse
disableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ =
DisableAvailabilityZonesForLoadBalancerResponse'
{ _dazflbrsAvailabilityZones = Nothing
, _dazflbrsResponseStatus = pResponseStatus_
}
dazflbrsAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancerResponse [Text]
dazflbrsAvailabilityZones = lens _dazflbrsAvailabilityZones (\ s a -> s{_dazflbrsAvailabilityZones = a}) . _Default . _Coerce
dazflbrsResponseStatus :: Lens' DisableAvailabilityZonesForLoadBalancerResponse Int
dazflbrsResponseStatus = lens _dazflbrsResponseStatus (\ s a -> s{_dazflbrsResponseStatus = a})
instance NFData
DisableAvailabilityZonesForLoadBalancerResponse
where