module Stratosphere.Bedrock.FlowVersion.KnowledgeBaseOrchestrationConfigurationProperty (
module Exports,
KnowledgeBaseOrchestrationConfigurationProperty(..),
mkKnowledgeBaseOrchestrationConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.FlowVersion.KnowledgeBasePromptTemplateProperty as Exports
import {-# SOURCE #-} Stratosphere.Bedrock.FlowVersion.PerformanceConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.Bedrock.FlowVersion.PromptInferenceConfigurationProperty as Exports
import Stratosphere.ResourceProperties
data KnowledgeBaseOrchestrationConfigurationProperty
=
KnowledgeBaseOrchestrationConfigurationProperty {KnowledgeBaseOrchestrationConfigurationProperty -> ()
haddock_workaround_ :: (),
KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
additionalModelRequestFields :: (Prelude.Maybe JSON.Object),
KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
inferenceConfig :: (Prelude.Maybe PromptInferenceConfigurationProperty),
KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
performanceConfig :: (Prelude.Maybe PerformanceConfigurationProperty),
KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
promptTemplate :: (Prelude.Maybe KnowledgeBasePromptTemplateProperty)}
deriving stock (KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool
(KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool)
-> (KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool)
-> Eq KnowledgeBaseOrchestrationConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool
== :: KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool
$c/= :: KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool
/= :: KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty -> Bool
Prelude.Eq, Int -> KnowledgeBaseOrchestrationConfigurationProperty -> ShowS
[KnowledgeBaseOrchestrationConfigurationProperty] -> ShowS
KnowledgeBaseOrchestrationConfigurationProperty -> String
(Int -> KnowledgeBaseOrchestrationConfigurationProperty -> ShowS)
-> (KnowledgeBaseOrchestrationConfigurationProperty -> String)
-> ([KnowledgeBaseOrchestrationConfigurationProperty] -> ShowS)
-> Show KnowledgeBaseOrchestrationConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> KnowledgeBaseOrchestrationConfigurationProperty -> ShowS
showsPrec :: Int -> KnowledgeBaseOrchestrationConfigurationProperty -> ShowS
$cshow :: KnowledgeBaseOrchestrationConfigurationProperty -> String
show :: KnowledgeBaseOrchestrationConfigurationProperty -> String
$cshowList :: [KnowledgeBaseOrchestrationConfigurationProperty] -> ShowS
showList :: [KnowledgeBaseOrchestrationConfigurationProperty] -> ShowS
Prelude.Show)
mkKnowledgeBaseOrchestrationConfigurationProperty ::
KnowledgeBaseOrchestrationConfigurationProperty
mkKnowledgeBaseOrchestrationConfigurationProperty :: KnowledgeBaseOrchestrationConfigurationProperty
mkKnowledgeBaseOrchestrationConfigurationProperty
= KnowledgeBaseOrchestrationConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
additionalModelRequestFields :: Maybe Object
additionalModelRequestFields = Maybe Object
forall a. Maybe a
Prelude.Nothing,
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
inferenceConfig = Maybe PromptInferenceConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
performanceConfig :: Maybe PerformanceConfigurationProperty
performanceConfig = Maybe PerformanceConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
promptTemplate = Maybe KnowledgeBasePromptTemplateProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties KnowledgeBaseOrchestrationConfigurationProperty where
toResourceProperties :: KnowledgeBaseOrchestrationConfigurationProperty
-> ResourceProperties
toResourceProperties
KnowledgeBaseOrchestrationConfigurationProperty {Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: KnowledgeBaseOrchestrationConfigurationProperty -> ()
additionalModelRequestFields :: KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
inferenceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
performanceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
promptTemplate :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Bedrock::FlowVersion.KnowledgeBaseOrchestrationConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AdditionalModelRequestFields"
(Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
additionalModelRequestFields,
Key -> PromptInferenceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InferenceConfig" (PromptInferenceConfigurationProperty -> (Key, Value))
-> Maybe PromptInferenceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PromptInferenceConfigurationProperty
inferenceConfig,
Key -> PerformanceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PerformanceConfig" (PerformanceConfigurationProperty -> (Key, Value))
-> Maybe PerformanceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PerformanceConfigurationProperty
performanceConfig,
Key -> KnowledgeBasePromptTemplateProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PromptTemplate" (KnowledgeBasePromptTemplateProperty -> (Key, Value))
-> Maybe KnowledgeBasePromptTemplateProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KnowledgeBasePromptTemplateProperty
promptTemplate])}
instance JSON.ToJSON KnowledgeBaseOrchestrationConfigurationProperty where
toJSON :: KnowledgeBaseOrchestrationConfigurationProperty -> Value
toJSON KnowledgeBaseOrchestrationConfigurationProperty {Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: KnowledgeBaseOrchestrationConfigurationProperty -> ()
additionalModelRequestFields :: KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
inferenceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
performanceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
promptTemplate :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AdditionalModelRequestFields"
(Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
additionalModelRequestFields,
Key -> PromptInferenceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InferenceConfig" (PromptInferenceConfigurationProperty -> (Key, Value))
-> Maybe PromptInferenceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PromptInferenceConfigurationProperty
inferenceConfig,
Key -> PerformanceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PerformanceConfig" (PerformanceConfigurationProperty -> (Key, Value))
-> Maybe PerformanceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PerformanceConfigurationProperty
performanceConfig,
Key -> KnowledgeBasePromptTemplateProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PromptTemplate" (KnowledgeBasePromptTemplateProperty -> (Key, Value))
-> Maybe KnowledgeBasePromptTemplateProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KnowledgeBasePromptTemplateProperty
promptTemplate]))
instance Property "AdditionalModelRequestFields" KnowledgeBaseOrchestrationConfigurationProperty where
type PropertyType "AdditionalModelRequestFields" KnowledgeBaseOrchestrationConfigurationProperty = JSON.Object
set :: PropertyType
"AdditionalModelRequestFields"
KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
set PropertyType
"AdditionalModelRequestFields"
KnowledgeBaseOrchestrationConfigurationProperty
newValue KnowledgeBaseOrchestrationConfigurationProperty {Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: KnowledgeBaseOrchestrationConfigurationProperty -> ()
additionalModelRequestFields :: KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
inferenceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
performanceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
promptTemplate :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
= KnowledgeBaseOrchestrationConfigurationProperty
{additionalModelRequestFields :: Maybe Object
additionalModelRequestFields = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType
"AdditionalModelRequestFields"
KnowledgeBaseOrchestrationConfigurationProperty
newValue, Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: ()
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
instance Property "InferenceConfig" KnowledgeBaseOrchestrationConfigurationProperty where
type PropertyType "InferenceConfig" KnowledgeBaseOrchestrationConfigurationProperty = PromptInferenceConfigurationProperty
set :: PropertyType
"InferenceConfig" KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
set PropertyType
"InferenceConfig" KnowledgeBaseOrchestrationConfigurationProperty
newValue KnowledgeBaseOrchestrationConfigurationProperty {Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: KnowledgeBaseOrchestrationConfigurationProperty -> ()
additionalModelRequestFields :: KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
inferenceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
performanceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
promptTemplate :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
= KnowledgeBaseOrchestrationConfigurationProperty
{inferenceConfig :: Maybe PromptInferenceConfigurationProperty
inferenceConfig = PromptInferenceConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"InferenceConfig" KnowledgeBaseOrchestrationConfigurationProperty
PromptInferenceConfigurationProperty
newValue, Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
instance Property "PerformanceConfig" KnowledgeBaseOrchestrationConfigurationProperty where
type PropertyType "PerformanceConfig" KnowledgeBaseOrchestrationConfigurationProperty = PerformanceConfigurationProperty
set :: PropertyType
"PerformanceConfig" KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
set PropertyType
"PerformanceConfig" KnowledgeBaseOrchestrationConfigurationProperty
newValue KnowledgeBaseOrchestrationConfigurationProperty {Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: KnowledgeBaseOrchestrationConfigurationProperty -> ()
additionalModelRequestFields :: KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
inferenceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
performanceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
promptTemplate :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
= KnowledgeBaseOrchestrationConfigurationProperty
{performanceConfig :: Maybe PerformanceConfigurationProperty
performanceConfig = PerformanceConfigurationProperty
-> Maybe PerformanceConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"PerformanceConfig" KnowledgeBaseOrchestrationConfigurationProperty
PerformanceConfigurationProperty
newValue, Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
instance Property "PromptTemplate" KnowledgeBaseOrchestrationConfigurationProperty where
type PropertyType "PromptTemplate" KnowledgeBaseOrchestrationConfigurationProperty = KnowledgeBasePromptTemplateProperty
set :: PropertyType
"PromptTemplate" KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
-> KnowledgeBaseOrchestrationConfigurationProperty
set PropertyType
"PromptTemplate" KnowledgeBaseOrchestrationConfigurationProperty
newValue KnowledgeBaseOrchestrationConfigurationProperty {Maybe Object
Maybe KnowledgeBasePromptTemplateProperty
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: KnowledgeBaseOrchestrationConfigurationProperty -> ()
additionalModelRequestFields :: KnowledgeBaseOrchestrationConfigurationProperty -> Maybe Object
inferenceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PromptInferenceConfigurationProperty
performanceConfig :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe PerformanceConfigurationProperty
promptTemplate :: KnowledgeBaseOrchestrationConfigurationProperty
-> Maybe KnowledgeBasePromptTemplateProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
..}
= KnowledgeBaseOrchestrationConfigurationProperty
{promptTemplate :: Maybe KnowledgeBasePromptTemplateProperty
promptTemplate = KnowledgeBasePromptTemplateProperty
-> Maybe KnowledgeBasePromptTemplateProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"PromptTemplate" KnowledgeBaseOrchestrationConfigurationProperty
KnowledgeBasePromptTemplateProperty
newValue, Maybe Object
Maybe PerformanceConfigurationProperty
Maybe PromptInferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
inferenceConfig :: Maybe PromptInferenceConfigurationProperty
performanceConfig :: Maybe PerformanceConfigurationProperty
..}