module Stratosphere.QuickSight.DataSet.JoinInstructionProperty (
module Exports, JoinInstructionProperty(..),
mkJoinInstructionProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.DataSet.JoinKeyPropertiesProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data JoinInstructionProperty
=
JoinInstructionProperty {JoinInstructionProperty -> ()
haddock_workaround_ :: (),
JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftJoinKeyProperties :: (Prelude.Maybe JoinKeyPropertiesProperty),
JoinInstructionProperty -> Value Text
leftOperand :: (Value Prelude.Text),
JoinInstructionProperty -> Value Text
onClause :: (Value Prelude.Text),
JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightJoinKeyProperties :: (Prelude.Maybe JoinKeyPropertiesProperty),
JoinInstructionProperty -> Value Text
rightOperand :: (Value Prelude.Text),
JoinInstructionProperty -> Value Text
type' :: (Value Prelude.Text)}
deriving stock (JoinInstructionProperty -> JoinInstructionProperty -> Bool
(JoinInstructionProperty -> JoinInstructionProperty -> Bool)
-> (JoinInstructionProperty -> JoinInstructionProperty -> Bool)
-> Eq JoinInstructionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: JoinInstructionProperty -> JoinInstructionProperty -> Bool
== :: JoinInstructionProperty -> JoinInstructionProperty -> Bool
$c/= :: JoinInstructionProperty -> JoinInstructionProperty -> Bool
/= :: JoinInstructionProperty -> JoinInstructionProperty -> Bool
Prelude.Eq, Int -> JoinInstructionProperty -> ShowS
[JoinInstructionProperty] -> ShowS
JoinInstructionProperty -> String
(Int -> JoinInstructionProperty -> ShowS)
-> (JoinInstructionProperty -> String)
-> ([JoinInstructionProperty] -> ShowS)
-> Show JoinInstructionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> JoinInstructionProperty -> ShowS
showsPrec :: Int -> JoinInstructionProperty -> ShowS
$cshow :: JoinInstructionProperty -> String
show :: JoinInstructionProperty -> String
$cshowList :: [JoinInstructionProperty] -> ShowS
showList :: [JoinInstructionProperty] -> ShowS
Prelude.Show)
mkJoinInstructionProperty ::
Value Prelude.Text
-> Value Prelude.Text
-> Value Prelude.Text
-> Value Prelude.Text -> JoinInstructionProperty
mkJoinInstructionProperty :: Value Text
-> Value Text
-> Value Text
-> Value Text
-> JoinInstructionProperty
mkJoinInstructionProperty Value Text
leftOperand Value Text
onClause Value Text
rightOperand Value Text
type'
= JoinInstructionProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), leftOperand :: Value Text
leftOperand = Value Text
leftOperand,
onClause :: Value Text
onClause = Value Text
onClause, rightOperand :: Value Text
rightOperand = Value Text
rightOperand, type' :: Value Text
type' = Value Text
type',
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftJoinKeyProperties = Maybe JoinKeyPropertiesProperty
forall a. Maybe a
Prelude.Nothing,
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightJoinKeyProperties = Maybe JoinKeyPropertiesProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties JoinInstructionProperty where
toResourceProperties :: JoinInstructionProperty -> ResourceProperties
toResourceProperties JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::DataSet.JoinInstruction",
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
"LeftOperand" 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
leftOperand, Key
"OnClause" 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
onClause,
Key
"RightOperand" 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
rightOperand, Key
"Type" 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
type']
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> JoinKeyPropertiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LeftJoinKeyProperties"
(JoinKeyPropertiesProperty -> (Key, Value))
-> Maybe JoinKeyPropertiesProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe JoinKeyPropertiesProperty
leftJoinKeyProperties,
Key -> JoinKeyPropertiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RightJoinKeyProperties"
(JoinKeyPropertiesProperty -> (Key, Value))
-> Maybe JoinKeyPropertiesProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe JoinKeyPropertiesProperty
rightJoinKeyProperties]))}
instance JSON.ToJSON JoinInstructionProperty where
toJSON :: JoinInstructionProperty -> Value
toJSON JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= [(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
"LeftOperand" 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
leftOperand, Key
"OnClause" 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
onClause,
Key
"RightOperand" 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
rightOperand, Key
"Type" 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
type']
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> JoinKeyPropertiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LeftJoinKeyProperties"
(JoinKeyPropertiesProperty -> (Key, Value))
-> Maybe JoinKeyPropertiesProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe JoinKeyPropertiesProperty
leftJoinKeyProperties,
Key -> JoinKeyPropertiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RightJoinKeyProperties"
(JoinKeyPropertiesProperty -> (Key, Value))
-> Maybe JoinKeyPropertiesProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe JoinKeyPropertiesProperty
rightJoinKeyProperties])))
instance Property "LeftJoinKeyProperties" JoinInstructionProperty where
type PropertyType "LeftJoinKeyProperties" JoinInstructionProperty = JoinKeyPropertiesProperty
set :: PropertyType "LeftJoinKeyProperties" JoinInstructionProperty
-> JoinInstructionProperty -> JoinInstructionProperty
set PropertyType "LeftJoinKeyProperties" JoinInstructionProperty
newValue JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= JoinInstructionProperty
{leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftJoinKeyProperties = JoinKeyPropertiesProperty -> Maybe JoinKeyPropertiesProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LeftJoinKeyProperties" JoinInstructionProperty
JoinKeyPropertiesProperty
newValue, Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
haddock_workaround_ :: ()
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
instance Property "LeftOperand" JoinInstructionProperty where
type PropertyType "LeftOperand" JoinInstructionProperty = Value Prelude.Text
set :: PropertyType "LeftOperand" JoinInstructionProperty
-> JoinInstructionProperty -> JoinInstructionProperty
set PropertyType "LeftOperand" JoinInstructionProperty
newValue JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= JoinInstructionProperty {leftOperand :: Value Text
leftOperand = PropertyType "LeftOperand" JoinInstructionProperty
Value Text
newValue, Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
instance Property "OnClause" JoinInstructionProperty where
type PropertyType "OnClause" JoinInstructionProperty = Value Prelude.Text
set :: PropertyType "OnClause" JoinInstructionProperty
-> JoinInstructionProperty -> JoinInstructionProperty
set PropertyType "OnClause" JoinInstructionProperty
newValue JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= JoinInstructionProperty {onClause :: Value Text
onClause = PropertyType "OnClause" JoinInstructionProperty
Value Text
newValue, Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
instance Property "RightJoinKeyProperties" JoinInstructionProperty where
type PropertyType "RightJoinKeyProperties" JoinInstructionProperty = JoinKeyPropertiesProperty
set :: PropertyType "RightJoinKeyProperties" JoinInstructionProperty
-> JoinInstructionProperty -> JoinInstructionProperty
set PropertyType "RightJoinKeyProperties" JoinInstructionProperty
newValue JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= JoinInstructionProperty
{rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightJoinKeyProperties = JoinKeyPropertiesProperty -> Maybe JoinKeyPropertiesProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RightJoinKeyProperties" JoinInstructionProperty
JoinKeyPropertiesProperty
newValue, Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightOperand :: Value Text
type' :: Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightOperand :: Value Text
type' :: Value Text
..}
instance Property "RightOperand" JoinInstructionProperty where
type PropertyType "RightOperand" JoinInstructionProperty = Value Prelude.Text
set :: PropertyType "RightOperand" JoinInstructionProperty
-> JoinInstructionProperty -> JoinInstructionProperty
set PropertyType "RightOperand" JoinInstructionProperty
newValue JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= JoinInstructionProperty {rightOperand :: Value Text
rightOperand = PropertyType "RightOperand" JoinInstructionProperty
Value Text
newValue, Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
type' :: Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
type' :: Value Text
..}
instance Property "Type" JoinInstructionProperty where
type PropertyType "Type" JoinInstructionProperty = Value Prelude.Text
set :: PropertyType "Type" JoinInstructionProperty
-> JoinInstructionProperty -> JoinInstructionProperty
set PropertyType "Type" JoinInstructionProperty
newValue JoinInstructionProperty {Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: JoinInstructionProperty -> ()
leftJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
leftOperand :: JoinInstructionProperty -> Value Text
onClause :: JoinInstructionProperty -> Value Text
rightJoinKeyProperties :: JoinInstructionProperty -> Maybe JoinKeyPropertiesProperty
rightOperand :: JoinInstructionProperty -> Value Text
type' :: JoinInstructionProperty -> Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
type' :: Value Text
..}
= JoinInstructionProperty {type' :: Value Text
type' = PropertyType "Type" JoinInstructionProperty
Value Text
newValue, Maybe JoinKeyPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
haddock_workaround_ :: ()
leftJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
leftOperand :: Value Text
onClause :: Value Text
rightJoinKeyProperties :: Maybe JoinKeyPropertiesProperty
rightOperand :: Value Text
..}