module Stratosphere.SSMIncidents.ResponsePlan.DynamicSsmParameterProperty (
module Exports, DynamicSsmParameterProperty(..),
mkDynamicSsmParameterProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SSMIncidents.ResponsePlan.DynamicSsmParameterValueProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data DynamicSsmParameterProperty
=
DynamicSsmParameterProperty {DynamicSsmParameterProperty -> ()
haddock_workaround_ :: (),
DynamicSsmParameterProperty -> Value Text
key :: (Value Prelude.Text),
DynamicSsmParameterProperty -> DynamicSsmParameterValueProperty
value :: DynamicSsmParameterValueProperty}
deriving stock (DynamicSsmParameterProperty -> DynamicSsmParameterProperty -> Bool
(DynamicSsmParameterProperty
-> DynamicSsmParameterProperty -> Bool)
-> (DynamicSsmParameterProperty
-> DynamicSsmParameterProperty -> Bool)
-> Eq DynamicSsmParameterProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DynamicSsmParameterProperty -> DynamicSsmParameterProperty -> Bool
== :: DynamicSsmParameterProperty -> DynamicSsmParameterProperty -> Bool
$c/= :: DynamicSsmParameterProperty -> DynamicSsmParameterProperty -> Bool
/= :: DynamicSsmParameterProperty -> DynamicSsmParameterProperty -> Bool
Prelude.Eq, Int -> DynamicSsmParameterProperty -> ShowS
[DynamicSsmParameterProperty] -> ShowS
DynamicSsmParameterProperty -> String
(Int -> DynamicSsmParameterProperty -> ShowS)
-> (DynamicSsmParameterProperty -> String)
-> ([DynamicSsmParameterProperty] -> ShowS)
-> Show DynamicSsmParameterProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DynamicSsmParameterProperty -> ShowS
showsPrec :: Int -> DynamicSsmParameterProperty -> ShowS
$cshow :: DynamicSsmParameterProperty -> String
show :: DynamicSsmParameterProperty -> String
$cshowList :: [DynamicSsmParameterProperty] -> ShowS
showList :: [DynamicSsmParameterProperty] -> ShowS
Prelude.Show)
mkDynamicSsmParameterProperty ::
Value Prelude.Text
-> DynamicSsmParameterValueProperty -> DynamicSsmParameterProperty
mkDynamicSsmParameterProperty :: Value Text
-> DynamicSsmParameterValueProperty -> DynamicSsmParameterProperty
mkDynamicSsmParameterProperty Value Text
key DynamicSsmParameterValueProperty
value
= DynamicSsmParameterProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), key :: Value Text
key = Value Text
key, value :: DynamicSsmParameterValueProperty
value = DynamicSsmParameterValueProperty
value}
instance ToResourceProperties DynamicSsmParameterProperty where
toResourceProperties :: DynamicSsmParameterProperty -> ResourceProperties
toResourceProperties DynamicSsmParameterProperty {()
Value Text
DynamicSsmParameterValueProperty
haddock_workaround_ :: DynamicSsmParameterProperty -> ()
key :: DynamicSsmParameterProperty -> Value Text
value :: DynamicSsmParameterProperty -> DynamicSsmParameterValueProperty
haddock_workaround_ :: ()
key :: Value Text
value :: DynamicSsmParameterValueProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::SSMIncidents::ResponsePlan.DynamicSsmParameter",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"Key" 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
key, Key
"Value" Key -> DynamicSsmParameterValueProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= DynamicSsmParameterValueProperty
value]}
instance JSON.ToJSON DynamicSsmParameterProperty where
toJSON :: DynamicSsmParameterProperty -> Value
toJSON DynamicSsmParameterProperty {()
Value Text
DynamicSsmParameterValueProperty
haddock_workaround_ :: DynamicSsmParameterProperty -> ()
key :: DynamicSsmParameterProperty -> Value Text
value :: DynamicSsmParameterProperty -> DynamicSsmParameterValueProperty
haddock_workaround_ :: ()
key :: Value Text
value :: DynamicSsmParameterValueProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"Key" 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
key, Key
"Value" Key -> DynamicSsmParameterValueProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= DynamicSsmParameterValueProperty
value]
instance Property "Key" DynamicSsmParameterProperty where
type PropertyType "Key" DynamicSsmParameterProperty = Value Prelude.Text
set :: PropertyType "Key" DynamicSsmParameterProperty
-> DynamicSsmParameterProperty -> DynamicSsmParameterProperty
set PropertyType "Key" DynamicSsmParameterProperty
newValue DynamicSsmParameterProperty {()
Value Text
DynamicSsmParameterValueProperty
haddock_workaround_ :: DynamicSsmParameterProperty -> ()
key :: DynamicSsmParameterProperty -> Value Text
value :: DynamicSsmParameterProperty -> DynamicSsmParameterValueProperty
haddock_workaround_ :: ()
key :: Value Text
value :: DynamicSsmParameterValueProperty
..}
= DynamicSsmParameterProperty {key :: Value Text
key = PropertyType "Key" DynamicSsmParameterProperty
Value Text
newValue, ()
DynamicSsmParameterValueProperty
haddock_workaround_ :: ()
value :: DynamicSsmParameterValueProperty
haddock_workaround_ :: ()
value :: DynamicSsmParameterValueProperty
..}
instance Property "Value" DynamicSsmParameterProperty where
type PropertyType "Value" DynamicSsmParameterProperty = DynamicSsmParameterValueProperty
set :: PropertyType "Value" DynamicSsmParameterProperty
-> DynamicSsmParameterProperty -> DynamicSsmParameterProperty
set PropertyType "Value" DynamicSsmParameterProperty
newValue DynamicSsmParameterProperty {()
Value Text
DynamicSsmParameterValueProperty
haddock_workaround_ :: DynamicSsmParameterProperty -> ()
key :: DynamicSsmParameterProperty -> Value Text
value :: DynamicSsmParameterProperty -> DynamicSsmParameterValueProperty
haddock_workaround_ :: ()
key :: Value Text
value :: DynamicSsmParameterValueProperty
..}
= DynamicSsmParameterProperty {value :: DynamicSsmParameterValueProperty
value = PropertyType "Value" DynamicSsmParameterProperty
DynamicSsmParameterValueProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
key :: Value Text
haddock_workaround_ :: ()
key :: Value Text
..}