module Stratosphere.WAFv2.WebACL.ResponseInspectionProperty (
        module Exports, ResponseInspectionProperty(..),
        mkResponseInspectionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.WAFv2.WebACL.ResponseInspectionBodyContainsProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.WebACL.ResponseInspectionHeaderProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.WebACL.ResponseInspectionJsonProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.WebACL.ResponseInspectionStatusCodeProperty as Exports
import Stratosphere.ResourceProperties
data ResponseInspectionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-responseinspection.html>
    ResponseInspectionProperty {ResponseInspectionProperty -> ()
haddock_workaround_ :: (),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-responseinspection.html#cfn-wafv2-webacl-responseinspection-bodycontains>
                                ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
bodyContains :: (Prelude.Maybe ResponseInspectionBodyContainsProperty),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-responseinspection.html#cfn-wafv2-webacl-responseinspection-header>
                                ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
header :: (Prelude.Maybe ResponseInspectionHeaderProperty),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-responseinspection.html#cfn-wafv2-webacl-responseinspection-json>
                                ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
json :: (Prelude.Maybe ResponseInspectionJsonProperty),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-responseinspection.html#cfn-wafv2-webacl-responseinspection-statuscode>
                                ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
statusCode :: (Prelude.Maybe ResponseInspectionStatusCodeProperty)}
  deriving stock (ResponseInspectionProperty -> ResponseInspectionProperty -> Bool
(ResponseInspectionProperty -> ResponseInspectionProperty -> Bool)
-> (ResponseInspectionProperty
    -> ResponseInspectionProperty -> Bool)
-> Eq ResponseInspectionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResponseInspectionProperty -> ResponseInspectionProperty -> Bool
== :: ResponseInspectionProperty -> ResponseInspectionProperty -> Bool
$c/= :: ResponseInspectionProperty -> ResponseInspectionProperty -> Bool
/= :: ResponseInspectionProperty -> ResponseInspectionProperty -> Bool
Prelude.Eq, Int -> ResponseInspectionProperty -> ShowS
[ResponseInspectionProperty] -> ShowS
ResponseInspectionProperty -> String
(Int -> ResponseInspectionProperty -> ShowS)
-> (ResponseInspectionProperty -> String)
-> ([ResponseInspectionProperty] -> ShowS)
-> Show ResponseInspectionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ResponseInspectionProperty -> ShowS
showsPrec :: Int -> ResponseInspectionProperty -> ShowS
$cshow :: ResponseInspectionProperty -> String
show :: ResponseInspectionProperty -> String
$cshowList :: [ResponseInspectionProperty] -> ShowS
showList :: [ResponseInspectionProperty] -> ShowS
Prelude.Show)
mkResponseInspectionProperty :: ResponseInspectionProperty
mkResponseInspectionProperty :: ResponseInspectionProperty
mkResponseInspectionProperty
  = ResponseInspectionProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), bodyContains :: Maybe ResponseInspectionBodyContainsProperty
bodyContains = Maybe ResponseInspectionBodyContainsProperty
forall a. Maybe a
Prelude.Nothing,
       header :: Maybe ResponseInspectionHeaderProperty
header = Maybe ResponseInspectionHeaderProperty
forall a. Maybe a
Prelude.Nothing, json :: Maybe ResponseInspectionJsonProperty
json = Maybe ResponseInspectionJsonProperty
forall a. Maybe a
Prelude.Nothing,
       statusCode :: Maybe ResponseInspectionStatusCodeProperty
statusCode = Maybe ResponseInspectionStatusCodeProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ResponseInspectionProperty where
  toResourceProperties :: ResponseInspectionProperty -> ResourceProperties
toResourceProperties ResponseInspectionProperty {Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ResponseInspectionProperty -> ()
bodyContains :: ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
header :: ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
json :: ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
statusCode :: ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::WAFv2::WebACL.ResponseInspection",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> ResponseInspectionBodyContainsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BodyContains" (ResponseInspectionBodyContainsProperty -> (Key, Value))
-> Maybe ResponseInspectionBodyContainsProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionBodyContainsProperty
bodyContains,
                            Key -> ResponseInspectionHeaderProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Header" (ResponseInspectionHeaderProperty -> (Key, Value))
-> Maybe ResponseInspectionHeaderProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionHeaderProperty
header,
                            Key -> ResponseInspectionJsonProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Json" (ResponseInspectionJsonProperty -> (Key, Value))
-> Maybe ResponseInspectionJsonProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionJsonProperty
json,
                            Key -> ResponseInspectionStatusCodeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"StatusCode" (ResponseInspectionStatusCodeProperty -> (Key, Value))
-> Maybe ResponseInspectionStatusCodeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionStatusCodeProperty
statusCode])}
instance JSON.ToJSON ResponseInspectionProperty where
  toJSON :: ResponseInspectionProperty -> Value
