module Stratosphere.QuickSight.Topic.TopicNamedEntityProperty (
module Exports, TopicNamedEntityProperty(..),
mkTopicNamedEntityProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Topic.NamedEntityDefinitionProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Topic.SemanticEntityTypeProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data TopicNamedEntityProperty
=
TopicNamedEntityProperty {TopicNamedEntityProperty -> ()
haddock_workaround_ :: (),
TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
definition :: (Prelude.Maybe [NamedEntityDefinitionProperty]),
TopicNamedEntityProperty -> Maybe (Value Text)
entityDescription :: (Prelude.Maybe (Value Prelude.Text)),
TopicNamedEntityProperty -> Value Text
entityName :: (Value Prelude.Text),
TopicNamedEntityProperty -> Maybe (ValueList Text)
entitySynonyms :: (Prelude.Maybe (ValueList Prelude.Text)),
TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
semanticEntityType :: (Prelude.Maybe SemanticEntityTypeProperty)}
deriving stock (TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool
(TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool)
-> (TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool)
-> Eq TopicNamedEntityProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool
== :: TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool
$c/= :: TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool
/= :: TopicNamedEntityProperty -> TopicNamedEntityProperty -> Bool
Prelude.Eq, Int -> TopicNamedEntityProperty -> ShowS
[TopicNamedEntityProperty] -> ShowS
TopicNamedEntityProperty -> String
(Int -> TopicNamedEntityProperty -> ShowS)
-> (TopicNamedEntityProperty -> String)
-> ([TopicNamedEntityProperty] -> ShowS)
-> Show TopicNamedEntityProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TopicNamedEntityProperty -> ShowS
showsPrec :: Int -> TopicNamedEntityProperty -> ShowS
$cshow :: TopicNamedEntityProperty -> String
show :: TopicNamedEntityProperty -> String
$cshowList :: [TopicNamedEntityProperty] -> ShowS
showList :: [TopicNamedEntityProperty] -> ShowS
Prelude.Show)
mkTopicNamedEntityProperty ::
Value Prelude.Text -> TopicNamedEntityProperty
mkTopicNamedEntityProperty :: Value Text -> TopicNamedEntityProperty
mkTopicNamedEntityProperty Value Text
entityName
= TopicNamedEntityProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), entityName :: Value Text
entityName = Value Text
entityName,
definition :: Maybe [NamedEntityDefinitionProperty]
definition = Maybe [NamedEntityDefinitionProperty]
forall a. Maybe a
Prelude.Nothing, entityDescription :: Maybe (Value Text)
entityDescription = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
entitySynonyms :: Maybe (ValueList Text)
entitySynonyms = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
semanticEntityType :: Maybe SemanticEntityTypeProperty
semanticEntityType = Maybe SemanticEntityTypeProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties TopicNamedEntityProperty where
toResourceProperties :: TopicNamedEntityProperty -> ResourceProperties
toResourceProperties TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::QuickSight::Topic.TopicNamedEntity",
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
"EntityName" 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
entityName]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> [NamedEntityDefinitionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Definition" ([NamedEntityDefinitionProperty] -> (Key, Value))
-> Maybe [NamedEntityDefinitionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [NamedEntityDefinitionProperty]
definition,
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
"EntityDescription" (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)
entityDescription,
Key -> ValueList 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
"EntitySynonyms" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
entitySynonyms,
Key -> SemanticEntityTypeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SemanticEntityType" (SemanticEntityTypeProperty -> (Key, Value))
-> Maybe SemanticEntityTypeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SemanticEntityTypeProperty
semanticEntityType]))}
instance JSON.ToJSON TopicNamedEntityProperty where
toJSON :: TopicNamedEntityProperty -> Value
toJSON TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= [(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
"EntityName" 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
entityName]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> [NamedEntityDefinitionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Definition" ([NamedEntityDefinitionProperty] -> (Key, Value))
-> Maybe [NamedEntityDefinitionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [NamedEntityDefinitionProperty]
definition,
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
"EntityDescription" (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)
entityDescription,
Key -> ValueList 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
"EntitySynonyms" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
entitySynonyms,
Key -> SemanticEntityTypeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SemanticEntityType" (SemanticEntityTypeProperty -> (Key, Value))
-> Maybe SemanticEntityTypeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SemanticEntityTypeProperty
semanticEntityType])))
instance Property "Definition" TopicNamedEntityProperty where
type PropertyType "Definition" TopicNamedEntityProperty = [NamedEntityDefinitionProperty]
set :: PropertyType "Definition" TopicNamedEntityProperty
-> TopicNamedEntityProperty -> TopicNamedEntityProperty
set PropertyType "Definition" TopicNamedEntityProperty
newValue TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= TopicNamedEntityProperty {definition :: Maybe [NamedEntityDefinitionProperty]
definition = [NamedEntityDefinitionProperty]
-> Maybe [NamedEntityDefinitionProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [NamedEntityDefinitionProperty]
PropertyType "Definition" TopicNamedEntityProperty
newValue, Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: ()
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
instance Property "EntityDescription" TopicNamedEntityProperty where
type PropertyType "EntityDescription" TopicNamedEntityProperty = Value Prelude.Text
set :: PropertyType "EntityDescription" TopicNamedEntityProperty
-> TopicNamedEntityProperty -> TopicNamedEntityProperty
set PropertyType "EntityDescription" TopicNamedEntityProperty
newValue TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= TopicNamedEntityProperty
{entityDescription :: Maybe (Value Text)
entityDescription = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EntityDescription" TopicNamedEntityProperty
Value Text
newValue, Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
instance Property "EntityName" TopicNamedEntityProperty where
type PropertyType "EntityName" TopicNamedEntityProperty = Value Prelude.Text
set :: PropertyType "EntityName" TopicNamedEntityProperty
-> TopicNamedEntityProperty -> TopicNamedEntityProperty
set PropertyType "EntityName" TopicNamedEntityProperty
newValue TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= TopicNamedEntityProperty {entityName :: Value Text
entityName = PropertyType "EntityName" TopicNamedEntityProperty
Value Text
newValue, Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
instance Property "EntitySynonyms" TopicNamedEntityProperty where
type PropertyType "EntitySynonyms" TopicNamedEntityProperty = ValueList Prelude.Text
set :: PropertyType "EntitySynonyms" TopicNamedEntityProperty
-> TopicNamedEntityProperty -> TopicNamedEntityProperty
set PropertyType "EntitySynonyms" TopicNamedEntityProperty
newValue TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= TopicNamedEntityProperty
{entitySynonyms :: Maybe (ValueList Text)
entitySynonyms = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EntitySynonyms" TopicNamedEntityProperty
ValueList Text
newValue, Maybe [NamedEntityDefinitionProperty]
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
semanticEntityType :: Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
instance Property "SemanticEntityType" TopicNamedEntityProperty where
type PropertyType "SemanticEntityType" TopicNamedEntityProperty = SemanticEntityTypeProperty
set :: PropertyType "SemanticEntityType" TopicNamedEntityProperty
-> TopicNamedEntityProperty -> TopicNamedEntityProperty
set PropertyType "SemanticEntityType" TopicNamedEntityProperty
newValue TopicNamedEntityProperty {Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SemanticEntityTypeProperty
()
Value Text
haddock_workaround_ :: TopicNamedEntityProperty -> ()
definition :: TopicNamedEntityProperty -> Maybe [NamedEntityDefinitionProperty]
entityDescription :: TopicNamedEntityProperty -> Maybe (Value Text)
entityName :: TopicNamedEntityProperty -> Value Text
entitySynonyms :: TopicNamedEntityProperty -> Maybe (ValueList Text)
semanticEntityType :: TopicNamedEntityProperty -> Maybe SemanticEntityTypeProperty
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
semanticEntityType :: Maybe SemanticEntityTypeProperty
..}
= TopicNamedEntityProperty
{semanticEntityType :: Maybe SemanticEntityTypeProperty
semanticEntityType = SemanticEntityTypeProperty -> Maybe SemanticEntityTypeProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SemanticEntityType" TopicNamedEntityProperty
SemanticEntityTypeProperty
newValue, Maybe [NamedEntityDefinitionProperty]
Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
haddock_workaround_ :: ()
definition :: Maybe [NamedEntityDefinitionProperty]
entityDescription :: Maybe (Value Text)
entityName :: Value Text
entitySynonyms :: Maybe (ValueList Text)
..}