module Stratosphere.BedrockAgentCore.Memory.SemanticOverrideConsolidationConfigurationInputProperty ( SemanticOverrideConsolidationConfigurationInputProperty(..), mkSemanticOverrideConsolidationConfigurationInputProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import Stratosphere.ResourceProperties import Stratosphere.Value data SemanticOverrideConsolidationConfigurationInputProperty = -- | See: SemanticOverrideConsolidationConfigurationInputProperty {haddock_workaround_ :: (), -- | See: appendToPrompt :: (Value Prelude.Text), -- | See: modelId :: (Value Prelude.Text)} deriving stock (Prelude.Eq, Prelude.Show) mkSemanticOverrideConsolidationConfigurationInputProperty :: Value Prelude.Text -> Value Prelude.Text -> SemanticOverrideConsolidationConfigurationInputProperty mkSemanticOverrideConsolidationConfigurationInputProperty appendToPrompt modelId = SemanticOverrideConsolidationConfigurationInputProperty {haddock_workaround_ = (), appendToPrompt = appendToPrompt, modelId = modelId} instance ToResourceProperties SemanticOverrideConsolidationConfigurationInputProperty where toResourceProperties SemanticOverrideConsolidationConfigurationInputProperty {..} = ResourceProperties {awsType = "AWS::BedrockAgentCore::Memory.SemanticOverrideConsolidationConfigurationInput", supportsTags = Prelude.False, properties = ["AppendToPrompt" JSON..= appendToPrompt, "ModelId" JSON..= modelId]} instance JSON.ToJSON SemanticOverrideConsolidationConfigurationInputProperty where toJSON SemanticOverrideConsolidationConfigurationInputProperty {..} = JSON.object ["AppendToPrompt" JSON..= appendToPrompt, "ModelId" JSON..= modelId] instance Property "AppendToPrompt" SemanticOverrideConsolidationConfigurationInputProperty where type PropertyType "AppendToPrompt" SemanticOverrideConsolidationConfigurationInputProperty = Value Prelude.Text set newValue SemanticOverrideConsolidationConfigurationInputProperty {..} = SemanticOverrideConsolidationConfigurationInputProperty {appendToPrompt = newValue, ..} instance Property "ModelId" SemanticOverrideConsolidationConfigurationInputProperty where type PropertyType "ModelId" SemanticOverrideConsolidationConfigurationInputProperty = Value Prelude.Text set newValue SemanticOverrideConsolidationConfigurationInputProperty {..} = SemanticOverrideConsolidationConfigurationInputProperty {modelId = newValue, ..}