{-# 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.DeleteNetworkACLEntry
(
deleteNetworkACLEntry
, DeleteNetworkACLEntry
, dnaeDryRun
, dnaeEgress
, dnaeNetworkACLId
, dnaeRuleNumber
, deleteNetworkACLEntryResponse
, DeleteNetworkACLEntryResponse
) 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 DeleteNetworkACLEntry = DeleteNetworkACLEntry'
{ _dnaeDryRun :: !(Maybe Bool)
, _dnaeEgress :: !Bool
, _dnaeNetworkACLId :: !Text
, _dnaeRuleNumber :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteNetworkACLEntry
:: Bool
-> Text
-> Int
-> DeleteNetworkACLEntry
deleteNetworkACLEntry pEgress_ pNetworkACLId_ pRuleNumber_ =
DeleteNetworkACLEntry'
{ _dnaeDryRun = Nothing
, _dnaeEgress = pEgress_
, _dnaeNetworkACLId = pNetworkACLId_
, _dnaeRuleNumber = pRuleNumber_
}
dnaeDryRun :: Lens' DeleteNetworkACLEntry (Maybe Bool)
dnaeDryRun = lens _dnaeDryRun (\ s a -> s{_dnaeDryRun = a})
dnaeEgress :: Lens' DeleteNetworkACLEntry Bool
dnaeEgress = lens _dnaeEgress (\ s a -> s{_dnaeEgress = a})
dnaeNetworkACLId :: Lens' DeleteNetworkACLEntry Text
dnaeNetworkACLId = lens _dnaeNetworkACLId (\ s a -> s{_dnaeNetworkACLId = a})
dnaeRuleNumber :: Lens' DeleteNetworkACLEntry Int
dnaeRuleNumber = lens _dnaeRuleNumber (\ s a -> s{_dnaeRuleNumber = a})
instance AWSRequest DeleteNetworkACLEntry where
type Rs DeleteNetworkACLEntry =
DeleteNetworkACLEntryResponse
request = postQuery ec2
response = receiveNull DeleteNetworkACLEntryResponse'
instance Hashable DeleteNetworkACLEntry where
instance NFData DeleteNetworkACLEntry where
instance ToHeaders DeleteNetworkACLEntry where
toHeaders = const mempty
instance ToPath DeleteNetworkACLEntry where
toPath = const "/"
instance ToQuery DeleteNetworkACLEntry where
toQuery DeleteNetworkACLEntry'{..}
= mconcat
["Action" =: ("DeleteNetworkAclEntry" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _dnaeDryRun, "Egress" =: _dnaeEgress,
"NetworkAclId" =: _dnaeNetworkACLId,
"RuleNumber" =: _dnaeRuleNumber]
data DeleteNetworkACLEntryResponse =
DeleteNetworkACLEntryResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteNetworkACLEntryResponse
:: DeleteNetworkACLEntryResponse
deleteNetworkACLEntryResponse = DeleteNetworkACLEntryResponse'
instance NFData DeleteNetworkACLEntryResponse where