module Stratosphere.WAFv2.RuleGroup.BlockActionProperty (
        module Exports, BlockActionProperty(..), mkBlockActionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.CustomResponseProperty as Exports
import Stratosphere.ResourceProperties
data BlockActionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-blockaction.html>
    BlockActionProperty {haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-blockaction.html#cfn-wafv2-rulegroup-blockaction-customresponse>
                         customResponse :: (Prelude.Maybe CustomResponseProperty)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkBlockActionProperty :: BlockActionProperty
mkBlockActionProperty
  = BlockActionProperty
      {haddock_workaround_ = (), customResponse = Prelude.Nothing}
instance ToResourceProperties BlockActionProperty where
  toResourceProperties BlockActionProperty {..}
    = ResourceProperties
        {awsType = "AWS::WAFv2::RuleGroup.BlockAction",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        (Prelude.catMaybes
                           [(JSON..=) "CustomResponse" Prelude.<$> customResponse])}
instance JSON.ToJSON BlockActionProperty where
  toJSON BlockActionProperty {..}
    = JSON.object
        (Prelude.fromList
           (Prelude.catMaybes
              [(JSON..=) "CustomResponse" Prelude.<$> customResponse]))
instance Property "CustomResponse" BlockActionProperty where
  type PropertyType "CustomResponse" BlockActionProperty = CustomResponseProperty
  set newValue BlockActionProperty {..}
    = BlockActionProperty {customResponse = Prelude.pure newValue, ..}