{-# 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.DeleteDHCPOptions
(
deleteDHCPOptions
, DeleteDHCPOptions
, ddhcpoDryRun
, ddhcpoDHCPOptionsId
, deleteDHCPOptionsResponse
, DeleteDHCPOptionsResponse
) 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 DeleteDHCPOptions = DeleteDHCPOptions'
{ _ddhcpoDryRun :: !(Maybe Bool)
, _ddhcpoDHCPOptionsId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDHCPOptions
:: Text
-> DeleteDHCPOptions
deleteDHCPOptions pDHCPOptionsId_ =
DeleteDHCPOptions'
{ _ddhcpoDryRun = Nothing
, _ddhcpoDHCPOptionsId = pDHCPOptionsId_
}
ddhcpoDryRun :: Lens' DeleteDHCPOptions (Maybe Bool)
ddhcpoDryRun = lens _ddhcpoDryRun (\ s a -> s{_ddhcpoDryRun = a});
ddhcpoDHCPOptionsId :: Lens' DeleteDHCPOptions Text
ddhcpoDHCPOptionsId = lens _ddhcpoDHCPOptionsId (\ s a -> s{_ddhcpoDHCPOptionsId = a});
instance AWSRequest DeleteDHCPOptions where
type Rs DeleteDHCPOptions = DeleteDHCPOptionsResponse
request = postQuery ec2
response = receiveNull DeleteDHCPOptionsResponse'
instance Hashable DeleteDHCPOptions
instance NFData DeleteDHCPOptions
instance ToHeaders DeleteDHCPOptions where
toHeaders = const mempty
instance ToPath DeleteDHCPOptions where
toPath = const "/"
instance ToQuery DeleteDHCPOptions where
toQuery DeleteDHCPOptions'{..}
= mconcat
["Action" =: ("DeleteDhcpOptions" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _ddhcpoDryRun,
"DhcpOptionsId" =: _ddhcpoDHCPOptionsId]
data DeleteDHCPOptionsResponse =
DeleteDHCPOptionsResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDHCPOptionsResponse
:: DeleteDHCPOptionsResponse
deleteDHCPOptionsResponse = DeleteDHCPOptionsResponse'
instance NFData DeleteDHCPOptionsResponse