{-# 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.DisableVPCClassicLink
(
disableVPCClassicLink
, DisableVPCClassicLink
, dvpcclDryRun
, dvpcclVPCId
, disableVPCClassicLinkResponse
, DisableVPCClassicLinkResponse
, dvpcclrsReturn
, dvpcclrsResponseStatus
) 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 DisableVPCClassicLink = DisableVPCClassicLink'
{ _dvpcclDryRun :: !(Maybe Bool)
, _dvpcclVPCId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableVPCClassicLink
:: Text
-> DisableVPCClassicLink
disableVPCClassicLink pVPCId_ =
DisableVPCClassicLink'
{ _dvpcclDryRun = Nothing
, _dvpcclVPCId = pVPCId_
}
dvpcclDryRun :: Lens' DisableVPCClassicLink (Maybe Bool)
dvpcclDryRun = lens _dvpcclDryRun (\ s a -> s{_dvpcclDryRun = a});
dvpcclVPCId :: Lens' DisableVPCClassicLink Text
dvpcclVPCId = lens _dvpcclVPCId (\ s a -> s{_dvpcclVPCId = a});
instance AWSRequest DisableVPCClassicLink where
type Rs DisableVPCClassicLink =
DisableVPCClassicLinkResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DisableVPCClassicLinkResponse' <$>
(x .@? "return") <*> (pure (fromEnum s)))
instance Hashable DisableVPCClassicLink
instance NFData DisableVPCClassicLink
instance ToHeaders DisableVPCClassicLink where
toHeaders = const mempty
instance ToPath DisableVPCClassicLink where
toPath = const "/"
instance ToQuery DisableVPCClassicLink where
toQuery DisableVPCClassicLink'{..}
= mconcat
["Action" =: ("DisableVpcClassicLink" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _dvpcclDryRun, "VpcId" =: _dvpcclVPCId]
data DisableVPCClassicLinkResponse = DisableVPCClassicLinkResponse'
{ _dvpcclrsReturn :: !(Maybe Bool)
, _dvpcclrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableVPCClassicLinkResponse
:: Int
-> DisableVPCClassicLinkResponse
disableVPCClassicLinkResponse pResponseStatus_ =
DisableVPCClassicLinkResponse'
{ _dvpcclrsReturn = Nothing
, _dvpcclrsResponseStatus = pResponseStatus_
}
dvpcclrsReturn :: Lens' DisableVPCClassicLinkResponse (Maybe Bool)
dvpcclrsReturn = lens _dvpcclrsReturn (\ s a -> s{_dvpcclrsReturn = a});
dvpcclrsResponseStatus :: Lens' DisableVPCClassicLinkResponse Int
dvpcclrsResponseStatus = lens _dvpcclrsResponseStatus (\ s a -> s{_dvpcclrsResponseStatus = a});
instance NFData DisableVPCClassicLinkResponse