{-# 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.EC2.DescribeNatGateways
(
describeNatGateways
, DescribeNatGateways
, dngNatGatewayIds
, dngNextToken
, dngFilter
, dngMaxResults
, describeNatGatewaysResponse
, DescribeNatGatewaysResponse
, dngrsNatGateways
, dngrsNextToken
, dngrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeNatGateways = DescribeNatGateways'
{ _dngNatGatewayIds :: !(Maybe [Text])
, _dngNextToken :: !(Maybe Text)
, _dngFilter :: !(Maybe [Filter])
, _dngMaxResults :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeNatGateways
:: DescribeNatGateways
describeNatGateways =
DescribeNatGateways'
{ _dngNatGatewayIds = Nothing
, _dngNextToken = Nothing
, _dngFilter = Nothing
, _dngMaxResults = Nothing
}
dngNatGatewayIds :: Lens' DescribeNatGateways [Text]
dngNatGatewayIds = lens _dngNatGatewayIds (\ s a -> s{_dngNatGatewayIds = a}) . _Default . _Coerce;
dngNextToken :: Lens' DescribeNatGateways (Maybe Text)
dngNextToken = lens _dngNextToken (\ s a -> s{_dngNextToken = a});
dngFilter :: Lens' DescribeNatGateways [Filter]
dngFilter = lens _dngFilter (\ s a -> s{_dngFilter = a}) . _Default . _Coerce;
dngMaxResults :: Lens' DescribeNatGateways (Maybe Int)
dngMaxResults = lens _dngMaxResults (\ s a -> s{_dngMaxResults = a});
instance AWSRequest DescribeNatGateways where
type Rs DescribeNatGateways =
DescribeNatGatewaysResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeNatGatewaysResponse' <$>
(x .@? "natGatewaySet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (x .@? "nextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeNatGateways
instance NFData DescribeNatGateways
instance ToHeaders DescribeNatGateways where
toHeaders = const mempty
instance ToPath DescribeNatGateways where
toPath = const "/"
instance ToQuery DescribeNatGateways where
toQuery DescribeNatGateways'{..}
= mconcat
["Action" =: ("DescribeNatGateways" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
toQuery
(toQueryList "NatGatewayId" <$> _dngNatGatewayIds),
"NextToken" =: _dngNextToken,
toQuery (toQueryList "Filter" <$> _dngFilter),
"MaxResults" =: _dngMaxResults]
data DescribeNatGatewaysResponse = DescribeNatGatewaysResponse'
{ _dngrsNatGateways :: !(Maybe [NatGateway])
, _dngrsNextToken :: !(Maybe Text)
, _dngrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeNatGatewaysResponse
:: Int
-> DescribeNatGatewaysResponse
describeNatGatewaysResponse pResponseStatus_ =
DescribeNatGatewaysResponse'
{ _dngrsNatGateways = Nothing
, _dngrsNextToken = Nothing
, _dngrsResponseStatus = pResponseStatus_
}
dngrsNatGateways :: Lens' DescribeNatGatewaysResponse [NatGateway]
dngrsNatGateways = lens _dngrsNatGateways (\ s a -> s{_dngrsNatGateways = a}) . _Default . _Coerce;
dngrsNextToken :: Lens' DescribeNatGatewaysResponse (Maybe Text)
dngrsNextToken = lens _dngrsNextToken (\ s a -> s{_dngrsNextToken = a});
dngrsResponseStatus :: Lens' DescribeNatGatewaysResponse Int
dngrsResponseStatus = lens _dngrsResponseStatus (\ s a -> s{_dngrsResponseStatus = a});
instance NFData DescribeNatGatewaysResponse