module Stratosphere.Bedrock.Prompt.PromptMetadataEntryProperty (
        PromptMetadataEntryProperty(..), mkPromptMetadataEntryProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data PromptMetadataEntryProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-prompt-promptmetadataentry.html>
    PromptMetadataEntryProperty {PromptMetadataEntryProperty -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-prompt-promptmetadataentry.html#cfn-bedrock-prompt-promptmetadataentry-key>
                                 PromptMetadataEntryProperty -> Value Text
key :: (Value Prelude.Text),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-prompt-promptmetadataentry.html#cfn-bedrock-prompt-promptmetadataentry-value>
                                 PromptMetadataEntryProperty -> Value Text
value :: (Value Prelude.Text)}
  deriving stock (PromptMetadataEntryProperty -> PromptMetadataEntryProperty -> Bool
(PromptMetadataEntryProperty
 -> PromptMetadataEntryProperty -> Bool)
-> (PromptMetadataEntryProperty
    -> PromptMetadataEntryProperty -> Bool)
-> Eq PromptMetadataEntryProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PromptMetadataEntryProperty -> PromptMetadataEntryProperty -> Bool
== :: PromptMetadataEntryProperty -> PromptMetadataEntryProperty -> Bool
$c/= :: PromptMetadataEntryProperty -> PromptMetadataEntryProperty -> Bool
/= :: PromptMetadataEntryProperty -> PromptMetadataEntryProperty -> Bool
Prelude.Eq, Int -> PromptMetadataEntryProperty -> ShowS
[PromptMetadataEntryProperty] -> ShowS
PromptMetadataEntryProperty -> String
(Int -> PromptMetadataEntryProperty -> ShowS)
-> (PromptMetadataEntryProperty -> String)
-> ([PromptMetadataEntryProperty] -> ShowS)
-> Show PromptMetadataEntryProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PromptMetadataEntryProperty -> ShowS
showsPrec :: Int -> PromptMetadataEntryProperty -> ShowS
$cshow :: PromptMetadataEntryProperty -> String
show :: PromptMetadataEntryProperty -> String
$cshowList :: [PromptMetadataEntryProperty] -> ShowS
showList :: [PromptMetadataEntryProperty] -> ShowS
Prelude.Show)
mkPromptMetadataEntryProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> PromptMetadataEntryProperty
mkPromptMetadataEntryProperty :: Value Text -> Value Text -> PromptMetadataEntryProperty
mkPromptMetadataEntryProperty Value Text
key Value Text
value
  = PromptMetadataEntryProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), key :: Value Text
key = Value Text
key, value :: Value Text
value = Value Text
value}
instance ToResourceProperties PromptMetadataEntryProperty where
  toResourceProperties :: PromptMetadataEntryProperty -> ResourceProperties
toResourceProperties PromptMetadataEntryProperty {()
Value Text
haddock_workaround_ :: PromptMetadataEntryProperty -> ()
key :: PromptMetadataEntryProperty -> Value Text
value :: PromptMetadataEntryProperty -> Value Text
haddock_workaround_ :: ()
key :: Value Text
value :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Bedrock::Prompt.PromptMetadataEntry",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Key" 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..= Value Text
key, Key
"Value" 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..= Value Text
value]}
instance JSON.ToJSON PromptMetadataEntryProperty where
  toJSON :: PromptMetadataEntryProperty -> Value
toJSON PromptMetadataEntryProperty {()
Value Text
haddock_workaround_ :: PromptMetadataEntryProperty -> ()
key :: PromptMetadataEntryProperty -> Value Text
value :: PromptMetadataEntryProperty -> Value Text
haddock_workaround_ :: ()
key :: Value Text
value :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Key" 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..= Value Text
key, Key
"Value" 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..= Value Text
value]
instance Property "Key" PromptMetadataEntryProperty where
  type PropertyType "Key" PromptMetadataEntryProperty = Value Prelude.Text
  set :: PropertyType "Key" PromptMetadataEntryProperty
-> PromptMetadataEntryProperty -> PromptMetadataEntryProperty
set PropertyType "Key" PromptMetadataEntryProperty
newValue PromptMetadataEntryProperty {()
Value Text
haddock_workaround_ :: PromptMetadataEntryProperty -> ()
key :: PromptMetadataEntryProperty -> Value Text
value :: PromptMetadataEntryProperty -> Value Text
haddock_workaround_ :: ()
key :: Value Text
value :: Value Text
..}
    = PromptMetadataEntryProperty {key :: Value Text
key = PropertyType "Key" PromptMetadataEntryProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
value :: Value Text
haddock_workaround_ :: ()
value :: Value Text
..}
instance Property "Value" PromptMetadataEntryProperty where
  type PropertyType "Value" PromptMetadataEntryProperty = Value Prelude.Text
  set :: PropertyType "Value" PromptMetadataEntryProperty
-> PromptMetadataEntryProperty -> PromptMetadataEntryProperty
set PropertyType "Value" PromptMetadataEntryProperty
newValue PromptMetadataEntryProperty {()
Value Text
haddock_workaround_ :: PromptMetadataEntryProperty -> ()
key :: PromptMetadataEntryProperty -> Value Text
value :: PromptMetadataEntryProperty -> Value Text
haddock_workaround_ :: ()
key :: Value Text
value :: Value Text
..}
    = PromptMetadataEntryProperty {value :: Value Text
value = PropertyType "Value" PromptMetadataEntryProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
key :: Value Text
haddock_workaround_ :: ()
key :: Value Text
..}