module Network.AWS.ELBv2.DescribeLoadBalancers
(
describeLoadBalancers
, DescribeLoadBalancers
, dlbNames
, dlbLoadBalancerARNs
, dlbMarker
, dlbPageSize
, describeLoadBalancersResponse
, DescribeLoadBalancersResponse
, dlbrsLoadBalancers
, dlbrsNextMarker
, dlbrsResponseStatus
) where
import Network.AWS.ELBv2.Types
import Network.AWS.ELBv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeLoadBalancers = DescribeLoadBalancers'
{ _dlbNames :: !(Maybe [Text])
, _dlbLoadBalancerARNs :: !(Maybe [Text])
, _dlbMarker :: !(Maybe Text)
, _dlbPageSize :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeLoadBalancers
:: DescribeLoadBalancers
describeLoadBalancers =
DescribeLoadBalancers'
{ _dlbNames = Nothing
, _dlbLoadBalancerARNs = Nothing
, _dlbMarker = Nothing
, _dlbPageSize = Nothing
}
dlbNames :: Lens' DescribeLoadBalancers [Text]
dlbNames = lens _dlbNames (\ s a -> s{_dlbNames = a}) . _Default . _Coerce;
dlbLoadBalancerARNs :: Lens' DescribeLoadBalancers [Text]
dlbLoadBalancerARNs = lens _dlbLoadBalancerARNs (\ s a -> s{_dlbLoadBalancerARNs = a}) . _Default . _Coerce;
dlbMarker :: Lens' DescribeLoadBalancers (Maybe Text)
dlbMarker = lens _dlbMarker (\ s a -> s{_dlbMarker = a});
dlbPageSize :: Lens' DescribeLoadBalancers (Maybe Natural)
dlbPageSize = lens _dlbPageSize (\ s a -> s{_dlbPageSize = a}) . mapping _Nat;
instance AWSPager DescribeLoadBalancers where
page rq rs
| stop (rs ^. dlbrsNextMarker) = Nothing
| stop (rs ^. dlbrsLoadBalancers) = Nothing
| otherwise =
Just $ rq & dlbMarker .~ rs ^. dlbrsNextMarker
instance AWSRequest DescribeLoadBalancers where
type Rs DescribeLoadBalancers =
DescribeLoadBalancersResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "DescribeLoadBalancersResult"
(\ s h x ->
DescribeLoadBalancersResponse' <$>
(x .@? "LoadBalancers" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "NextMarker")
<*> (pure (fromEnum s)))
instance Hashable DescribeLoadBalancers where
instance NFData DescribeLoadBalancers where
instance ToHeaders DescribeLoadBalancers where
toHeaders = const mempty
instance ToPath DescribeLoadBalancers where
toPath = const "/"
instance ToQuery DescribeLoadBalancers where
toQuery DescribeLoadBalancers'{..}
= mconcat
["Action" =: ("DescribeLoadBalancers" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"Names" =:
toQuery (toQueryList "member" <$> _dlbNames),
"LoadBalancerArns" =:
toQuery
(toQueryList "member" <$> _dlbLoadBalancerARNs),
"Marker" =: _dlbMarker, "PageSize" =: _dlbPageSize]
data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse'
{ _dlbrsLoadBalancers :: !(Maybe [LoadBalancer])
, _dlbrsNextMarker :: !(Maybe Text)
, _dlbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeLoadBalancersResponse
:: Int
-> DescribeLoadBalancersResponse
describeLoadBalancersResponse pResponseStatus_ =
DescribeLoadBalancersResponse'
{ _dlbrsLoadBalancers = Nothing
, _dlbrsNextMarker = Nothing
, _dlbrsResponseStatus = pResponseStatus_
}
dlbrsLoadBalancers :: Lens' DescribeLoadBalancersResponse [LoadBalancer]
dlbrsLoadBalancers = lens _dlbrsLoadBalancers (\ s a -> s{_dlbrsLoadBalancers = a}) . _Default . _Coerce;
dlbrsNextMarker :: Lens' DescribeLoadBalancersResponse (Maybe Text)
dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a});
dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int
dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a});
instance NFData DescribeLoadBalancersResponse where