module Stratosphere.Bedrock.KnowledgeBase.NeptuneAnalyticsFieldMappingProperty (
NeptuneAnalyticsFieldMappingProperty(..),
mkNeptuneAnalyticsFieldMappingProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data NeptuneAnalyticsFieldMappingProperty
=
NeptuneAnalyticsFieldMappingProperty {NeptuneAnalyticsFieldMappingProperty -> ()
haddock_workaround_ :: (),
NeptuneAnalyticsFieldMappingProperty -> Value Text
metadataField :: (Value Prelude.Text),
NeptuneAnalyticsFieldMappingProperty -> Value Text
textField :: (Value Prelude.Text)}
deriving stock (NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool
(NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool)
-> (NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool)
-> Eq NeptuneAnalyticsFieldMappingProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool
== :: NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool
$c/= :: NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool
/= :: NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty -> Bool
Prelude.Eq, Int -> NeptuneAnalyticsFieldMappingProperty -> ShowS
[NeptuneAnalyticsFieldMappingProperty] -> ShowS
NeptuneAnalyticsFieldMappingProperty -> String
(Int -> NeptuneAnalyticsFieldMappingProperty -> ShowS)
-> (NeptuneAnalyticsFieldMappingProperty -> String)
-> ([NeptuneAnalyticsFieldMappingProperty] -> ShowS)
-> Show NeptuneAnalyticsFieldMappingProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NeptuneAnalyticsFieldMappingProperty -> ShowS
showsPrec :: Int -> NeptuneAnalyticsFieldMappingProperty -> ShowS
$cshow :: NeptuneAnalyticsFieldMappingProperty -> String
show :: NeptuneAnalyticsFieldMappingProperty -> String
$cshowList :: [NeptuneAnalyticsFieldMappingProperty] -> ShowS
showList :: [NeptuneAnalyticsFieldMappingProperty] -> ShowS
Prelude.Show)
mkNeptuneAnalyticsFieldMappingProperty ::
Value Prelude.Text
-> Value Prelude.Text -> NeptuneAnalyticsFieldMappingProperty
mkNeptuneAnalyticsFieldMappingProperty :: Value Text -> Value Text -> NeptuneAnalyticsFieldMappingProperty
mkNeptuneAnalyticsFieldMappingProperty Value Text
metadataField Value Text
textField
= NeptuneAnalyticsFieldMappingProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), metadataField :: Value Text
metadataField = Value Text
metadataField,
textField :: Value Text
textField = Value Text
textField}
instance ToResourceProperties NeptuneAnalyticsFieldMappingProperty where
toResourceProperties :: NeptuneAnalyticsFieldMappingProperty -> ResourceProperties
toResourceProperties NeptuneAnalyticsFieldMappingProperty {()
Value Text
haddock_workaround_ :: NeptuneAnalyticsFieldMappingProperty -> ()
metadataField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
textField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
haddock_workaround_ :: ()
metadataField :: Value Text
textField :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Bedrock::KnowledgeBase.NeptuneAnalyticsFieldMapping",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"MetadataField" 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
metadataField,
Key
"TextField" 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
textField]}
instance JSON.ToJSON NeptuneAnalyticsFieldMappingProperty where
toJSON :: NeptuneAnalyticsFieldMappingProperty -> Value
toJSON NeptuneAnalyticsFieldMappingProperty {()
Value Text
haddock_workaround_ :: NeptuneAnalyticsFieldMappingProperty -> ()
metadataField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
textField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
haddock_workaround_ :: ()
metadataField :: Value Text
textField :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"MetadataField" 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
metadataField,
Key
"TextField" 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
textField]
instance Property "MetadataField" NeptuneAnalyticsFieldMappingProperty where
type PropertyType "MetadataField" NeptuneAnalyticsFieldMappingProperty = Value Prelude.Text
set :: PropertyType "MetadataField" NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty
set PropertyType "MetadataField" NeptuneAnalyticsFieldMappingProperty
newValue NeptuneAnalyticsFieldMappingProperty {()
Value Text
haddock_workaround_ :: NeptuneAnalyticsFieldMappingProperty -> ()
metadataField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
textField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
haddock_workaround_ :: ()
metadataField :: Value Text
textField :: Value Text
..}
= NeptuneAnalyticsFieldMappingProperty
{metadataField :: Value Text
metadataField = PropertyType "MetadataField" NeptuneAnalyticsFieldMappingProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
textField :: Value Text
haddock_workaround_ :: ()
textField :: Value Text
..}
instance Property "TextField" NeptuneAnalyticsFieldMappingProperty where
type PropertyType "TextField" NeptuneAnalyticsFieldMappingProperty = Value Prelude.Text
set :: PropertyType "TextField" NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty
-> NeptuneAnalyticsFieldMappingProperty
set PropertyType "TextField" NeptuneAnalyticsFieldMappingProperty
newValue NeptuneAnalyticsFieldMappingProperty {()
Value Text
haddock_workaround_ :: NeptuneAnalyticsFieldMappingProperty -> ()
metadataField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
textField :: NeptuneAnalyticsFieldMappingProperty -> Value Text
haddock_workaround_ :: ()
metadataField :: Value Text
textField :: Value Text
..}
= NeptuneAnalyticsFieldMappingProperty {textField :: Value Text
textField = PropertyType "TextField" NeptuneAnalyticsFieldMappingProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
metadataField :: Value Text
haddock_workaround_ :: ()
metadataField :: Value Text
..}