module Network.AWS.EC2.DeleteNetworkAclEntry
(
DeleteNetworkAclEntry
, deleteNetworkAclEntry
, dnaeDryRun
, dnaeEgress
, dnaeNetworkAclId
, dnaeRuleNumber
, DeleteNetworkAclEntryResponse
, deleteNetworkAclEntryResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DeleteNetworkAclEntry = DeleteNetworkAclEntry
{ _dnaeDryRun :: Maybe Bool
, _dnaeEgress :: Bool
, _dnaeNetworkAclId :: Text
, _dnaeRuleNumber :: Int
} deriving (Eq, Ord, Read, Show)
deleteNetworkAclEntry :: Text
-> Int
-> Bool
-> DeleteNetworkAclEntry
deleteNetworkAclEntry p1 p2 p3 = DeleteNetworkAclEntry
{ _dnaeNetworkAclId = p1
, _dnaeRuleNumber = p2
, _dnaeEgress = p3
, _dnaeDryRun = Nothing
}
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 })
data DeleteNetworkAclEntryResponse = DeleteNetworkAclEntryResponse
deriving (Eq, Ord, Read, Show, Generic)
deleteNetworkAclEntryResponse :: DeleteNetworkAclEntryResponse
deleteNetworkAclEntryResponse = DeleteNetworkAclEntryResponse
instance ToPath DeleteNetworkAclEntry where
toPath = const "/"
instance ToQuery DeleteNetworkAclEntry where
toQuery DeleteNetworkAclEntry{..} = mconcat
[ "DryRun" =? _dnaeDryRun
, "Egress" =? _dnaeEgress
, "NetworkAclId" =? _dnaeNetworkAclId
, "RuleNumber" =? _dnaeRuleNumber
]
instance ToHeaders DeleteNetworkAclEntry
instance AWSRequest DeleteNetworkAclEntry where
type Sv DeleteNetworkAclEntry = EC2
type Rs DeleteNetworkAclEntry = DeleteNetworkAclEntryResponse
request = post "DeleteNetworkAclEntry"
response = nullResponse DeleteNetworkAclEntryResponse