{-# 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 where
instance NFData EnableVPCClassicLink where
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-11-15" :: 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 where