module Stratosphere.GlobalAccelerator.EndpointGroup (
        module Exports, EndpointGroup(..), mkEndpointGroup
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.GlobalAccelerator.EndpointGroup.EndpointConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.GlobalAccelerator.EndpointGroup.PortOverrideProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data EndpointGroup
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html>
    EndpointGroup {EndpointGroup -> ()
haddock_workaround_ :: (),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-endpointconfigurations>
                   EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointConfigurations :: (Prelude.Maybe [EndpointConfigurationProperty]),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-endpointgroupregion>
                   EndpointGroup -> Value Text
endpointGroupRegion :: (Value Prelude.Text),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckintervalseconds>
                   EndpointGroup -> Maybe (Value Integer)
healthCheckIntervalSeconds :: (Prelude.Maybe (Value Prelude.Integer)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckpath>
                   EndpointGroup -> Maybe (Value Text)
healthCheckPath :: (Prelude.Maybe (Value Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckport>
                   EndpointGroup -> Maybe (Value Integer)
healthCheckPort :: (Prelude.Maybe (Value Prelude.Integer)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckprotocol>
                   EndpointGroup -> Maybe (Value Text)
healthCheckProtocol :: (Prelude.Maybe (Value Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-listenerarn>
                   EndpointGroup -> Value Text
listenerArn :: (Value Prelude.Text),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-portoverrides>
                   EndpointGroup -> Maybe [PortOverrideProperty]
portOverrides :: (Prelude.Maybe [PortOverrideProperty]),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-thresholdcount>
                   EndpointGroup -> Maybe (Value Integer)
thresholdCount :: (Prelude.Maybe (Value Prelude.Integer)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-trafficdialpercentage>
                   EndpointGroup -> Maybe (Value Double)
trafficDialPercentage :: (Prelude.Maybe (Value Prelude.Double))}
  deriving stock (EndpointGroup -> EndpointGroup -> Bool
(EndpointGroup -> EndpointGroup -> Bool)
-> (EndpointGroup -> EndpointGroup -> Bool) -> Eq EndpointGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EndpointGroup -> EndpointGroup -> Bool
== :: EndpointGroup -> EndpointGroup -> Bool
$c/= :: EndpointGroup -> EndpointGroup -> Bool
/= :: EndpointGroup -> EndpointGroup -> Bool
Prelude.Eq, Int -> EndpointGroup -> ShowS
[EndpointGroup] -> ShowS
EndpointGroup -> String
(Int -> EndpointGroup -> ShowS)
-> (EndpointGroup -> String)
-> ([EndpointGroup] -> ShowS)
-> Show EndpointGroup
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EndpointGroup -> ShowS
showsPrec :: Int -> EndpointGroup -> ShowS
$cshow :: EndpointGroup -> String
show :: EndpointGroup -> String
$cshowList :: [EndpointGroup] -> ShowS
showList :: [EndpointGroup] -> ShowS
Prelude.Show)
mkEndpointGroup ::
  Value Prelude.Text -> Value Prelude.Text -> EndpointGroup
mkEndpointGroup :: Value Text -> Value Text -> EndpointGroup
mkEndpointGroup Value Text
endpointGroupRegion Value Text
listenerArn
  = EndpointGroup
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       endpointGroupRegion :: Value Text
endpointGroupRegion = Value Text
endpointGroupRegion,
       listenerArn :: Value Text
listenerArn = Value Text
listenerArn,
       endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointConfigurations = Maybe [EndpointConfigurationProperty]
forall a. Maybe a
Prelude.Nothing,
       healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckIntervalSeconds = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       healthCheckPath :: Maybe (Value Text)
healthCheckPath = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       healthCheckPort :: Maybe (Value Integer)
healthCheckPort = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       healthCheckProtocol :: Maybe (Value Text)
healthCheckProtocol = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       portOverrides :: Maybe [PortOverrideProperty]
portOverrides = Maybe [PortOverrideProperty]
forall a. Maybe a
Prelude.Nothing, thresholdCount :: Maybe (Value Integer)
thresholdCount = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       trafficDialPercentage :: Maybe (Value Double)
trafficDialPercentage = Maybe (Value Double)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties EndpointGroup where
  toResourceProperties :: EndpointGroup -> ResourceProperties
toResourceProperties EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::GlobalAccelerator::EndpointGroup",
         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
"EndpointGroupRegion" 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
endpointGroupRegion,
                            Key
"ListenerArn" 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
listenerArn]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> [EndpointConfigurationProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EndpointConfigurations"
                                 ([EndpointConfigurationProperty] -> (Key, Value))
-> Maybe [EndpointConfigurationProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [EndpointConfigurationProperty]
endpointConfigurations,
                               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
"HealthCheckIntervalSeconds"
                                 (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)
healthCheckIntervalSeconds,
                               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
"HealthCheckPath" (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)
healthCheckPath,
                               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
"HealthCheckPort" (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)
healthCheckPort,
                               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
"HealthCheckProtocol" (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)
healthCheckProtocol,
                               Key -> [PortOverrideProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PortOverrides" ([PortOverrideProperty] -> (Key, Value))
-> Maybe [PortOverrideProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PortOverrideProperty]
portOverrides,
                               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
"ThresholdCount" (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)
thresholdCount,
                               Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TrafficDialPercentage"
                                 (Value Double -> (Key, Value))
-> Maybe (Value Double) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Double)
trafficDialPercentage]))}
instance JSON.ToJSON EndpointGroup where
  toJSON :: EndpointGroup -> Value
toJSON EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = [(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
"EndpointGroupRegion" 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
endpointGroupRegion,
               Key
"ListenerArn" 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
listenerArn]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> [EndpointConfigurationProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EndpointConfigurations"
                    ([EndpointConfigurationProperty] -> (Key, Value))
-> Maybe [EndpointConfigurationProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [EndpointConfigurationProperty]
endpointConfigurations,
                  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
"HealthCheckIntervalSeconds"
                    (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)
healthCheckIntervalSeconds,
                  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
"HealthCheckPath" (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)
healthCheckPath,
                  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
"HealthCheckPort" (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)
healthCheckPort,
                  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
"HealthCheckProtocol" (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)
healthCheckProtocol,
                  Key -> [PortOverrideProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PortOverrides" ([PortOverrideProperty] -> (Key, Value))
-> Maybe [PortOverrideProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PortOverrideProperty]
portOverrides,
                  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
"ThresholdCount" (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)
thresholdCount,
                  Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TrafficDialPercentage"
                    (Value Double -> (Key, Value))
-> Maybe (Value Double) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Double)
trafficDialPercentage])))
instance Property "EndpointConfigurations" EndpointGroup where
  type PropertyType "EndpointConfigurations" EndpointGroup = [EndpointConfigurationProperty]
  set :: PropertyType "EndpointConfigurations" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "EndpointConfigurations" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup
        {endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointConfigurations = [EndpointConfigurationProperty]
-> Maybe [EndpointConfigurationProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [EndpointConfigurationProperty]
PropertyType "EndpointConfigurations" EndpointGroup
newValue, Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "EndpointGroupRegion" EndpointGroup where
  type PropertyType "EndpointGroupRegion" EndpointGroup = Value Prelude.Text
  set :: PropertyType "EndpointGroupRegion" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "EndpointGroupRegion" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {endpointGroupRegion :: Value Text
endpointGroupRegion = PropertyType "EndpointGroupRegion" EndpointGroup
Value Text
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "HealthCheckIntervalSeconds" EndpointGroup where
  type PropertyType "HealthCheckIntervalSeconds" EndpointGroup = Value Prelude.Integer
  set :: PropertyType "HealthCheckIntervalSeconds" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "HealthCheckIntervalSeconds" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup
        {healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckIntervalSeconds = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HealthCheckIntervalSeconds" EndpointGroup
Value Integer
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "HealthCheckPath" EndpointGroup where
  type PropertyType "HealthCheckPath" EndpointGroup = Value Prelude.Text
  set :: PropertyType "HealthCheckPath" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "HealthCheckPath" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {healthCheckPath :: Maybe (Value Text)
healthCheckPath = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HealthCheckPath" EndpointGroup
Value Text
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "HealthCheckPort" EndpointGroup where
  type PropertyType "HealthCheckPort" EndpointGroup = Value Prelude.Integer
  set :: PropertyType "HealthCheckPort" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "HealthCheckPort" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {healthCheckPort :: Maybe (Value Integer)
healthCheckPort = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HealthCheckPort" EndpointGroup
Value Integer
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "HealthCheckProtocol" EndpointGroup where
  type PropertyType "HealthCheckProtocol" EndpointGroup = Value Prelude.Text
  set :: PropertyType "HealthCheckProtocol" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "HealthCheckProtocol" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {healthCheckProtocol :: Maybe (Value Text)
healthCheckProtocol = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HealthCheckProtocol" EndpointGroup
Value Text
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "ListenerArn" EndpointGroup where
  type PropertyType "ListenerArn" EndpointGroup = Value Prelude.Text
  set :: PropertyType "ListenerArn" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "ListenerArn" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {listenerArn :: Value Text
listenerArn = PropertyType "ListenerArn" EndpointGroup
Value Text
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "PortOverrides" EndpointGroup where
  type PropertyType "PortOverrides" EndpointGroup = [PortOverrideProperty]
  set :: PropertyType "PortOverrides" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "PortOverrides" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {portOverrides :: Maybe [PortOverrideProperty]
portOverrides = [PortOverrideProperty] -> Maybe [PortOverrideProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [PortOverrideProperty]
PropertyType "PortOverrides" EndpointGroup
newValue, Maybe [EndpointConfigurationProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "ThresholdCount" EndpointGroup where
  type PropertyType "ThresholdCount" EndpointGroup = Value Prelude.Integer
  set :: PropertyType "ThresholdCount" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "ThresholdCount" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {thresholdCount :: Maybe (Value Integer)
thresholdCount = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ThresholdCount" EndpointGroup
Value Integer
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
trafficDialPercentage :: Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
trafficDialPercentage :: Maybe (Value Double)
..}
instance Property "TrafficDialPercentage" EndpointGroup where
  type PropertyType "TrafficDialPercentage" EndpointGroup = Value Prelude.Double
  set :: PropertyType "TrafficDialPercentage" EndpointGroup
-> EndpointGroup -> EndpointGroup
set PropertyType "TrafficDialPercentage" EndpointGroup
newValue EndpointGroup {Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: EndpointGroup -> ()
endpointConfigurations :: EndpointGroup -> Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: EndpointGroup -> Value Text
healthCheckIntervalSeconds :: EndpointGroup -> Maybe (Value Integer)
healthCheckPath :: EndpointGroup -> Maybe (Value Text)
healthCheckPort :: EndpointGroup -> Maybe (Value Integer)
healthCheckProtocol :: EndpointGroup -> Maybe (Value Text)
listenerArn :: EndpointGroup -> Value Text
portOverrides :: EndpointGroup -> Maybe [PortOverrideProperty]
thresholdCount :: EndpointGroup -> Maybe (Value Integer)
trafficDialPercentage :: EndpointGroup -> Maybe (Value Double)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
trafficDialPercentage :: Maybe (Value Double)
..}
    = EndpointGroup {trafficDialPercentage :: Maybe (Value Double)
trafficDialPercentage = Value Double -> Maybe (Value Double)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TrafficDialPercentage" EndpointGroup
Value Double
newValue, Maybe [EndpointConfigurationProperty]
Maybe [PortOverrideProperty]
Maybe (Value Integer)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
haddock_workaround_ :: ()
endpointConfigurations :: Maybe [EndpointConfigurationProperty]
endpointGroupRegion :: Value Text
healthCheckIntervalSeconds :: Maybe (Value Integer)
healthCheckPath :: Maybe (Value Text)
healthCheckPort :: Maybe (Value Integer)
healthCheckProtocol :: Maybe (Value Text)
listenerArn :: Value Text
portOverrides :: Maybe [PortOverrideProperty]
thresholdCount :: Maybe (Value Integer)
..}