toJSON ResponseInspectionProperty {Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ResponseInspectionProperty -> ()
bodyContains :: ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
header :: ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
json :: ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
statusCode :: ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> ResponseInspectionBodyContainsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BodyContains" (ResponseInspectionBodyContainsProperty -> (Key, Value))
-> Maybe ResponseInspectionBodyContainsProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionBodyContainsProperty
bodyContains,
               Key -> ResponseInspectionHeaderProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Header" (ResponseInspectionHeaderProperty -> (Key, Value))
-> Maybe ResponseInspectionHeaderProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionHeaderProperty
header,
               Key -> ResponseInspectionJsonProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Json" (ResponseInspectionJsonProperty -> (Key, Value))
-> Maybe ResponseInspectionJsonProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionJsonProperty
json,
               Key -> ResponseInspectionStatusCodeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"StatusCode" (ResponseInspectionStatusCodeProperty -> (Key, Value))
-> Maybe ResponseInspectionStatusCodeProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResponseInspectionStatusCodeProperty
statusCode]))
instance Property "BodyContains" ResponseInspectionProperty where
  type PropertyType "BodyContains" ResponseInspectionProperty = ResponseInspectionBodyContainsProperty
  set :: PropertyType "BodyContains" ResponseInspectionProperty
-> ResponseInspectionProperty -> ResponseInspectionProperty
set PropertyType "BodyContains" ResponseInspectionProperty
newValue ResponseInspectionProperty {Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ResponseInspectionProperty -> ()
bodyContains :: ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
header :: ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
json :: ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
statusCode :: ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
    = ResponseInspectionProperty
        {bodyContains :: Maybe ResponseInspectionBodyContainsProperty
bodyContains = ResponseInspectionBodyContainsProperty
-> Maybe ResponseInspectionBodyContainsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BodyContains" ResponseInspectionProperty
ResponseInspectionBodyContainsProperty
newValue, Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ()
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
instance Property "Header" ResponseInspectionProperty where
  type PropertyType "Header" ResponseInspectionProperty = ResponseInspectionHeaderProperty
  set :: PropertyType "Header" ResponseInspectionProperty
-> ResponseInspectionProperty -> ResponseInspectionProperty
set PropertyType "Header" ResponseInspectionProperty
newValue ResponseInspectionProperty {Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ResponseInspectionProperty -> ()
bodyContains :: ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
header :: ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
json :: ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
statusCode :: ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
    = ResponseInspectionProperty {header :: Maybe ResponseInspectionHeaderProperty
header = ResponseInspectionHeaderProperty
-> Maybe ResponseInspectionHeaderProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Header" ResponseInspectionProperty
ResponseInspectionHeaderProperty
newValue, Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
instance Property "Json" ResponseInspectionProperty where
  type PropertyType "Json" ResponseInspectionProperty = ResponseInspectionJsonProperty
  set :: PropertyType "Json" ResponseInspectionProperty
-> ResponseInspectionProperty -> ResponseInspectionProperty
set PropertyType "Json" ResponseInspectionProperty
newValue ResponseInspectionProperty {Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ResponseInspectionProperty -> ()
bodyContains :: ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
header :: ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
json :: ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
statusCode :: ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
    = ResponseInspectionProperty {json :: Maybe ResponseInspectionJsonProperty
json = ResponseInspectionJsonProperty
-> Maybe ResponseInspectionJsonProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Json" ResponseInspectionProperty
ResponseInspectionJsonProperty
newValue, Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
instance Property "StatusCode" ResponseInspectionProperty where
  type PropertyType "StatusCode" ResponseInspectionProperty = ResponseInspectionStatusCodeProperty
  set :: PropertyType "StatusCode" ResponseInspectionProperty
-> ResponseInspectionProperty -> ResponseInspectionProperty
set PropertyType "StatusCode" ResponseInspectionProperty
newValue ResponseInspectionProperty {Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
Maybe ResponseInspectionStatusCodeProperty
()
haddock_workaround_ :: ResponseInspectionProperty -> ()
bodyContains :: ResponseInspectionProperty
-> Maybe ResponseInspectionBodyContainsProperty
header :: ResponseInspectionProperty
-> Maybe ResponseInspectionHeaderProperty
json :: ResponseInspectionProperty -> Maybe ResponseInspectionJsonProperty
statusCode :: ResponseInspectionProperty
-> Maybe ResponseInspectionStatusCodeProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
statusCode :: Maybe ResponseInspectionStatusCodeProperty
..}
    = ResponseInspectionProperty
        {statusCode :: Maybe ResponseInspectionStatusCodeProperty
statusCode = ResponseInspectionStatusCodeProperty
-> Maybe ResponseInspectionStatusCodeProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StatusCode" ResponseInspectionProperty
ResponseInspectionStatusCodeProperty
newValue, Maybe ResponseInspectionBodyContainsProperty
Maybe ResponseInspectionHeaderProperty
Maybe ResponseInspectionJsonProperty
()
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
haddock_workaround_ :: ()
bodyContains :: Maybe ResponseInspectionBodyContainsProperty
header :: Maybe ResponseInspectionHeaderProperty
json :: Maybe ResponseInspectionJsonProperty
..}