stratosphere-bedrock-1.0.0: gen/Stratosphere/Bedrock/KnowledgeBase/VectorKnowledgeBaseConfigurationProperty.hs

module Stratosphere.Bedrock.KnowledgeBase.VectorKnowledgeBaseConfigurationProperty (
        module Exports, VectorKnowledgeBaseConfigurationProperty(..),
        mkVectorKnowledgeBaseConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.KnowledgeBase.EmbeddingModelConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.Bedrock.KnowledgeBase.SupplementalDataStorageConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data VectorKnowledgeBaseConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-knowledgebase-vectorknowledgebaseconfiguration.html>
    VectorKnowledgeBaseConfigurationProperty {haddock_workaround_ :: (),
                                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-knowledgebase-vectorknowledgebaseconfiguration.html#cfn-bedrock-knowledgebase-vectorknowledgebaseconfiguration-embeddingmodelarn>
                                              embeddingModelArn :: (Value Prelude.Text),
                                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-knowledgebase-vectorknowledgebaseconfiguration.html#cfn-bedrock-knowledgebase-vectorknowledgebaseconfiguration-embeddingmodelconfiguration>
                                              embeddingModelConfiguration :: (Prelude.Maybe EmbeddingModelConfigurationProperty),
                                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-knowledgebase-vectorknowledgebaseconfiguration.html#cfn-bedrock-knowledgebase-vectorknowledgebaseconfiguration-supplementaldatastorageconfiguration>
                                              supplementalDataStorageConfiguration :: (Prelude.Maybe SupplementalDataStorageConfigurationProperty)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkVectorKnowledgeBaseConfigurationProperty ::
  Value Prelude.Text -> VectorKnowledgeBaseConfigurationProperty
mkVectorKnowledgeBaseConfigurationProperty embeddingModelArn
  = VectorKnowledgeBaseConfigurationProperty
      {haddock_workaround_ = (), embeddingModelArn = embeddingModelArn,
       embeddingModelConfiguration = Prelude.Nothing,
       supplementalDataStorageConfiguration = Prelude.Nothing}
instance ToResourceProperties VectorKnowledgeBaseConfigurationProperty where
  toResourceProperties VectorKnowledgeBaseConfigurationProperty {..}
    = ResourceProperties
        {awsType = "AWS::Bedrock::KnowledgeBase.VectorKnowledgeBaseConfiguration",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["EmbeddingModelArn" JSON..= embeddingModelArn]
                           (Prelude.catMaybes
                              [(JSON..=) "EmbeddingModelConfiguration"
                                 Prelude.<$> embeddingModelConfiguration,
                               (JSON..=) "SupplementalDataStorageConfiguration"
                                 Prelude.<$> supplementalDataStorageConfiguration]))}
instance JSON.ToJSON VectorKnowledgeBaseConfigurationProperty where
  toJSON VectorKnowledgeBaseConfigurationProperty {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["EmbeddingModelArn" JSON..= embeddingModelArn]
              (Prelude.catMaybes
                 [(JSON..=) "EmbeddingModelConfiguration"
                    Prelude.<$> embeddingModelConfiguration,
                  (JSON..=) "SupplementalDataStorageConfiguration"
                    Prelude.<$> supplementalDataStorageConfiguration])))
instance Property "EmbeddingModelArn" VectorKnowledgeBaseConfigurationProperty where
  type PropertyType "EmbeddingModelArn" VectorKnowledgeBaseConfigurationProperty = Value Prelude.Text
  set newValue VectorKnowledgeBaseConfigurationProperty {..}
    = VectorKnowledgeBaseConfigurationProperty
        {embeddingModelArn = newValue, ..}
instance Property "EmbeddingModelConfiguration" VectorKnowledgeBaseConfigurationProperty where
  type PropertyType "EmbeddingModelConfiguration" VectorKnowledgeBaseConfigurationProperty = EmbeddingModelConfigurationProperty
  set newValue VectorKnowledgeBaseConfigurationProperty {..}
    = VectorKnowledgeBaseConfigurationProperty
        {embeddingModelConfiguration = Prelude.pure newValue, ..}
instance Property "SupplementalDataStorageConfiguration" VectorKnowledgeBaseConfigurationProperty where
  type PropertyType "SupplementalDataStorageConfiguration" VectorKnowledgeBaseConfigurationProperty = SupplementalDataStorageConfigurationProperty
  set newValue VectorKnowledgeBaseConfigurationProperty {..}
    = VectorKnowledgeBaseConfigurationProperty
        {supplementalDataStorageConfiguration = Prelude.pure newValue, ..}