module Stratosphere.QuickSight.Analysis.PivotTableSortByProperty (
module Exports, PivotTableSortByProperty(..),
mkPivotTableSortByProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.ColumnSortProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.DataPathSortProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Analysis.FieldSortProperty as Exports
import Stratosphere.ResourceProperties
data PivotTableSortByProperty
=
PivotTableSortByProperty {PivotTableSortByProperty -> ()
haddock_workaround_ :: (),
PivotTableSortByProperty -> Maybe ColumnSortProperty
column :: (Prelude.Maybe ColumnSortProperty),
PivotTableSortByProperty -> Maybe DataPathSortProperty
dataPath :: (Prelude.Maybe DataPathSortProperty),
PivotTableSortByProperty -> Maybe FieldSortProperty
field :: (Prelude.Maybe FieldSortProperty)}
deriving stock (PivotTableSortByProperty -> PivotTableSortByProperty -> Bool
(PivotTableSortByProperty -> PivotTableSortByProperty -> Bool)
-> (PivotTableSortByProperty -> PivotTableSortByProperty -> Bool)
-> Eq PivotTableSortByProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PivotTableSortByProperty -> PivotTableSortByProperty -> Bool
== :: PivotTableSortByProperty -> PivotTableSortByProperty -> Bool
$c/= :: PivotTableSortByProperty -> PivotTableSortByProperty -> Bool
/= :: PivotTableSortByProperty -> PivotTableSortByProperty -> Bool
Prelude.Eq, Int -> PivotTableSortByProperty -> ShowS
[PivotTableSortByProperty] -> ShowS
PivotTableSortByProperty -> String
(Int -> PivotTableSortByProperty -> ShowS)
-> (PivotTableSortByProperty -> String)
-> ([PivotTableSortByProperty] -> ShowS)
-> Show PivotTableSortByProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PivotTableSortByProperty -> ShowS
showsPrec :: Int -> PivotTableSortByProperty -> ShowS
$cshow :: PivotTableSortByProperty -> String
show :: PivotTableSortByProperty -> String
$cshowList :: [PivotTableSortByProperty] -> ShowS
showList :: [PivotTableSortByProperty] -> ShowS
Prelude.Show)
mkPivotTableSortByProperty :: PivotTableSortByProperty
mkPivotTableSortByProperty :: PivotTableSortByProperty
mkPivotTableSortByProperty
= PivotTableSortByProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), column :: Maybe ColumnSortProperty
column = Maybe ColumnSortProperty
forall a. Maybe a
Prelude.Nothing,
dataPath :: Maybe DataPathSortProperty
dataPath = Maybe DataPathSortProperty
forall a. Maybe a
Prelude.Nothing, field :: Maybe FieldSortProperty
field = Maybe FieldSortProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties PivotTableSortByProperty where
toResourceProperties :: PivotTableSortByProperty -> ResourceProperties
toResourceProperties PivotTableSortByProperty {Maybe DataPathSortProperty
Maybe FieldSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: PivotTableSortByProperty -> ()
column :: PivotTableSortByProperty -> Maybe ColumnSortProperty
dataPath :: PivotTableSortByProperty -> Maybe DataPathSortProperty
field :: PivotTableSortByProperty -> Maybe FieldSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::Analysis.PivotTableSortBy",
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 -> ColumnSortProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Column" (ColumnSortProperty -> (Key, Value))
-> Maybe ColumnSortProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ColumnSortProperty
column,
Key -> DataPathSortProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DataPath" (DataPathSortProperty -> (Key, Value))
-> Maybe DataPathSortProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DataPathSortProperty
dataPath,
Key -> FieldSortProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Field" (FieldSortProperty -> (Key, Value))
-> Maybe FieldSortProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FieldSortProperty
field])}
instance JSON.ToJSON PivotTableSortByProperty where
toJSON :: PivotTableSortByProperty -> Value
toJSON PivotTableSortByProperty {Maybe DataPathSortProperty
Maybe FieldSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: PivotTableSortByProperty -> ()
column :: PivotTableSortByProperty -> Maybe ColumnSortProperty
dataPath :: PivotTableSortByProperty -> Maybe DataPathSortProperty
field :: PivotTableSortByProperty -> Maybe FieldSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
..}
= [(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 -> ColumnSortProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Column" (ColumnSortProperty -> (Key, Value))
-> Maybe ColumnSortProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ColumnSortProperty
column,
Key -> DataPathSortProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DataPath" (DataPathSortProperty -> (Key, Value))
-> Maybe DataPathSortProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DataPathSortProperty
dataPath,
Key -> FieldSortProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Field" (FieldSortProperty -> (Key, Value))
-> Maybe FieldSortProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FieldSortProperty
field]))
instance Property "Column" PivotTableSortByProperty where
type PropertyType "Column" PivotTableSortByProperty = ColumnSortProperty
set :: PropertyType "Column" PivotTableSortByProperty
-> PivotTableSortByProperty -> PivotTableSortByProperty
set PropertyType "Column" PivotTableSortByProperty
newValue PivotTableSortByProperty {Maybe DataPathSortProperty
Maybe FieldSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: PivotTableSortByProperty -> ()
column :: PivotTableSortByProperty -> Maybe ColumnSortProperty
dataPath :: PivotTableSortByProperty -> Maybe DataPathSortProperty
field :: PivotTableSortByProperty -> Maybe FieldSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
..}
= PivotTableSortByProperty {column :: Maybe ColumnSortProperty
column = ColumnSortProperty -> Maybe ColumnSortProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Column" PivotTableSortByProperty
ColumnSortProperty
newValue, Maybe DataPathSortProperty
Maybe FieldSortProperty
()
haddock_workaround_ :: ()
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
haddock_workaround_ :: ()
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
..}
instance Property "DataPath" PivotTableSortByProperty where
type PropertyType "DataPath" PivotTableSortByProperty = DataPathSortProperty
set :: PropertyType "DataPath" PivotTableSortByProperty
-> PivotTableSortByProperty -> PivotTableSortByProperty
set PropertyType "DataPath" PivotTableSortByProperty
newValue PivotTableSortByProperty {Maybe DataPathSortProperty
Maybe FieldSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: PivotTableSortByProperty -> ()
column :: PivotTableSortByProperty -> Maybe ColumnSortProperty
dataPath :: PivotTableSortByProperty -> Maybe DataPathSortProperty
field :: PivotTableSortByProperty -> Maybe FieldSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
..}
= PivotTableSortByProperty {dataPath :: Maybe DataPathSortProperty
dataPath = DataPathSortProperty -> Maybe DataPathSortProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DataPath" PivotTableSortByProperty
DataPathSortProperty
newValue, Maybe FieldSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
field :: Maybe FieldSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
field :: Maybe FieldSortProperty
..}
instance Property "Field" PivotTableSortByProperty where
type PropertyType "Field" PivotTableSortByProperty = FieldSortProperty
set :: PropertyType "Field" PivotTableSortByProperty
-> PivotTableSortByProperty -> PivotTableSortByProperty
set PropertyType "Field" PivotTableSortByProperty
newValue PivotTableSortByProperty {Maybe DataPathSortProperty
Maybe FieldSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: PivotTableSortByProperty -> ()
column :: PivotTableSortByProperty -> Maybe ColumnSortProperty
dataPath :: PivotTableSortByProperty -> Maybe DataPathSortProperty
field :: PivotTableSortByProperty -> Maybe FieldSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
field :: Maybe FieldSortProperty
..}
= PivotTableSortByProperty {field :: Maybe FieldSortProperty
field = FieldSortProperty -> Maybe FieldSortProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Field" PivotTableSortByProperty
FieldSortProperty
newValue, Maybe DataPathSortProperty
Maybe ColumnSortProperty
()
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
haddock_workaround_ :: ()
column :: Maybe ColumnSortProperty
dataPath :: Maybe DataPathSortProperty
..}