module Stratosphere.Bedrock.Agent.PromptConfigurationProperty (
        module Exports, PromptConfigurationProperty(..),
        mkPromptConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.Agent.InferenceConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data PromptConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html>
    PromptConfigurationProperty {PromptConfigurationProperty -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-additionalmodelrequestfields>
                                 PromptConfigurationProperty -> Maybe Object
additionalModelRequestFields :: (Prelude.Maybe JSON.Object),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-baseprompttemplate>
                                 PromptConfigurationProperty -> Maybe (Value Text)
basePromptTemplate :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-foundationmodel>
                                 PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-inferenceconfiguration>
                                 PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
inferenceConfiguration :: (Prelude.Maybe InferenceConfigurationProperty),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-parsermode>
                                 PromptConfigurationProperty -> Maybe (Value Text)
parserMode :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-promptcreationmode>
                                 PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-promptstate>
                                 PromptConfigurationProperty -> Maybe (Value Text)
promptState :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-agent-promptconfiguration.html#cfn-bedrock-agent-promptconfiguration-prompttype>
                                 PromptConfigurationProperty -> Maybe (Value Text)
promptType :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (PromptConfigurationProperty -> PromptConfigurationProperty -> Bool
(PromptConfigurationProperty
 -> PromptConfigurationProperty -> Bool)
-> (PromptConfigurationProperty
    -> PromptConfigurationProperty -> Bool)
-> Eq PromptConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PromptConfigurationProperty -> PromptConfigurationProperty -> Bool
== :: PromptConfigurationProperty -> PromptConfigurationProperty -> Bool
$c/= :: PromptConfigurationProperty -> PromptConfigurationProperty -> Bool
/= :: PromptConfigurationProperty -> PromptConfigurationProperty -> Bool
Prelude.Eq, Int -> PromptConfigurationProperty -> ShowS
[PromptConfigurationProperty] -> ShowS
PromptConfigurationProperty -> String
(Int -> PromptConfigurationProperty -> ShowS)
-> (PromptConfigurationProperty -> String)
-> ([PromptConfigurationProperty] -> ShowS)
-> Show PromptConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PromptConfigurationProperty -> ShowS
showsPrec :: Int -> PromptConfigurationProperty -> ShowS
$cshow :: PromptConfigurationProperty -> String
show :: PromptConfigurationProperty -> String
$cshowList :: [PromptConfigurationProperty] -> ShowS
showList :: [PromptConfigurationProperty] -> ShowS
Prelude.Show)
mkPromptConfigurationProperty :: PromptConfigurationProperty
mkPromptConfigurationProperty :: PromptConfigurationProperty
mkPromptConfigurationProperty
  = PromptConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       additionalModelRequestFields :: Maybe Object
additionalModelRequestFields = Maybe Object
forall a. Maybe a
Prelude.Nothing,
       basePromptTemplate :: Maybe (Value Text)
basePromptTemplate = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       foundationModel :: Maybe (Value Text)
foundationModel = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       inferenceConfiguration :: Maybe InferenceConfigurationProperty
inferenceConfiguration = Maybe InferenceConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       parserMode :: Maybe (Value Text)
parserMode = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, promptCreationMode :: Maybe (Value Text)
promptCreationMode = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       promptState :: Maybe (Value Text)
promptState = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, promptType :: Maybe (Value Text)
promptType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties PromptConfigurationProperty where
  toResourceProperties :: PromptConfigurationProperty -> ResourceProperties
toResourceProperties PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Bedrock::Agent.PromptConfiguration",
         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 -> 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..=) Key
"BasePromptTemplate" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
basePromptTemplate,
                            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..=) Key
"FoundationModel" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
foundationModel,
                            Key -> InferenceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InferenceConfiguration"
                              (InferenceConfigurationProperty -> (Key, Value))
-> Maybe InferenceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InferenceConfigurationProperty
inferenceConfiguration,
                            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..=) Key
"ParserMode" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
parserMode,
                            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..=) Key
"PromptCreationMode" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
promptCreationMode,
                            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..=) Key
"PromptState" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
promptState,
                            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..=) Key
"PromptType" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
promptType])}
instance JSON.ToJSON PromptConfigurationProperty where
  toJSON :: PromptConfigurationProperty -> Value
toJSON PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = [(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 -> 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..=) Key
"BasePromptTemplate" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
basePromptTemplate,
               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..=) Key
"FoundationModel" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
foundationModel,
               Key -> InferenceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InferenceConfiguration"
                 (InferenceConfigurationProperty -> (Key, Value))
-> Maybe InferenceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InferenceConfigurationProperty
inferenceConfiguration,
               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..=) Key
