module Stratosphere.QuickSight.Template.AxisDataOptionsProperty (
module Exports, AxisDataOptionsProperty(..),
mkAxisDataOptionsProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Template.DateAxisOptionsProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Template.NumericAxisOptionsProperty as Exports
import Stratosphere.ResourceProperties
data AxisDataOptionsProperty
=
AxisDataOptionsProperty {AxisDataOptionsProperty -> ()
haddock_workaround_ :: (),
AxisDataOptionsProperty -> Maybe DateAxisOptionsProperty
dateAxisOptions :: (Prelude.Maybe DateAxisOptionsProperty),
AxisDataOptionsProperty -> Maybe NumericAxisOptionsProperty
numericAxisOptions :: (Prelude.Maybe NumericAxisOptionsProperty)}
deriving stock (AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool
(AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool)
-> (AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool)
-> Eq AxisDataOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool
== :: AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool
$c/= :: AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool
/= :: AxisDataOptionsProperty -> AxisDataOptionsProperty -> Bool
Prelude.Eq, Int -> AxisDataOptionsProperty -> ShowS
[AxisDataOptionsProperty] -> ShowS
AxisDataOptionsProperty -> String
(Int -> AxisDataOptionsProperty -> ShowS)
-> (AxisDataOptionsProperty -> String)
-> ([AxisDataOptionsProperty] -> ShowS)
-> Show AxisDataOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AxisDataOptionsProperty -> ShowS
showsPrec :: Int -> AxisDataOptionsProperty -> ShowS
$cshow :: AxisDataOptionsProperty -> String
show :: AxisDataOptionsProperty -> String
$cshowList :: [AxisDataOptionsProperty] -> ShowS
showList :: [AxisDataOptionsProperty] -> ShowS
Prelude.Show)
mkAxisDataOptionsProperty :: AxisDataOptionsProperty
mkAxisDataOptionsProperty :: AxisDataOptionsProperty
mkAxisDataOptionsProperty
= AxisDataOptionsProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), dateAxisOptions :: Maybe DateAxisOptionsProperty
dateAxisOptions = Maybe DateAxisOptionsProperty
forall a. Maybe a
Prelude.Nothing,
numericAxisOptions :: Maybe NumericAxisOptionsProperty
numericAxisOptions = Maybe NumericAxisOptionsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties AxisDataOptionsProperty where
toResourceProperties :: AxisDataOptionsProperty -> ResourceProperties
toResourceProperties AxisDataOptionsProperty {Maybe DateAxisOptionsProperty
Maybe NumericAxisOptionsProperty
()
haddock_workaround_ :: AxisDataOptionsProperty -> ()
dateAxisOptions :: AxisDataOptionsProperty -> Maybe DateAxisOptionsProperty
numericAxisOptions :: AxisDataOptionsProperty -> Maybe NumericAxisOptionsProperty
haddock_workaround_ :: ()
dateAxisOptions :: Maybe DateAxisOptionsProperty
numericAxisOptions :: Maybe NumericAxisOptionsProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::Template.AxisDataOptions",
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 -> DateAxisOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DateAxisOptions" (DateAxisOptionsProperty -> (Key, Value))
-> Maybe DateAxisOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DateAxisOptionsProperty
dateAxisOptions,
Key -> NumericAxisOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NumericAxisOptions" (NumericAxisOptionsProperty -> (Key, Value))
-> Maybe NumericAxisOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NumericAxisOptionsProperty
numericAxisOptions])}
instance JSON.ToJSON AxisDataOptionsProperty where
toJSON :: AxisDataOptionsProperty -> Value
toJSON AxisDataOptionsProperty {Maybe DateAxisOptionsProperty
Maybe NumericAxisOptionsProperty
()
haddock_workaround_ :: AxisDataOptionsProperty -> ()
dateAxisOptions :: AxisDataOptionsProperty -> Maybe DateAxisOptionsProperty
numericAxisOptions :: AxisDataOptionsProperty -> Maybe NumericAxisOptionsProperty
haddock_workaround_ :: ()
dateAxisOptions :: Maybe DateAxisOptionsProperty
numericAxisOptions :: Maybe NumericAxisOptionsProperty
..}
= [(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 -> DateAxisOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DateAxisOptions" (DateAxisOptionsProperty -> (Key, Value))
-> Maybe DateAxisOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DateAxisOptionsProperty
dateAxisOptions,
Key -> NumericAxisOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NumericAxisOptions" (NumericAxisOptionsProperty -> (Key, Value))
-> Maybe NumericAxisOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NumericAxisOptionsProperty
numericAxisOptions]))
instance Property "DateAxisOptions" AxisDataOptionsProperty where
type PropertyType "DateAxisOptions" AxisDataOptionsProperty = DateAxisOptionsProperty
set :: PropertyType "DateAxisOptions" AxisDataOptionsProperty
-> AxisDataOptionsProperty -> AxisDataOptionsProperty
set PropertyType "DateAxisOptions" AxisDataOptionsProperty
newValue AxisDataOptionsProperty {Maybe DateAxisOptionsProperty
Maybe NumericAxisOptionsProperty
()
haddock_workaround_ :: AxisDataOptionsProperty -> ()
dateAxisOptions :: AxisDataOptionsProperty -> Maybe DateAxisOptionsProperty
numericAxisOptions :: AxisDataOptionsProperty -> Maybe NumericAxisOptionsProperty
haddock_workaround_ :: ()
dateAxisOptions :: Maybe DateAxisOptionsProperty
numericAxisOptions :: Maybe NumericAxisOptionsProperty
..}
= AxisDataOptionsProperty
{dateAxisOptions :: Maybe DateAxisOptionsProperty
dateAxisOptions = DateAxisOptionsProperty -> Maybe DateAxisOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DateAxisOptions" AxisDataOptionsProperty
DateAxisOptionsProperty
newValue, Maybe NumericAxisOptionsProperty
()
haddock_workaround_ :: ()
numericAxisOptions :: Maybe NumericAxisOptionsProperty
haddock_workaround_ :: ()
numericAxisOptions :: Maybe NumericAxisOptionsProperty
..}
instance Property "NumericAxisOptions" AxisDataOptionsProperty where
type PropertyType "NumericAxisOptions" AxisDataOptionsProperty = NumericAxisOptionsProperty
set :: PropertyType "NumericAxisOptions" AxisDataOptionsProperty
-> AxisDataOptionsProperty -> AxisDataOptionsProperty
set PropertyType "NumericAxisOptions" AxisDataOptionsProperty
newValue AxisDataOptionsProperty {Maybe DateAxisOptionsProperty
Maybe NumericAxisOptionsProperty
()
haddock_workaround_ :: AxisDataOptionsProperty -> ()
dateAxisOptions :: AxisDataOptionsProperty -> Maybe DateAxisOptionsProperty
numericAxisOptions :: AxisDataOptionsProperty -> Maybe NumericAxisOptionsProperty
haddock_workaround_ :: ()
dateAxisOptions :: Maybe DateAxisOptionsProperty
numericAxisOptions :: Maybe NumericAxisOptionsProperty
..}
= AxisDataOptionsProperty
{numericAxisOptions :: Maybe NumericAxisOptionsProperty
numericAxisOptions = NumericAxisOptionsProperty -> Maybe NumericAxisOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NumericAxisOptions" AxisDataOptionsProperty
NumericAxisOptionsProperty
newValue, Maybe DateAxisOptionsProperty
()
haddock_workaround_ :: ()
dateAxisOptions :: Maybe DateAxisOptionsProperty
haddock_workaround_ :: ()
dateAxisOptions :: Maybe DateAxisOptionsProperty
..}