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.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 Sv DeleteInternetGateway = EC2
type Rs DeleteInternetGateway =
DeleteInternetGatewayResponse
request = post
response = receiveNull DeleteInternetGatewayResponse'
instance ToHeaders DeleteInternetGateway where
toHeaders = const mempty
instance ToPath DeleteInternetGateway where
toPath = const "/"
instance ToQuery DeleteInternetGateway where
toQuery DeleteInternetGateway'{..}
= mconcat
["Action" =: ("DeleteInternetGateway" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
"DryRun" =: _digiDryRun,
"InternetGatewayId" =: _digiInternetGatewayId]
data DeleteInternetGatewayResponse =
DeleteInternetGatewayResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteInternetGatewayResponse
:: DeleteInternetGatewayResponse
deleteInternetGatewayResponse = DeleteInternetGatewayResponse'