module Network.AWS.EC2.DeleteEgressOnlyInternetGateway
(
deleteEgressOnlyInternetGateway
, DeleteEgressOnlyInternetGateway
, deoigeDryRun
, deoigeEgressOnlyInternetGatewayId
, deleteEgressOnlyInternetGatewayResponse
, DeleteEgressOnlyInternetGatewayResponse
, deoigersReturnCode
, deoigersResponseStatus
) 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
where
instance NFData DeleteEgressOnlyInternetGateway where
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'
{ _deoigersReturnCode :: !(Maybe Bool)
, _deoigersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteEgressOnlyInternetGatewayResponse
:: Int
-> DeleteEgressOnlyInternetGatewayResponse
deleteEgressOnlyInternetGatewayResponse pResponseStatus_ =
DeleteEgressOnlyInternetGatewayResponse'
{_deoigersReturnCode = Nothing, _deoigersResponseStatus = pResponseStatus_}
deoigersReturnCode :: Lens' DeleteEgressOnlyInternetGatewayResponse (Maybe Bool)
deoigersReturnCode = lens _deoigersReturnCode (\ s a -> s{_deoigersReturnCode = a});
deoigersResponseStatus :: Lens' DeleteEgressOnlyInternetGatewayResponse Int
deoigersResponseStatus = lens _deoigersResponseStatus (\ s a -> s{_deoigersResponseStatus = a});
instance NFData
DeleteEgressOnlyInternetGatewayResponse
where