stratosphere-bedrock-1.0.0: gen/Stratosphere/Bedrock/Guardrail/ContentPolicyConfigProperty.hs

module Stratosphere.Bedrock.Guardrail.ContentPolicyConfigProperty (
        module Exports, ContentPolicyConfigProperty(..),
        mkContentPolicyConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.Guardrail.ContentFilterConfigProperty as Exports
import {-# SOURCE #-} Stratosphere.Bedrock.Guardrail.ContentFiltersTierConfigProperty as Exports
import Stratosphere.ResourceProperties
data ContentPolicyConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-guardrail-contentpolicyconfig.html>
    ContentPolicyConfigProperty {haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-guardrail-contentpolicyconfig.html#cfn-bedrock-guardrail-contentpolicyconfig-contentfilterstierconfig>
                                 contentFiltersTierConfig :: (Prelude.Maybe ContentFiltersTierConfigProperty),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-bedrock-guardrail-contentpolicyconfig.html#cfn-bedrock-guardrail-contentpolicyconfig-filtersconfig>
                                 filtersConfig :: [ContentFilterConfigProperty]}
  deriving stock (Prelude.Eq, Prelude.Show)
mkContentPolicyConfigProperty ::
  [ContentFilterConfigProperty] -> ContentPolicyConfigProperty
mkContentPolicyConfigProperty filtersConfig
  = ContentPolicyConfigProperty
      {haddock_workaround_ = (), filtersConfig = filtersConfig,
       contentFiltersTierConfig = Prelude.Nothing}
instance ToResourceProperties ContentPolicyConfigProperty where
  toResourceProperties ContentPolicyConfigProperty {..}
    = ResourceProperties
        {awsType = "AWS::Bedrock::Guardrail.ContentPolicyConfig",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["FiltersConfig" JSON..= filtersConfig]
                           (Prelude.catMaybes
                              [(JSON..=) "ContentFiltersTierConfig"
                                 Prelude.<$> contentFiltersTierConfig]))}
instance JSON.ToJSON ContentPolicyConfigProperty where
  toJSON ContentPolicyConfigProperty {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["FiltersConfig" JSON..= filtersConfig]
              (Prelude.catMaybes
                 [(JSON..=) "ContentFiltersTierConfig"
                    Prelude.<$> contentFiltersTierConfig])))
instance Property "ContentFiltersTierConfig" ContentPolicyConfigProperty where
  type PropertyType "ContentFiltersTierConfig" ContentPolicyConfigProperty = ContentFiltersTierConfigProperty
  set newValue ContentPolicyConfigProperty {..}
    = ContentPolicyConfigProperty
        {contentFiltersTierConfig = Prelude.pure newValue, ..}
instance Property "FiltersConfig" ContentPolicyConfigProperty where
  type PropertyType "FiltersConfig" ContentPolicyConfigProperty = [ContentFilterConfigProperty]
  set newValue ContentPolicyConfigProperty {..}
    = ContentPolicyConfigProperty {filtersConfig = newValue, ..}