{-# 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
, dnaeNetworkACLId
, dnaeRuleNumber
, dnaeEgress
, 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)
, _dnaeNetworkACLId :: !Text
, _dnaeRuleNumber :: !Int
, _dnaeEgress :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteNetworkACLEntry
:: Text
-> Int
-> Bool
-> DeleteNetworkACLEntry
deleteNetworkACLEntry pNetworkACLId_ pRuleNumber_ pEgress_ =
DeleteNetworkACLEntry'
{ _dnaeDryRun = Nothing
, _dnaeNetworkACLId = pNetworkACLId_
, _dnaeRuleNumber = pRuleNumber_
, _dnaeEgress = pEgress_
}
dnaeDryRun :: Lens' DeleteNetworkACLEntry (Maybe Bool)
dnaeDryRun = lens _dnaeDryRun (\ s a -> s{_dnaeDryRun = 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});
dnaeEgress :: Lens' DeleteNetworkACLEntry Bool
dnaeEgress = lens _dnaeEgress (\ s a -> s{_dnaeEgress = a});
instance AWSRequest DeleteNetworkACLEntry where
type Rs DeleteNetworkACLEntry =
DeleteNetworkACLEntryResponse
request = postQuery ec2
response = receiveNull DeleteNetworkACLEntryResponse'
instance Hashable DeleteNetworkACLEntry
instance NFData DeleteNetworkACLEntry
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,
"NetworkAclId" =: _dnaeNetworkACLId,
"RuleNumber" =: _dnaeRuleNumber,
"Egress" =: _dnaeEgress]
data DeleteNetworkACLEntryResponse =
DeleteNetworkACLEntryResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteNetworkACLEntryResponse
:: DeleteNetworkACLEntryResponse
deleteNetworkACLEntryResponse = DeleteNetworkACLEntryResponse'
instance NFData DeleteNetworkACLEntryResponse