module Stratosphere.StepFunctions.StateMachineAlias.RoutingConfigurationVersionProperty (
RoutingConfigurationVersionProperty(..),
mkRoutingConfigurationVersionProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RoutingConfigurationVersionProperty
=
RoutingConfigurationVersionProperty {RoutingConfigurationVersionProperty -> ()
haddock_workaround_ :: (),
RoutingConfigurationVersionProperty -> Value Text
stateMachineVersionArn :: (Value Prelude.Text),
RoutingConfigurationVersionProperty -> Value Integer
weight :: (Value Prelude.Integer)}
deriving stock (RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool
(RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool)
-> (RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool)
-> Eq RoutingConfigurationVersionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool
== :: RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool
$c/= :: RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool
/= :: RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty -> Bool
Prelude.Eq, Int -> RoutingConfigurationVersionProperty -> ShowS
[RoutingConfigurationVersionProperty] -> ShowS
RoutingConfigurationVersionProperty -> String
(Int -> RoutingConfigurationVersionProperty -> ShowS)
-> (RoutingConfigurationVersionProperty -> String)
-> ([RoutingConfigurationVersionProperty] -> ShowS)
-> Show RoutingConfigurationVersionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RoutingConfigurationVersionProperty -> ShowS
showsPrec :: Int -> RoutingConfigurationVersionProperty -> ShowS
$cshow :: RoutingConfigurationVersionProperty -> String
show :: RoutingConfigurationVersionProperty -> String
$cshowList :: [RoutingConfigurationVersionProperty] -> ShowS
showList :: [RoutingConfigurationVersionProperty] -> ShowS
Prelude.Show)
mkRoutingConfigurationVersionProperty ::
Value Prelude.Text
-> Value Prelude.Integer -> RoutingConfigurationVersionProperty
mkRoutingConfigurationVersionProperty :: Value Text -> Value Integer -> RoutingConfigurationVersionProperty
mkRoutingConfigurationVersionProperty Value Text
stateMachineVersionArn Value Integer
weight
= RoutingConfigurationVersionProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
stateMachineVersionArn :: Value Text
stateMachineVersionArn = Value Text
stateMachineVersionArn, weight :: Value Integer
weight = Value Integer
weight}
instance ToResourceProperties RoutingConfigurationVersionProperty where
toResourceProperties :: RoutingConfigurationVersionProperty -> ResourceProperties
toResourceProperties RoutingConfigurationVersionProperty {()
Value Integer
Value Text
haddock_workaround_ :: RoutingConfigurationVersionProperty -> ()
stateMachineVersionArn :: RoutingConfigurationVersionProperty -> Value Text
weight :: RoutingConfigurationVersionProperty -> Value Integer
haddock_workaround_ :: ()
stateMachineVersionArn :: Value Text
weight :: Value Integer
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::StepFunctions::StateMachineAlias.RoutingConfigurationVersion",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"StateMachineVersionArn"
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
stateMachineVersionArn,
Key
"Weight" 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
weight]}
instance JSON.ToJSON RoutingConfigurationVersionProperty where
toJSON :: RoutingConfigurationVersionProperty -> Value
toJSON RoutingConfigurationVersionProperty {()
Value Integer
Value Text
haddock_workaround_ :: RoutingConfigurationVersionProperty -> ()
stateMachineVersionArn :: RoutingConfigurationVersionProperty -> Value Text
weight :: RoutingConfigurationVersionProperty -> Value Integer
haddock_workaround_ :: ()
stateMachineVersionArn :: Value Text
weight :: Value Integer
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"StateMachineVersionArn" 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
stateMachineVersionArn,
Key
"Weight" 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
weight]
instance Property "StateMachineVersionArn" RoutingConfigurationVersionProperty where
type PropertyType "StateMachineVersionArn" RoutingConfigurationVersionProperty = Value Prelude.Text
set :: PropertyType
"StateMachineVersionArn" RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty
set PropertyType
"StateMachineVersionArn" RoutingConfigurationVersionProperty
newValue RoutingConfigurationVersionProperty {()
Value Integer
Value Text
haddock_workaround_ :: RoutingConfigurationVersionProperty -> ()
stateMachineVersionArn :: RoutingConfigurationVersionProperty -> Value Text
weight :: RoutingConfigurationVersionProperty -> Value Integer
haddock_workaround_ :: ()
stateMachineVersionArn :: Value Text
weight :: Value Integer
..}
= RoutingConfigurationVersionProperty
{stateMachineVersionArn :: Value Text
stateMachineVersionArn = PropertyType
"StateMachineVersionArn" RoutingConfigurationVersionProperty
Value Text
newValue, ()
Value Integer
haddock_workaround_ :: ()
weight :: Value Integer
haddock_workaround_ :: ()
weight :: Value Integer
..}
instance Property "Weight" RoutingConfigurationVersionProperty where
type PropertyType "Weight" RoutingConfigurationVersionProperty = Value Prelude.Integer
set :: PropertyType "Weight" RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty
-> RoutingConfigurationVersionProperty
set PropertyType "Weight" RoutingConfigurationVersionProperty
newValue RoutingConfigurationVersionProperty {()
Value Integer
Value Text
haddock_workaround_ :: RoutingConfigurationVersionProperty -> ()
stateMachineVersionArn :: RoutingConfigurationVersionProperty -> Value Text
weight :: RoutingConfigurationVersionProperty -> Value Integer
haddock_workaround_ :: ()
stateMachineVersionArn :: Value Text
weight :: Value Integer
..}
= RoutingConfigurationVersionProperty {weight :: Value Integer
weight = PropertyType "Weight" RoutingConfigurationVersionProperty
Value Integer
newValue, ()
Value Text
haddock_workaround_ :: ()
stateMachineVersionArn :: Value Text
haddock_workaround_ :: ()
stateMachineVersionArn :: Value Text
..}