module Network.AWS.EC2.DescribeVpcAttribute
(
DescribeVpcAttribute
, describeVpcAttribute
, dva1Attribute
, dva1DryRun
, dva1VpcId
, DescribeVpcAttributeResponse
, describeVpcAttributeResponse
, dvarEnableDnsHostnames
, dvarEnableDnsSupport
, dvarVpcId
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DescribeVpcAttribute = DescribeVpcAttribute
{ _dva1Attribute :: Maybe Text
, _dva1DryRun :: Maybe Bool
, _dva1VpcId :: Text
} deriving (Eq, Ord, Show)
describeVpcAttribute :: Text
-> DescribeVpcAttribute
describeVpcAttribute p1 = DescribeVpcAttribute
{ _dva1VpcId = p1
, _dva1DryRun = Nothing
, _dva1Attribute = Nothing
}
dva1Attribute :: Lens' DescribeVpcAttribute (Maybe Text)
dva1Attribute = lens _dva1Attribute (\s a -> s { _dva1Attribute = a })
dva1DryRun :: Lens' DescribeVpcAttribute (Maybe Bool)
dva1DryRun = lens _dva1DryRun (\s a -> s { _dva1DryRun = a })
dva1VpcId :: Lens' DescribeVpcAttribute Text
dva1VpcId = lens _dva1VpcId (\s a -> s { _dva1VpcId = a })
data DescribeVpcAttributeResponse = DescribeVpcAttributeResponse
{ _dvarEnableDnsHostnames :: Maybe AttributeBooleanValue
, _dvarEnableDnsSupport :: Maybe AttributeBooleanValue
, _dvarVpcId :: Maybe Text
} deriving (Eq, Show)
describeVpcAttributeResponse :: DescribeVpcAttributeResponse
describeVpcAttributeResponse = DescribeVpcAttributeResponse
{ _dvarVpcId = Nothing
, _dvarEnableDnsSupport = Nothing
, _dvarEnableDnsHostnames = Nothing
}
dvarEnableDnsHostnames :: Lens' DescribeVpcAttributeResponse (Maybe AttributeBooleanValue)
dvarEnableDnsHostnames =
lens _dvarEnableDnsHostnames (\s a -> s { _dvarEnableDnsHostnames = a })
dvarEnableDnsSupport :: Lens' DescribeVpcAttributeResponse (Maybe AttributeBooleanValue)
dvarEnableDnsSupport =
lens _dvarEnableDnsSupport (\s a -> s { _dvarEnableDnsSupport = a })
dvarVpcId :: Lens' DescribeVpcAttributeResponse (Maybe Text)
dvarVpcId = lens _dvarVpcId (\s a -> s { _dvarVpcId = a })
instance ToPath DescribeVpcAttribute where
toPath = const "/"
instance ToQuery DescribeVpcAttribute where
toQuery DescribeVpcAttribute{..} = mconcat
[ "Attribute" =? _dva1Attribute
, "dryRun" =? _dva1DryRun
, "VpcId" =? _dva1VpcId
]
instance ToHeaders DescribeVpcAttribute
instance AWSRequest DescribeVpcAttribute where
type Sv DescribeVpcAttribute = EC2
type Rs DescribeVpcAttribute = DescribeVpcAttributeResponse
request = post "DescribeVpcAttribute"
response = xmlResponse
instance FromXML DescribeVpcAttributeResponse where
parseXML x = DescribeVpcAttributeResponse
<$> x .@? "enableDnsHostnames"
<*> x .@? "enableDnsSupport"
<*> x .@? "vpcId"