module Network.AWS.EC2.DeleteCustomerGateway
(
DeleteCustomerGateway
, deleteCustomerGateway
, dcg1CustomerGatewayId
, dcg1DryRun
, DeleteCustomerGatewayResponse
, deleteCustomerGatewayResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DeleteCustomerGateway = DeleteCustomerGateway
{ _dcg1CustomerGatewayId :: Text
, _dcg1DryRun :: Maybe Bool
} deriving (Eq, Ord, Show)
deleteCustomerGateway :: Text
-> DeleteCustomerGateway
deleteCustomerGateway p1 = DeleteCustomerGateway
{ _dcg1CustomerGatewayId = p1
, _dcg1DryRun = Nothing
}
dcg1CustomerGatewayId :: Lens' DeleteCustomerGateway Text
dcg1CustomerGatewayId =
lens _dcg1CustomerGatewayId (\s a -> s { _dcg1CustomerGatewayId = a })
dcg1DryRun :: Lens' DeleteCustomerGateway (Maybe Bool)
dcg1DryRun = lens _dcg1DryRun (\s a -> s { _dcg1DryRun = a })
data DeleteCustomerGatewayResponse = DeleteCustomerGatewayResponse
deriving (Eq, Ord, Show, Generic)
deleteCustomerGatewayResponse :: DeleteCustomerGatewayResponse
deleteCustomerGatewayResponse = DeleteCustomerGatewayResponse
instance ToPath DeleteCustomerGateway where
toPath = const "/"
instance ToQuery DeleteCustomerGateway where
toQuery DeleteCustomerGateway{..} = mconcat
[ "CustomerGatewayId" =? _dcg1CustomerGatewayId
, "dryRun" =? _dcg1DryRun
]
instance ToHeaders DeleteCustomerGateway
instance AWSRequest DeleteCustomerGateway where
type Sv DeleteCustomerGateway = EC2
type Rs DeleteCustomerGateway = DeleteCustomerGatewayResponse
request = post "DeleteCustomerGateway"
response = nullResponse DeleteCustomerGatewayResponse