module Stratosphere.WAFv2.RuleGroup.RateBasedStatementCustomKeyProperty (
        module Exports, RateBasedStatementCustomKeyProperty(..),
        mkRateBasedStatementCustomKeyProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitCookieProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitHeaderProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitJA3FingerprintProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitJA4FingerprintProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitLabelNamespaceProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitQueryArgumentProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitQueryStringProperty as Exports
import {-# SOURCE #-} Stratosphere.WAFv2.RuleGroup.RateLimitUriPathProperty as Exports
import Stratosphere.ResourceProperties
data RateBasedStatementCustomKeyProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html>
    RateBasedStatementCustomKeyProperty {RateBasedStatementCustomKeyProperty -> ()
haddock_workaround_ :: (),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-asn>
                                         RateBasedStatementCustomKeyProperty -> Maybe Object
aSN :: (Prelude.Maybe JSON.Object),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-cookie>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
cookie :: (Prelude.Maybe RateLimitCookieProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-forwardedip>
                                         RateBasedStatementCustomKeyProperty -> Maybe Object
forwardedIP :: (Prelude.Maybe JSON.Object),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-httpmethod>
                                         RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: (Prelude.Maybe JSON.Object),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-header>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
header :: (Prelude.Maybe RateLimitHeaderProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-ip>
                                         RateBasedStatementCustomKeyProperty -> Maybe Object
iP :: (Prelude.Maybe JSON.Object),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-ja3fingerprint>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA3Fingerprint :: (Prelude.Maybe RateLimitJA3FingerprintProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-ja4fingerprint>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
jA4Fingerprint :: (Prelude.Maybe RateLimitJA4FingerprintProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-labelnamespace>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
labelNamespace :: (Prelude.Maybe RateLimitLabelNamespaceProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-queryargument>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryArgument :: (Prelude.Maybe RateLimitQueryArgumentProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-querystring>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
queryString :: (Prelude.Maybe RateLimitQueryStringProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementcustomkey.html#cfn-wafv2-rulegroup-ratebasedstatementcustomkey-uripath>
                                         RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
uriPath :: (Prelude.Maybe RateLimitUriPathProperty)}
  deriving stock (RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty -> Bool
(RateBasedStatementCustomKeyProperty
 -> RateBasedStatementCustomKeyProperty -> Bool)
-> (RateBasedStatementCustomKeyProperty
    -> RateBasedStatementCustomKeyProperty -> Bool)
-> Eq RateBasedStatementCustomKeyProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty -> Bool
== :: RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty -> Bool
$c/= :: RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty -> Bool
/= :: RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty -> Bool
Prelude.Eq, Int -> RateBasedStatementCustomKeyProperty -> ShowS
[RateBasedStatementCustomKeyProperty] -> ShowS
RateBasedStatementCustomKeyProperty -> String
(Int -> RateBasedStatementCustomKeyProperty -> ShowS)
-> (RateBasedStatementCustomKeyProperty -> String)
-> ([RateBasedStatementCustomKeyProperty] -> ShowS)
-> Show RateBasedStatementCustomKeyProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RateBasedStatementCustomKeyProperty -> ShowS
showsPrec :: Int -> RateBasedStatementCustomKeyProperty -> ShowS
$cshow :: RateBasedStatementCustomKeyProperty -> String
show :: RateBasedStatementCustomKeyProperty -> String
$cshowList :: [RateBasedStatementCustomKeyProperty] -> ShowS
showList :: [RateBasedStatementCustomKeyProperty] -> ShowS
Prelude.Show)
mkRateBasedStatementCustomKeyProperty ::
  RateBasedStatementCustomKeyProperty
mkRateBasedStatementCustomKeyProperty :: RateBasedStatementCustomKeyProperty
mkRateBasedStatementCustomKeyProperty
  = RateBasedStatementCustomKeyProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), aSN :: Maybe Object
aSN = Maybe Object
forall a. Maybe a
Prelude.Nothing,
       cookie :: Maybe RateLimitCookieProperty
cookie = Maybe RateLimitCookieProperty
forall a. Maybe a
Prelude.Nothing, forwardedIP :: Maybe Object
forwardedIP = Maybe Object
forall a. Maybe a
Prelude.Nothing,
       hTTPMethod :: Maybe Object
hTTPMethod = Maybe Object
forall a. Maybe a
Prelude.Nothing, header :: Maybe RateLimitHeaderProperty
header = Maybe RateLimitHeaderProperty
forall a. Maybe a
Prelude.Nothing,
       iP :: Maybe Object
iP = Maybe Object
forall a. Maybe a
Prelude.Nothing, jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA3Fingerprint = Maybe RateLimitJA3FingerprintProperty
forall a. Maybe a
Prelude.Nothing,
       jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
jA4Fingerprint = Maybe RateLimitJA4FingerprintProperty
forall a. Maybe a
Prelude.Nothing, labelNamespace :: Maybe RateLimitLabelNamespaceProperty
labelNamespace = Maybe RateLimitLabelNamespaceProperty
forall a. Maybe a
Prelude.Nothing,
       queryArgument :: Maybe RateLimitQueryArgumentProperty
queryArgument = Maybe RateLimitQueryArgumentProperty
forall a. Maybe a
Prelude.Nothing, queryString :: Maybe RateLimitQueryStringProperty
queryString = Maybe RateLimitQueryStringProperty
forall a. Maybe a
Prelude.Nothing,
       uriPath :: Maybe RateLimitUriPathProperty
uriPath = Maybe RateLimitUriPathProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties RateBasedStatementCustomKeyProperty where
  toResourceProperties :: RateBasedStatementCustomKeyProperty -> ResourceProperties
toResourceProperties RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::WAFv2::RuleGroup.RateBasedStatementCustomKey",
         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 -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ASN" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
aSN,
                            Key -> RateLimitCookieProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Cookie" (RateLimitCookieProperty -> (Key, Value))
-> Maybe RateLimitCookieProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitCookieProperty
cookie,
                            Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ForwardedIP" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
forwardedIP,
                            Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HTTPMethod" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
hTTPMethod,
                            Key -> RateLimitHeaderProperty -> (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" (RateLimitHeaderProperty -> (Key, Value))
-> Maybe RateLimitHeaderProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitHeaderProperty
header,
                            Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IP" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
iP,
                            Key -> RateLimitJA3FingerprintProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JA3Fingerprint" (RateLimitJA3FingerprintProperty -> (Key, Value))
-> Maybe RateLimitJA3FingerprintProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitJA3FingerprintProperty
jA3Fingerprint,
                            Key -> RateLimitJA4FingerprintProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JA4Fingerprint" (RateLimitJA4FingerprintProperty -> (Key, Value))
-> Maybe RateLimitJA4FingerprintProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitJA4FingerprintProperty
jA4Fingerprint,
                            Key -> RateLimitLabelNamespaceProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LabelNamespace" (RateLimitLabelNamespaceProperty -> (Key, Value))
-> Maybe RateLimitLabelNamespaceProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitLabelNamespaceProperty
labelNamespace,
                            Key -> RateLimitQueryArgumentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryArgument" (RateLimitQueryArgumentProperty -> (Key, Value))
-> Maybe RateLimitQueryArgumentProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitQueryArgumentProperty
queryArgument,
                            Key -> RateLimitQueryStringProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryString" (RateLimitQueryStringProperty -> (Key, Value))
-> Maybe RateLimitQueryStringProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitQueryStringProperty
queryString,
                            Key -> RateLimitUriPathProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UriPath" (RateLimitUriPathProperty -> (Key, Value))
-> Maybe RateLimitUriPathProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitUriPathProperty
uriPath])}
instance JSON.ToJSON RateBasedStatementCustomKeyProperty where
  toJSON :: RateBasedStatementCustomKeyProperty -> Value
toJSON RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = [(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 -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ASN" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
aSN,
               Key -> RateLimitCookieProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Cookie" (RateLimitCookieProperty -> (Key, Value))
-> Maybe RateLimitCookieProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitCookieProperty
cookie,
               Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ForwardedIP" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
forwardedIP,
               Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HTTPMethod" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
hTTPMethod,
               Key -> RateLimitHeaderProperty -> (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" (RateLimitHeaderProperty -> (Key, Value))
-> Maybe RateLimitHeaderProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitHeaderProperty
header,
               Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IP" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
iP,
               Key -> RateLimitJA3FingerprintProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JA3Fingerprint" (RateLimitJA3FingerprintProperty -> (Key, Value))
-> Maybe RateLimitJA3FingerprintProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitJA3FingerprintProperty
jA3Fingerprint,
               Key -> RateLimitJA4FingerprintProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JA4Fingerprint" (RateLimitJA4FingerprintProperty -> (Key, Value))
-> Maybe RateLimitJA4FingerprintProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitJA4FingerprintProperty
jA4Fingerprint,
               Key -> RateLimitLabelNamespaceProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LabelNamespace" (RateLimitLabelNamespaceProperty -> (Key, Value))
-> Maybe RateLimitLabelNamespaceProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitLabelNamespaceProperty
labelNamespace,
               Key -> RateLimitQueryArgumentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryArgument" (RateLimitQueryArgumentProperty -> (Key, Value))
-> Maybe RateLimitQueryArgumentProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitQueryArgumentProperty
queryArgument,
               Key -> RateLimitQueryStringProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryString" (RateLimitQueryStringProperty -> (Key, Value))
-> Maybe RateLimitQueryStringProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitQueryStringProperty
queryString,
               Key -> RateLimitUriPathProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UriPath" (RateLimitUriPathProperty -> (Key, Value))
-> Maybe RateLimitUriPathProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RateLimitUriPathProperty
uriPath]))
instance Property "ASN" RateBasedStatementCustomKeyProperty where
  type PropertyType "ASN" RateBasedStatementCustomKeyProperty = JSON.Object
  set :: PropertyType "ASN" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "ASN" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {aSN :: Maybe Object
aSN = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "ASN" RateBasedStatementCustomKeyProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "Cookie" RateBasedStatementCustomKeyProperty where
  type PropertyType "Cookie" RateBasedStatementCustomKeyProperty = RateLimitCookieProperty
  set :: PropertyType "Cookie" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "Cookie" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {cookie :: Maybe RateLimitCookieProperty
cookie = RateLimitCookieProperty -> Maybe RateLimitCookieProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Cookie" RateBasedStatementCustomKeyProperty
RateLimitCookieProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "ForwardedIP" RateBasedStatementCustomKeyProperty where
  type PropertyType "ForwardedIP" RateBasedStatementCustomKeyProperty = JSON.Object
  set :: PropertyType "ForwardedIP" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "ForwardedIP" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {forwardedIP :: Maybe Object
forwardedIP = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "ForwardedIP" RateBasedStatementCustomKeyProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "HTTPMethod" RateBasedStatementCustomKeyProperty where
  type PropertyType "HTTPMethod" RateBasedStatementCustomKeyProperty = JSON.Object
  set :: PropertyType "HTTPMethod" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "HTTPMethod" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {hTTPMethod :: Maybe Object
hTTPMethod = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "HTTPMethod" RateBasedStatementCustomKeyProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "Header" RateBasedStatementCustomKeyProperty where
  type PropertyType "Header" RateBasedStatementCustomKeyProperty = RateLimitHeaderProperty
  set :: PropertyType "Header" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "Header" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {header :: Maybe RateLimitHeaderProperty
header = RateLimitHeaderProperty -> Maybe RateLimitHeaderProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Header" RateBasedStatementCustomKeyProperty
RateLimitHeaderProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "IP" RateBasedStatementCustomKeyProperty where
  type PropertyType "IP" RateBasedStatementCustomKeyProperty = JSON.Object
  set :: PropertyType "IP" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "IP" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {iP :: Maybe Object
iP = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "IP" RateBasedStatementCustomKeyProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "JA3Fingerprint" RateBasedStatementCustomKeyProperty where
  type PropertyType "JA3Fingerprint" RateBasedStatementCustomKeyProperty = RateLimitJA3FingerprintProperty
  set :: PropertyType "JA3Fingerprint" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "JA3Fingerprint" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA3Fingerprint = RateLimitJA3FingerprintProperty
-> Maybe RateLimitJA3FingerprintProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "JA3Fingerprint" RateBasedStatementCustomKeyProperty
RateLimitJA3FingerprintProperty
newValue, Maybe Object
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "JA4Fingerprint" RateBasedStatementCustomKeyProperty where
  type PropertyType "JA4Fingerprint" RateBasedStatementCustomKeyProperty = RateLimitJA4FingerprintProperty
  set :: PropertyType "JA4Fingerprint" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "JA4Fingerprint" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
jA4Fingerprint = RateLimitJA4FingerprintProperty
-> Maybe RateLimitJA4FingerprintProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "JA4Fingerprint" RateBasedStatementCustomKeyProperty
RateLimitJA4FingerprintProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "LabelNamespace" RateBasedStatementCustomKeyProperty where
  type PropertyType "LabelNamespace" RateBasedStatementCustomKeyProperty = RateLimitLabelNamespaceProperty
  set :: PropertyType "LabelNamespace" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "LabelNamespace" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {labelNamespace :: Maybe RateLimitLabelNamespaceProperty
labelNamespace = RateLimitLabelNamespaceProperty
-> Maybe RateLimitLabelNamespaceProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LabelNamespace" RateBasedStatementCustomKeyProperty
RateLimitLabelNamespaceProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "QueryArgument" RateBasedStatementCustomKeyProperty where
  type PropertyType "QueryArgument" RateBasedStatementCustomKeyProperty = RateLimitQueryArgumentProperty
  set :: PropertyType "QueryArgument" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "QueryArgument" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {queryArgument :: Maybe RateLimitQueryArgumentProperty
queryArgument = RateLimitQueryArgumentProperty
-> Maybe RateLimitQueryArgumentProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "QueryArgument" RateBasedStatementCustomKeyProperty
RateLimitQueryArgumentProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "QueryString" RateBasedStatementCustomKeyProperty where
  type PropertyType "QueryString" RateBasedStatementCustomKeyProperty = RateLimitQueryStringProperty
  set :: PropertyType "QueryString" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "QueryString" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {queryString :: Maybe RateLimitQueryStringProperty
queryString = RateLimitQueryStringProperty -> Maybe RateLimitQueryStringProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "QueryString" RateBasedStatementCustomKeyProperty
RateLimitQueryStringProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
uriPath :: Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
instance Property "UriPath" RateBasedStatementCustomKeyProperty where
  type PropertyType "UriPath" RateBasedStatementCustomKeyProperty = RateLimitUriPathProperty
  set :: PropertyType "UriPath" RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
-> RateBasedStatementCustomKeyProperty
set PropertyType "UriPath" RateBasedStatementCustomKeyProperty
newValue RateBasedStatementCustomKeyProperty {Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitUriPathProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: RateBasedStatementCustomKeyProperty -> ()
aSN :: RateBasedStatementCustomKeyProperty -> Maybe Object
cookie :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitCookieProperty
forwardedIP :: RateBasedStatementCustomKeyProperty -> Maybe Object
hTTPMethod :: RateBasedStatementCustomKeyProperty -> Maybe Object
header :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitHeaderProperty
iP :: RateBasedStatementCustomKeyProperty -> Maybe Object
jA3Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitJA4FingerprintProperty
labelNamespace :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitLabelNamespaceProperty
queryArgument :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryArgumentProperty
queryString :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitQueryStringProperty
uriPath :: RateBasedStatementCustomKeyProperty
-> Maybe RateLimitUriPathProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
uriPath :: Maybe RateLimitUriPathProperty
..}
    = RateBasedStatementCustomKeyProperty
        {uriPath :: Maybe RateLimitUriPathProperty
uriPath = RateLimitUriPathProperty -> Maybe RateLimitUriPathProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "UriPath" RateBasedStatementCustomKeyProperty
RateLimitUriPathProperty
newValue, Maybe Object
Maybe RateLimitJA3FingerprintProperty
Maybe RateLimitJA4FingerprintProperty
Maybe RateLimitLabelNamespaceProperty
Maybe RateLimitQueryStringProperty
Maybe RateLimitQueryArgumentProperty
Maybe RateLimitHeaderProperty
Maybe RateLimitCookieProperty
()
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
haddock_workaround_ :: ()
aSN :: Maybe Object
cookie :: Maybe RateLimitCookieProperty
forwardedIP :: Maybe Object
hTTPMethod :: Maybe Object
header :: Maybe RateLimitHeaderProperty
iP :: Maybe Object
jA3Fingerprint :: Maybe RateLimitJA3FingerprintProperty
jA4Fingerprint :: Maybe RateLimitJA4FingerprintProperty
labelNamespace :: Maybe RateLimitLabelNamespaceProperty
queryArgument :: Maybe RateLimitQueryArgumentProperty
queryString :: Maybe RateLimitQueryStringProperty
..}