{-# 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.EnableVPCClassicLink
(
enableVPCClassicLink
, EnableVPCClassicLink
, evclDryRun
, evclVPCId
, enableVPCClassicLinkResponse
, EnableVPCClassicLinkResponse
, evclrsReturn
, evclrsResponseStatus
) 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 EnableVPCClassicLink = EnableVPCClassicLink'
{ _evclDryRun :: !(Maybe Bool)
, _evclVPCId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
enableVPCClassicLink
:: Text
-> EnableVPCClassicLink
enableVPCClassicLink pVPCId_ =
EnableVPCClassicLink'
{ _evclDryRun = Nothing
, _evclVPCId = pVPCId_
}
evclDryRun :: Lens' EnableVPCClassicLink (Maybe Bool)
evclDryRun = lens _evclDryRun (\ s a -> s{_evclDryRun = a});
evclVPCId :: Lens' EnableVPCClassicLink Text
evclVPCId = lens _evclVPCId (\ s a -> s{_evclVPCId = a});
instance AWSRequest EnableVPCClassicLink where
type Rs EnableVPCClassicLink =
EnableVPCClassicLinkResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
EnableVPCClassicLinkResponse' <$>
(x .@? "return") <*> (pure (fromEnum s)))
instance Hashable EnableVPCClassicLink
instance NFData EnableVPCClassicLink
instance ToHeaders EnableVPCClassicLink where
toHeaders = const mempty
instance ToPath EnableVPCClassicLink where
toPath = const "/"
instance ToQuery EnableVPCClassicLink where
toQuery EnableVPCClassicLink'{..}
= mconcat
["Action" =: ("EnableVpcClassicLink" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _evclDryRun, "VpcId" =: _evclVPCId]
data EnableVPCClassicLinkResponse = EnableVPCClassicLinkResponse'
{ _evclrsReturn :: !(Maybe Bool)
, _evclrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
enableVPCClassicLinkResponse
:: Int
-> EnableVPCClassicLinkResponse
enableVPCClassicLinkResponse pResponseStatus_ =
EnableVPCClassicLinkResponse'
{ _evclrsReturn = Nothing
, _evclrsResponseStatus = pResponseStatus_
}
evclrsReturn :: Lens' EnableVPCClassicLinkResponse (Maybe Bool)
evclrsReturn = lens _evclrsReturn (\ s a -> s{_evclrsReturn = a});
evclrsResponseStatus :: Lens' EnableVPCClassicLinkResponse Int
evclrsResponseStatus = lens _evclrsResponseStatus (\ s a -> s{_evclrsResponseStatus = a});
instance NFData EnableVPCClassicLinkResponse