{-# 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.DeleteEgressOnlyInternetGateway
(
deleteEgressOnlyInternetGateway
, DeleteEgressOnlyInternetGateway
, deoigeDryRun
, deoigeEgressOnlyInternetGatewayId
, deleteEgressOnlyInternetGatewayResponse
, DeleteEgressOnlyInternetGatewayResponse
, delrsReturnCode
, delrsResponseStatus
) 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 DeleteEgressOnlyInternetGateway = DeleteEgressOnlyInternetGateway'
{ _deoigeDryRun :: !(Maybe Bool)
, _deoigeEgressOnlyInternetGatewayId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteEgressOnlyInternetGateway
:: Text
-> DeleteEgressOnlyInternetGateway
deleteEgressOnlyInternetGateway pEgressOnlyInternetGatewayId_ =
DeleteEgressOnlyInternetGateway'
{ _deoigeDryRun = Nothing
, _deoigeEgressOnlyInternetGatewayId = pEgressOnlyInternetGatewayId_
}
deoigeDryRun :: Lens' DeleteEgressOnlyInternetGateway (Maybe Bool)
deoigeDryRun = lens _deoigeDryRun (\ s a -> s{_deoigeDryRun = a});
deoigeEgressOnlyInternetGatewayId :: Lens' DeleteEgressOnlyInternetGateway Text
deoigeEgressOnlyInternetGatewayId = lens _deoigeEgressOnlyInternetGatewayId (\ s a -> s{_deoigeEgressOnlyInternetGatewayId = a});
instance AWSRequest DeleteEgressOnlyInternetGateway
where
type Rs DeleteEgressOnlyInternetGateway =
DeleteEgressOnlyInternetGatewayResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DeleteEgressOnlyInternetGatewayResponse' <$>
(x .@? "returnCode") <*> (pure (fromEnum s)))
instance Hashable DeleteEgressOnlyInternetGateway
instance NFData DeleteEgressOnlyInternetGateway
instance ToHeaders DeleteEgressOnlyInternetGateway
where
toHeaders = const mempty
instance ToPath DeleteEgressOnlyInternetGateway where
toPath = const "/"
instance ToQuery DeleteEgressOnlyInternetGateway
where
toQuery DeleteEgressOnlyInternetGateway'{..}
= mconcat
["Action" =:
("DeleteEgressOnlyInternetGateway" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _deoigeDryRun,
"EgressOnlyInternetGatewayId" =:
_deoigeEgressOnlyInternetGatewayId]
data DeleteEgressOnlyInternetGatewayResponse = DeleteEgressOnlyInternetGatewayResponse'
{ _delrsReturnCode :: !(Maybe Bool)
, _delrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteEgressOnlyInternetGatewayResponse
:: Int
-> DeleteEgressOnlyInternetGatewayResponse
deleteEgressOnlyInternetGatewayResponse pResponseStatus_ =
DeleteEgressOnlyInternetGatewayResponse'
{ _delrsReturnCode = Nothing
, _delrsResponseStatus = pResponseStatus_
}
delrsReturnCode :: Lens' DeleteEgressOnlyInternetGatewayResponse (Maybe Bool)
delrsReturnCode = lens _delrsReturnCode (\ s a -> s{_delrsReturnCode = a});
delrsResponseStatus :: Lens' DeleteEgressOnlyInternetGatewayResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});
instance NFData
DeleteEgressOnlyInternetGatewayResponse