{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.EC2.CreateNetworkAclEntry
(
CreateNetworkAclEntry (..),
newCreateNetworkAclEntry,
createNetworkAclEntry_cidrBlock,
createNetworkAclEntry_dryRun,
createNetworkAclEntry_icmpTypeCode,
createNetworkAclEntry_ipv6CidrBlock,
createNetworkAclEntry_portRange,
createNetworkAclEntry_egress,
createNetworkAclEntry_networkAclId,
createNetworkAclEntry_protocol,
createNetworkAclEntry_ruleAction,
createNetworkAclEntry_ruleNumber,
CreateNetworkAclEntryResponse (..),
newCreateNetworkAclEntryResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateNetworkAclEntry = CreateNetworkAclEntry'
{
CreateNetworkAclEntry -> Maybe Text
cidrBlock :: Prelude.Maybe Prelude.Text,
CreateNetworkAclEntry -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
CreateNetworkAclEntry -> Maybe IcmpTypeCode
icmpTypeCode :: Prelude.Maybe IcmpTypeCode,
CreateNetworkAclEntry -> Maybe Text
ipv6CidrBlock :: Prelude.Maybe Prelude.Text,
CreateNetworkAclEntry -> Maybe PortRange
portRange :: Prelude.Maybe PortRange,
CreateNetworkAclEntry -> Bool
egress :: Prelude.Bool,
CreateNetworkAclEntry -> Text
networkAclId :: Prelude.Text,
CreateNetworkAclEntry -> Text
protocol :: Prelude.Text,
CreateNetworkAclEntry -> RuleAction
ruleAction :: RuleAction,
CreateNetworkAclEntry -> Int
ruleNumber :: Prelude.Int
}
deriving (CreateNetworkAclEntry -> CreateNetworkAclEntry -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateNetworkAclEntry -> CreateNetworkAclEntry -> Bool
$c/= :: CreateNetworkAclEntry -> CreateNetworkAclEntry -> Bool
== :: CreateNetworkAclEntry -> CreateNetworkAclEntry -> Bool
$c== :: CreateNetworkAclEntry -> CreateNetworkAclEntry -> Bool
Prelude.Eq, ReadPrec [CreateNetworkAclEntry]
ReadPrec CreateNetworkAclEntry
Int -> ReadS CreateNetworkAclEntry
ReadS [CreateNetworkAclEntry]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateNetworkAclEntry]
$creadListPrec :: ReadPrec [CreateNetworkAclEntry]
readPrec :: ReadPrec CreateNetworkAclEntry
$creadPrec :: ReadPrec CreateNetworkAclEntry
readList :: ReadS [CreateNetworkAclEntry]
$creadList :: ReadS [CreateNetworkAclEntry]
readsPrec :: Int -> ReadS CreateNetworkAclEntry
$creadsPrec :: Int -> ReadS CreateNetworkAclEntry
Prelude.Read, Int -> CreateNetworkAclEntry -> ShowS
[CreateNetworkAclEntry] -> ShowS
CreateNetworkAclEntry -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateNetworkAclEntry] -> ShowS
$cshowList :: [CreateNetworkAclEntry] -> ShowS
show :: CreateNetworkAclEntry -> String
$cshow :: CreateNetworkAclEntry -> String
showsPrec :: Int -> CreateNetworkAclEntry -> ShowS
$cshowsPrec :: Int -> CreateNetworkAclEntry -> ShowS
Prelude.Show, forall x. Rep CreateNetworkAclEntry x -> CreateNetworkAclEntry
forall x. CreateNetworkAclEntry -> Rep CreateNetworkAclEntry x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateNetworkAclEntry x -> CreateNetworkAclEntry
$cfrom :: forall x. CreateNetworkAclEntry -> Rep CreateNetworkAclEntry x
Prelude.Generic)
newCreateNetworkAclEntry ::
Prelude.Bool ->
Prelude.Text ->
Prelude.Text ->
RuleAction ->
Prelude.Int ->
CreateNetworkAclEntry
newCreateNetworkAclEntry :: Bool -> Text -> Text -> RuleAction -> Int -> CreateNetworkAclEntry
newCreateNetworkAclEntry
Bool
pEgress_
Text
pNetworkAclId_
Text
pProtocol_
RuleAction
pRuleAction_
Int
pRuleNumber_ =
CreateNetworkAclEntry'
{ $sel:cidrBlock:CreateNetworkAclEntry' :: Maybe Text
cidrBlock = forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:CreateNetworkAclEntry' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:icmpTypeCode:CreateNetworkAclEntry' :: Maybe IcmpTypeCode
icmpTypeCode = forall a. Maybe a
Prelude.Nothing,
$sel:ipv6CidrBlock:CreateNetworkAclEntry' :: Maybe Text
ipv6CidrBlock = forall a. Maybe a
Prelude.Nothing,
$sel:portRange:CreateNetworkAclEntry' :: Maybe PortRange
portRange = forall a. Maybe a
Prelude.Nothing,
$sel:egress:CreateNetworkAclEntry' :: Bool
egress = Bool
pEgress_,
$sel:networkAclId:CreateNetworkAclEntry' :: Text
networkAclId = Text
pNetworkAclId_,
$sel:protocol:CreateNetworkAclEntry' :: Text
protocol = Text
pProtocol_,
$sel:ruleAction:CreateNetworkAclEntry' :: RuleAction
ruleAction = RuleAction
pRuleAction_,
$sel:ruleNumber:CreateNetworkAclEntry' :: Int
ruleNumber = Int
pRuleNumber_
}
createNetworkAclEntry_cidrBlock :: Lens.Lens' CreateNetworkAclEntry (Prelude.Maybe Prelude.Text)
createNetworkAclEntry_cidrBlock :: Lens' CreateNetworkAclEntry (Maybe Text)
createNetworkAclEntry_cidrBlock = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Maybe Text
cidrBlock :: Maybe Text
$sel:cidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
cidrBlock} -> Maybe Text
cidrBlock) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Maybe Text
a -> CreateNetworkAclEntry
s {$sel:cidrBlock:CreateNetworkAclEntry' :: Maybe Text
cidrBlock = Maybe Text
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_dryRun :: Lens.Lens' CreateNetworkAclEntry (Prelude.Maybe Prelude.Bool)
createNetworkAclEntry_dryRun :: Lens' CreateNetworkAclEntry (Maybe Bool)
createNetworkAclEntry_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Maybe Bool
a -> CreateNetworkAclEntry
s {$sel:dryRun:CreateNetworkAclEntry' :: Maybe Bool
dryRun = Maybe Bool
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_icmpTypeCode :: Lens.Lens' CreateNetworkAclEntry (Prelude.Maybe IcmpTypeCode)
createNetworkAclEntry_icmpTypeCode :: Lens' CreateNetworkAclEntry (Maybe IcmpTypeCode)
createNetworkAclEntry_icmpTypeCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Maybe IcmpTypeCode
icmpTypeCode :: Maybe IcmpTypeCode
$sel:icmpTypeCode:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe IcmpTypeCode
icmpTypeCode} -> Maybe IcmpTypeCode
icmpTypeCode) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Maybe IcmpTypeCode
a -> CreateNetworkAclEntry
s {$sel:icmpTypeCode:CreateNetworkAclEntry' :: Maybe IcmpTypeCode
icmpTypeCode = Maybe IcmpTypeCode
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_ipv6CidrBlock :: Lens.Lens' CreateNetworkAclEntry (Prelude.Maybe Prelude.Text)
createNetworkAclEntry_ipv6CidrBlock :: Lens' CreateNetworkAclEntry (Maybe Text)
createNetworkAclEntry_ipv6CidrBlock = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Maybe Text
ipv6CidrBlock :: Maybe Text
$sel:ipv6CidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
ipv6CidrBlock} -> Maybe Text
ipv6CidrBlock) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Maybe Text
a -> CreateNetworkAclEntry
s {$sel:ipv6CidrBlock:CreateNetworkAclEntry' :: Maybe Text
ipv6CidrBlock = Maybe Text
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_portRange :: Lens.Lens' CreateNetworkAclEntry (Prelude.Maybe PortRange)
createNetworkAclEntry_portRange :: Lens' CreateNetworkAclEntry (Maybe PortRange)
createNetworkAclEntry_portRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Maybe PortRange
portRange :: Maybe PortRange
$sel:portRange:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe PortRange
portRange} -> Maybe PortRange
portRange) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Maybe PortRange
a -> CreateNetworkAclEntry
s {$sel:portRange:CreateNetworkAclEntry' :: Maybe PortRange
portRange = Maybe PortRange
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_egress :: Lens.Lens' CreateNetworkAclEntry Prelude.Bool
createNetworkAclEntry_egress :: Lens' CreateNetworkAclEntry Bool
createNetworkAclEntry_egress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Bool
egress :: Bool
$sel:egress:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Bool
egress} -> Bool
egress) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Bool
a -> CreateNetworkAclEntry
s {$sel:egress:CreateNetworkAclEntry' :: Bool
egress = Bool
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_networkAclId :: Lens.Lens' CreateNetworkAclEntry Prelude.Text
createNetworkAclEntry_networkAclId :: Lens' CreateNetworkAclEntry Text
createNetworkAclEntry_networkAclId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Text
networkAclId :: Text
$sel:networkAclId:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
networkAclId} -> Text
networkAclId) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Text
a -> CreateNetworkAclEntry
s {$sel:networkAclId:CreateNetworkAclEntry' :: Text
networkAclId = Text
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_protocol :: Lens.Lens' CreateNetworkAclEntry Prelude.Text
createNetworkAclEntry_protocol :: Lens' CreateNetworkAclEntry Text
createNetworkAclEntry_protocol = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Text
protocol :: Text
$sel:protocol:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
protocol} -> Text
protocol) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Text
a -> CreateNetworkAclEntry
s {$sel:protocol:CreateNetworkAclEntry' :: Text
protocol = Text
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_ruleAction :: Lens.Lens' CreateNetworkAclEntry RuleAction
createNetworkAclEntry_ruleAction :: Lens' CreateNetworkAclEntry RuleAction
createNetworkAclEntry_ruleAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {RuleAction
ruleAction :: RuleAction
$sel:ruleAction:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> RuleAction
ruleAction} -> RuleAction
ruleAction) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} RuleAction
a -> CreateNetworkAclEntry
s {$sel:ruleAction:CreateNetworkAclEntry' :: RuleAction
ruleAction = RuleAction
a} :: CreateNetworkAclEntry)
createNetworkAclEntry_ruleNumber :: Lens.Lens' CreateNetworkAclEntry Prelude.Int
createNetworkAclEntry_ruleNumber :: Lens' CreateNetworkAclEntry Int
createNetworkAclEntry_ruleNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateNetworkAclEntry' {Int
ruleNumber :: Int
$sel:ruleNumber:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Int
ruleNumber} -> Int
ruleNumber) (\s :: CreateNetworkAclEntry
s@CreateNetworkAclEntry' {} Int
a -> CreateNetworkAclEntry
s {$sel:ruleNumber:CreateNetworkAclEntry' :: Int
ruleNumber = Int
a} :: CreateNetworkAclEntry)
instance Core.AWSRequest CreateNetworkAclEntry where
type
AWSResponse CreateNetworkAclEntry =
CreateNetworkAclEntryResponse
request :: (Service -> Service)
-> CreateNetworkAclEntry -> Request CreateNetworkAclEntry
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateNetworkAclEntry
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateNetworkAclEntry)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull CreateNetworkAclEntryResponse
CreateNetworkAclEntryResponse'
instance Prelude.Hashable CreateNetworkAclEntry where
hashWithSalt :: Int -> CreateNetworkAclEntry -> Int
hashWithSalt Int
_salt CreateNetworkAclEntry' {Bool
Int
Maybe Bool
Maybe Text
Maybe IcmpTypeCode
Maybe PortRange
Text
RuleAction
ruleNumber :: Int
ruleAction :: RuleAction
protocol :: Text
networkAclId :: Text
egress :: Bool
portRange :: Maybe PortRange
ipv6CidrBlock :: Maybe Text
icmpTypeCode :: Maybe IcmpTypeCode
dryRun :: Maybe Bool
cidrBlock :: Maybe Text
$sel:ruleNumber:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Int
$sel:ruleAction:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> RuleAction
$sel:protocol:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
$sel:networkAclId:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
$sel:egress:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Bool
$sel:portRange:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe PortRange
$sel:ipv6CidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
$sel:icmpTypeCode:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe IcmpTypeCode
$sel:dryRun:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Bool
$sel:cidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cidrBlock
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IcmpTypeCode
icmpTypeCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ipv6CidrBlock
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PortRange
portRange
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
egress
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
networkAclId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
protocol
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` RuleAction
ruleAction
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
ruleNumber
instance Prelude.NFData CreateNetworkAclEntry where
rnf :: CreateNetworkAclEntry -> ()
rnf CreateNetworkAclEntry' {Bool
Int
Maybe Bool
Maybe Text
Maybe IcmpTypeCode
Maybe PortRange
Text
RuleAction
ruleNumber :: Int
ruleAction :: RuleAction
protocol :: Text
networkAclId :: Text
egress :: Bool
portRange :: Maybe PortRange
ipv6CidrBlock :: Maybe Text
icmpTypeCode :: Maybe IcmpTypeCode
dryRun :: Maybe Bool
cidrBlock :: Maybe Text
$sel:ruleNumber:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Int
$sel:ruleAction:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> RuleAction
$sel:protocol:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
$sel:networkAclId:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
$sel:egress:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Bool
$sel:portRange:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe PortRange
$sel:ipv6CidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
$sel:icmpTypeCode:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe IcmpTypeCode
$sel:dryRun:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Bool
$sel:cidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cidrBlock
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IcmpTypeCode
icmpTypeCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ipv6CidrBlock
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PortRange
portRange
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
egress
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
networkAclId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
protocol
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf RuleAction
ruleAction
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
ruleNumber
instance Data.ToHeaders CreateNetworkAclEntry where
toHeaders :: CreateNetworkAclEntry -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateNetworkAclEntry where
toPath :: CreateNetworkAclEntry -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateNetworkAclEntry where
toQuery :: CreateNetworkAclEntry -> QueryString
toQuery CreateNetworkAclEntry' {Bool
Int
Maybe Bool
Maybe Text
Maybe IcmpTypeCode
Maybe PortRange
Text
RuleAction
ruleNumber :: Int
ruleAction :: RuleAction
protocol :: Text
networkAclId :: Text
egress :: Bool
portRange :: Maybe PortRange
ipv6CidrBlock :: Maybe Text
icmpTypeCode :: Maybe IcmpTypeCode
dryRun :: Maybe Bool
cidrBlock :: Maybe Text
$sel:ruleNumber:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Int
$sel:ruleAction:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> RuleAction
$sel:protocol:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
$sel:networkAclId:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Text
$sel:egress:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Bool
$sel:portRange:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe PortRange
$sel:ipv6CidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
$sel:icmpTypeCode:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe IcmpTypeCode
$sel:dryRun:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Bool
$sel:cidrBlock:CreateNetworkAclEntry' :: CreateNetworkAclEntry -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"CreateNetworkAclEntry" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"CidrBlock" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cidrBlock,
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"Icmp" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe IcmpTypeCode
icmpTypeCode,
ByteString
"Ipv6CidrBlock" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
ipv6CidrBlock,
ByteString
"PortRange" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe PortRange
portRange,
ByteString
"Egress" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Bool
egress,
ByteString
"NetworkAclId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
networkAclId,
ByteString
"Protocol" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
protocol,
ByteString
"RuleAction" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: RuleAction
ruleAction,
ByteString
"RuleNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Int
ruleNumber
]
data CreateNetworkAclEntryResponse = CreateNetworkAclEntryResponse'
{
}
deriving (CreateNetworkAclEntryResponse
-> CreateNetworkAclEntryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateNetworkAclEntryResponse
-> CreateNetworkAclEntryResponse -> Bool
$c/= :: CreateNetworkAclEntryResponse
-> CreateNetworkAclEntryResponse -> Bool
== :: CreateNetworkAclEntryResponse
-> CreateNetworkAclEntryResponse -> Bool
$c== :: CreateNetworkAclEntryResponse
-> CreateNetworkAclEntryResponse -> Bool
Prelude.Eq, ReadPrec [CreateNetworkAclEntryResponse]
ReadPrec CreateNetworkAclEntryResponse
Int -> ReadS CreateNetworkAclEntryResponse
ReadS [CreateNetworkAclEntryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateNetworkAclEntryResponse]
$creadListPrec :: ReadPrec [CreateNetworkAclEntryResponse]
readPrec :: ReadPrec CreateNetworkAclEntryResponse
$creadPrec :: ReadPrec CreateNetworkAclEntryResponse
readList :: ReadS [CreateNetworkAclEntryResponse]
$creadList :: ReadS [CreateNetworkAclEntryResponse]
readsPrec :: Int -> ReadS CreateNetworkAclEntryResponse
$creadsPrec :: Int -> ReadS CreateNetworkAclEntryResponse
Prelude.Read, Int -> CreateNetworkAclEntryResponse -> ShowS
[CreateNetworkAclEntryResponse] -> ShowS
CreateNetworkAclEntryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateNetworkAclEntryResponse] -> ShowS
$cshowList :: [CreateNetworkAclEntryResponse] -> ShowS
show :: CreateNetworkAclEntryResponse -> String
$cshow :: CreateNetworkAclEntryResponse -> String
showsPrec :: Int -> CreateNetworkAclEntryResponse -> ShowS
$cshowsPrec :: Int -> CreateNetworkAclEntryResponse -> ShowS
Prelude.Show, forall x.
Rep CreateNetworkAclEntryResponse x
-> CreateNetworkAclEntryResponse
forall x.
CreateNetworkAclEntryResponse
-> Rep CreateNetworkAclEntryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateNetworkAclEntryResponse x
-> CreateNetworkAclEntryResponse
$cfrom :: forall x.
CreateNetworkAclEntryResponse
-> Rep CreateNetworkAclEntryResponse x
Prelude.Generic)
newCreateNetworkAclEntryResponse ::
CreateNetworkAclEntryResponse
newCreateNetworkAclEntryResponse :: CreateNetworkAclEntryResponse
newCreateNetworkAclEntryResponse =
CreateNetworkAclEntryResponse
CreateNetworkAclEntryResponse'
instance Prelude.NFData CreateNetworkAclEntryResponse where
rnf :: CreateNetworkAclEntryResponse -> ()
rnf CreateNetworkAclEntryResponse
_ = ()