{-# 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.AttachVPNGateway
(
attachVPNGateway
, AttachVPNGateway
, avgDryRun
, avgVPCId
, avgVPNGatewayId
, attachVPNGatewayResponse
, AttachVPNGatewayResponse
, avgrsVPCAttachment
, avgrsResponseStatus
) 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 AttachVPNGateway = AttachVPNGateway'
{ _avgDryRun :: !(Maybe Bool)
, _avgVPCId :: !Text
, _avgVPNGatewayId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
attachVPNGateway
:: Text
-> Text
-> AttachVPNGateway
attachVPNGateway pVPCId_ pVPNGatewayId_ =
AttachVPNGateway'
{ _avgDryRun = Nothing
, _avgVPCId = pVPCId_
, _avgVPNGatewayId = pVPNGatewayId_
}
avgDryRun :: Lens' AttachVPNGateway (Maybe Bool)
avgDryRun = lens _avgDryRun (\ s a -> s{_avgDryRun = a})
avgVPCId :: Lens' AttachVPNGateway Text
avgVPCId = lens _avgVPCId (\ s a -> s{_avgVPCId = a})
avgVPNGatewayId :: Lens' AttachVPNGateway Text
avgVPNGatewayId = lens _avgVPNGatewayId (\ s a -> s{_avgVPNGatewayId = a})
instance AWSRequest AttachVPNGateway where
type Rs AttachVPNGateway = AttachVPNGatewayResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
AttachVPNGatewayResponse' <$>
(x .@? "attachment") <*> (pure (fromEnum s)))
instance Hashable AttachVPNGateway where
instance NFData AttachVPNGateway where
instance ToHeaders AttachVPNGateway where
toHeaders = const mempty
instance ToPath AttachVPNGateway where
toPath = const "/"
instance ToQuery AttachVPNGateway where
toQuery AttachVPNGateway'{..}
= mconcat
["Action" =: ("AttachVpnGateway" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _avgDryRun, "VpcId" =: _avgVPCId,
"VpnGatewayId" =: _avgVPNGatewayId]
data AttachVPNGatewayResponse = AttachVPNGatewayResponse'
{ _avgrsVPCAttachment :: !(Maybe VPCAttachment)
, _avgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
attachVPNGatewayResponse
:: Int
-> AttachVPNGatewayResponse
attachVPNGatewayResponse pResponseStatus_ =
AttachVPNGatewayResponse'
{_avgrsVPCAttachment = Nothing, _avgrsResponseStatus = pResponseStatus_}
avgrsVPCAttachment :: Lens' AttachVPNGatewayResponse (Maybe VPCAttachment)
avgrsVPCAttachment = lens _avgrsVPCAttachment (\ s a -> s{_avgrsVPCAttachment = a})
avgrsResponseStatus :: Lens' AttachVPNGatewayResponse Int
avgrsResponseStatus = lens _avgrsResponseStatus (\ s a -> s{_avgrsResponseStatus = a})
instance NFData AttachVPNGatewayResponse where