module Stratosphere.Bedrock.Flow.FieldForRerankingProperty (
FieldForRerankingProperty(..), mkFieldForRerankingProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data FieldForRerankingProperty
=
FieldForRerankingProperty {FieldForRerankingProperty -> ()
haddock_workaround_ :: (),
FieldForRerankingProperty -> Value Text
fieldName :: (Value Prelude.Text)}
deriving stock (FieldForRerankingProperty -> FieldForRerankingProperty -> Bool
(FieldForRerankingProperty -> FieldForRerankingProperty -> Bool)
-> (FieldForRerankingProperty -> FieldForRerankingProperty -> Bool)
-> Eq FieldForRerankingProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FieldForRerankingProperty -> FieldForRerankingProperty -> Bool
== :: FieldForRerankingProperty -> FieldForRerankingProperty -> Bool
$c/= :: FieldForRerankingProperty -> FieldForRerankingProperty -> Bool
/= :: FieldForRerankingProperty -> FieldForRerankingProperty -> Bool
Prelude.Eq, Int -> FieldForRerankingProperty -> ShowS
[FieldForRerankingProperty] -> ShowS
FieldForRerankingProperty -> String
(Int -> FieldForRerankingProperty -> ShowS)
-> (FieldForRerankingProperty -> String)
-> ([FieldForRerankingProperty] -> ShowS)
-> Show FieldForRerankingProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> FieldForRerankingProperty -> ShowS
showsPrec :: Int -> FieldForRerankingProperty -> ShowS
$cshow :: FieldForRerankingProperty -> String
show :: FieldForRerankingProperty -> String
$cshowList :: [FieldForRerankingProperty] -> ShowS
showList :: [FieldForRerankingProperty] -> ShowS
Prelude.Show)
mkFieldForRerankingProperty ::
Value Prelude.Text -> FieldForRerankingProperty
mkFieldForRerankingProperty :: Value Text -> FieldForRerankingProperty
mkFieldForRerankingProperty Value Text
fieldName
= FieldForRerankingProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), fieldName :: Value Text
fieldName = Value Text
fieldName}
instance ToResourceProperties FieldForRerankingProperty where
toResourceProperties :: FieldForRerankingProperty -> ResourceProperties
toResourceProperties FieldForRerankingProperty {()
Value Text
haddock_workaround_ :: FieldForRerankingProperty -> ()
fieldName :: FieldForRerankingProperty -> Value Text
haddock_workaround_ :: ()
fieldName :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Bedrock::Flow.FieldForReranking",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"FieldName" 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
fieldName]}
instance JSON.ToJSON FieldForRerankingProperty where
toJSON :: FieldForRerankingProperty -> Value
toJSON FieldForRerankingProperty {()
Value Text
haddock_workaround_ :: FieldForRerankingProperty -> ()
fieldName :: FieldForRerankingProperty -> Value Text
haddock_workaround_ :: ()
fieldName :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object [Key
"FieldName" 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
fieldName]
instance Property "FieldName" FieldForRerankingProperty where
type PropertyType "FieldName" FieldForRerankingProperty = Value Prelude.Text
set :: PropertyType "FieldName" FieldForRerankingProperty
-> FieldForRerankingProperty -> FieldForRerankingProperty
set PropertyType "FieldName" FieldForRerankingProperty
newValue FieldForRerankingProperty {()
Value Text
haddock_workaround_ :: FieldForRerankingProperty -> ()
fieldName :: FieldForRerankingProperty -> Value Text
haddock_workaround_ :: ()
fieldName :: Value Text
..}
= FieldForRerankingProperty {fieldName :: Value Text
fieldName = PropertyType "FieldName" FieldForRerankingProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}