{-# 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.ELBv2.DescribeTargetGroups
(
describeTargetGroups
, DescribeTargetGroups
, dtgTargetGroupARNs
, dtgNames
, dtgLoadBalancerARN
, dtgMarker
, dtgPageSize
, describeTargetGroupsResponse
, DescribeTargetGroupsResponse
, dtgsrsNextMarker
, dtgsrsTargetGroups
, dtgsrsResponseStatus
) 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 DescribeTargetGroups = DescribeTargetGroups'
{ _dtgTargetGroupARNs :: !(Maybe [Text])
, _dtgNames :: !(Maybe [Text])
, _dtgLoadBalancerARN :: !(Maybe Text)
, _dtgMarker :: !(Maybe Text)
, _dtgPageSize :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTargetGroups
:: DescribeTargetGroups
describeTargetGroups =
DescribeTargetGroups'
{ _dtgTargetGroupARNs = Nothing
, _dtgNames = Nothing
, _dtgLoadBalancerARN = Nothing
, _dtgMarker = Nothing
, _dtgPageSize = Nothing
}
dtgTargetGroupARNs :: Lens' DescribeTargetGroups [Text]
dtgTargetGroupARNs = lens _dtgTargetGroupARNs (\ s a -> s{_dtgTargetGroupARNs = a}) . _Default . _Coerce;
dtgNames :: Lens' DescribeTargetGroups [Text]
dtgNames = lens _dtgNames (\ s a -> s{_dtgNames = a}) . _Default . _Coerce;
dtgLoadBalancerARN :: Lens' DescribeTargetGroups (Maybe Text)
dtgLoadBalancerARN = lens _dtgLoadBalancerARN (\ s a -> s{_dtgLoadBalancerARN = a});
dtgMarker :: Lens' DescribeTargetGroups (Maybe Text)
dtgMarker = lens _dtgMarker (\ s a -> s{_dtgMarker = a});
dtgPageSize :: Lens' DescribeTargetGroups (Maybe Natural)
dtgPageSize = lens _dtgPageSize (\ s a -> s{_dtgPageSize = a}) . mapping _Nat;
instance AWSPager DescribeTargetGroups where
page rq rs
| stop (rs ^. dtgsrsNextMarker) = Nothing
| stop (rs ^. dtgsrsTargetGroups) = Nothing
| otherwise =
Just $ rq & dtgMarker .~ rs ^. dtgsrsNextMarker
instance AWSRequest DescribeTargetGroups where
type Rs DescribeTargetGroups =
DescribeTargetGroupsResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "DescribeTargetGroupsResult"
(\ s h x ->
DescribeTargetGroupsResponse' <$>
(x .@? "NextMarker") <*>
(x .@? "TargetGroups" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable DescribeTargetGroups
instance NFData DescribeTargetGroups
instance ToHeaders DescribeTargetGroups where
toHeaders = const mempty
instance ToPath DescribeTargetGroups where
toPath = const "/"
instance ToQuery DescribeTargetGroups where
toQuery DescribeTargetGroups'{..}
= mconcat
["Action" =: ("DescribeTargetGroups" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"TargetGroupArns" =:
toQuery
(toQueryList "member" <$> _dtgTargetGroupARNs),
"Names" =:
toQuery (toQueryList "member" <$> _dtgNames),
"LoadBalancerArn" =: _dtgLoadBalancerARN,
"Marker" =: _dtgMarker, "PageSize" =: _dtgPageSize]
data DescribeTargetGroupsResponse = DescribeTargetGroupsResponse'
{ _dtgsrsNextMarker :: !(Maybe Text)
, _dtgsrsTargetGroups :: !(Maybe [TargetGroup])
, _dtgsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTargetGroupsResponse
:: Int
-> DescribeTargetGroupsResponse
describeTargetGroupsResponse pResponseStatus_ =
DescribeTargetGroupsResponse'
{ _dtgsrsNextMarker = Nothing
, _dtgsrsTargetGroups = Nothing
, _dtgsrsResponseStatus = pResponseStatus_
}
dtgsrsNextMarker :: Lens' DescribeTargetGroupsResponse (Maybe Text)
dtgsrsNextMarker = lens _dtgsrsNextMarker (\ s a -> s{_dtgsrsNextMarker = a});
dtgsrsTargetGroups :: Lens' DescribeTargetGroupsResponse [TargetGroup]
dtgsrsTargetGroups = lens _dtgsrsTargetGroups (\ s a -> s{_dtgsrsTargetGroups = a}) . _Default . _Coerce;
dtgsrsResponseStatus :: Lens' DescribeTargetGroupsResponse Int
dtgsrsResponseStatus = lens _dtgsrsResponseStatus (\ s a -> s{_dtgsrsResponseStatus = a});
instance NFData DescribeTargetGroupsResponse