module Stratosphere.QuickSight.Theme.SheetStyleProperty (
        module Exports, SheetStyleProperty(..), mkSheetStyleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Theme.TileLayoutStyleProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Theme.TileStyleProperty as Exports
import Stratosphere.ResourceProperties
data SheetStyleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-theme-sheetstyle.html>
    SheetStyleProperty {SheetStyleProperty -> ()
haddock_workaround_ :: (),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-theme-sheetstyle.html#cfn-quicksight-theme-sheetstyle-tile>
                        SheetStyleProperty -> Maybe TileStyleProperty
tile :: (Prelude.Maybe TileStyleProperty),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-theme-sheetstyle.html#cfn-quicksight-theme-sheetstyle-tilelayout>
                        SheetStyleProperty -> Maybe TileLayoutStyleProperty
tileLayout :: (Prelude.Maybe TileLayoutStyleProperty)}
  deriving stock (SheetStyleProperty -> SheetStyleProperty -> Bool
(SheetStyleProperty -> SheetStyleProperty -> Bool)
-> (SheetStyleProperty -> SheetStyleProperty -> Bool)
-> Eq SheetStyleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SheetStyleProperty -> SheetStyleProperty -> Bool
== :: SheetStyleProperty -> SheetStyleProperty -> Bool
$c/= :: SheetStyleProperty -> SheetStyleProperty -> Bool
/= :: SheetStyleProperty -> SheetStyleProperty -> Bool
Prelude.Eq, Int -> SheetStyleProperty -> ShowS
[SheetStyleProperty] -> ShowS
SheetStyleProperty -> String
(Int -> SheetStyleProperty -> ShowS)
-> (SheetStyleProperty -> String)
-> ([SheetStyleProperty] -> ShowS)
-> Show SheetStyleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SheetStyleProperty -> ShowS
showsPrec :: Int -> SheetStyleProperty -> ShowS
$cshow :: SheetStyleProperty -> String
show :: SheetStyleProperty -> String
$cshowList :: [SheetStyleProperty] -> ShowS
showList :: [SheetStyleProperty] -> ShowS
Prelude.Show)
mkSheetStyleProperty :: SheetStyleProperty
mkSheetStyleProperty :: SheetStyleProperty
mkSheetStyleProperty
  = SheetStyleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), tile :: Maybe TileStyleProperty
tile = Maybe TileStyleProperty
forall a. Maybe a
Prelude.Nothing,
       tileLayout :: Maybe TileLayoutStyleProperty
tileLayout = Maybe TileLayoutStyleProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SheetStyleProperty where
  toResourceProperties :: SheetStyleProperty -> ResourceProperties
toResourceProperties SheetStyleProperty {Maybe TileLayoutStyleProperty
Maybe TileStyleProperty
()
haddock_workaround_ :: SheetStyleProperty -> ()
tile :: SheetStyleProperty -> Maybe TileStyleProperty
tileLayout :: SheetStyleProperty -> Maybe TileLayoutStyleProperty
haddock_workaround_ :: ()
tile :: Maybe TileStyleProperty
tileLayout :: Maybe TileLayoutStyleProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::Theme.SheetStyle",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> TileStyleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tile" (TileStyleProperty -> (Key, Value))
-> Maybe TileStyleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TileStyleProperty
tile,
                            Key -> TileLayoutStyleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TileLayout" (TileLayoutStyleProperty -> (Key, Value))
-> Maybe TileLayoutStyleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TileLayoutStyleProperty
tileLayout])}
instance JSON.ToJSON SheetStyleProperty where
  toJSON :: SheetStyleProperty -> Value
toJSON SheetStyleProperty {Maybe TileLayoutStyleProperty
Maybe TileStyleProperty
()
haddock_workaround_ :: SheetStyleProperty -> ()
tile :: SheetStyleProperty -> Maybe TileStyleProperty
tileLayout :: SheetStyleProperty -> Maybe TileLayoutStyleProperty
haddock_workaround_ :: ()
tile :: Maybe TileStyleProperty
tileLayout :: Maybe TileLayoutStyleProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> TileStyleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tile" (TileStyleProperty -> (Key, Value))
-> Maybe TileStyleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TileStyleProperty
tile,
               Key -> TileLayoutStyleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TileLayout" (TileLayoutStyleProperty -> (Key, Value))
-> Maybe TileLayoutStyleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TileLayoutStyleProperty
tileLayout]))
instance Property "Tile" SheetStyleProperty where
  type PropertyType "Tile" SheetStyleProperty = TileStyleProperty
  set :: PropertyType "Tile" SheetStyleProperty
-> SheetStyleProperty -> SheetStyleProperty
set PropertyType "Tile" SheetStyleProperty
newValue SheetStyleProperty {Maybe TileLayoutStyleProperty
Maybe TileStyleProperty
()
haddock_workaround_ :: SheetStyleProperty -> ()
tile :: SheetStyleProperty -> Maybe TileStyleProperty
tileLayout :: SheetStyleProperty -> Maybe TileLayoutStyleProperty
haddock_workaround_ :: ()
tile :: Maybe TileStyleProperty
tileLayout :: Maybe TileLayoutStyleProperty
..}
    = SheetStyleProperty {tile :: Maybe TileStyleProperty
tile = TileStyleProperty -> Maybe TileStyleProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Tile" SheetStyleProperty
TileStyleProperty
newValue, Maybe TileLayoutStyleProperty
()
haddock_workaround_ :: ()
tileLayout :: Maybe TileLayoutStyleProperty
haddock_workaround_ :: ()
tileLayout :: Maybe TileLayoutStyleProperty
..}
instance Property "TileLayout" SheetStyleProperty where
  type PropertyType "TileLayout" SheetStyleProperty = TileLayoutStyleProperty
  set :: PropertyType "TileLayout" SheetStyleProperty
-> SheetStyleProperty -> SheetStyleProperty
set PropertyType "TileLayout" SheetStyleProperty
newValue SheetStyleProperty {Maybe TileLayoutStyleProperty
Maybe TileStyleProperty
()
haddock_workaround_ :: SheetStyleProperty -> ()
tile :: SheetStyleProperty -> Maybe TileStyleProperty
tileLayout :: SheetStyleProperty -> Maybe TileLayoutStyleProperty
haddock_workaround_ :: ()
tile :: Maybe TileStyleProperty
tileLayout :: Maybe TileLayoutStyleProperty
..}
    = SheetStyleProperty {tileLayout :: Maybe TileLayoutStyleProperty
tileLayout = TileLayoutStyleProperty -> Maybe TileLayoutStyleProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TileLayout" SheetStyleProperty
TileLayoutStyleProperty
newValue, Maybe TileStyleProperty
()
haddock_workaround_ :: ()
tile :: Maybe TileStyleProperty
haddock_workaround_ :: ()
tile :: Maybe TileStyleProperty
..}