module Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups
(
describeLoadBalancerTargetGroups
, DescribeLoadBalancerTargetGroups
, dlbtgsNextToken
, dlbtgsMaxRecords
, dlbtgsAutoScalingGroupName
, describeLoadBalancerTargetGroupsResponse
, DescribeLoadBalancerTargetGroupsResponse
, dlbtgsrsLoadBalancerTargetGroups
, dlbtgsrsNextToken
, dlbtgsrsResponseStatus
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeLoadBalancerTargetGroups = DescribeLoadBalancerTargetGroups'
{ _dlbtgsNextToken :: !(Maybe Text)
, _dlbtgsMaxRecords :: !(Maybe Int)
, _dlbtgsAutoScalingGroupName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeLoadBalancerTargetGroups
:: Text
-> DescribeLoadBalancerTargetGroups
describeLoadBalancerTargetGroups pAutoScalingGroupName_ =
DescribeLoadBalancerTargetGroups'
{ _dlbtgsNextToken = Nothing
, _dlbtgsMaxRecords = Nothing
, _dlbtgsAutoScalingGroupName = pAutoScalingGroupName_
}
dlbtgsNextToken :: Lens' DescribeLoadBalancerTargetGroups (Maybe Text)
dlbtgsNextToken = lens _dlbtgsNextToken (\ s a -> s{_dlbtgsNextToken = a});
dlbtgsMaxRecords :: Lens' DescribeLoadBalancerTargetGroups (Maybe Int)
dlbtgsMaxRecords = lens _dlbtgsMaxRecords (\ s a -> s{_dlbtgsMaxRecords = a});
dlbtgsAutoScalingGroupName :: Lens' DescribeLoadBalancerTargetGroups Text
dlbtgsAutoScalingGroupName = lens _dlbtgsAutoScalingGroupName (\ s a -> s{_dlbtgsAutoScalingGroupName = a});
instance AWSRequest DescribeLoadBalancerTargetGroups
where
type Rs DescribeLoadBalancerTargetGroups =
DescribeLoadBalancerTargetGroupsResponse
request = postQuery autoScaling
response
= receiveXMLWrapper
"DescribeLoadBalancerTargetGroupsResult"
(\ s h x ->
DescribeLoadBalancerTargetGroupsResponse' <$>
(x .@? "LoadBalancerTargetGroups" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeLoadBalancerTargetGroups
where
instance NFData DescribeLoadBalancerTargetGroups
where
instance ToHeaders DescribeLoadBalancerTargetGroups
where
toHeaders = const mempty
instance ToPath DescribeLoadBalancerTargetGroups
where
toPath = const "/"
instance ToQuery DescribeLoadBalancerTargetGroups
where
toQuery DescribeLoadBalancerTargetGroups'{..}
= mconcat
["Action" =:
("DescribeLoadBalancerTargetGroups" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"NextToken" =: _dlbtgsNextToken,
"MaxRecords" =: _dlbtgsMaxRecords,
"AutoScalingGroupName" =:
_dlbtgsAutoScalingGroupName]
data DescribeLoadBalancerTargetGroupsResponse = DescribeLoadBalancerTargetGroupsResponse'
{ _dlbtgsrsLoadBalancerTargetGroups :: !(Maybe [LoadBalancerTargetGroupState])
, _dlbtgsrsNextToken :: !(Maybe Text)
, _dlbtgsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeLoadBalancerTargetGroupsResponse
:: Int
-> DescribeLoadBalancerTargetGroupsResponse
describeLoadBalancerTargetGroupsResponse pResponseStatus_ =
DescribeLoadBalancerTargetGroupsResponse'
{ _dlbtgsrsLoadBalancerTargetGroups = Nothing
, _dlbtgsrsNextToken = Nothing
, _dlbtgsrsResponseStatus = pResponseStatus_
}
dlbtgsrsLoadBalancerTargetGroups :: Lens' DescribeLoadBalancerTargetGroupsResponse [LoadBalancerTargetGroupState]
dlbtgsrsLoadBalancerTargetGroups = lens _dlbtgsrsLoadBalancerTargetGroups (\ s a -> s{_dlbtgsrsLoadBalancerTargetGroups = a}) . _Default . _Coerce;
dlbtgsrsNextToken :: Lens' DescribeLoadBalancerTargetGroupsResponse (Maybe Text)
dlbtgsrsNextToken = lens _dlbtgsrsNextToken (\ s a -> s{_dlbtgsrsNextToken = a});
dlbtgsrsResponseStatus :: Lens' DescribeLoadBalancerTargetGroupsResponse Int
dlbtgsrsResponseStatus = lens _dlbtgsrsResponseStatus (\ s a -> s{_dlbtgsrsResponseStatus = a});
instance NFData
DescribeLoadBalancerTargetGroupsResponse
where