module Stratosphere.QuickSight.Theme (
        module Exports, Theme(..), mkTheme
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Theme.ResourcePermissionProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Theme.ThemeConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Theme
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html>
    Theme {Theme -> ()
haddock_workaround_ :: (),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-awsaccountid>
           Theme -> Value Text
awsAccountId :: (Value Prelude.Text),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-basethemeid>
           Theme -> Value Text
baseThemeId :: (Value Prelude.Text),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-configuration>
           Theme -> ThemeConfigurationProperty
configuration :: ThemeConfigurationProperty,
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-name>
           Theme -> Value Text
name :: (Value Prelude.Text),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-permissions>
           Theme -> Maybe [ResourcePermissionProperty]
permissions :: (Prelude.Maybe [ResourcePermissionProperty]),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-tags>
           Theme -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-themeid>
           Theme -> Value Text
themeId :: (Value Prelude.Text),
           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-quicksight-theme.html#cfn-quicksight-theme-versiondescription>
           Theme -> Maybe (Value Text)
versionDescription :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (Theme -> Theme -> Bool
(Theme -> Theme -> Bool) -> (Theme -> Theme -> Bool) -> Eq Theme
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Theme -> Theme -> Bool
== :: Theme -> Theme -> Bool
$c/= :: Theme -> Theme -> Bool
/= :: Theme -> Theme -> Bool
Prelude.Eq, Int -> Theme -> ShowS
[Theme] -> ShowS
Theme -> String
(Int -> Theme -> ShowS)
-> (Theme -> String) -> ([Theme] -> ShowS) -> Show Theme
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Theme -> ShowS
showsPrec :: Int -> Theme -> ShowS
$cshow :: Theme -> String
show :: Theme -> String
$cshowList :: [Theme] -> ShowS
showList :: [Theme] -> ShowS
Prelude.Show)
mkTheme ::
  Value Prelude.Text
  -> Value Prelude.Text
     -> ThemeConfigurationProperty
        -> Value Prelude.Text -> Value Prelude.Text -> Theme
mkTheme :: Value Text
-> Value Text
-> ThemeConfigurationProperty
-> Value Text
-> Value Text
-> Theme
mkTheme Value Text
awsAccountId Value Text
baseThemeId ThemeConfigurationProperty
configuration Value Text
name Value Text
themeId
  = Theme
      {haddock_workaround_ :: ()
haddock_workaround_ = (), awsAccountId :: Value Text
awsAccountId = Value Text
awsAccountId,
       baseThemeId :: Value Text
baseThemeId = Value Text
baseThemeId, configuration :: ThemeConfigurationProperty
configuration = ThemeConfigurationProperty
configuration,
       name :: Value Text
name = Value Text
name, themeId :: Value Text
themeId = Value Text
themeId, permissions :: Maybe [ResourcePermissionProperty]
permissions = Maybe [ResourcePermissionProperty]
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing, versionDescription :: Maybe (Value Text)
versionDescription = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Theme where
  toResourceProperties :: Theme -> ResourceProperties
toResourceProperties Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::Theme", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         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
"AwsAccountId" 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
awsAccountId,
                            Key
"BaseThemeId" 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
baseThemeId,
                            Key
"Configuration" Key -> ThemeConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ThemeConfigurationProperty
configuration, 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
"ThemeId" 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
themeId]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> [ResourcePermissionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Permissions" ([ResourcePermissionProperty] -> (Key, Value))
-> Maybe [ResourcePermissionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ResourcePermissionProperty]
permissions,
                               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
                               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
"VersionDescription" (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)
versionDescription]))}
instance JSON.ToJSON Theme where
  toJSON :: Theme -> Value
toJSON Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
    = [(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
"AwsAccountId" 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
awsAccountId,
               Key
"BaseThemeId" 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
baseThemeId,
               Key
"Configuration" Key -> ThemeConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ThemeConfigurationProperty
configuration, 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
"ThemeId" 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
themeId]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> [ResourcePermissionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Permissions" ([ResourcePermissionProperty] -> (Key, Value))
-> Maybe [ResourcePermissionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ResourcePermissionProperty]
permissions,
                  Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
                  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
"VersionDescription" (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)
versionDescription])))
instance Property "AwsAccountId" Theme where
  type PropertyType "AwsAccountId" Theme = Value Prelude.Text
  set :: PropertyType "AwsAccountId" Theme -> Theme -> Theme
