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