{-# 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.DeleteNatGateway
(
deleteNatGateway
, DeleteNatGateway
, dngNatGatewayId
, deleteNatGatewayResponse
, DeleteNatGatewayResponse
, dngnrsNatGatewayId
, dngnrsResponseStatus
) 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
newtype DeleteNatGateway = DeleteNatGateway'
{ _dngNatGatewayId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteNatGateway
:: Text
-> DeleteNatGateway
deleteNatGateway pNatGatewayId_ =
DeleteNatGateway' {_dngNatGatewayId = pNatGatewayId_}
dngNatGatewayId :: Lens' DeleteNatGateway Text
dngNatGatewayId = lens _dngNatGatewayId (\ s a -> s{_dngNatGatewayId = a})
instance AWSRequest DeleteNatGateway where
type Rs DeleteNatGateway = DeleteNatGatewayResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DeleteNatGatewayResponse' <$>
(x .@? "natGatewayId") <*> (pure (fromEnum s)))
instance Hashable DeleteNatGateway where
instance NFData DeleteNatGateway where
instance ToHeaders DeleteNatGateway where
toHeaders = const mempty
instance ToPath DeleteNatGateway where
toPath = const "/"
instance ToQuery DeleteNatGateway where
toQuery DeleteNatGateway'{..}
= mconcat
["Action" =: ("DeleteNatGateway" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"NatGatewayId" =: _dngNatGatewayId]
data DeleteNatGatewayResponse = DeleteNatGatewayResponse'
{ _dngnrsNatGatewayId :: !(Maybe Text)
, _dngnrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteNatGatewayResponse
:: Int
-> DeleteNatGatewayResponse
deleteNatGatewayResponse pResponseStatus_ =
DeleteNatGatewayResponse'
{_dngnrsNatGatewayId = Nothing, _dngnrsResponseStatus = pResponseStatus_}
dngnrsNatGatewayId :: Lens' DeleteNatGatewayResponse (Maybe Text)
dngnrsNatGatewayId = lens _dngnrsNatGatewayId (\ s a -> s{_dngnrsNatGatewayId = a})
dngnrsResponseStatus :: Lens' DeleteNatGatewayResponse Int
dngnrsResponseStatus = lens _dngnrsResponseStatus (\ s a -> s{_dngnrsResponseStatus = a})
instance NFData DeleteNatGatewayResponse where