module Stratosphere.QuickSight.Analysis.KPIConfigurationProperty (
module Exports, KPIConfigurationProperty(..),
mkKPIConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.KPIFieldWellsProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.KPIOptionsProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.KPISortConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.VisualInteractionOptionsProperty as Exports
import Stratosphere.ResourceProperties
data KPIConfigurationProperty
=
KPIConfigurationProperty {KPIConfigurationProperty -> ()
haddock_workaround_ :: (),
KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
fieldWells :: (Prelude.Maybe KPIFieldWellsProperty),
KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
interactions :: (Prelude.Maybe VisualInteractionOptionsProperty),
KPIConfigurationProperty -> Maybe KPIOptionsProperty
kPIOptions :: (Prelude.Maybe KPIOptionsProperty),
KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
sortConfiguration :: (Prelude.Maybe KPISortConfigurationProperty)}
deriving stock (KPIConfigurationProperty -> KPIConfigurationProperty -> Bool
(KPIConfigurationProperty -> KPIConfigurationProperty -> Bool)
-> (KPIConfigurationProperty -> KPIConfigurationProperty -> Bool)
-> Eq KPIConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: KPIConfigurationProperty -> KPIConfigurationProperty -> Bool
== :: KPIConfigurationProperty -> KPIConfigurationProperty -> Bool
$c/= :: KPIConfigurationProperty -> KPIConfigurationProperty -> Bool
/= :: KPIConfigurationProperty -> KPIConfigurationProperty -> Bool
Prelude.Eq, Int -> KPIConfigurationProperty -> ShowS
[KPIConfigurationProperty] -> ShowS
KPIConfigurationProperty -> String
(Int -> KPIConfigurationProperty -> ShowS)
-> (KPIConfigurationProperty -> String)
-> ([KPIConfigurationProperty] -> ShowS)
-> Show KPIConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> KPIConfigurationProperty -> ShowS
showsPrec :: Int -> KPIConfigurationProperty -> ShowS
$cshow :: KPIConfigurationProperty -> String
show :: KPIConfigurationProperty -> String
$cshowList :: [KPIConfigurationProperty] -> ShowS
showList :: [KPIConfigurationProperty] -> ShowS
Prelude.Show)
mkKPIConfigurationProperty :: KPIConfigurationProperty
mkKPIConfigurationProperty :: KPIConfigurationProperty
mkKPIConfigurationProperty
= KPIConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), fieldWells :: Maybe KPIFieldWellsProperty
fieldWells = Maybe KPIFieldWellsProperty
forall a. Maybe a
Prelude.Nothing,
interactions :: Maybe VisualInteractionOptionsProperty
interactions = Maybe VisualInteractionOptionsProperty
forall a. Maybe a
Prelude.Nothing, kPIOptions :: Maybe KPIOptionsProperty
kPIOptions = Maybe KPIOptionsProperty
forall a. Maybe a
Prelude.Nothing,
sortConfiguration :: Maybe KPISortConfigurationProperty
sortConfiguration = Maybe KPISortConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties KPIConfigurationProperty where
toResourceProperties :: KPIConfigurationProperty -> ResourceProperties
toResourceProperties KPIConfigurationProperty {Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: KPIConfigurationProperty -> ()
fieldWells :: KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
interactions :: KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
kPIOptions :: KPIConfigurationProperty -> Maybe KPIOptionsProperty
sortConfiguration :: KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::Analysis.KPIConfiguration",
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 -> KPIFieldWellsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FieldWells" (KPIFieldWellsProperty -> (Key, Value))
-> Maybe KPIFieldWellsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KPIFieldWellsProperty
fieldWells,
Key -> VisualInteractionOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Interactions" (VisualInteractionOptionsProperty -> (Key, Value))
-> Maybe VisualInteractionOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VisualInteractionOptionsProperty
interactions,
Key -> KPIOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"KPIOptions" (KPIOptionsProperty -> (Key, Value))
-> Maybe KPIOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KPIOptionsProperty
kPIOptions,
Key -> KPISortConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SortConfiguration" (KPISortConfigurationProperty -> (Key, Value))
-> Maybe KPISortConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KPISortConfigurationProperty
sortConfiguration])}
instance JSON.ToJSON KPIConfigurationProperty where
toJSON :: KPIConfigurationProperty -> Value
toJSON KPIConfigurationProperty {Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: KPIConfigurationProperty -> ()
fieldWells :: KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
interactions :: KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
kPIOptions :: KPIConfigurationProperty -> Maybe KPIOptionsProperty
sortConfiguration :: KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
= [(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 -> KPIFieldWellsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FieldWells" (KPIFieldWellsProperty -> (Key, Value))
-> Maybe KPIFieldWellsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KPIFieldWellsProperty
fieldWells,
Key -> VisualInteractionOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Interactions" (VisualInteractionOptionsProperty -> (Key, Value))
-> Maybe VisualInteractionOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VisualInteractionOptionsProperty
interactions,
Key -> KPIOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"KPIOptions" (KPIOptionsProperty -> (Key, Value))
-> Maybe KPIOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KPIOptionsProperty
kPIOptions,
Key -> KPISortConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SortConfiguration" (KPISortConfigurationProperty -> (Key, Value))
-> Maybe KPISortConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KPISortConfigurationProperty
sortConfiguration]))
instance Property "FieldWells" KPIConfigurationProperty where
type PropertyType "FieldWells" KPIConfigurationProperty = KPIFieldWellsProperty
set :: PropertyType "FieldWells" KPIConfigurationProperty
-> KPIConfigurationProperty -> KPIConfigurationProperty
set PropertyType "FieldWells" KPIConfigurationProperty
newValue KPIConfigurationProperty {Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: KPIConfigurationProperty -> ()
fieldWells :: KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
interactions :: KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
kPIOptions :: KPIConfigurationProperty -> Maybe KPIOptionsProperty
sortConfiguration :: KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
= KPIConfigurationProperty {fieldWells :: Maybe KPIFieldWellsProperty
fieldWells = KPIFieldWellsProperty -> Maybe KPIFieldWellsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FieldWells" KPIConfigurationProperty
KPIFieldWellsProperty
newValue, Maybe KPISortConfigurationProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: ()
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
instance Property "Interactions" KPIConfigurationProperty where
type PropertyType "Interactions" KPIConfigurationProperty = VisualInteractionOptionsProperty
set :: PropertyType "Interactions" KPIConfigurationProperty
-> KPIConfigurationProperty -> KPIConfigurationProperty
set PropertyType "Interactions" KPIConfigurationProperty
newValue KPIConfigurationProperty {Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: KPIConfigurationProperty -> ()
fieldWells :: KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
interactions :: KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
kPIOptions :: KPIConfigurationProperty -> Maybe KPIOptionsProperty
sortConfiguration :: KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
= KPIConfigurationProperty
{interactions :: Maybe VisualInteractionOptionsProperty
interactions = VisualInteractionOptionsProperty
-> Maybe VisualInteractionOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Interactions" KPIConfigurationProperty
VisualInteractionOptionsProperty
newValue, Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
()
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
instance Property "KPIOptions" KPIConfigurationProperty where
type PropertyType "KPIOptions" KPIConfigurationProperty = KPIOptionsProperty
set :: PropertyType "KPIOptions" KPIConfigurationProperty
-> KPIConfigurationProperty -> KPIConfigurationProperty
set PropertyType "KPIOptions" KPIConfigurationProperty
newValue KPIConfigurationProperty {Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: KPIConfigurationProperty -> ()
fieldWells :: KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
interactions :: KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
kPIOptions :: KPIConfigurationProperty -> Maybe KPIOptionsProperty
sortConfiguration :: KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
= KPIConfigurationProperty {kPIOptions :: Maybe KPIOptionsProperty
kPIOptions = KPIOptionsProperty -> Maybe KPIOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KPIOptions" KPIConfigurationProperty
KPIOptionsProperty
newValue, Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
instance Property "SortConfiguration" KPIConfigurationProperty where
type PropertyType "SortConfiguration" KPIConfigurationProperty = KPISortConfigurationProperty
set :: PropertyType "SortConfiguration" KPIConfigurationProperty
-> KPIConfigurationProperty -> KPIConfigurationProperty
set PropertyType "SortConfiguration" KPIConfigurationProperty
newValue KPIConfigurationProperty {Maybe KPISortConfigurationProperty
Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: KPIConfigurationProperty -> ()
fieldWells :: KPIConfigurationProperty -> Maybe KPIFieldWellsProperty
interactions :: KPIConfigurationProperty -> Maybe VisualInteractionOptionsProperty
kPIOptions :: KPIConfigurationProperty -> Maybe KPIOptionsProperty
sortConfiguration :: KPIConfigurationProperty -> Maybe KPISortConfigurationProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
sortConfiguration :: Maybe KPISortConfigurationProperty
..}
= KPIConfigurationProperty
{sortConfiguration :: Maybe KPISortConfigurationProperty
sortConfiguration = KPISortConfigurationProperty -> Maybe KPISortConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SortConfiguration" KPIConfigurationProperty
KPISortConfigurationProperty
newValue, Maybe KPIFieldWellsProperty
Maybe KPIOptionsProperty
Maybe VisualInteractionOptionsProperty
()
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
haddock_workaround_ :: ()
fieldWells :: Maybe KPIFieldWellsProperty
interactions :: Maybe VisualInteractionOptionsProperty
kPIOptions :: Maybe KPIOptionsProperty
..}