{-# 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.DescribeVPCEndpointServices
(
describeVPCEndpointServices
, DescribeVPCEndpointServices
, dvesFilters
, dvesServiceNames
, dvesNextToken
, dvesDryRun
, dvesMaxResults
, describeVPCEndpointServicesResponse
, DescribeVPCEndpointServicesResponse
, dvesrsServiceDetails
, dvesrsServiceNames
, dvesrsNextToken
, dvesrsResponseStatus
) 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 DescribeVPCEndpointServices = DescribeVPCEndpointServices'
{ _dvesFilters :: !(Maybe [Filter])
, _dvesServiceNames :: !(Maybe [Text])
, _dvesNextToken :: !(Maybe Text)
, _dvesDryRun :: !(Maybe Bool)
, _dvesMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVPCEndpointServices
:: DescribeVPCEndpointServices
describeVPCEndpointServices =
DescribeVPCEndpointServices'
{ _dvesFilters = Nothing
, _dvesServiceNames = Nothing
, _dvesNextToken = Nothing
, _dvesDryRun = Nothing
, _dvesMaxResults = Nothing
}
dvesFilters :: Lens' DescribeVPCEndpointServices [Filter]
dvesFilters = lens _dvesFilters (\ s a -> s{_dvesFilters = a}) . _Default . _Coerce
dvesServiceNames :: Lens' DescribeVPCEndpointServices [Text]
dvesServiceNames = lens _dvesServiceNames (\ s a -> s{_dvesServiceNames = a}) . _Default . _Coerce
dvesNextToken :: Lens' DescribeVPCEndpointServices (Maybe Text)
dvesNextToken = lens _dvesNextToken (\ s a -> s{_dvesNextToken = a})
dvesDryRun :: Lens' DescribeVPCEndpointServices (Maybe Bool)
dvesDryRun = lens _dvesDryRun (\ s a -> s{_dvesDryRun = a})
dvesMaxResults :: Lens' DescribeVPCEndpointServices (Maybe Int)
dvesMaxResults = lens _dvesMaxResults (\ s a -> s{_dvesMaxResults = a})
instance AWSRequest DescribeVPCEndpointServices where
type Rs DescribeVPCEndpointServices =
DescribeVPCEndpointServicesResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeVPCEndpointServicesResponse' <$>
(x .@? "serviceDetailSet" .!@ mempty >>=
may (parseXMLList "item"))
<*>
(x .@? "serviceNameSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (x .@? "nextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeVPCEndpointServices where
instance NFData DescribeVPCEndpointServices where
instance ToHeaders DescribeVPCEndpointServices where
toHeaders = const mempty
instance ToPath DescribeVPCEndpointServices where
toPath = const "/"
instance ToQuery DescribeVPCEndpointServices where
toQuery DescribeVPCEndpointServices'{..}
= mconcat
["Action" =:
("DescribeVpcEndpointServices" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
toQuery (toQueryList "Filter" <$> _dvesFilters),
toQuery
(toQueryList "ServiceName" <$> _dvesServiceNames),
"NextToken" =: _dvesNextToken,
"DryRun" =: _dvesDryRun,
"MaxResults" =: _dvesMaxResults]
data DescribeVPCEndpointServicesResponse = DescribeVPCEndpointServicesResponse'
{ _dvesrsServiceDetails :: !(Maybe [ServiceDetail])
, _dvesrsServiceNames :: !(Maybe [Text])
, _dvesrsNextToken :: !(Maybe Text)
, _dvesrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVPCEndpointServicesResponse
:: Int
-> DescribeVPCEndpointServicesResponse
describeVPCEndpointServicesResponse pResponseStatus_ =
DescribeVPCEndpointServicesResponse'
{ _dvesrsServiceDetails = Nothing
, _dvesrsServiceNames = Nothing
, _dvesrsNextToken = Nothing
, _dvesrsResponseStatus = pResponseStatus_
}
dvesrsServiceDetails :: Lens' DescribeVPCEndpointServicesResponse [ServiceDetail]
dvesrsServiceDetails = lens _dvesrsServiceDetails (\ s a -> s{_dvesrsServiceDetails = a}) . _Default . _Coerce
dvesrsServiceNames :: Lens' DescribeVPCEndpointServicesResponse [Text]
dvesrsServiceNames = lens _dvesrsServiceNames (\ s a -> s{_dvesrsServiceNames = a}) . _Default . _Coerce
dvesrsNextToken :: Lens' DescribeVPCEndpointServicesResponse (Maybe Text)
dvesrsNextToken = lens _dvesrsNextToken (\ s a -> s{_dvesrsNextToken = a})
dvesrsResponseStatus :: Lens' DescribeVPCEndpointServicesResponse Int
dvesrsResponseStatus = lens _dvesrsResponseStatus (\ s a -> s{_dvesrsResponseStatus = a})
instance NFData DescribeVPCEndpointServicesResponse
where