{-# 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.AssociateVPCCidrBlock
(
associateVPCCidrBlock
, AssociateVPCCidrBlock
, avcbCidrBlock
, avcbAmazonProvidedIPv6CidrBlock
, avcbVPCId
, associateVPCCidrBlockResponse
, AssociateVPCCidrBlockResponse
, avcbrsVPCId
, avcbrsCidrBlockAssociation
, avcbrsIPv6CidrBlockAssociation
, avcbrsResponseStatus
) 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 AssociateVPCCidrBlock = AssociateVPCCidrBlock'
{ _avcbCidrBlock :: !(Maybe Text)
, _avcbAmazonProvidedIPv6CidrBlock :: !(Maybe Bool)
, _avcbVPCId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associateVPCCidrBlock
:: Text
-> AssociateVPCCidrBlock
associateVPCCidrBlock pVPCId_ =
AssociateVPCCidrBlock'
{ _avcbCidrBlock = Nothing
, _avcbAmazonProvidedIPv6CidrBlock = Nothing
, _avcbVPCId = pVPCId_
}
avcbCidrBlock :: Lens' AssociateVPCCidrBlock (Maybe Text)
avcbCidrBlock = lens _avcbCidrBlock (\ s a -> s{_avcbCidrBlock = a})
avcbAmazonProvidedIPv6CidrBlock :: Lens' AssociateVPCCidrBlock (Maybe Bool)
avcbAmazonProvidedIPv6CidrBlock = lens _avcbAmazonProvidedIPv6CidrBlock (\ s a -> s{_avcbAmazonProvidedIPv6CidrBlock = a})
avcbVPCId :: Lens' AssociateVPCCidrBlock Text
avcbVPCId = lens _avcbVPCId (\ s a -> s{_avcbVPCId = a})
instance AWSRequest AssociateVPCCidrBlock where
type Rs AssociateVPCCidrBlock =
AssociateVPCCidrBlockResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
AssociateVPCCidrBlockResponse' <$>
(x .@? "vpcId") <*> (x .@? "cidrBlockAssociation")
<*> (x .@? "ipv6CidrBlockAssociation")
<*> (pure (fromEnum s)))
instance Hashable AssociateVPCCidrBlock where
instance NFData AssociateVPCCidrBlock where
instance ToHeaders AssociateVPCCidrBlock where
toHeaders = const mempty
instance ToPath AssociateVPCCidrBlock where
toPath = const "/"
instance ToQuery AssociateVPCCidrBlock where
toQuery AssociateVPCCidrBlock'{..}
= mconcat
["Action" =: ("AssociateVpcCidrBlock" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"CidrBlock" =: _avcbCidrBlock,
"AmazonProvidedIpv6CidrBlock" =:
_avcbAmazonProvidedIPv6CidrBlock,
"VpcId" =: _avcbVPCId]
data AssociateVPCCidrBlockResponse = AssociateVPCCidrBlockResponse'
{ _avcbrsVPCId :: !(Maybe Text)
, _avcbrsCidrBlockAssociation :: !(Maybe VPCCidrBlockAssociation)
, _avcbrsIPv6CidrBlockAssociation :: !(Maybe VPCIPv6CidrBlockAssociation)
, _avcbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associateVPCCidrBlockResponse
:: Int
-> AssociateVPCCidrBlockResponse
associateVPCCidrBlockResponse pResponseStatus_ =
AssociateVPCCidrBlockResponse'
{ _avcbrsVPCId = Nothing
, _avcbrsCidrBlockAssociation = Nothing
, _avcbrsIPv6CidrBlockAssociation = Nothing
, _avcbrsResponseStatus = pResponseStatus_
}
avcbrsVPCId :: Lens' AssociateVPCCidrBlockResponse (Maybe Text)
avcbrsVPCId = lens _avcbrsVPCId (\ s a -> s{_avcbrsVPCId = a})
avcbrsCidrBlockAssociation :: Lens' AssociateVPCCidrBlockResponse (Maybe VPCCidrBlockAssociation)
avcbrsCidrBlockAssociation = lens _avcbrsCidrBlockAssociation (\ s a -> s{_avcbrsCidrBlockAssociation = a})
avcbrsIPv6CidrBlockAssociation :: Lens' AssociateVPCCidrBlockResponse (Maybe VPCIPv6CidrBlockAssociation)
avcbrsIPv6CidrBlockAssociation = lens _avcbrsIPv6CidrBlockAssociation (\ s a -> s{_avcbrsIPv6CidrBlockAssociation = a})
avcbrsResponseStatus :: Lens' AssociateVPCCidrBlockResponse Int
avcbrsResponseStatus = lens _avcbrsResponseStatus (\ s a -> s{_avcbrsResponseStatus = a})
instance NFData AssociateVPCCidrBlockResponse where