module Stratosphere.Wisdom.AIGuardrail.AIGuardrailTopicPolicyConfigProperty (
module Exports, AIGuardrailTopicPolicyConfigProperty(..),
mkAIGuardrailTopicPolicyConfigProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Wisdom.AIGuardrail.GuardrailTopicConfigProperty as Exports
import Stratosphere.ResourceProperties
data AIGuardrailTopicPolicyConfigProperty
=
AIGuardrailTopicPolicyConfigProperty {AIGuardrailTopicPolicyConfigProperty -> ()
haddock_workaround_ :: (),
AIGuardrailTopicPolicyConfigProperty
-> [GuardrailTopicConfigProperty]
topicsConfig :: [GuardrailTopicConfigProperty]}
deriving stock (AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool
(AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool)
-> (AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool)
-> Eq AIGuardrailTopicPolicyConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool
== :: AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool
$c/= :: AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool
/= :: AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty -> Bool
Prelude.Eq, Int -> AIGuardrailTopicPolicyConfigProperty -> ShowS
[AIGuardrailTopicPolicyConfigProperty] -> ShowS
AIGuardrailTopicPolicyConfigProperty -> String
(Int -> AIGuardrailTopicPolicyConfigProperty -> ShowS)
-> (AIGuardrailTopicPolicyConfigProperty -> String)
-> ([AIGuardrailTopicPolicyConfigProperty] -> ShowS)
-> Show AIGuardrailTopicPolicyConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AIGuardrailTopicPolicyConfigProperty -> ShowS
showsPrec :: Int -> AIGuardrailTopicPolicyConfigProperty -> ShowS
$cshow :: AIGuardrailTopicPolicyConfigProperty -> String
show :: AIGuardrailTopicPolicyConfigProperty -> String
$cshowList :: [AIGuardrailTopicPolicyConfigProperty] -> ShowS
showList :: [AIGuardrailTopicPolicyConfigProperty] -> ShowS
Prelude.Show)
mkAIGuardrailTopicPolicyConfigProperty ::
[GuardrailTopicConfigProperty]
-> AIGuardrailTopicPolicyConfigProperty
mkAIGuardrailTopicPolicyConfigProperty :: [GuardrailTopicConfigProperty]
-> AIGuardrailTopicPolicyConfigProperty
mkAIGuardrailTopicPolicyConfigProperty [GuardrailTopicConfigProperty]
topicsConfig
= AIGuardrailTopicPolicyConfigProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), topicsConfig :: [GuardrailTopicConfigProperty]
topicsConfig = [GuardrailTopicConfigProperty]
topicsConfig}
instance ToResourceProperties AIGuardrailTopicPolicyConfigProperty where
toResourceProperties :: AIGuardrailTopicPolicyConfigProperty -> ResourceProperties
toResourceProperties AIGuardrailTopicPolicyConfigProperty {[GuardrailTopicConfigProperty]
()
haddock_workaround_ :: AIGuardrailTopicPolicyConfigProperty -> ()
topicsConfig :: AIGuardrailTopicPolicyConfigProperty
-> [GuardrailTopicConfigProperty]
haddock_workaround_ :: ()
topicsConfig :: [GuardrailTopicConfigProperty]
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Wisdom::AIGuardrail.AIGuardrailTopicPolicyConfig",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"TopicsConfig" Key -> [GuardrailTopicConfigProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [GuardrailTopicConfigProperty]
topicsConfig]}
instance JSON.ToJSON AIGuardrailTopicPolicyConfigProperty where
toJSON :: AIGuardrailTopicPolicyConfigProperty -> Value
toJSON AIGuardrailTopicPolicyConfigProperty {[GuardrailTopicConfigProperty]
()
haddock_workaround_ :: AIGuardrailTopicPolicyConfigProperty -> ()
topicsConfig :: AIGuardrailTopicPolicyConfigProperty
-> [GuardrailTopicConfigProperty]
haddock_workaround_ :: ()
topicsConfig :: [GuardrailTopicConfigProperty]
..}
= [(Key, Value)] -> Value
JSON.object [Key
"TopicsConfig" Key -> [GuardrailTopicConfigProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [GuardrailTopicConfigProperty]
topicsConfig]
instance Property "TopicsConfig" AIGuardrailTopicPolicyConfigProperty where
type PropertyType "TopicsConfig" AIGuardrailTopicPolicyConfigProperty = [GuardrailTopicConfigProperty]
set :: PropertyType "TopicsConfig" AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty
-> AIGuardrailTopicPolicyConfigProperty
set PropertyType "TopicsConfig" AIGuardrailTopicPolicyConfigProperty
newValue AIGuardrailTopicPolicyConfigProperty {[GuardrailTopicConfigProperty]
()
haddock_workaround_ :: AIGuardrailTopicPolicyConfigProperty -> ()
topicsConfig :: AIGuardrailTopicPolicyConfigProperty
-> [GuardrailTopicConfigProperty]
haddock_workaround_ :: ()
topicsConfig :: [GuardrailTopicConfigProperty]
..}
= AIGuardrailTopicPolicyConfigProperty
{topicsConfig :: [GuardrailTopicConfigProperty]
topicsConfig = [GuardrailTopicConfigProperty]
PropertyType "TopicsConfig" AIGuardrailTopicPolicyConfigProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}