module Stratosphere.Bedrock.PromptVersion.MessageProperty (
        module Exports, MessageProperty(..), mkMessageProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.PromptVersion.ContentBlockProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MessageProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-promptversion-message.html>
    MessageProperty {MessageProperty -> ()
haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-promptversion-message.html#cfn-bedrock-promptversion-message-content>
                     MessageProperty -> [ContentBlockProperty]
content :: [ContentBlockProperty],
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-promptversion-message.html#cfn-bedrock-promptversion-message-role>
                     MessageProperty -> Value Text
role :: (Value Prelude.Text)}
  deriving stock (MessageProperty -> MessageProperty -> Bool
(MessageProperty -> MessageProperty -> Bool)
-> (MessageProperty -> MessageProperty -> Bool)
-> Eq MessageProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MessageProperty -> MessageProperty -> Bool
== :: MessageProperty -> MessageProperty -> Bool
$c/= :: MessageProperty -> MessageProperty -> Bool
/= :: MessageProperty -> MessageProperty -> Bool
Prelude.Eq, Int -> MessageProperty -> ShowS
[MessageProperty] -> ShowS
MessageProperty -> String
(Int -> MessageProperty -> ShowS)
-> (MessageProperty -> String)
-> ([MessageProperty] -> ShowS)
-> Show MessageProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MessageProperty -> ShowS
showsPrec :: Int -> MessageProperty -> ShowS
$cshow :: MessageProperty -> String
show :: MessageProperty -> String
$cshowList :: [MessageProperty] -> ShowS
showList :: [MessageProperty] -> ShowS
Prelude.Show)
mkMessageProperty ::
  [ContentBlockProperty] -> Value Prelude.Text -> MessageProperty
mkMessageProperty :: [ContentBlockProperty] -> Value Text -> MessageProperty
mkMessageProperty [ContentBlockProperty]
content Value Text
role
  = MessageProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), content :: [ContentBlockProperty]
content = [ContentBlockProperty]
content, role :: Value Text
role = Value Text
role}
instance ToResourceProperties MessageProperty where
  toResourceProperties :: MessageProperty -> ResourceProperties
toResourceProperties MessageProperty {[ContentBlockProperty]
()
Value Text
haddock_workaround_ :: MessageProperty -> ()
content :: MessageProperty -> [ContentBlockProperty]
role :: MessageProperty -> Value Text
haddock_workaround_ :: ()
content :: [ContentBlockProperty]
role :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Bedrock::PromptVersion.Message",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Content" Key -> [ContentBlockProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [ContentBlockProperty]
content, Key
"Role" 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
role]}
instance JSON.ToJSON MessageProperty where
  toJSON :: MessageProperty -> Value
toJSON MessageProperty {[ContentBlockProperty]
()
Value Text
haddock_workaround_ :: MessageProperty -> ()
content :: MessageProperty -> [ContentBlockProperty]
role :: MessageProperty -> Value Text
haddock_workaround_ :: ()
content :: [ContentBlockProperty]
role :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Content" Key -> [ContentBlockProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [ContentBlockProperty]
content, Key
"Role" 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
role]
instance Property "Content" MessageProperty where
  type PropertyType "Content" MessageProperty = [ContentBlockProperty]
  set :: PropertyType "Content" MessageProperty
-> MessageProperty -> MessageProperty
set PropertyType "Content" MessageProperty
newValue MessageProperty {[ContentBlockProperty]
()
Value Text
haddock_workaround_ :: MessageProperty -> ()
content :: MessageProperty -> [ContentBlockProperty]
role :: MessageProperty -> Value Text
haddock_workaround_ :: ()
content :: [ContentBlockProperty]
role :: Value Text
..}
    = MessageProperty {content :: [ContentBlockProperty]
content = [ContentBlockProperty]
PropertyType "Content" MessageProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
role :: Value Text
haddock_workaround_ :: ()
role :: Value Text
..}
instance Property "Role" MessageProperty where
  type PropertyType "Role" MessageProperty = Value Prelude.Text
  set :: PropertyType "Role" MessageProperty
-> MessageProperty -> MessageProperty
set PropertyType "Role" MessageProperty
newValue MessageProperty {[ContentBlockProperty]
()
Value Text
haddock_workaround_ :: MessageProperty -> ()
content :: MessageProperty -> [ContentBlockProperty]
role :: MessageProperty -> Value Text
haddock_workaround_ :: ()
content :: [ContentBlockProperty]
role :: Value Text
..}
    = MessageProperty {role :: Value Text
role = PropertyType "Role" MessageProperty
Value Text
newValue, [ContentBlockProperty]
()
haddock_workaround_ :: ()
content :: [ContentBlockProperty]
haddock_workaround_ :: ()
content :: [ContentBlockProperty]
..}