module Stratosphere.EC2.NetworkAclEntry (
        module Exports, NetworkAclEntry(..), mkNetworkAclEntry
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.EC2.NetworkAclEntry.IcmpProperty as Exports
import {-# SOURCE #-} Stratosphere.EC2.NetworkAclEntry.PortRangeProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data NetworkAclEntry
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html>
    NetworkAclEntry {NetworkAclEntry -> ()
haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-cidrblock>
                     NetworkAclEntry -> Maybe (Value Text)
cidrBlock :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-egress>
                     NetworkAclEntry -> Maybe (Value Bool)
egress :: (Prelude.Maybe (Value Prelude.Bool)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-icmp>
                     NetworkAclEntry -> Maybe IcmpProperty
icmp :: (Prelude.Maybe IcmpProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-ipv6cidrblock>
                     NetworkAclEntry -> Maybe (Value Text)
ipv6CidrBlock :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-networkaclid>
                     NetworkAclEntry -> Value Text
networkAclId :: (Value Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-portrange>
                     NetworkAclEntry -> Maybe PortRangeProperty
portRange :: (Prelude.Maybe PortRangeProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-protocol>
                     NetworkAclEntry -> Value Integer
protocol :: (Value Prelude.Integer),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-ruleaction>
                     NetworkAclEntry -> Value Text
ruleAction :: (Value Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkaclentry.html#cfn-ec2-networkaclentry-rulenumber>
                     NetworkAclEntry -> Value Integer
ruleNumber :: (Value Prelude.Integer)}
  deriving stock (NetworkAclEntry -> NetworkAclEntry -> Bool
(NetworkAclEntry -> NetworkAclEntry -> Bool)
-> (NetworkAclEntry -> NetworkAclEntry -> Bool)
-> Eq NetworkAclEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NetworkAclEntry -> NetworkAclEntry -> Bool
== :: NetworkAclEntry -> NetworkAclEntry -> Bool
$c/= :: NetworkAclEntry -> NetworkAclEntry -> Bool
/= :: NetworkAclEntry -> NetworkAclEntry -> Bool
Prelude.Eq, Int -> NetworkAclEntry -> ShowS
[NetworkAclEntry] -> ShowS
NetworkAclEntry -> String
(Int -> NetworkAclEntry -> ShowS)
-> (NetworkAclEntry -> String)
-> ([NetworkAclEntry] -> ShowS)
-> Show NetworkAclEntry
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NetworkAclEntry -> ShowS
showsPrec :: Int -> NetworkAclEntry -> ShowS
$cshow :: NetworkAclEntry -> String
show :: NetworkAclEntry -> String
$cshowList :: [NetworkAclEntry] -> ShowS
showList :: [NetworkAclEntry] -> ShowS
Prelude.Show)
mkNetworkAclEntry ::
  Value Prelude.Text
  -> Value Prelude.Integer
     -> Value Prelude.Text -> Value Prelude.Integer -> NetworkAclEntry
mkNetworkAclEntry :: Value Text
-> Value Integer -> Value Text -> Value Integer -> NetworkAclEntry
mkNetworkAclEntry Value Text
networkAclId Value Integer
protocol Value Text
ruleAction Value Integer
ruleNumber
  = NetworkAclEntry
      {haddock_workaround_ :: ()
haddock_workaround_ = (), networkAclId :: Value Text
networkAclId = Value Text
networkAclId,
       protocol :: Value Integer
protocol = Value Integer
protocol, ruleAction :: Value Text
ruleAction = Value Text
ruleAction,
       ruleNumber :: Value Integer
ruleNumber = Value Integer
ruleNumber, cidrBlock :: Maybe (Value Text)
cidrBlock = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       egress :: Maybe (Value Bool)
egress = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing, icmp :: Maybe IcmpProperty
icmp = Maybe IcmpProperty
forall a. Maybe a
Prelude.Nothing,
       ipv6CidrBlock :: Maybe (Value Text)
ipv6CidrBlock = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, portRange :: Maybe PortRangeProperty
portRange = Maybe PortRangeProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties NetworkAclEntry where
  toResourceProperties :: NetworkAclEntry -> ResourceProperties
toResourceProperties NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::EC2::NetworkAclEntry",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"NetworkAclId" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
networkAclId, Key
"Protocol" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
protocol,
                            Key
"RuleAction" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
ruleAction, Key
"RuleNumber" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
ruleNumber]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CidrBlock" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
cidrBlock,
                               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Egress" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
egress,
                               Key -> IcmpProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Icmp" (IcmpProperty -> (Key, Value))
-> Maybe IcmpProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IcmpProperty
icmp,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Ipv6CidrBlock" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
ipv6CidrBlock,
                               Key -> PortRangeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PortRange" (PortRangeProperty -> (Key, Value))
-> Maybe PortRangeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PortRangeProperty
portRange]))}
instance JSON.ToJSON NetworkAclEntry where
  toJSON :: NetworkAclEntry -> Value
toJSON NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"NetworkAclId" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
networkAclId, Key
"Protocol" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
protocol,
               Key
"RuleAction" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
ruleAction, Key
"RuleNumber" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
ruleNumber]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CidrBlock" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
cidrBlock,
                  Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Egress" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
egress,
                  Key -> IcmpProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Icmp" (IcmpProperty -> (Key, Value))
-> Maybe IcmpProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IcmpProperty
icmp,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Ipv6CidrBlock" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
ipv6CidrBlock,
                  Key -> PortRangeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PortRange" (PortRangeProperty -> (Key, Value))
-> Maybe PortRangeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PortRangeProperty
portRange])))
instance Property "CidrBlock" NetworkAclEntry where
  type PropertyType "CidrBlock" NetworkAclEntry = Value Prelude.Text
  set :: PropertyType "CidrBlock" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "CidrBlock" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {cidrBlock :: Maybe (Value Text)
cidrBlock = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CidrBlock" NetworkAclEntry
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "Egress" NetworkAclEntry where
  type PropertyType "Egress" NetworkAclEntry = Value Prelude.Bool
  set :: PropertyType "Egress" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "Egress" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {egress :: Maybe (Value Bool)
egress = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Egress" NetworkAclEntry
Value Bool
newValue, Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "Icmp" NetworkAclEntry where
  type PropertyType "Icmp" NetworkAclEntry = IcmpProperty
  set :: PropertyType "Icmp" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "Icmp" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {icmp :: Maybe IcmpProperty
icmp = IcmpProperty -> Maybe IcmpProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Icmp" NetworkAclEntry
IcmpProperty
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "Ipv6CidrBlock" NetworkAclEntry where
  type PropertyType "Ipv6CidrBlock" NetworkAclEntry = Value Prelude.Text
  set :: PropertyType "Ipv6CidrBlock" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "Ipv6CidrBlock" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {ipv6CidrBlock :: Maybe (Value Text)
ipv6CidrBlock = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Ipv6CidrBlock" NetworkAclEntry
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "NetworkAclId" NetworkAclEntry where
  type PropertyType "NetworkAclId" NetworkAclEntry = Value Prelude.Text
  set :: PropertyType "NetworkAclId" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "NetworkAclId" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {networkAclId :: Value Text
networkAclId = PropertyType "NetworkAclId" NetworkAclEntry
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "PortRange" NetworkAclEntry where
  type PropertyType "PortRange" NetworkAclEntry = PortRangeProperty
  set :: PropertyType "PortRange" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "PortRange" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {portRange :: Maybe PortRangeProperty
portRange = PortRangeProperty -> Maybe PortRangeProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PortRange" NetworkAclEntry
PortRangeProperty
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "Protocol" NetworkAclEntry where
  type PropertyType "Protocol" NetworkAclEntry = Value Prelude.Integer
  set :: PropertyType "Protocol" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "Protocol" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {protocol :: Value Integer
protocol = PropertyType "Protocol" NetworkAclEntry
Value Integer
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
ruleAction :: Value Text
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
instance Property "RuleAction" NetworkAclEntry where
  type PropertyType "RuleAction" NetworkAclEntry = Value Prelude.Text
  set :: PropertyType "RuleAction" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "RuleAction" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {ruleAction :: Value Text
ruleAction = PropertyType "RuleAction" NetworkAclEntry
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleNumber :: Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleNumber :: Value Integer
..}
instance Property "RuleNumber" NetworkAclEntry where
  type PropertyType "RuleNumber" NetworkAclEntry = Value Prelude.Integer
  set :: PropertyType "RuleNumber" NetworkAclEntry
-> NetworkAclEntry -> NetworkAclEntry
set PropertyType "RuleNumber" NetworkAclEntry
newValue NetworkAclEntry {Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: NetworkAclEntry -> ()
cidrBlock :: NetworkAclEntry -> Maybe (Value Text)
egress :: NetworkAclEntry -> Maybe (Value Bool)
icmp :: NetworkAclEntry -> Maybe IcmpProperty
ipv6CidrBlock :: NetworkAclEntry -> Maybe (Value Text)
networkAclId :: NetworkAclEntry -> Value Text
portRange :: NetworkAclEntry -> Maybe PortRangeProperty
protocol :: NetworkAclEntry -> Value Integer
ruleAction :: NetworkAclEntry -> Value Text
ruleNumber :: NetworkAclEntry -> Value Integer
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
ruleNumber :: Value Integer
..}
    = NetworkAclEntry {ruleNumber :: Value Integer
ruleNumber = PropertyType "RuleNumber" NetworkAclEntry
Value Integer
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe IcmpProperty
Maybe PortRangeProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
haddock_workaround_ :: ()
cidrBlock :: Maybe (Value Text)
egress :: Maybe (Value Bool)
icmp :: Maybe IcmpProperty
ipv6CidrBlock :: Maybe (Value Text)
networkAclId :: Value Text
portRange :: Maybe PortRangeProperty
protocol :: Value Integer
ruleAction :: Value Text
..}