{-# 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.DeleteInternetGateway
(
deleteInternetGateway
, DeleteInternetGateway
, digiDryRun
, digiInternetGatewayId
, deleteInternetGatewayResponse
, DeleteInternetGatewayResponse
) 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 DeleteInternetGateway = DeleteInternetGateway'
{ _digiDryRun :: !(Maybe Bool)
, _digiInternetGatewayId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteInternetGateway
:: Text
-> DeleteInternetGateway
deleteInternetGateway pInternetGatewayId_ =
DeleteInternetGateway'
{ _digiDryRun = Nothing
, _digiInternetGatewayId = pInternetGatewayId_
}
digiDryRun :: Lens' DeleteInternetGateway (Maybe Bool)
digiDryRun = lens _digiDryRun (\ s a -> s{_digiDryRun = a});
digiInternetGatewayId :: Lens' DeleteInternetGateway Text
digiInternetGatewayId = lens _digiInternetGatewayId (\ s a -> s{_digiInternetGatewayId = a});
instance AWSRequest DeleteInternetGateway where
type Rs DeleteInternetGateway =
DeleteInternetGatewayResponse
request = postQuery ec2
response = receiveNull DeleteInternetGatewayResponse'
instance Hashable DeleteInternetGateway
instance NFData DeleteInternetGateway
instance ToHeaders DeleteInternetGateway where
toHeaders = const mempty
instance ToPath DeleteInternetGateway where
toPath = const "/"
instance ToQuery DeleteInternetGateway where
toQuery DeleteInternetGateway'{..}
= mconcat
["Action" =: ("DeleteInternetGateway" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _digiDryRun,
"InternetGatewayId" =: _digiInternetGatewayId]
data DeleteInternetGatewayResponse =
DeleteInternetGatewayResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteInternetGatewayResponse
:: DeleteInternetGatewayResponse
deleteInternetGatewayResponse = DeleteInternetGatewayResponse'
instance NFData DeleteInternetGatewayResponse