module Stratosphere.QuickSight.Analysis.StringParameterProperty (
        StringParameterProperty(..), mkStringParameterProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data StringParameterProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-stringparameter.html>
    StringParameterProperty {StringParameterProperty -> ()
haddock_workaround_ :: (),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-stringparameter.html#cfn-quicksight-analysis-stringparameter-name>
                             StringParameterProperty -> Value Text
name :: (Value Prelude.Text),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-stringparameter.html#cfn-quicksight-analysis-stringparameter-values>
                             StringParameterProperty -> ValueList Text
values :: (ValueList Prelude.Text)}
  deriving stock (StringParameterProperty -> StringParameterProperty -> Bool
(StringParameterProperty -> StringParameterProperty -> Bool)
-> (StringParameterProperty -> StringParameterProperty -> Bool)
-> Eq StringParameterProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StringParameterProperty -> StringParameterProperty -> Bool
== :: StringParameterProperty -> StringParameterProperty -> Bool
$c/= :: StringParameterProperty -> StringParameterProperty -> Bool
/= :: StringParameterProperty -> StringParameterProperty -> Bool
Prelude.Eq, Int -> StringParameterProperty -> ShowS
[StringParameterProperty] -> ShowS
StringParameterProperty -> String
(Int -> StringParameterProperty -> ShowS)
-> (StringParameterProperty -> String)
-> ([StringParameterProperty] -> ShowS)
-> Show StringParameterProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StringParameterProperty -> ShowS
showsPrec :: Int -> StringParameterProperty -> ShowS
$cshow :: StringParameterProperty -> String
show :: StringParameterProperty -> String
$cshowList :: [StringParameterProperty] -> ShowS
showList :: [StringParameterProperty] -> ShowS
Prelude.Show)
mkStringParameterProperty ::
  Value Prelude.Text
  -> ValueList Prelude.Text -> StringParameterProperty
mkStringParameterProperty :: Value Text -> ValueList Text -> StringParameterProperty
mkStringParameterProperty Value Text
name ValueList Text
values
  = StringParameterProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), name :: Value Text
name = Value Text
name, values :: ValueList Text
values = ValueList Text
values}
instance ToResourceProperties StringParameterProperty where
  toResourceProperties :: StringParameterProperty -> ResourceProperties
toResourceProperties StringParameterProperty {()
ValueList Text
Value Text
haddock_workaround_ :: StringParameterProperty -> ()
name :: StringParameterProperty -> Value Text
values :: StringParameterProperty -> ValueList Text
haddock_workaround_ :: ()
name :: Value Text
values :: ValueList Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::Analysis.StringParameter",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Name" 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
name, Key
"Values" 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..= ValueList Text
values]}
instance JSON.ToJSON StringParameterProperty where
  toJSON :: StringParameterProperty -> Value
toJSON StringParameterProperty {()
ValueList Text
Value Text
haddock_workaround_ :: StringParameterProperty -> ()
name :: StringParameterProperty -> Value Text
values :: StringParameterProperty -> ValueList Text
haddock_workaround_ :: ()
name :: Value Text
values :: ValueList Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Name" 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
name, Key
"Values" 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..= ValueList Text
values]
instance Property "Name" StringParameterProperty where
  type PropertyType "Name" StringParameterProperty = Value Prelude.Text
  set :: PropertyType "Name" StringParameterProperty
-> StringParameterProperty -> StringParameterProperty
set PropertyType "Name" StringParameterProperty
newValue StringParameterProperty {()
ValueList Text
Value Text
haddock_workaround_ :: StringParameterProperty -> ()
name :: StringParameterProperty -> Value Text
values :: StringParameterProperty -> ValueList Text
haddock_workaround_ :: ()
name :: Value Text
values :: ValueList Text
..}
    = StringParameterProperty {name :: Value Text
name = PropertyType "Name" StringParameterProperty
Value Text
newValue, ()
ValueList Text
haddock_workaround_ :: ()
values :: ValueList Text
haddock_workaround_ :: ()
values :: ValueList Text
..}
instance Property "Values" StringParameterProperty where
  type PropertyType "Values" StringParameterProperty = ValueList Prelude.Text
  set :: PropertyType "Values" StringParameterProperty
-> StringParameterProperty -> StringParameterProperty
set PropertyType "Values" StringParameterProperty
newValue StringParameterProperty {()
ValueList Text
Value Text
haddock_workaround_ :: StringParameterProperty -> ()
name :: StringParameterProperty -> Value Text
values :: StringParameterProperty -> ValueList Text
haddock_workaround_ :: ()
name :: Value Text
values :: ValueList Text
..}
    = StringParameterProperty {values :: ValueList Text
values = PropertyType "Values" StringParameterProperty
ValueList Text
newValue, ()
Value Text
haddock_workaround_ :: ()
name :: Value Text
haddock_workaround_ :: ()
name :: Value Text
..}