{-# 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.DeleteSubnet
(
deleteSubnet
, DeleteSubnet
, ddDryRun
, ddSubnetId
, deleteSubnetResponse
, DeleteSubnetResponse
) 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 DeleteSubnet = DeleteSubnet'
{ _ddDryRun :: !(Maybe Bool)
, _ddSubnetId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSubnet
:: Text
-> DeleteSubnet
deleteSubnet pSubnetId_ =
DeleteSubnet' {_ddDryRun = Nothing, _ddSubnetId = pSubnetId_}
ddDryRun :: Lens' DeleteSubnet (Maybe Bool)
ddDryRun = lens _ddDryRun (\ s a -> s{_ddDryRun = a})
ddSubnetId :: Lens' DeleteSubnet Text
ddSubnetId = lens _ddSubnetId (\ s a -> s{_ddSubnetId = a})
instance AWSRequest DeleteSubnet where
type Rs DeleteSubnet = DeleteSubnetResponse
request = postQuery ec2
response = receiveNull DeleteSubnetResponse'
instance Hashable DeleteSubnet where
instance NFData DeleteSubnet where
instance ToHeaders DeleteSubnet where
toHeaders = const mempty
instance ToPath DeleteSubnet where
toPath = const "/"
instance ToQuery DeleteSubnet where
toQuery DeleteSubnet'{..}
= mconcat
["Action" =: ("DeleteSubnet" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _ddDryRun, "SubnetId" =: _ddSubnetId]
data DeleteSubnetResponse =
DeleteSubnetResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSubnetResponse
:: DeleteSubnetResponse
deleteSubnetResponse = DeleteSubnetResponse'
instance NFData DeleteSubnetResponse where