module Stratosphere.Bedrock.KnowledgeBase.RedshiftProvisionedConfigurationProperty (
module Exports, RedshiftProvisionedConfigurationProperty(..),
mkRedshiftProvisionedConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.KnowledgeBase.RedshiftProvisionedAuthConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RedshiftProvisionedConfigurationProperty
=
RedshiftProvisionedConfigurationProperty {RedshiftProvisionedConfigurationProperty -> ()
haddock_workaround_ :: (),
RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedAuthConfigurationProperty
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty,
RedshiftProvisionedConfigurationProperty -> Value Text
clusterIdentifier :: (Value Prelude.Text)}
deriving stock (RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool
(RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool)
-> (RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool)
-> Eq RedshiftProvisionedConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool
== :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool
$c/= :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool
/= :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty -> Bool
Prelude.Eq, Int -> RedshiftProvisionedConfigurationProperty -> ShowS
[RedshiftProvisionedConfigurationProperty] -> ShowS
RedshiftProvisionedConfigurationProperty -> String
(Int -> RedshiftProvisionedConfigurationProperty -> ShowS)
-> (RedshiftProvisionedConfigurationProperty -> String)
-> ([RedshiftProvisionedConfigurationProperty] -> ShowS)
-> Show RedshiftProvisionedConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RedshiftProvisionedConfigurationProperty -> ShowS
showsPrec :: Int -> RedshiftProvisionedConfigurationProperty -> ShowS
$cshow :: RedshiftProvisionedConfigurationProperty -> String
show :: RedshiftProvisionedConfigurationProperty -> String
$cshowList :: [RedshiftProvisionedConfigurationProperty] -> ShowS
showList :: [RedshiftProvisionedConfigurationProperty] -> ShowS
Prelude.Show)
mkRedshiftProvisionedConfigurationProperty ::
RedshiftProvisionedAuthConfigurationProperty
-> Value Prelude.Text -> RedshiftProvisionedConfigurationProperty
mkRedshiftProvisionedConfigurationProperty :: RedshiftProvisionedAuthConfigurationProperty
-> Value Text -> RedshiftProvisionedConfigurationProperty
mkRedshiftProvisionedConfigurationProperty
RedshiftProvisionedAuthConfigurationProperty
authConfiguration
Value Text
clusterIdentifier
= RedshiftProvisionedConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
authConfiguration = RedshiftProvisionedAuthConfigurationProperty
authConfiguration,
clusterIdentifier :: Value Text
clusterIdentifier = Value Text
clusterIdentifier}
instance ToResourceProperties RedshiftProvisionedConfigurationProperty where
toResourceProperties :: RedshiftProvisionedConfigurationProperty -> ResourceProperties
toResourceProperties RedshiftProvisionedConfigurationProperty {()
Value Text
RedshiftProvisionedAuthConfigurationProperty
haddock_workaround_ :: RedshiftProvisionedConfigurationProperty -> ()
authConfiguration :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: RedshiftProvisionedConfigurationProperty -> Value Text
haddock_workaround_ :: ()
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Bedrock::KnowledgeBase.RedshiftProvisionedConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"AuthConfiguration" Key -> RedshiftProvisionedAuthConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= RedshiftProvisionedAuthConfigurationProperty
authConfiguration,
Key
"ClusterIdentifier" 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
clusterIdentifier]}
instance JSON.ToJSON RedshiftProvisionedConfigurationProperty where
toJSON :: RedshiftProvisionedConfigurationProperty -> Value
toJSON RedshiftProvisionedConfigurationProperty {()
Value Text
RedshiftProvisionedAuthConfigurationProperty
haddock_workaround_ :: RedshiftProvisionedConfigurationProperty -> ()
authConfiguration :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: RedshiftProvisionedConfigurationProperty -> Value Text
haddock_workaround_ :: ()
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"AuthConfiguration" Key -> RedshiftProvisionedAuthConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= RedshiftProvisionedAuthConfigurationProperty
authConfiguration,
Key
"ClusterIdentifier" 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
clusterIdentifier]
instance Property "AuthConfiguration" RedshiftProvisionedConfigurationProperty where
type PropertyType "AuthConfiguration" RedshiftProvisionedConfigurationProperty = RedshiftProvisionedAuthConfigurationProperty
set :: PropertyType
"AuthConfiguration" RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty
set PropertyType
"AuthConfiguration" RedshiftProvisionedConfigurationProperty
newValue RedshiftProvisionedConfigurationProperty {()
Value Text
RedshiftProvisionedAuthConfigurationProperty
haddock_workaround_ :: RedshiftProvisionedConfigurationProperty -> ()
authConfiguration :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: RedshiftProvisionedConfigurationProperty -> Value Text
haddock_workaround_ :: ()
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: Value Text
..}
= RedshiftProvisionedConfigurationProperty
{authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
authConfiguration = PropertyType
"AuthConfiguration" RedshiftProvisionedConfigurationProperty
RedshiftProvisionedAuthConfigurationProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
clusterIdentifier :: Value Text
haddock_workaround_ :: ()
clusterIdentifier :: Value Text
..}
instance Property "ClusterIdentifier" RedshiftProvisionedConfigurationProperty where
type PropertyType "ClusterIdentifier" RedshiftProvisionedConfigurationProperty = Value Prelude.Text
set :: PropertyType
"ClusterIdentifier" RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedConfigurationProperty
set PropertyType
"ClusterIdentifier" RedshiftProvisionedConfigurationProperty
newValue RedshiftProvisionedConfigurationProperty {()
Value Text
RedshiftProvisionedAuthConfigurationProperty
haddock_workaround_ :: RedshiftProvisionedConfigurationProperty -> ()
authConfiguration :: RedshiftProvisionedConfigurationProperty
-> RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: RedshiftProvisionedConfigurationProperty -> Value Text
haddock_workaround_ :: ()
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
clusterIdentifier :: Value Text
..}
= RedshiftProvisionedConfigurationProperty
{clusterIdentifier :: Value Text
clusterIdentifier = PropertyType
"ClusterIdentifier" RedshiftProvisionedConfigurationProperty
Value Text
newValue, ()
RedshiftProvisionedAuthConfigurationProperty
haddock_workaround_ :: ()
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
haddock_workaround_ :: ()
authConfiguration :: RedshiftProvisionedAuthConfigurationProperty
..}