{-# 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.DescribeVPCClassicLink
(
describeVPCClassicLink
, DescribeVPCClassicLink
, dvclFilters
, dvclVPCIds
, dvclDryRun
, describeVPCClassicLinkResponse
, DescribeVPCClassicLinkResponse
, dvclrsVPCs
, dvclrsResponseStatus
) 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 DescribeVPCClassicLink = DescribeVPCClassicLink'
{ _dvclFilters :: !(Maybe [Filter])
, _dvclVPCIds :: !(Maybe [Text])
, _dvclDryRun :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeVPCClassicLink
:: DescribeVPCClassicLink
describeVPCClassicLink =
DescribeVPCClassicLink'
{ _dvclFilters = Nothing
, _dvclVPCIds = Nothing
, _dvclDryRun = Nothing
}
dvclFilters :: Lens' DescribeVPCClassicLink [Filter]
dvclFilters = lens _dvclFilters (\ s a -> s{_dvclFilters = a}) . _Default . _Coerce;
dvclVPCIds :: Lens' DescribeVPCClassicLink [Text]
dvclVPCIds = lens _dvclVPCIds (\ s a -> s{_dvclVPCIds = a}) . _Default . _Coerce;
dvclDryRun :: Lens' DescribeVPCClassicLink (Maybe Bool)
dvclDryRun = lens _dvclDryRun (\ s a -> s{_dvclDryRun = a});
instance AWSRequest DescribeVPCClassicLink where
type Rs DescribeVPCClassicLink =
DescribeVPCClassicLinkResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeVPCClassicLinkResponse' <$>
(x .@? "vpcSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable DescribeVPCClassicLink
instance NFData DescribeVPCClassicLink
instance ToHeaders DescribeVPCClassicLink where
toHeaders = const mempty
instance ToPath DescribeVPCClassicLink where
toPath = const "/"
instance ToQuery DescribeVPCClassicLink where
toQuery DescribeVPCClassicLink'{..}
= mconcat
["Action" =:
("DescribeVpcClassicLink" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
toQuery (toQueryList "Filter" <$> _dvclFilters),
toQuery (toQueryList "VpcId" <$> _dvclVPCIds),
"DryRun" =: _dvclDryRun]
data DescribeVPCClassicLinkResponse = DescribeVPCClassicLinkResponse'
{ _dvclrsVPCs :: !(Maybe [VPCClassicLink])
, _dvclrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeVPCClassicLinkResponse
:: Int
-> DescribeVPCClassicLinkResponse
describeVPCClassicLinkResponse pResponseStatus_ =
DescribeVPCClassicLinkResponse'
{ _dvclrsVPCs = Nothing
, _dvclrsResponseStatus = pResponseStatus_
}
dvclrsVPCs :: Lens' DescribeVPCClassicLinkResponse [VPCClassicLink]
dvclrsVPCs = lens _dvclrsVPCs (\ s a -> s{_dvclrsVPCs = a}) . _Default . _Coerce;
dvclrsResponseStatus :: Lens' DescribeVPCClassicLinkResponse Int
dvclrsResponseStatus = lens _dvclrsResponseStatus (\ s a -> s{_dvclrsResponseStatus = a});
instance NFData DescribeVPCClassicLinkResponse