module Network.AWS.EC2.DescribeVpcEndpointServices
(
DescribeVpcEndpointServices
, describeVpcEndpointServices
, dvesDryRun
, dvesMaxResults
, dvesNextToken
, DescribeVpcEndpointServicesResponse
, describeVpcEndpointServicesResponse
, dvesrNextToken
, dvesrServiceNames
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DescribeVpcEndpointServices = DescribeVpcEndpointServices
{ _dvesDryRun :: Maybe Bool
, _dvesMaxResults :: Maybe Int
, _dvesNextToken :: Maybe Text
} deriving (Eq, Ord, Read, Show)
describeVpcEndpointServices :: DescribeVpcEndpointServices
describeVpcEndpointServices = DescribeVpcEndpointServices
{ _dvesDryRun = Nothing
, _dvesMaxResults = Nothing
, _dvesNextToken = Nothing
}
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 })
dvesNextToken :: Lens' DescribeVpcEndpointServices (Maybe Text)
dvesNextToken = lens _dvesNextToken (\s a -> s { _dvesNextToken = a })
data DescribeVpcEndpointServicesResponse = DescribeVpcEndpointServicesResponse
{ _dvesrNextToken :: Maybe Text
, _dvesrServiceNames :: List "item" Text
} deriving (Eq, Ord, Read, Show)
describeVpcEndpointServicesResponse :: DescribeVpcEndpointServicesResponse
describeVpcEndpointServicesResponse = DescribeVpcEndpointServicesResponse
{ _dvesrServiceNames = mempty
, _dvesrNextToken = Nothing
}
dvesrNextToken :: Lens' DescribeVpcEndpointServicesResponse (Maybe Text)
dvesrNextToken = lens _dvesrNextToken (\s a -> s { _dvesrNextToken = a })
dvesrServiceNames :: Lens' DescribeVpcEndpointServicesResponse [Text]
dvesrServiceNames =
lens _dvesrServiceNames (\s a -> s { _dvesrServiceNames = a })
. _List
instance ToPath DescribeVpcEndpointServices where
toPath = const "/"
instance ToQuery DescribeVpcEndpointServices where
toQuery DescribeVpcEndpointServices{..} = mconcat
[ "DryRun" =? _dvesDryRun
, "MaxResults" =? _dvesMaxResults
, "NextToken" =? _dvesNextToken
]
instance ToHeaders DescribeVpcEndpointServices
instance AWSRequest DescribeVpcEndpointServices where
type Sv DescribeVpcEndpointServices = EC2
type Rs DescribeVpcEndpointServices = DescribeVpcEndpointServicesResponse
request = post "DescribeVpcEndpointServices"
response = xmlResponse
instance FromXML DescribeVpcEndpointServicesResponse where
parseXML x = DescribeVpcEndpointServicesResponse
<$> x .@? "nextToken"
<*> x .@? "serviceNameSet" .!@ mempty