module Stratosphere.Bedrock.IntelligentPromptRouter.RoutingCriteriaProperty (
        RoutingCriteriaProperty(..), mkRoutingCriteriaProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RoutingCriteriaProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-intelligentpromptrouter-routingcriteria.html>
    RoutingCriteriaProperty {RoutingCriteriaProperty -> ()
haddock_workaround_ :: (),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-intelligentpromptrouter-routingcriteria.html#cfn-bedrock-intelligentpromptrouter-routingcriteria-responsequalitydifference>
                             RoutingCriteriaProperty -> Value Double
responseQualityDifference :: (Value Prelude.Double)}
  deriving stock (RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool
(RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool)
-> (RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool)
-> Eq RoutingCriteriaProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool
== :: RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool
$c/= :: RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool
/= :: RoutingCriteriaProperty -> RoutingCriteriaProperty -> Bool
Prelude.Eq, Int -> RoutingCriteriaProperty -> ShowS
[RoutingCriteriaProperty] -> ShowS
RoutingCriteriaProperty -> String
(Int -> RoutingCriteriaProperty -> ShowS)
-> (RoutingCriteriaProperty -> String)
-> ([RoutingCriteriaProperty] -> ShowS)
-> Show RoutingCriteriaProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RoutingCriteriaProperty -> ShowS
showsPrec :: Int -> RoutingCriteriaProperty -> ShowS
$cshow :: RoutingCriteriaProperty -> String
show :: RoutingCriteriaProperty -> String
$cshowList :: [RoutingCriteriaProperty] -> ShowS
showList :: [RoutingCriteriaProperty] -> ShowS
Prelude.Show)
mkRoutingCriteriaProperty ::
  Value Prelude.Double -> RoutingCriteriaProperty
mkRoutingCriteriaProperty :: Value Double -> RoutingCriteriaProperty
mkRoutingCriteriaProperty Value Double
responseQualityDifference
  = RoutingCriteriaProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       responseQualityDifference :: Value Double
responseQualityDifference = Value Double
responseQualityDifference}
instance ToResourceProperties RoutingCriteriaProperty where
  toResourceProperties :: RoutingCriteriaProperty -> ResourceProperties
toResourceProperties RoutingCriteriaProperty {()
Value Double
haddock_workaround_ :: RoutingCriteriaProperty -> ()
responseQualityDifference :: RoutingCriteriaProperty -> Value Double
haddock_workaround_ :: ()
responseQualityDifference :: Value Double
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Bedrock::IntelligentPromptRouter.RoutingCriteria",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"ResponseQualityDifference"
                         Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
responseQualityDifference]}
instance JSON.ToJSON RoutingCriteriaProperty where
  toJSON :: RoutingCriteriaProperty -> Value
toJSON RoutingCriteriaProperty {()
Value Double
haddock_workaround_ :: RoutingCriteriaProperty -> ()
responseQualityDifference :: RoutingCriteriaProperty -> Value Double
haddock_workaround_ :: ()
responseQualityDifference :: Value Double
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"ResponseQualityDifference" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
responseQualityDifference]
instance Property "ResponseQualityDifference" RoutingCriteriaProperty where
  type PropertyType "ResponseQualityDifference" RoutingCriteriaProperty = Value Prelude.Double
  set :: PropertyType "ResponseQualityDifference" RoutingCriteriaProperty
-> RoutingCriteriaProperty -> RoutingCriteriaProperty
set PropertyType "ResponseQualityDifference" RoutingCriteriaProperty
newValue RoutingCriteriaProperty {()
Value Double
haddock_workaround_ :: RoutingCriteriaProperty -> ()
responseQualityDifference :: RoutingCriteriaProperty -> Value Double
haddock_workaround_ :: ()
responseQualityDifference :: Value Double
..}
    = RoutingCriteriaProperty
        {responseQualityDifference :: Value Double
responseQualityDifference = PropertyType "ResponseQualityDifference" RoutingCriteriaProperty
Value Double
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}