"ParserMode" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
parserMode,
               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..=) Key
"PromptCreationMode" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
promptCreationMode,
               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..=) Key
"PromptState" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
promptState,
               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..=) Key
"PromptType" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
promptType]))
instance Property "AdditionalModelRequestFields" PromptConfigurationProperty where
  type PropertyType "AdditionalModelRequestFields" PromptConfigurationProperty = JSON.Object
  set :: PropertyType
  "AdditionalModelRequestFields" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType
  "AdditionalModelRequestFields" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {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" PromptConfigurationProperty
newValue, Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "BasePromptTemplate" PromptConfigurationProperty where
  type PropertyType "BasePromptTemplate" PromptConfigurationProperty = Value Prelude.Text
  set :: PropertyType "BasePromptTemplate" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "BasePromptTemplate" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {basePromptTemplate :: Maybe (Value Text)
basePromptTemplate = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BasePromptTemplate" PromptConfigurationProperty
Value Text
newValue, Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "FoundationModel" PromptConfigurationProperty where
  type PropertyType "FoundationModel" PromptConfigurationProperty = Value Prelude.Text
  set :: PropertyType "FoundationModel" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "FoundationModel" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {foundationModel :: Maybe (Value Text)
foundationModel = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FoundationModel" PromptConfigurationProperty
Value Text
newValue, Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "InferenceConfiguration" PromptConfigurationProperty where
  type PropertyType "InferenceConfiguration" PromptConfigurationProperty = InferenceConfigurationProperty
  set :: PropertyType "InferenceConfiguration" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "InferenceConfiguration" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {inferenceConfiguration :: Maybe InferenceConfigurationProperty
inferenceConfiguration = InferenceConfigurationProperty
-> Maybe InferenceConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InferenceConfiguration" PromptConfigurationProperty
InferenceConfigurationProperty
newValue, Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "ParserMode" PromptConfigurationProperty where
  type PropertyType "ParserMode" PromptConfigurationProperty = Value Prelude.Text
  set :: PropertyType "ParserMode" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "ParserMode" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {parserMode :: Maybe (Value Text)
parserMode = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ParserMode" PromptConfigurationProperty
Value Text
newValue, Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "PromptCreationMode" PromptConfigurationProperty where
  type PropertyType "PromptCreationMode" PromptConfigurationProperty = Value Prelude.Text
  set :: PropertyType "PromptCreationMode" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "PromptCreationMode" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {promptCreationMode :: Maybe (Value Text)
promptCreationMode = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PromptCreationMode" PromptConfigurationProperty
Value Text
newValue, Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "PromptState" PromptConfigurationProperty where
  type PropertyType "PromptState" PromptConfigurationProperty = Value Prelude.Text
  set :: PropertyType "PromptState" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "PromptState" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {promptState :: Maybe (Value Text)
promptState = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PromptState" PromptConfigurationProperty
Value Text
newValue, Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptType :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
instance Property "PromptType" PromptConfigurationProperty where
  type PropertyType "PromptType" PromptConfigurationProperty = Value Prelude.Text
  set :: PropertyType "PromptType" PromptConfigurationProperty
-> PromptConfigurationProperty -> PromptConfigurationProperty
set PropertyType "PromptType" PromptConfigurationProperty
newValue PromptConfigurationProperty {Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: PromptConfigurationProperty -> ()
additionalModelRequestFields :: PromptConfigurationProperty -> Maybe Object
basePromptTemplate :: PromptConfigurationProperty -> Maybe (Value Text)
foundationModel :: PromptConfigurationProperty -> Maybe (Value Text)
inferenceConfiguration :: PromptConfigurationProperty -> Maybe InferenceConfigurationProperty
parserMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptCreationMode :: PromptConfigurationProperty -> Maybe (Value Text)
promptState :: PromptConfigurationProperty -> Maybe (Value Text)
promptType :: PromptConfigurationProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
promptType :: Maybe (Value Text)
..}
    = PromptConfigurationProperty
        {promptType :: Maybe (Value Text)
promptType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PromptType" PromptConfigurationProperty
Value Text
newValue, Maybe Object
Maybe (Value Text)
Maybe InferenceConfigurationProperty
()
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
haddock_workaround_ :: ()
additionalModelRequestFields :: Maybe Object
basePromptTemplate :: Maybe (Value Text)
foundationModel :: Maybe (Value Text)
inferenceConfiguration :: Maybe InferenceConfigurationProperty
parserMode :: Maybe (Value Text)
promptCreationMode :: Maybe (Value Text)
promptState :: Maybe (Value Text)
..}