module Stratosphere.Bedrock.DataSource.SemanticChunkingConfigurationProperty ( SemanticChunkingConfigurationProperty(..), mkSemanticChunkingConfigurationProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import Stratosphere.ResourceProperties import Stratosphere.Value data SemanticChunkingConfigurationProperty = -- | See: SemanticChunkingConfigurationProperty {haddock_workaround_ :: (), -- | See: breakpointPercentileThreshold :: (Value Prelude.Integer), -- | See: bufferSize :: (Value Prelude.Integer), -- | See: maxTokens :: (Value Prelude.Integer)} deriving stock (Prelude.Eq, Prelude.Show) mkSemanticChunkingConfigurationProperty :: Value Prelude.Integer -> Value Prelude.Integer -> Value Prelude.Integer -> SemanticChunkingConfigurationProperty mkSemanticChunkingConfigurationProperty breakpointPercentileThreshold bufferSize maxTokens = SemanticChunkingConfigurationProperty {haddock_workaround_ = (), breakpointPercentileThreshold = breakpointPercentileThreshold, bufferSize = bufferSize, maxTokens = maxTokens} instance ToResourceProperties SemanticChunkingConfigurationProperty where toResourceProperties SemanticChunkingConfigurationProperty {..} = ResourceProperties {awsType = "AWS::Bedrock::DataSource.SemanticChunkingConfiguration", supportsTags = Prelude.False, properties = ["BreakpointPercentileThreshold" JSON..= breakpointPercentileThreshold, "BufferSize" JSON..= bufferSize, "MaxTokens" JSON..= maxTokens]} instance JSON.ToJSON SemanticChunkingConfigurationProperty where toJSON SemanticChunkingConfigurationProperty {..} = JSON.object ["BreakpointPercentileThreshold" JSON..= breakpointPercentileThreshold, "BufferSize" JSON..= bufferSize, "MaxTokens" JSON..= maxTokens] instance Property "BreakpointPercentileThreshold" SemanticChunkingConfigurationProperty where type PropertyType "BreakpointPercentileThreshold" SemanticChunkingConfigurationProperty = Value Prelude.Integer set newValue SemanticChunkingConfigurationProperty {..} = SemanticChunkingConfigurationProperty {breakpointPercentileThreshold = newValue, ..} instance Property "BufferSize" SemanticChunkingConfigurationProperty where type PropertyType "BufferSize" SemanticChunkingConfigurationProperty = Value Prelude.Integer set newValue SemanticChunkingConfigurationProperty {..} = SemanticChunkingConfigurationProperty {bufferSize = newValue, ..} instance Property "MaxTokens" SemanticChunkingConfigurationProperty where type PropertyType "MaxTokens" SemanticChunkingConfigurationProperty = Value Prelude.Integer set newValue SemanticChunkingConfigurationProperty {..} = SemanticChunkingConfigurationProperty {maxTokens = newValue, ..}