module Stratosphere.QuickSight.Dashboard.BodySectionConfigurationProperty (
module Exports, BodySectionConfigurationProperty(..),
mkBodySectionConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.BodySectionContentProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.BodySectionRepeatConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.SectionPageBreakConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.SectionStyleProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data BodySectionConfigurationProperty
=
BodySectionConfigurationProperty {BodySectionConfigurationProperty -> ()
haddock_workaround_ :: (),
BodySectionConfigurationProperty -> BodySectionContentProperty
content :: BodySectionContentProperty,
BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
pageBreakConfiguration :: (Prelude.Maybe SectionPageBreakConfigurationProperty),
BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
repeatConfiguration :: (Prelude.Maybe BodySectionRepeatConfigurationProperty),
BodySectionConfigurationProperty -> Value Text
sectionId :: (Value Prelude.Text),
BodySectionConfigurationProperty -> Maybe SectionStyleProperty
style :: (Prelude.Maybe SectionStyleProperty)}
deriving stock (BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool
(BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool)
-> (BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool)
-> Eq BodySectionConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool
== :: BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool
$c/= :: BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool
/= :: BodySectionConfigurationProperty
-> BodySectionConfigurationProperty -> Bool
Prelude.Eq, Int -> BodySectionConfigurationProperty -> ShowS
[BodySectionConfigurationProperty] -> ShowS
BodySectionConfigurationProperty -> String
(Int -> BodySectionConfigurationProperty -> ShowS)
-> (BodySectionConfigurationProperty -> String)
-> ([BodySectionConfigurationProperty] -> ShowS)
-> Show BodySectionConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BodySectionConfigurationProperty -> ShowS
showsPrec :: Int -> BodySectionConfigurationProperty -> ShowS
$cshow :: BodySectionConfigurationProperty -> String
show :: BodySectionConfigurationProperty -> String
$cshowList :: [BodySectionConfigurationProperty] -> ShowS
showList :: [BodySectionConfigurationProperty] -> ShowS
Prelude.Show)
mkBodySectionConfigurationProperty ::
BodySectionContentProperty
-> Value Prelude.Text -> BodySectionConfigurationProperty
mkBodySectionConfigurationProperty :: BodySectionContentProperty
-> Value Text -> BodySectionConfigurationProperty
mkBodySectionConfigurationProperty BodySectionContentProperty
content Value Text
sectionId
= BodySectionConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), content :: BodySectionContentProperty
content = BodySectionContentProperty
content,
sectionId :: Value Text
sectionId = Value Text
sectionId, pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
pageBreakConfiguration = Maybe SectionPageBreakConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
repeatConfiguration = Maybe BodySectionRepeatConfigurationProperty
forall a. Maybe a
Prelude.Nothing, style :: Maybe SectionStyleProperty
style = Maybe SectionStyleProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties BodySectionConfigurationProperty where
toResourceProperties :: BodySectionConfigurationProperty -> ResourceProperties
toResourceProperties BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::Dashboard.BodySectionConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
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
"Content" Key -> BodySectionContentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= BodySectionContentProperty
content, Key
"SectionId" 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
sectionId]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> SectionPageBreakConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PageBreakConfiguration"
(SectionPageBreakConfigurationProperty -> (Key, Value))
-> Maybe SectionPageBreakConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SectionPageBreakConfigurationProperty
pageBreakConfiguration,
Key -> BodySectionRepeatConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RepeatConfiguration" (BodySectionRepeatConfigurationProperty -> (Key, Value))
-> Maybe BodySectionRepeatConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BodySectionRepeatConfigurationProperty
repeatConfiguration,
Key -> SectionStyleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Style" (SectionStyleProperty -> (Key, Value))
-> Maybe SectionStyleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SectionStyleProperty
style]))}
instance JSON.ToJSON BodySectionConfigurationProperty where
toJSON :: BodySectionConfigurationProperty -> Value
toJSON BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= [(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
"Content" Key -> BodySectionContentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= BodySectionContentProperty
content, Key
"SectionId" 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
sectionId]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> SectionPageBreakConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PageBreakConfiguration"
(SectionPageBreakConfigurationProperty -> (Key, Value))
-> Maybe SectionPageBreakConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SectionPageBreakConfigurationProperty
pageBreakConfiguration,
Key -> BodySectionRepeatConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RepeatConfiguration" (BodySectionRepeatConfigurationProperty -> (Key, Value))
-> Maybe BodySectionRepeatConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BodySectionRepeatConfigurationProperty
repeatConfiguration,
Key -> SectionStyleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Style" (SectionStyleProperty -> (Key, Value))
-> Maybe SectionStyleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SectionStyleProperty
style])))
instance Property "Content" BodySectionConfigurationProperty where
type PropertyType "Content" BodySectionConfigurationProperty = BodySectionContentProperty
set :: PropertyType "Content" BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
set PropertyType "Content" BodySectionConfigurationProperty
newValue BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= BodySectionConfigurationProperty {content :: BodySectionContentProperty
content = PropertyType "Content" BodySectionConfigurationProperty
BodySectionContentProperty
newValue, Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
haddock_workaround_ :: ()
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
haddock_workaround_ :: ()
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
instance Property "PageBreakConfiguration" BodySectionConfigurationProperty where
type PropertyType "PageBreakConfiguration" BodySectionConfigurationProperty = SectionPageBreakConfigurationProperty
set :: PropertyType
"PageBreakConfiguration" BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
set PropertyType
"PageBreakConfiguration" BodySectionConfigurationProperty
newValue BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= BodySectionConfigurationProperty
{pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
pageBreakConfiguration = SectionPageBreakConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"PageBreakConfiguration" BodySectionConfigurationProperty
SectionPageBreakConfigurationProperty
newValue, Maybe BodySectionRepeatConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
instance Property "RepeatConfiguration" BodySectionConfigurationProperty where
type PropertyType "RepeatConfiguration" BodySectionConfigurationProperty = BodySectionRepeatConfigurationProperty
set :: PropertyType "RepeatConfiguration" BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
set PropertyType "RepeatConfiguration" BodySectionConfigurationProperty
newValue BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= BodySectionConfigurationProperty
{repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
repeatConfiguration = BodySectionRepeatConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RepeatConfiguration" BodySectionConfigurationProperty
BodySectionRepeatConfigurationProperty
newValue, Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
instance Property "SectionId" BodySectionConfigurationProperty where
type PropertyType "SectionId" BodySectionConfigurationProperty = Value Prelude.Text
set :: PropertyType "SectionId" BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
set PropertyType "SectionId" BodySectionConfigurationProperty
newValue BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= BodySectionConfigurationProperty {sectionId :: Value Text
sectionId = PropertyType "SectionId" BodySectionConfigurationProperty
Value Text
newValue, Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
BodySectionContentProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
style :: Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
style :: Maybe SectionStyleProperty
..}
instance Property "Style" BodySectionConfigurationProperty where
type PropertyType "Style" BodySectionConfigurationProperty = SectionStyleProperty
set :: PropertyType "Style" BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
-> BodySectionConfigurationProperty
set PropertyType "Style" BodySectionConfigurationProperty
newValue BodySectionConfigurationProperty {Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
Maybe SectionStyleProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: BodySectionConfigurationProperty -> ()
content :: BodySectionConfigurationProperty -> BodySectionContentProperty
pageBreakConfiguration :: BodySectionConfigurationProperty
-> Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: BodySectionConfigurationProperty
-> Maybe BodySectionRepeatConfigurationProperty
sectionId :: BodySectionConfigurationProperty -> Value Text
style :: BodySectionConfigurationProperty -> Maybe SectionStyleProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
style :: Maybe SectionStyleProperty
..}
= BodySectionConfigurationProperty
{style :: Maybe SectionStyleProperty
style = SectionStyleProperty -> Maybe SectionStyleProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Style" BodySectionConfigurationProperty
SectionStyleProperty
newValue, Maybe BodySectionRepeatConfigurationProperty
Maybe SectionPageBreakConfigurationProperty
()
Value Text
BodySectionContentProperty
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
haddock_workaround_ :: ()
content :: BodySectionContentProperty
pageBreakConfiguration :: Maybe SectionPageBreakConfigurationProperty
repeatConfiguration :: Maybe BodySectionRepeatConfigurationProperty
sectionId :: Value Text
..}