module Stratosphere.QuickSight.Dashboard.PanelConfigurationProperty (
module Exports, PanelConfigurationProperty(..),
mkPanelConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.PanelTitleOptionsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data PanelConfigurationProperty
=
PanelConfigurationProperty {PanelConfigurationProperty -> ()
haddock_workaround_ :: (),
PanelConfigurationProperty -> Maybe (Value Text)
backgroundColor :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: (Prelude.Maybe (Value Prelude.Text)),
PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
title :: (Prelude.Maybe PanelTitleOptionsProperty)}
deriving stock (PanelConfigurationProperty -> PanelConfigurationProperty -> Bool
(PanelConfigurationProperty -> PanelConfigurationProperty -> Bool)
-> (PanelConfigurationProperty
-> PanelConfigurationProperty -> Bool)
-> Eq PanelConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PanelConfigurationProperty -> PanelConfigurationProperty -> Bool
== :: PanelConfigurationProperty -> PanelConfigurationProperty -> Bool
$c/= :: PanelConfigurationProperty -> PanelConfigurationProperty -> Bool
/= :: PanelConfigurationProperty -> PanelConfigurationProperty -> Bool
Prelude.Eq, Int -> PanelConfigurationProperty -> ShowS
[PanelConfigurationProperty] -> ShowS
PanelConfigurationProperty -> String
(Int -> PanelConfigurationProperty -> ShowS)
-> (PanelConfigurationProperty -> String)
-> ([PanelConfigurationProperty] -> ShowS)
-> Show PanelConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PanelConfigurationProperty -> ShowS
showsPrec :: Int -> PanelConfigurationProperty -> ShowS
$cshow :: PanelConfigurationProperty -> String
show :: PanelConfigurationProperty -> String
$cshowList :: [PanelConfigurationProperty] -> ShowS
showList :: [PanelConfigurationProperty] -> ShowS
Prelude.Show)
mkPanelConfigurationProperty :: PanelConfigurationProperty
mkPanelConfigurationProperty :: PanelConfigurationProperty
mkPanelConfigurationProperty
= PanelConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), backgroundColor :: Maybe (Value Text)
backgroundColor = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
backgroundVisibility :: Maybe (Value Text)
backgroundVisibility = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
borderColor :: Maybe (Value Text)
borderColor = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, borderStyle :: Maybe (Value Text)
borderStyle = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
borderThickness :: Maybe (Value Text)
borderThickness = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
borderVisibility :: Maybe (Value Text)
borderVisibility = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
gutterSpacing :: Maybe (Value Text)
gutterSpacing = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
gutterVisibility :: Maybe (Value Text)
gutterVisibility = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, title :: Maybe PanelTitleOptionsProperty
title = Maybe PanelTitleOptionsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties PanelConfigurationProperty where
toResourceProperties :: PanelConfigurationProperty -> ResourceProperties
toResourceProperties PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::Dashboard.PanelConfiguration",
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 -> 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
"BackgroundColor" (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)
backgroundColor,
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
"BackgroundVisibility" (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)
backgroundVisibility,
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
"BorderColor" (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)
borderColor,
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
"BorderStyle" (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)
borderStyle,
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
"BorderThickness" (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)
borderThickness,
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
"BorderVisibility" (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)
borderVisibility,
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
"GutterSpacing" (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)
gutterSpacing,
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
"GutterVisibility" (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)
gutterVisibility,
Key -> PanelTitleOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Title" (PanelTitleOptionsProperty -> (Key, Value))
-> Maybe PanelTitleOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PanelTitleOptionsProperty
title])}
instance JSON.ToJSON PanelConfigurationProperty where
toJSON :: PanelConfigurationProperty -> Value
toJSON PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= [(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 -> 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
"BackgroundColor" (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)
backgroundColor,
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
"BackgroundVisibility" (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)
backgroundVisibility,
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
"BorderColor" (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)
borderColor,
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
"BorderStyle" (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)
borderStyle,
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
"BorderThickness" (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)
borderThickness,
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
"BorderVisibility" (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)
borderVisibility,
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
"GutterSpacing" (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)
gutterSpacing,
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
"GutterVisibility" (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)
gutterVisibility,
Key -> PanelTitleOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Title" (PanelTitleOptionsProperty -> (Key, Value))
-> Maybe PanelTitleOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PanelTitleOptionsProperty
title]))
instance Property "BackgroundColor" PanelConfigurationProperty where
type PropertyType "BackgroundColor" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "BackgroundColor" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "BackgroundColor" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{backgroundColor :: Maybe (Value Text)
backgroundColor = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BackgroundColor" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "BackgroundVisibility" PanelConfigurationProperty where
type PropertyType "BackgroundVisibility" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "BackgroundVisibility" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "BackgroundVisibility" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{backgroundVisibility :: Maybe (Value Text)
backgroundVisibility = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BackgroundVisibility" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "BorderColor" PanelConfigurationProperty where
type PropertyType "BorderColor" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "BorderColor" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "BorderColor" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{borderColor :: Maybe (Value Text)
borderColor = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BorderColor" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "BorderStyle" PanelConfigurationProperty where
type PropertyType "BorderStyle" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "BorderStyle" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "BorderStyle" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{borderStyle :: Maybe (Value Text)
borderStyle = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BorderStyle" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "BorderThickness" PanelConfigurationProperty where
type PropertyType "BorderThickness" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "BorderThickness" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "BorderThickness" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{borderThickness :: Maybe (Value Text)
borderThickness = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BorderThickness" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "BorderVisibility" PanelConfigurationProperty where
type PropertyType "BorderVisibility" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "BorderVisibility" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "BorderVisibility" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{borderVisibility :: Maybe (Value Text)
borderVisibility = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BorderVisibility" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "GutterSpacing" PanelConfigurationProperty where
type PropertyType "GutterSpacing" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "GutterSpacing" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "GutterSpacing" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{gutterSpacing :: Maybe (Value Text)
gutterSpacing = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "GutterSpacing" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "GutterVisibility" PanelConfigurationProperty where
type PropertyType "GutterVisibility" PanelConfigurationProperty = Value Prelude.Text
set :: PropertyType "GutterVisibility" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "GutterVisibility" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty
{gutterVisibility :: Maybe (Value Text)
gutterVisibility = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "GutterVisibility" PanelConfigurationProperty
Value Text
newValue, Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
instance Property "Title" PanelConfigurationProperty where
type PropertyType "Title" PanelConfigurationProperty = PanelTitleOptionsProperty
set :: PropertyType "Title" PanelConfigurationProperty
-> PanelConfigurationProperty -> PanelConfigurationProperty
set PropertyType "Title" PanelConfigurationProperty
newValue PanelConfigurationProperty {Maybe (Value Text)
Maybe PanelTitleOptionsProperty
()
haddock_workaround_ :: PanelConfigurationProperty -> ()
backgroundColor :: PanelConfigurationProperty -> Maybe (Value Text)
backgroundVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
borderColor :: PanelConfigurationProperty -> Maybe (Value Text)
borderStyle :: PanelConfigurationProperty -> Maybe (Value Text)
borderThickness :: PanelConfigurationProperty -> Maybe (Value Text)
borderVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
gutterSpacing :: PanelConfigurationProperty -> Maybe (Value Text)
gutterVisibility :: PanelConfigurationProperty -> Maybe (Value Text)
title :: PanelConfigurationProperty -> Maybe PanelTitleOptionsProperty
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
title :: Maybe PanelTitleOptionsProperty
..}
= PanelConfigurationProperty {title :: Maybe PanelTitleOptionsProperty
title = PanelTitleOptionsProperty -> Maybe PanelTitleOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Title" PanelConfigurationProperty
PanelTitleOptionsProperty
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
haddock_workaround_ :: ()
backgroundColor :: Maybe (Value Text)
backgroundVisibility :: Maybe (Value Text)
borderColor :: Maybe (Value Text)
borderStyle :: Maybe (Value Text)
borderThickness :: Maybe (Value Text)
borderVisibility :: Maybe (Value Text)
gutterSpacing :: Maybe (Value Text)
gutterVisibility :: Maybe (Value Text)
..}