module Stratosphere.Lightsail.Instance.PortProperty (
        PortProperty(..), mkPortProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data PortProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html>
    PortProperty {PortProperty -> ()
haddock_workaround_ :: (),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-accessdirection>
                  PortProperty -> Maybe (Value Text)
accessDirection :: (Prelude.Maybe (Value Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-accessfrom>
                  PortProperty -> Maybe (Value Text)
accessFrom :: (Prelude.Maybe (Value Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-accesstype>
                  PortProperty -> Maybe (Value Text)
accessType :: (Prelude.Maybe (Value Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-cidrlistaliases>
                  PortProperty -> Maybe (ValueList Text)
cidrListAliases :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-cidrs>
                  PortProperty -> Maybe (ValueList Text)
cidrs :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-commonname>
                  PortProperty -> Maybe (Value Text)
commonName :: (Prelude.Maybe (Value Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-fromport>
                  PortProperty -> Maybe (Value Integer)
fromPort :: (Prelude.Maybe (Value Prelude.Integer)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-ipv6cidrs>
                  PortProperty -> Maybe (ValueList Text)
ipv6Cidrs :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-protocol>
                  PortProperty -> Maybe (Value Text)
protocol :: (Prelude.Maybe (Value Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lightsail-instance-port.html#cfn-lightsail-instance-port-toport>
                  PortProperty -> Maybe (Value Integer)
toPort :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (PortProperty -> PortProperty -> Bool
(PortProperty -> PortProperty -> Bool)
-> (PortProperty -> PortProperty -> Bool) -> Eq PortProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PortProperty -> PortProperty -> Bool
== :: PortProperty -> PortProperty -> Bool
$c/= :: PortProperty -> PortProperty -> Bool
/= :: PortProperty -> PortProperty -> Bool
Prelude.Eq, Int -> PortProperty -> ShowS
[PortProperty] -> ShowS
PortProperty -> String
(Int -> PortProperty -> ShowS)
-> (PortProperty -> String)
-> ([PortProperty] -> ShowS)
-> Show PortProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PortProperty -> ShowS
showsPrec :: Int -> PortProperty -> ShowS
$cshow :: PortProperty -> String
show :: PortProperty -> String
$cshowList :: [PortProperty] -> ShowS
showList :: [PortProperty] -> ShowS
Prelude.Show)
mkPortProperty :: PortProperty
mkPortProperty :: PortProperty
mkPortProperty
  = PortProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), accessDirection :: Maybe (Value Text)
accessDirection = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       accessFrom :: Maybe (Value Text)
accessFrom = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, accessType :: Maybe (Value Text)
accessType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       cidrListAliases :: Maybe (ValueList Text)
cidrListAliases = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, cidrs :: Maybe (ValueList Text)
cidrs = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       commonName :: Maybe (Value Text)
commonName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, fromPort :: Maybe (Value Integer)
fromPort = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       ipv6Cidrs :: Maybe (ValueList Text)
ipv6Cidrs = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, protocol :: Maybe (Value Text)
protocol = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       toPort :: Maybe (Value Integer)
toPort = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties PortProperty where
  toResourceProperties :: PortProperty -> ResourceProperties
toResourceProperties PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Lightsail::Instance.Port",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([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
"AccessDirection" (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)
accessDirection,
                            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
"AccessFrom" (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)
accessFrom,
                            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
"AccessType" (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)
accessType,
                            Key -> ValueList 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
"CidrListAliases" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
cidrListAliases,
                            Key -> ValueList 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
"Cidrs" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
cidrs,
                            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
"CommonName" (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)
commonName,
                            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..=) Key
"FromPort" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
fromPort,
                            Key -> ValueList 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
"Ipv6Cidrs" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
ipv6Cidrs,
                            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
"Protocol" (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)
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..=) Key
"ToPort" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
toPort])}
instance JSON.ToJSON PortProperty where
  toJSON :: PortProperty -> Value
toJSON PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([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
"AccessDirection" (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)
accessDirection,
               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
"AccessFrom" (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)
accessFrom,
               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
"AccessType" (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)
accessType,
               Key -> ValueList 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
"CidrListAliases" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
cidrListAliases,
               Key -> ValueList 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
"Cidrs" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
cidrs,
               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
"CommonName" (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)
commonName,
               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..=) Key
"FromPort" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
fromPort,
               Key -> ValueList 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
"Ipv6Cidrs" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
ipv6Cidrs,
               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
"Protocol" (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)
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..=) Key
"ToPort" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
toPort]))
instance Property "AccessDirection" PortProperty where
  type PropertyType "AccessDirection" PortProperty = Value Prelude.Text
  set :: PropertyType "AccessDirection" PortProperty
-> PortProperty -> PortProperty
set PropertyType "AccessDirection" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {accessDirection :: Maybe (Value Text)
accessDirection = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AccessDirection" PortProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "AccessFrom" PortProperty where
  type PropertyType "AccessFrom" PortProperty = Value Prelude.Text
  set :: PropertyType "AccessFrom" PortProperty
-> PortProperty -> PortProperty
set PropertyType "AccessFrom" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {accessFrom :: Maybe (Value Text)
accessFrom = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AccessFrom" PortProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "AccessType" PortProperty where
  type PropertyType "AccessType" PortProperty = Value Prelude.Text
  set :: PropertyType "AccessType" PortProperty
-> PortProperty -> PortProperty
set PropertyType "AccessType" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {accessType :: Maybe (Value Text)
accessType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AccessType" PortProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "CidrListAliases" PortProperty where
  type PropertyType "CidrListAliases" PortProperty = ValueList Prelude.Text
  set :: PropertyType "CidrListAliases" PortProperty
-> PortProperty -> PortProperty
set PropertyType "CidrListAliases" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {cidrListAliases :: Maybe (ValueList Text)
cidrListAliases = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CidrListAliases" PortProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "Cidrs" PortProperty where
  type PropertyType "Cidrs" PortProperty = ValueList Prelude.Text
  set :: PropertyType "Cidrs" PortProperty -> PortProperty -> PortProperty
set PropertyType "Cidrs" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {cidrs :: Maybe (ValueList Text)
cidrs = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Cidrs" PortProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "CommonName" PortProperty where
  type PropertyType "CommonName" PortProperty = Value Prelude.Text
  set :: PropertyType "CommonName" PortProperty
-> PortProperty -> PortProperty
set PropertyType "CommonName" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {commonName :: Maybe (Value Text)
commonName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CommonName" PortProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "FromPort" PortProperty where
  type PropertyType "FromPort" PortProperty = Value Prelude.Integer
  set :: PropertyType "FromPort" PortProperty
-> PortProperty -> PortProperty
set PropertyType "FromPort" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {fromPort :: Maybe (Value Integer)
fromPort = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FromPort" PortProperty
Value Integer
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "Ipv6Cidrs" PortProperty where
  type PropertyType "Ipv6Cidrs" PortProperty = ValueList Prelude.Text
  set :: PropertyType "Ipv6Cidrs" PortProperty
-> PortProperty -> PortProperty
set PropertyType "Ipv6Cidrs" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {ipv6Cidrs :: Maybe (ValueList Text)
ipv6Cidrs = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Ipv6Cidrs" PortProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
instance Property "Protocol" PortProperty where
  type PropertyType "Protocol" PortProperty = Value Prelude.Text
  set :: PropertyType "Protocol" PortProperty
-> PortProperty -> PortProperty
set PropertyType "Protocol" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {protocol :: Maybe (Value Text)
protocol = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Protocol" PortProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
toPort :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
toPort :: Maybe (Value Integer)
..}
instance Property "ToPort" PortProperty where
  type PropertyType "ToPort" PortProperty = Value Prelude.Integer
  set :: PropertyType "ToPort" PortProperty -> PortProperty -> PortProperty
set PropertyType "ToPort" PortProperty
newValue PortProperty {Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: PortProperty -> ()
accessDirection :: PortProperty -> Maybe (Value Text)
accessFrom :: PortProperty -> Maybe (Value Text)
accessType :: PortProperty -> Maybe (Value Text)
cidrListAliases :: PortProperty -> Maybe (ValueList Text)
cidrs :: PortProperty -> Maybe (ValueList Text)
commonName :: PortProperty -> Maybe (Value Text)
fromPort :: PortProperty -> Maybe (Value Integer)
ipv6Cidrs :: PortProperty -> Maybe (ValueList Text)
protocol :: PortProperty -> Maybe (Value Text)
toPort :: PortProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
toPort :: Maybe (Value Integer)
..}
    = PortProperty {toPort :: Maybe (Value Integer)
toPort = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ToPort" PortProperty
Value Integer
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
haddock_workaround_ :: ()
accessDirection :: Maybe (Value Text)
accessFrom :: Maybe (Value Text)
accessType :: Maybe (Value Text)
cidrListAliases :: Maybe (ValueList Text)
cidrs :: Maybe (ValueList Text)
commonName :: Maybe (Value Text)
fromPort :: Maybe (Value Integer)
ipv6Cidrs :: Maybe (ValueList Text)
protocol :: Maybe (Value Text)
..}