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