set PropertyType "AwsAccountId" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..} = Theme {awsAccountId :: Value Text
awsAccountId = PropertyType "AwsAccountId" Theme
Value Text
newValue, Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
instance Property "BaseThemeId" Theme where
  type PropertyType "BaseThemeId" Theme = Value Prelude.Text
  set :: PropertyType "BaseThemeId" Theme -> Theme -> Theme
set PropertyType "BaseThemeId" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..} = Theme {baseThemeId :: Value Text
baseThemeId = PropertyType "BaseThemeId" Theme
Value Text
newValue, Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
awsAccountId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
instance Property "Configuration" Theme where
  type PropertyType "Configuration" Theme = ThemeConfigurationProperty
  set :: PropertyType "Configuration" Theme -> Theme -> Theme
set PropertyType "Configuration" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..} = Theme {configuration :: ThemeConfigurationProperty
configuration = PropertyType "Configuration" Theme
ThemeConfigurationProperty
newValue, Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
instance Property "Name" Theme where
  type PropertyType "Name" Theme = Value Prelude.Text
  set :: PropertyType "Name" Theme -> Theme -> Theme
set PropertyType "Name" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..} = Theme {name :: Value Text
name = PropertyType "Name" Theme
Value Text
newValue, Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
instance Property "Permissions" Theme where
  type PropertyType "Permissions" Theme = [ResourcePermissionProperty]
  set :: PropertyType "Permissions" Theme -> Theme -> Theme
set PropertyType "Permissions" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
    = Theme {permissions :: Maybe [ResourcePermissionProperty]
permissions = [ResourcePermissionProperty] -> Maybe [ResourcePermissionProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ResourcePermissionProperty]
PropertyType "Permissions" Theme
newValue, Maybe [Tag]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
instance Property "Tags" Theme where
  type PropertyType "Tags" Theme = [Tag]
  set :: PropertyType "Tags" Theme -> Theme -> Theme
set PropertyType "Tags" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..} = Theme {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Theme
newValue, Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
instance Property "ThemeId" Theme where
  type PropertyType "ThemeId" Theme = Value Prelude.Text
  set :: PropertyType "ThemeId" Theme -> Theme -> Theme
set PropertyType "ThemeId" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..} = Theme {themeId :: Value Text
themeId = PropertyType "ThemeId" Theme
Value Text
newValue, Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
versionDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
versionDescription :: Maybe (Value Text)
..}
instance Property "VersionDescription" Theme where
  type PropertyType "VersionDescription" Theme = Value Prelude.Text
  set :: PropertyType "VersionDescription" Theme -> Theme -> Theme
set PropertyType "VersionDescription" Theme
newValue Theme {Maybe [Tag]
Maybe [ResourcePermissionProperty]
Maybe (Value Text)
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: Theme -> ()
awsAccountId :: Theme -> Value Text
baseThemeId :: Theme -> Value Text
configuration :: Theme -> ThemeConfigurationProperty
name :: Theme -> Value Text
permissions :: Theme -> Maybe [ResourcePermissionProperty]
tags :: Theme -> Maybe [Tag]
themeId :: Theme -> Value Text
versionDescription :: Theme -> Maybe (Value Text)
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
versionDescription :: Maybe (Value Text)
..}
    = Theme {versionDescription :: Maybe (Value Text)
versionDescription = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VersionDescription" Theme
Value Text
newValue, Maybe [Tag]
Maybe [ResourcePermissionProperty]
()
Value Text
ThemeConfigurationProperty
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
haddock_workaround_ :: ()
awsAccountId :: Value Text
baseThemeId :: Value Text
configuration :: ThemeConfigurationProperty
name :: Value Text
permissions :: Maybe [ResourcePermissionProperty]
tags :: Maybe [Tag]
themeId :: Value Text
..}