amazonka-waf-regional 1.5.0 → 1.6.0

raw patch · 104 files changed

+3156/−849 lines, 104 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-waf-regional.cabal +15/−5
• fixture/CreateRuleGroup.yaml +10/−0
• fixture/CreateRuleGroupResponse.proto +0/−0
• fixture/DeletePermissionPolicy.yaml +10/−0
• fixture/DeletePermissionPolicyResponse.proto +0/−0
• fixture/DeleteRuleGroup.yaml +10/−0
• fixture/DeleteRuleGroupResponse.proto +0/−0
• fixture/GetPermissionPolicy.yaml +10/−0
• fixture/GetPermissionPolicyResponse.proto +0/−0
• fixture/GetRuleGroup.yaml +10/−0
• fixture/GetRuleGroupResponse.proto +0/−0
• fixture/ListActivatedRulesInRuleGroup.yaml +10/−0
• fixture/ListActivatedRulesInRuleGroupResponse.proto +0/−0
• fixture/ListRuleGroups.yaml +10/−0
• fixture/ListRuleGroupsResponse.proto +0/−0
• fixture/ListSubscribedRuleGroups.yaml +10/−0
• fixture/ListSubscribedRuleGroupsResponse.proto +0/−0
• fixture/PutPermissionPolicy.yaml +10/−0
• fixture/PutPermissionPolicyResponse.proto +0/−0
• fixture/UpdateRuleGroup.yaml +10/−0
• fixture/UpdateRuleGroupResponse.proto +0/−0
• gen/Network/AWS/WAFRegional.hs +84/−2
• gen/Network/AWS/WAFRegional/AssociateWebACL.hs +4/−4
• gen/Network/AWS/WAFRegional/CreateByteMatchSet.hs +10/−10
• gen/Network/AWS/WAFRegional/CreateGeoMatchSet.hs +10/−10
• gen/Network/AWS/WAFRegional/CreateIPSet.hs +10/−10
• gen/Network/AWS/WAFRegional/CreateRateBasedRule.hs +19/−19
• gen/Network/AWS/WAFRegional/CreateRegexMatchSet.hs +10/−10
• gen/Network/AWS/WAFRegional/CreateRegexPatternSet.hs +10/−10
• gen/Network/AWS/WAFRegional/CreateRule.hs +15/−15
• gen/Network/AWS/WAFRegional/CreateRuleGroup.hs +182/−0
• gen/Network/AWS/WAFRegional/CreateSizeConstraintSet.hs +11/−11
• gen/Network/AWS/WAFRegional/CreateSqlInjectionMatchSet.hs +11/−11
• gen/Network/AWS/WAFRegional/CreateWebACL.hs +17/−17
• gen/Network/AWS/WAFRegional/CreateXSSMatchSet.hs +10/−10
• gen/Network/AWS/WAFRegional/DeleteByteMatchSet.hs +7/−7
• gen/Network/AWS/WAFRegional/DeleteGeoMatchSet.hs +7/−7
• gen/Network/AWS/WAFRegional/DeleteIPSet.hs +6/−6
• gen/Network/AWS/WAFRegional/DeletePermissionPolicy.hs +127/−0
• gen/Network/AWS/WAFRegional/DeleteRateBasedRule.hs +7/−7
• gen/Network/AWS/WAFRegional/DeleteRegexMatchSet.hs +7/−7
• gen/Network/AWS/WAFRegional/DeleteRegexPatternSet.hs +9/−9
• gen/Network/AWS/WAFRegional/DeleteRule.hs +6/−6
• gen/Network/AWS/WAFRegional/DeleteRuleGroup.hs +157/−0
• gen/Network/AWS/WAFRegional/DeleteSizeConstraintSet.hs +9/−9
• gen/Network/AWS/WAFRegional/DeleteSqlInjectionMatchSet.hs +9/−9
• gen/Network/AWS/WAFRegional/DeleteWebACL.hs +6/−6
• gen/Network/AWS/WAFRegional/DeleteXSSMatchSet.hs +7/−7
• gen/Network/AWS/WAFRegional/DisassociateWebACL.hs +3/−3
• gen/Network/AWS/WAFRegional/GetByteMatchSet.hs +5/−5
• gen/Network/AWS/WAFRegional/GetChangeToken.hs +4/−4
• gen/Network/AWS/WAFRegional/GetChangeTokenStatus.hs +7/−5
• gen/Network/AWS/WAFRegional/GetGeoMatchSet.hs +5/−5
• gen/Network/AWS/WAFRegional/GetIPSet.hs +5/−5
• gen/Network/AWS/WAFRegional/GetPermissionPolicy.hs +134/−0
• gen/Network/AWS/WAFRegional/GetRateBasedRule.hs +5/−5
• gen/Network/AWS/WAFRegional/GetRateBasedRuleManagedKeys.hs +11/−11
• gen/Network/AWS/WAFRegional/GetRegexMatchSet.hs +5/−5
• gen/Network/AWS/WAFRegional/GetRegexPatternSet.hs +5/−5
• gen/Network/AWS/WAFRegional/GetRule.hs +4/−4
• gen/Network/AWS/WAFRegional/GetRuleGroup.hs +134/−0
• gen/Network/AWS/WAFRegional/GetSampledRequests.hs +21/−21
• gen/Network/AWS/WAFRegional/GetSizeConstraintSet.hs +7/−5
• gen/Network/AWS/WAFRegional/GetSqlInjectionMatchSet.hs +8/−8
• gen/Network/AWS/WAFRegional/GetWebACL.hs +5/−5
• gen/Network/AWS/WAFRegional/GetWebACLForResource.hs +5/−5
• gen/Network/AWS/WAFRegional/GetXSSMatchSet.hs +5/−5
• gen/Network/AWS/WAFRegional/ListActivatedRulesInRuleGroup.hs +172/−0
• gen/Network/AWS/WAFRegional/ListByteMatchSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListGeoMatchSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListIPSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListRateBasedRules.hs +10/−10
• gen/Network/AWS/WAFRegional/ListRegexMatchSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListRegexPatternSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListResourcesForWebACL.hs +5/−5
• gen/Network/AWS/WAFRegional/ListRuleGroups.hs +154/−0
• gen/Network/AWS/WAFRegional/ListRules.hs +10/−10
• gen/Network/AWS/WAFRegional/ListSizeConstraintSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListSqlInjectionMatchSets.hs +10/−10
• gen/Network/AWS/WAFRegional/ListSubscribedRuleGroups.hs +157/−0
• gen/Network/AWS/WAFRegional/ListWebACLs.hs +10/−10
• gen/Network/AWS/WAFRegional/ListXSSMatchSets.hs +10/−10
• gen/Network/AWS/WAFRegional/PutPermissionPolicy.hs +159/−0
• gen/Network/AWS/WAFRegional/Types.hs +93/−17
• gen/Network/AWS/WAFRegional/Types/Product.hs +515/−247
• gen/Network/AWS/WAFRegional/Types/Sum.hs +36/−3
• gen/Network/AWS/WAFRegional/UpdateByteMatchSet.hs +11/−11
• gen/Network/AWS/WAFRegional/UpdateGeoMatchSet.hs +11/−11
• gen/Network/AWS/WAFRegional/UpdateIPSet.hs +11/−11
• gen/Network/AWS/WAFRegional/UpdateRateBasedRule.hs +13/−13
• gen/Network/AWS/WAFRegional/UpdateRegexMatchSet.hs +13/−13
• gen/Network/AWS/WAFRegional/UpdateRegexPatternSet.hs +14/−14
• gen/Network/AWS/WAFRegional/UpdateRule.hs +8/−8
• gen/Network/AWS/WAFRegional/UpdateRuleGroup.hs +178/−0
• gen/Network/AWS/WAFRegional/UpdateSizeConstraintSet.hs +11/−11
• gen/Network/AWS/WAFRegional/UpdateSqlInjectionMatchSet.hs +11/−11
• gen/Network/AWS/WAFRegional/UpdateWebACL.hs +15/−15
• gen/Network/AWS/WAFRegional/UpdateXSSMatchSet.hs +11/−11
• gen/Network/AWS/WAFRegional/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/WAFRegional.hs +183/−3
• test/Test/AWS/WAFRegional.hs +1/−1
• test/Test/AWS/WAFRegional/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-waf-regional-version:               1.5.0+version:               1.6.0 synopsis:              Amazon WAF Regional SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -53,6 +53,7 @@         , Network.AWS.WAFRegional.CreateRegexMatchSet         , Network.AWS.WAFRegional.CreateRegexPatternSet         , Network.AWS.WAFRegional.CreateRule+        , Network.AWS.WAFRegional.CreateRuleGroup         , Network.AWS.WAFRegional.CreateSizeConstraintSet         , Network.AWS.WAFRegional.CreateSqlInjectionMatchSet         , Network.AWS.WAFRegional.CreateWebACL@@ -60,10 +61,12 @@         , Network.AWS.WAFRegional.DeleteByteMatchSet         , Network.AWS.WAFRegional.DeleteGeoMatchSet         , Network.AWS.WAFRegional.DeleteIPSet+        , Network.AWS.WAFRegional.DeletePermissionPolicy         , Network.AWS.WAFRegional.DeleteRateBasedRule         , Network.AWS.WAFRegional.DeleteRegexMatchSet         , Network.AWS.WAFRegional.DeleteRegexPatternSet         , Network.AWS.WAFRegional.DeleteRule+        , Network.AWS.WAFRegional.DeleteRuleGroup         , Network.AWS.WAFRegional.DeleteSizeConstraintSet         , Network.AWS.WAFRegional.DeleteSqlInjectionMatchSet         , Network.AWS.WAFRegional.DeleteWebACL@@ -74,17 +77,20 @@         , Network.AWS.WAFRegional.GetChangeTokenStatus         , Network.AWS.WAFRegional.GetGeoMatchSet         , Network.AWS.WAFRegional.GetIPSet+        , Network.AWS.WAFRegional.GetPermissionPolicy         , Network.AWS.WAFRegional.GetRateBasedRule         , Network.AWS.WAFRegional.GetRateBasedRuleManagedKeys         , Network.AWS.WAFRegional.GetRegexMatchSet         , Network.AWS.WAFRegional.GetRegexPatternSet         , Network.AWS.WAFRegional.GetRule+        , Network.AWS.WAFRegional.GetRuleGroup         , Network.AWS.WAFRegional.GetSampledRequests         , Network.AWS.WAFRegional.GetSizeConstraintSet         , Network.AWS.WAFRegional.GetSqlInjectionMatchSet         , Network.AWS.WAFRegional.GetWebACL         , Network.AWS.WAFRegional.GetWebACLForResource         , Network.AWS.WAFRegional.GetXSSMatchSet+        , Network.AWS.WAFRegional.ListActivatedRulesInRuleGroup         , Network.AWS.WAFRegional.ListByteMatchSets         , Network.AWS.WAFRegional.ListGeoMatchSets         , Network.AWS.WAFRegional.ListIPSets@@ -92,11 +98,14 @@         , Network.AWS.WAFRegional.ListRegexMatchSets         , Network.AWS.WAFRegional.ListRegexPatternSets         , Network.AWS.WAFRegional.ListResourcesForWebACL+        , Network.AWS.WAFRegional.ListRuleGroups         , Network.AWS.WAFRegional.ListRules         , Network.AWS.WAFRegional.ListSizeConstraintSets         , Network.AWS.WAFRegional.ListSqlInjectionMatchSets+        , Network.AWS.WAFRegional.ListSubscribedRuleGroups         , Network.AWS.WAFRegional.ListWebACLs         , Network.AWS.WAFRegional.ListXSSMatchSets+        , Network.AWS.WAFRegional.PutPermissionPolicy         , Network.AWS.WAFRegional.Types         , Network.AWS.WAFRegional.UpdateByteMatchSet         , Network.AWS.WAFRegional.UpdateGeoMatchSet@@ -105,6 +114,7 @@         , Network.AWS.WAFRegional.UpdateRegexMatchSet         , Network.AWS.WAFRegional.UpdateRegexPatternSet         , Network.AWS.WAFRegional.UpdateRule+        , Network.AWS.WAFRegional.UpdateRuleGroup         , Network.AWS.WAFRegional.UpdateSizeConstraintSet         , Network.AWS.WAFRegional.UpdateSqlInjectionMatchSet         , Network.AWS.WAFRegional.UpdateWebACL@@ -116,7 +126,7 @@         , Network.AWS.WAFRegional.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-waf-regional-test@@ -136,8 +146,8 @@         , Test.AWS.WAFRegional.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-waf-regional         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf-regional/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf-regional.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.WAFRegional--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -25,6 +25,9 @@     -- ** WAFInvalidAccountException     , _WAFInvalidAccountException +    -- ** WAFSubscriptionNotFoundException+    , _WAFSubscriptionNotFoundException+     -- ** WAFReferencedItemException     , _WAFReferencedItemException @@ -43,6 +46,9 @@     -- ** WAFLimitsExceededException     , _WAFLimitsExceededException +    -- ** WAFInvalidPermissionPolicyException+    , _WAFInvalidPermissionPolicyException+     -- ** WAFStaleDataException     , _WAFStaleDataException @@ -67,6 +73,9 @@     -- * Operations     -- $operations +    -- ** ListActivatedRulesInRuleGroup+    , module Network.AWS.WAFRegional.ListActivatedRulesInRuleGroup+     -- ** ListRateBasedRules     , module Network.AWS.WAFRegional.ListRateBasedRules @@ -88,6 +97,9 @@     -- ** CreateIPSet     , module Network.AWS.WAFRegional.CreateIPSet +    -- ** GetRuleGroup+    , module Network.AWS.WAFRegional.GetRuleGroup+     -- ** GetChangeTokenStatus     , module Network.AWS.WAFRegional.GetChangeTokenStatus @@ -118,6 +130,9 @@     -- ** ListGeoMatchSets     , module Network.AWS.WAFRegional.ListGeoMatchSets +    -- ** CreateRuleGroup+    , module Network.AWS.WAFRegional.CreateRuleGroup+     -- ** DeleteRegexMatchSet     , module Network.AWS.WAFRegional.DeleteRegexMatchSet @@ -166,6 +181,9 @@     -- ** DisassociateWebACL     , module Network.AWS.WAFRegional.DisassociateWebACL +    -- ** ListSubscribedRuleGroups+    , module Network.AWS.WAFRegional.ListSubscribedRuleGroups+     -- ** CreateSqlInjectionMatchSet     , module Network.AWS.WAFRegional.CreateSqlInjectionMatchSet @@ -181,12 +199,18 @@     -- ** DeleteByteMatchSet     , module Network.AWS.WAFRegional.DeleteByteMatchSet +    -- ** PutPermissionPolicy+    , module Network.AWS.WAFRegional.PutPermissionPolicy+     -- ** GetRateBasedRuleManagedKeys     , module Network.AWS.WAFRegional.GetRateBasedRuleManagedKeys      -- ** AssociateWebACL     , module Network.AWS.WAFRegional.AssociateWebACL +    -- ** DeletePermissionPolicy+    , module Network.AWS.WAFRegional.DeletePermissionPolicy+     -- ** GetRegexMatchSet     , module Network.AWS.WAFRegional.GetRegexMatchSet @@ -214,6 +238,18 @@     -- ** GetByteMatchSet     , module Network.AWS.WAFRegional.GetByteMatchSet +    -- ** GetPermissionPolicy+    , module Network.AWS.WAFRegional.GetPermissionPolicy++    -- ** ListRuleGroups+    , module Network.AWS.WAFRegional.ListRuleGroups++    -- ** DeleteRuleGroup+    , module Network.AWS.WAFRegional.DeleteRuleGroup++    -- ** UpdateRuleGroup+    , module Network.AWS.WAFRegional.UpdateRuleGroup+     -- ** CreateRegexMatchSet     , module Network.AWS.WAFRegional.CreateRegexMatchSet @@ -294,16 +330,20 @@     -- ** WafActionType     , WafActionType (..) +    -- ** WafOverrideActionType+    , WafOverrideActionType (..)+     -- ** WafRuleType     , WafRuleType (..)      -- ** ActivatedRule     , ActivatedRule     , activatedRule+    , arOverrideAction+    , arAction     , arType     , arPriority     , arRuleId-    , arAction      -- ** ByteMatchSet     , ByteMatchSet@@ -474,6 +514,25 @@     , rRuleId     , rPredicates +    -- ** RuleGroup+    , RuleGroup+    , ruleGroup+    , rgMetricName+    , rgName+    , rgRuleGroupId++    -- ** RuleGroupSummary+    , RuleGroupSummary+    , ruleGroupSummary+    , rgsRuleGroupId+    , rgsName++    -- ** RuleGroupUpdate+    , RuleGroupUpdate+    , ruleGroupUpdate+    , rguAction+    , rguActivatedRule+     -- ** RuleSummary     , RuleSummary     , ruleSummary@@ -489,6 +548,7 @@     -- ** SampledHTTPRequest     , SampledHTTPRequest     , sampledHTTPRequest+    , shttprRuleWithinRuleGroup     , shttprAction     , shttprTimestamp     , shttprRequest@@ -546,6 +606,13 @@     , simtFieldToMatch     , simtTextTransformation +    -- ** SubscribedRuleGroupSummary+    , SubscribedRuleGroupSummary+    , subscribedRuleGroupSummary+    , srgsRuleGroupId+    , srgsName+    , srgsMetricName+     -- ** TimeWindow     , TimeWindow     , timeWindow@@ -557,6 +624,11 @@     , wafAction     , waType +    -- ** WafOverrideAction+    , WafOverrideAction+    , wafOverrideAction+    , woaType+     -- ** WebACL     , WebACL     , webACL@@ -612,6 +684,7 @@ import Network.AWS.WAFRegional.CreateRegexMatchSet import Network.AWS.WAFRegional.CreateRegexPatternSet import Network.AWS.WAFRegional.CreateRule+import Network.AWS.WAFRegional.CreateRuleGroup import Network.AWS.WAFRegional.CreateSizeConstraintSet import Network.AWS.WAFRegional.CreateSqlInjectionMatchSet import Network.AWS.WAFRegional.CreateWebACL@@ -619,10 +692,12 @@ import Network.AWS.WAFRegional.DeleteByteMatchSet import Network.AWS.WAFRegional.DeleteGeoMatchSet import Network.AWS.WAFRegional.DeleteIPSet+import Network.AWS.WAFRegional.DeletePermissionPolicy import Network.AWS.WAFRegional.DeleteRateBasedRule import Network.AWS.WAFRegional.DeleteRegexMatchSet import Network.AWS.WAFRegional.DeleteRegexPatternSet import Network.AWS.WAFRegional.DeleteRule+import Network.AWS.WAFRegional.DeleteRuleGroup import Network.AWS.WAFRegional.DeleteSizeConstraintSet import Network.AWS.WAFRegional.DeleteSqlInjectionMatchSet import Network.AWS.WAFRegional.DeleteWebACL@@ -633,17 +708,20 @@ import Network.AWS.WAFRegional.GetChangeTokenStatus import Network.AWS.WAFRegional.GetGeoMatchSet import Network.AWS.WAFRegional.GetIPSet+import Network.AWS.WAFRegional.GetPermissionPolicy import Network.AWS.WAFRegional.GetRateBasedRule import Network.AWS.WAFRegional.GetRateBasedRuleManagedKeys import Network.AWS.WAFRegional.GetRegexMatchSet import Network.AWS.WAFRegional.GetRegexPatternSet import Network.AWS.WAFRegional.GetRule+import Network.AWS.WAFRegional.GetRuleGroup import Network.AWS.WAFRegional.GetSampledRequests import Network.AWS.WAFRegional.GetSizeConstraintSet import Network.AWS.WAFRegional.GetSqlInjectionMatchSet import Network.AWS.WAFRegional.GetWebACL import Network.AWS.WAFRegional.GetWebACLForResource import Network.AWS.WAFRegional.GetXSSMatchSet+import Network.AWS.WAFRegional.ListActivatedRulesInRuleGroup import Network.AWS.WAFRegional.ListByteMatchSets import Network.AWS.WAFRegional.ListGeoMatchSets import Network.AWS.WAFRegional.ListIPSets@@ -651,11 +729,14 @@ import Network.AWS.WAFRegional.ListRegexMatchSets import Network.AWS.WAFRegional.ListRegexPatternSets import Network.AWS.WAFRegional.ListResourcesForWebACL+import Network.AWS.WAFRegional.ListRuleGroups import Network.AWS.WAFRegional.ListRules import Network.AWS.WAFRegional.ListSizeConstraintSets import Network.AWS.WAFRegional.ListSqlInjectionMatchSets+import Network.AWS.WAFRegional.ListSubscribedRuleGroups import Network.AWS.WAFRegional.ListWebACLs import Network.AWS.WAFRegional.ListXSSMatchSets+import Network.AWS.WAFRegional.PutPermissionPolicy import Network.AWS.WAFRegional.Types import Network.AWS.WAFRegional.UpdateByteMatchSet import Network.AWS.WAFRegional.UpdateGeoMatchSet@@ -664,6 +745,7 @@ import Network.AWS.WAFRegional.UpdateRegexMatchSet import Network.AWS.WAFRegional.UpdateRegexPatternSet import Network.AWS.WAFRegional.UpdateRule+import Network.AWS.WAFRegional.UpdateRuleGroup import Network.AWS.WAFRegional.UpdateSizeConstraintSet import Network.AWS.WAFRegional.UpdateSqlInjectionMatchSet import Network.AWS.WAFRegional.UpdateWebACL

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.AssociateWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | A unique identifier (ID) for the web ACL. awaWebACLId :: Lens' AssociateWebACL Text-awaWebACLId = lens _awaWebACLId (\ s a -> s{_awaWebACLId = a});+awaWebACLId = lens _awaWebACLId (\ s a -> s{_awaWebACLId = a})  -- | The ARN (Amazon Resource Name) of the resource to be protected. awaResourceARN :: Lens' AssociateWebACL Text-awaResourceARN = lens _awaResourceARN (\ s a -> s{_awaResourceARN = a});+awaResourceARN = lens _awaResourceARN (\ s a -> s{_awaResourceARN = a})  instance AWSRequest AssociateWebACL where         type Rs AssociateWebACL = AssociateWebACLResponse@@ -129,6 +129,6 @@  -- | -- | The response status code. awarsResponseStatus :: Lens' AssociateWebACLResponse Int-awarsResponseStatus = lens _awarsResponseStatus (\ s a -> s{_awarsResponseStatus = a});+awarsResponseStatus = lens _awarsResponseStatus (\ s a -> s{_awarsResponseStatus = a})  instance NFData AssociateWebACLResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateByteMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,11 +84,11 @@  -- | A friendly name or description of the 'ByteMatchSet' . You can't change @Name@ after you create a @ByteMatchSet@ . cbmsName :: Lens' CreateByteMatchSet Text-cbmsName = lens _cbmsName (\ s a -> s{_cbmsName = a});+cbmsName = lens _cbmsName (\ s a -> s{_cbmsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . cbmsChangeToken :: Lens' CreateByteMatchSet Text-cbmsChangeToken = lens _cbmsChangeToken (\ s a -> s{_cbmsChangeToken = a});+cbmsChangeToken = lens _cbmsChangeToken (\ s a -> s{_cbmsChangeToken = a})  instance AWSRequest CreateByteMatchSet where         type Rs CreateByteMatchSet =@@ -150,22 +150,22 @@     -> CreateByteMatchSetResponse createByteMatchSetResponse pResponseStatus_ =   CreateByteMatchSetResponse'-  { _cbmsrsByteMatchSet = Nothing-  , _cbmsrsChangeToken = Nothing-  , _cbmsrsResponseStatus = pResponseStatus_-  }+    { _cbmsrsByteMatchSet = Nothing+    , _cbmsrsChangeToken = Nothing+    , _cbmsrsResponseStatus = pResponseStatus_+    }   -- | A 'ByteMatchSet' that contains no @ByteMatchTuple@ objects. cbmsrsByteMatchSet :: Lens' CreateByteMatchSetResponse (Maybe ByteMatchSet)-cbmsrsByteMatchSet = lens _cbmsrsByteMatchSet (\ s a -> s{_cbmsrsByteMatchSet = a});+cbmsrsByteMatchSet = lens _cbmsrsByteMatchSet (\ s a -> s{_cbmsrsByteMatchSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateByteMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . cbmsrsChangeToken :: Lens' CreateByteMatchSetResponse (Maybe Text)-cbmsrsChangeToken = lens _cbmsrsChangeToken (\ s a -> s{_cbmsrsChangeToken = a});+cbmsrsChangeToken = lens _cbmsrsChangeToken (\ s a -> s{_cbmsrsChangeToken = a})  -- | -- | The response status code. cbmsrsResponseStatus :: Lens' CreateByteMatchSetResponse Int-cbmsrsResponseStatus = lens _cbmsrsResponseStatus (\ s a -> s{_cbmsrsResponseStatus = a});+cbmsrsResponseStatus = lens _cbmsrsResponseStatus (\ s a -> s{_cbmsrsResponseStatus = a})  instance NFData CreateByteMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateGeoMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,11 +84,11 @@  -- | A friendly name or description of the 'GeoMatchSet' . You can't change @Name@ after you create the @GeoMatchSet@ . cgmsName :: Lens' CreateGeoMatchSet Text-cgmsName = lens _cgmsName (\ s a -> s{_cgmsName = a});+cgmsName = lens _cgmsName (\ s a -> s{_cgmsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . cgmsChangeToken :: Lens' CreateGeoMatchSet Text-cgmsChangeToken = lens _cgmsChangeToken (\ s a -> s{_cgmsChangeToken = a});+cgmsChangeToken = lens _cgmsChangeToken (\ s a -> s{_cgmsChangeToken = a})  instance AWSRequest CreateGeoMatchSet where         type Rs CreateGeoMatchSet = CreateGeoMatchSetResponse@@ -149,22 +149,22 @@     -> CreateGeoMatchSetResponse createGeoMatchSetResponse pResponseStatus_ =   CreateGeoMatchSetResponse'-  { _cgmsrsGeoMatchSet = Nothing-  , _cgmsrsChangeToken = Nothing-  , _cgmsrsResponseStatus = pResponseStatus_-  }+    { _cgmsrsGeoMatchSet = Nothing+    , _cgmsrsChangeToken = Nothing+    , _cgmsrsResponseStatus = pResponseStatus_+    }   -- | The 'GeoMatchSet' returned in the @CreateGeoMatchSet@ response. The @GeoMatchSet@ contains no @GeoMatchConstraints@ . cgmsrsGeoMatchSet :: Lens' CreateGeoMatchSetResponse (Maybe GeoMatchSet)-cgmsrsGeoMatchSet = lens _cgmsrsGeoMatchSet (\ s a -> s{_cgmsrsGeoMatchSet = a});+cgmsrsGeoMatchSet = lens _cgmsrsGeoMatchSet (\ s a -> s{_cgmsrsGeoMatchSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateGeoMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . cgmsrsChangeToken :: Lens' CreateGeoMatchSetResponse (Maybe Text)-cgmsrsChangeToken = lens _cgmsrsChangeToken (\ s a -> s{_cgmsrsChangeToken = a});+cgmsrsChangeToken = lens _cgmsrsChangeToken (\ s a -> s{_cgmsrsChangeToken = a})  -- | -- | The response status code. cgmsrsResponseStatus :: Lens' CreateGeoMatchSetResponse Int-cgmsrsResponseStatus = lens _cgmsrsResponseStatus (\ s a -> s{_cgmsrsResponseStatus = a});+cgmsrsResponseStatus = lens _cgmsrsResponseStatus (\ s a -> s{_cgmsrsResponseStatus = a})  instance NFData CreateGeoMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateIPSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,11 +84,11 @@  -- | A friendly name or description of the 'IPSet' . You can't change @Name@ after you create the @IPSet@ . cisName :: Lens' CreateIPSet Text-cisName = lens _cisName (\ s a -> s{_cisName = a});+cisName = lens _cisName (\ s a -> s{_cisName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . cisChangeToken :: Lens' CreateIPSet Text-cisChangeToken = lens _cisChangeToken (\ s a -> s{_cisChangeToken = a});+cisChangeToken = lens _cisChangeToken (\ s a -> s{_cisChangeToken = a})  instance AWSRequest CreateIPSet where         type Rs CreateIPSet = CreateIPSetResponse@@ -149,22 +149,22 @@     -> CreateIPSetResponse createIPSetResponse pResponseStatus_ =   CreateIPSetResponse'-  { _cisrsChangeToken = Nothing-  , _cisrsIPSet = Nothing-  , _cisrsResponseStatus = pResponseStatus_-  }+    { _cisrsChangeToken = Nothing+    , _cisrsIPSet = Nothing+    , _cisrsResponseStatus = pResponseStatus_+    }   -- | The @ChangeToken@ that you used to submit the @CreateIPSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . cisrsChangeToken :: Lens' CreateIPSetResponse (Maybe Text)-cisrsChangeToken = lens _cisrsChangeToken (\ s a -> s{_cisrsChangeToken = a});+cisrsChangeToken = lens _cisrsChangeToken (\ s a -> s{_cisrsChangeToken = a})  -- | The 'IPSet' returned in the @CreateIPSet@ response. cisrsIPSet :: Lens' CreateIPSetResponse (Maybe IPSet)-cisrsIPSet = lens _cisrsIPSet (\ s a -> s{_cisrsIPSet = a});+cisrsIPSet = lens _cisrsIPSet (\ s a -> s{_cisrsIPSet = a})  -- | -- | The response status code. cisrsResponseStatus :: Lens' CreateIPSetResponse Int-cisrsResponseStatus = lens _cisrsResponseStatus (\ s a -> s{_cisrsResponseStatus = a});+cisrsResponseStatus = lens _cisrsResponseStatus (\ s a -> s{_cisrsResponseStatus = a})  instance NFData CreateIPSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateRateBasedRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -125,33 +125,33 @@     -> CreateRateBasedRule createRateBasedRule pName_ pMetricName_ pRateKey_ pRateLimit_ pChangeToken_ =   CreateRateBasedRule'-  { _crbrName = pName_-  , _crbrMetricName = pMetricName_-  , _crbrRateKey = pRateKey_-  , _crbrRateLimit = _Nat # pRateLimit_-  , _crbrChangeToken = pChangeToken_-  }+    { _crbrName = pName_+    , _crbrMetricName = pMetricName_+    , _crbrRateKey = pRateKey_+    , _crbrRateLimit = _Nat # pRateLimit_+    , _crbrChangeToken = pChangeToken_+    }   -- | A friendly name or description of the 'RateBasedRule' . You can't change the name of a @RateBasedRule@ after you create it. crbrName :: Lens' CreateRateBasedRule Text-crbrName = lens _crbrName (\ s a -> s{_crbrName = a});+crbrName = lens _crbrName (\ s a -> s{_crbrName = a})  -- | A friendly name or description for the metrics for this @RateBasedRule@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RateBasedRule@ . crbrMetricName :: Lens' CreateRateBasedRule Text-crbrMetricName = lens _crbrMetricName (\ s a -> s{_crbrMetricName = a});+crbrMetricName = lens _crbrMetricName (\ s a -> s{_crbrMetricName = a})  -- | The field that AWS WAF uses to determine if requests are likely arriving from a single source and thus subject to rate monitoring. The only valid value for @RateKey@ is @IP@ . @IP@ indicates that requests that arrive from the same IP address are subject to the @RateLimit@ that is specified in the @RateBasedRule@ . crbrRateKey :: Lens' CreateRateBasedRule RateKey-crbrRateKey = lens _crbrRateKey (\ s a -> s{_crbrRateKey = a});+crbrRateKey = lens _crbrRateKey (\ s a -> s{_crbrRateKey = a})  -- | The maximum number of requests, which have an identical value in the field that is specified by @RateKey@ , allowed in a five-minute period. If the number of requests exceeds the @RateLimit@ and the other predicates specified in the rule are also met, AWS WAF triggers the action that is specified for this rule. crbrRateLimit :: Lens' CreateRateBasedRule Natural-crbrRateLimit = lens _crbrRateLimit (\ s a -> s{_crbrRateLimit = a}) . _Nat;+crbrRateLimit = lens _crbrRateLimit (\ s a -> s{_crbrRateLimit = a}) . _Nat  -- | The @ChangeToken@ that you used to submit the @CreateRateBasedRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . crbrChangeToken :: Lens' CreateRateBasedRule Text-crbrChangeToken = lens _crbrChangeToken (\ s a -> s{_crbrChangeToken = a});+crbrChangeToken = lens _crbrChangeToken (\ s a -> s{_crbrChangeToken = a})  instance AWSRequest CreateRateBasedRule where         type Rs CreateRateBasedRule =@@ -216,22 +216,22 @@     -> CreateRateBasedRuleResponse createRateBasedRuleResponse pResponseStatus_ =   CreateRateBasedRuleResponse'-  { _crbrrsRule = Nothing-  , _crbrrsChangeToken = Nothing-  , _crbrrsResponseStatus = pResponseStatus_-  }+    { _crbrrsRule = Nothing+    , _crbrrsChangeToken = Nothing+    , _crbrrsResponseStatus = pResponseStatus_+    }   -- | The 'RateBasedRule' that is returned in the @CreateRateBasedRule@ response. crbrrsRule :: Lens' CreateRateBasedRuleResponse (Maybe RateBasedRule)-crbrrsRule = lens _crbrrsRule (\ s a -> s{_crbrrsRule = a});+crbrrsRule = lens _crbrrsRule (\ s a -> s{_crbrrsRule = a})  -- | The @ChangeToken@ that you used to submit the @CreateRateBasedRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . crbrrsChangeToken :: Lens' CreateRateBasedRuleResponse (Maybe Text)-crbrrsChangeToken = lens _crbrrsChangeToken (\ s a -> s{_crbrrsChangeToken = a});+crbrrsChangeToken = lens _crbrrsChangeToken (\ s a -> s{_crbrrsChangeToken = a})  -- | -- | The response status code. crbrrsResponseStatus :: Lens' CreateRateBasedRuleResponse Int-crbrrsResponseStatus = lens _crbrrsResponseStatus (\ s a -> s{_crbrrsResponseStatus = a});+crbrrsResponseStatus = lens _crbrrsResponseStatus (\ s a -> s{_crbrrsResponseStatus = a})  instance NFData CreateRateBasedRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateRegexMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,11 +84,11 @@  -- | A friendly name or description of the 'RegexMatchSet' . You can't change @Name@ after you create a @RegexMatchSet@ . crmsName :: Lens' CreateRegexMatchSet Text-crmsName = lens _crmsName (\ s a -> s{_crmsName = a});+crmsName = lens _crmsName (\ s a -> s{_crmsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . crmsChangeToken :: Lens' CreateRegexMatchSet Text-crmsChangeToken = lens _crmsChangeToken (\ s a -> s{_crmsChangeToken = a});+crmsChangeToken = lens _crmsChangeToken (\ s a -> s{_crmsChangeToken = a})  instance AWSRequest CreateRegexMatchSet where         type Rs CreateRegexMatchSet =@@ -150,22 +150,22 @@     -> CreateRegexMatchSetResponse createRegexMatchSetResponse pResponseStatus_ =   CreateRegexMatchSetResponse'-  { _crmsrsRegexMatchSet = Nothing-  , _crmsrsChangeToken = Nothing-  , _crmsrsResponseStatus = pResponseStatus_-  }+    { _crmsrsRegexMatchSet = Nothing+    , _crmsrsChangeToken = Nothing+    , _crmsrsResponseStatus = pResponseStatus_+    }   -- | A 'RegexMatchSet' that contains no @RegexMatchTuple@ objects. crmsrsRegexMatchSet :: Lens' CreateRegexMatchSetResponse (Maybe RegexMatchSet)-crmsrsRegexMatchSet = lens _crmsrsRegexMatchSet (\ s a -> s{_crmsrsRegexMatchSet = a});+crmsrsRegexMatchSet = lens _crmsrsRegexMatchSet (\ s a -> s{_crmsrsRegexMatchSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateRegexMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . crmsrsChangeToken :: Lens' CreateRegexMatchSetResponse (Maybe Text)-crmsrsChangeToken = lens _crmsrsChangeToken (\ s a -> s{_crmsrsChangeToken = a});+crmsrsChangeToken = lens _crmsrsChangeToken (\ s a -> s{_crmsrsChangeToken = a})  -- | -- | The response status code. crmsrsResponseStatus :: Lens' CreateRegexMatchSetResponse Int-crmsrsResponseStatus = lens _crmsrsResponseStatus (\ s a -> s{_crmsrsResponseStatus = a});+crmsrsResponseStatus = lens _crmsrsResponseStatus (\ s a -> s{_crmsrsResponseStatus = a})  instance NFData CreateRegexMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateRegexPatternSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,11 +84,11 @@  -- | A friendly name or description of the 'RegexPatternSet' . You can't change @Name@ after you create a @RegexPatternSet@ . crpsName :: Lens' CreateRegexPatternSet Text-crpsName = lens _crpsName (\ s a -> s{_crpsName = a});+crpsName = lens _crpsName (\ s a -> s{_crpsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . crpsChangeToken :: Lens' CreateRegexPatternSet Text-crpsChangeToken = lens _crpsChangeToken (\ s a -> s{_crpsChangeToken = a});+crpsChangeToken = lens _crpsChangeToken (\ s a -> s{_crpsChangeToken = a})  instance AWSRequest CreateRegexPatternSet where         type Rs CreateRegexPatternSet =@@ -150,22 +150,22 @@     -> CreateRegexPatternSetResponse createRegexPatternSetResponse pResponseStatus_ =   CreateRegexPatternSetResponse'-  { _crpsrsRegexPatternSet = Nothing-  , _crpsrsChangeToken = Nothing-  , _crpsrsResponseStatus = pResponseStatus_-  }+    { _crpsrsRegexPatternSet = Nothing+    , _crpsrsChangeToken = Nothing+    , _crpsrsResponseStatus = pResponseStatus_+    }   -- | A 'RegexPatternSet' that contains no objects. crpsrsRegexPatternSet :: Lens' CreateRegexPatternSetResponse (Maybe RegexPatternSet)-crpsrsRegexPatternSet = lens _crpsrsRegexPatternSet (\ s a -> s{_crpsrsRegexPatternSet = a});+crpsrsRegexPatternSet = lens _crpsrsRegexPatternSet (\ s a -> s{_crpsrsRegexPatternSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateRegexPatternSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . crpsrsChangeToken :: Lens' CreateRegexPatternSetResponse (Maybe Text)-crpsrsChangeToken = lens _crpsrsChangeToken (\ s a -> s{_crpsrsChangeToken = a});+crpsrsChangeToken = lens _crpsrsChangeToken (\ s a -> s{_crpsrsChangeToken = a})  -- | -- | The response status code. crpsrsResponseStatus :: Lens' CreateRegexPatternSetResponse Int-crpsrsResponseStatus = lens _crpsrsResponseStatus (\ s a -> s{_crpsrsResponseStatus = a});+crpsrsResponseStatus = lens _crpsrsResponseStatus (\ s a -> s{_crpsrsResponseStatus = a})  instance NFData CreateRegexPatternSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -97,23 +97,23 @@     -> CreateRule createRule pName_ pMetricName_ pChangeToken_ =   CreateRule'-  { _crName = pName_-  , _crMetricName = pMetricName_-  , _crChangeToken = pChangeToken_-  }+    { _crName = pName_+    , _crMetricName = pMetricName_+    , _crChangeToken = pChangeToken_+    }   -- | A friendly name or description of the 'Rule' . You can't change the name of a @Rule@ after you create it. crName :: Lens' CreateRule Text-crName = lens _crName (\ s a -> s{_crName = a});+crName = lens _crName (\ s a -> s{_crName = a})  -- | A friendly name or description for the metrics for this @Rule@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @Rule@ . crMetricName :: Lens' CreateRule Text-crMetricName = lens _crMetricName (\ s a -> s{_crMetricName = a});+crMetricName = lens _crMetricName (\ s a -> s{_crMetricName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . crChangeToken :: Lens' CreateRule Text-crChangeToken = lens _crChangeToken (\ s a -> s{_crChangeToken = a});+crChangeToken = lens _crChangeToken (\ s a -> s{_crChangeToken = a})  instance AWSRequest CreateRule where         type Rs CreateRule = CreateRuleResponse@@ -175,22 +175,22 @@     -> CreateRuleResponse createRuleResponse pResponseStatus_ =   CreateRuleResponse'-  { _crrsRule = Nothing-  , _crrsChangeToken = Nothing-  , _crrsResponseStatus = pResponseStatus_-  }+    { _crrsRule = Nothing+    , _crrsChangeToken = Nothing+    , _crrsResponseStatus = pResponseStatus_+    }   -- | The 'Rule' returned in the @CreateRule@ response. crrsRule :: Lens' CreateRuleResponse (Maybe Rule)-crrsRule = lens _crrsRule (\ s a -> s{_crrsRule = a});+crrsRule = lens _crrsRule (\ s a -> s{_crrsRule = a})  -- | The @ChangeToken@ that you used to submit the @CreateRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . crrsChangeToken :: Lens' CreateRuleResponse (Maybe Text)-crrsChangeToken = lens _crrsChangeToken (\ s a -> s{_crrsChangeToken = a});+crrsChangeToken = lens _crrsChangeToken (\ s a -> s{_crrsChangeToken = a})  -- | -- | The response status code. crrsResponseStatus :: Lens' CreateRuleResponse Int-crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a})  instance NFData CreateRuleResponse where

@@ -0,0 +1,182 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.CreateRuleGroup+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a @RuleGroup@ . A rule group is a collection of predefined rules that you add to a web ACL. You use 'UpdateRuleGroup' to add rules to the rule group.+--+--+-- Rule groups are subject to the following limits:+--+--     * Three rule groups per account. You can request an increase to this limit by contacting customer support.+--+--     * One rule group per web ACL.+--+--     * Ten rules per rule group.+--+--+--+-- For more information about how to use the AWS WAF API to allow or block HTTP requests, see the <http://docs.aws.amazon.com/waf/latest/developerguide/ AWS WAF Developer Guide> .+--+module Network.AWS.WAFRegional.CreateRuleGroup+    (+    -- * Creating a Request+      createRuleGroup+    , CreateRuleGroup+    -- * Request Lenses+    , crgName+    , crgMetricName+    , crgChangeToken++    -- * Destructuring the Response+    , createRuleGroupResponse+    , CreateRuleGroupResponse+    -- * Response Lenses+    , crgrsChangeToken+    , crgrsRuleGroup+    , crgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'createRuleGroup' smart constructor.+data CreateRuleGroup = CreateRuleGroup'+  { _crgName        :: !Text+  , _crgMetricName  :: !Text+  , _crgChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRuleGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crgName' - A friendly name or description of the 'RuleGroup' . You can't change @Name@ after you create a @RuleGroup@ .+--+-- * 'crgMetricName' - A friendly name or description for the metrics for this @RuleGroup@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RuleGroup@ .+--+-- * 'crgChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+createRuleGroup+    :: Text -- ^ 'crgName'+    -> Text -- ^ 'crgMetricName'+    -> Text -- ^ 'crgChangeToken'+    -> CreateRuleGroup+createRuleGroup pName_ pMetricName_ pChangeToken_ =+  CreateRuleGroup'+    { _crgName = pName_+    , _crgMetricName = pMetricName_+    , _crgChangeToken = pChangeToken_+    }+++-- | A friendly name or description of the 'RuleGroup' . You can't change @Name@ after you create a @RuleGroup@ .+crgName :: Lens' CreateRuleGroup Text+crgName = lens _crgName (\ s a -> s{_crgName = a})++-- | A friendly name or description for the metrics for this @RuleGroup@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RuleGroup@ .+crgMetricName :: Lens' CreateRuleGroup Text+crgMetricName = lens _crgMetricName (\ s a -> s{_crgMetricName = a})++-- | The value returned by the most recent call to 'GetChangeToken' .+crgChangeToken :: Lens' CreateRuleGroup Text+crgChangeToken = lens _crgChangeToken (\ s a -> s{_crgChangeToken = a})++instance AWSRequest CreateRuleGroup where+        type Rs CreateRuleGroup = CreateRuleGroupResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 CreateRuleGroupResponse' <$>+                   (x .?> "ChangeToken") <*> (x .?> "RuleGroup") <*>+                     (pure (fromEnum s)))++instance Hashable CreateRuleGroup where++instance NFData CreateRuleGroup where++instance ToHeaders CreateRuleGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.CreateRuleGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateRuleGroup where+        toJSON CreateRuleGroup'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _crgName),+                  Just ("MetricName" .= _crgMetricName),+                  Just ("ChangeToken" .= _crgChangeToken)])++instance ToPath CreateRuleGroup where+        toPath = const "/"++instance ToQuery CreateRuleGroup where+        toQuery = const mempty++-- | /See:/ 'createRuleGroupResponse' smart constructor.+data CreateRuleGroupResponse = CreateRuleGroupResponse'+  { _crgrsChangeToken    :: !(Maybe Text)+  , _crgrsRuleGroup      :: !(Maybe RuleGroup)+  , _crgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRuleGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crgrsChangeToken' - The @ChangeToken@ that you used to submit the @CreateRuleGroup@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' .+--+-- * 'crgrsRuleGroup' - An empty 'RuleGroup' .+--+-- * 'crgrsResponseStatus' - -- | The response status code.+createRuleGroupResponse+    :: Int -- ^ 'crgrsResponseStatus'+    -> CreateRuleGroupResponse+createRuleGroupResponse pResponseStatus_ =+  CreateRuleGroupResponse'+    { _crgrsChangeToken = Nothing+    , _crgrsRuleGroup = Nothing+    , _crgrsResponseStatus = pResponseStatus_+    }+++-- | The @ChangeToken@ that you used to submit the @CreateRuleGroup@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' .+crgrsChangeToken :: Lens' CreateRuleGroupResponse (Maybe Text)+crgrsChangeToken = lens _crgrsChangeToken (\ s a -> s{_crgrsChangeToken = a})++-- | An empty 'RuleGroup' .+crgrsRuleGroup :: Lens' CreateRuleGroupResponse (Maybe RuleGroup)+crgrsRuleGroup = lens _crgrsRuleGroup (\ s a -> s{_crgrsRuleGroup = a})++-- | -- | The response status code.+crgrsResponseStatus :: Lens' CreateRuleGroupResponse Int+crgrsResponseStatus = lens _crgrsResponseStatus (\ s a -> s{_crgrsResponseStatus = a})++instance NFData CreateRuleGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateSizeConstraintSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,16 +80,16 @@     -> CreateSizeConstraintSet createSizeConstraintSet pName_ pChangeToken_ =   CreateSizeConstraintSet'-  {_cscsName = pName_, _cscsChangeToken = pChangeToken_}+    {_cscsName = pName_, _cscsChangeToken = pChangeToken_}   -- | A friendly name or description of the 'SizeConstraintSet' . You can't change @Name@ after you create a @SizeConstraintSet@ . cscsName :: Lens' CreateSizeConstraintSet Text-cscsName = lens _cscsName (\ s a -> s{_cscsName = a});+cscsName = lens _cscsName (\ s a -> s{_cscsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . cscsChangeToken :: Lens' CreateSizeConstraintSet Text-cscsChangeToken = lens _cscsChangeToken (\ s a -> s{_cscsChangeToken = a});+cscsChangeToken = lens _cscsChangeToken (\ s a -> s{_cscsChangeToken = a})  instance AWSRequest CreateSizeConstraintSet where         type Rs CreateSizeConstraintSet =@@ -151,22 +151,22 @@     -> CreateSizeConstraintSetResponse createSizeConstraintSetResponse pResponseStatus_ =   CreateSizeConstraintSetResponse'-  { _cscsrsSizeConstraintSet = Nothing-  , _cscsrsChangeToken = Nothing-  , _cscsrsResponseStatus = pResponseStatus_-  }+    { _cscsrsSizeConstraintSet = Nothing+    , _cscsrsChangeToken = Nothing+    , _cscsrsResponseStatus = pResponseStatus_+    }   -- | A 'SizeConstraintSet' that contains no @SizeConstraint@ objects. cscsrsSizeConstraintSet :: Lens' CreateSizeConstraintSetResponse (Maybe SizeConstraintSet)-cscsrsSizeConstraintSet = lens _cscsrsSizeConstraintSet (\ s a -> s{_cscsrsSizeConstraintSet = a});+cscsrsSizeConstraintSet = lens _cscsrsSizeConstraintSet (\ s a -> s{_cscsrsSizeConstraintSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateSizeConstraintSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . cscsrsChangeToken :: Lens' CreateSizeConstraintSetResponse (Maybe Text)-cscsrsChangeToken = lens _cscsrsChangeToken (\ s a -> s{_cscsrsChangeToken = a});+cscsrsChangeToken = lens _cscsrsChangeToken (\ s a -> s{_cscsrsChangeToken = a})  -- | -- | The response status code. cscsrsResponseStatus :: Lens' CreateSizeConstraintSetResponse Int-cscsrsResponseStatus = lens _cscsrsResponseStatus (\ s a -> s{_cscsrsResponseStatus = a});+cscsrsResponseStatus = lens _cscsrsResponseStatus (\ s a -> s{_cscsrsResponseStatus = a})  instance NFData CreateSizeConstraintSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateSqlInjectionMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,16 +84,16 @@     -> CreateSqlInjectionMatchSet createSqlInjectionMatchSet pName_ pChangeToken_ =   CreateSqlInjectionMatchSet'-  {_csimsName = pName_, _csimsChangeToken = pChangeToken_}+    {_csimsName = pName_, _csimsChangeToken = pChangeToken_}   -- | A friendly name or description for the 'SqlInjectionMatchSet' that you're creating. You can't change @Name@ after you create the @SqlInjectionMatchSet@ . csimsName :: Lens' CreateSqlInjectionMatchSet Text-csimsName = lens _csimsName (\ s a -> s{_csimsName = a});+csimsName = lens _csimsName (\ s a -> s{_csimsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . csimsChangeToken :: Lens' CreateSqlInjectionMatchSet Text-csimsChangeToken = lens _csimsChangeToken (\ s a -> s{_csimsChangeToken = a});+csimsChangeToken = lens _csimsChangeToken (\ s a -> s{_csimsChangeToken = a})  instance AWSRequest CreateSqlInjectionMatchSet where         type Rs CreateSqlInjectionMatchSet =@@ -160,23 +160,23 @@     -> CreateSqlInjectionMatchSetResponse createSqlInjectionMatchSetResponse pResponseStatus_ =   CreateSqlInjectionMatchSetResponse'-  { _csimsrsSqlInjectionMatchSet = Nothing-  , _csimsrsChangeToken = Nothing-  , _csimsrsResponseStatus = pResponseStatus_-  }+    { _csimsrsSqlInjectionMatchSet = Nothing+    , _csimsrsChangeToken = Nothing+    , _csimsrsResponseStatus = pResponseStatus_+    }   -- | A 'SqlInjectionMatchSet' . csimsrsSqlInjectionMatchSet :: Lens' CreateSqlInjectionMatchSetResponse (Maybe SqlInjectionMatchSet)-csimsrsSqlInjectionMatchSet = lens _csimsrsSqlInjectionMatchSet (\ s a -> s{_csimsrsSqlInjectionMatchSet = a});+csimsrsSqlInjectionMatchSet = lens _csimsrsSqlInjectionMatchSet (\ s a -> s{_csimsrsSqlInjectionMatchSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateSqlInjectionMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . csimsrsChangeToken :: Lens' CreateSqlInjectionMatchSetResponse (Maybe Text)-csimsrsChangeToken = lens _csimsrsChangeToken (\ s a -> s{_csimsrsChangeToken = a});+csimsrsChangeToken = lens _csimsrsChangeToken (\ s a -> s{_csimsrsChangeToken = a})  -- | -- | The response status code. csimsrsResponseStatus :: Lens' CreateSqlInjectionMatchSetResponse Int-csimsrsResponseStatus = lens _csimsrsResponseStatus (\ s a -> s{_csimsrsResponseStatus = a});+csimsrsResponseStatus = lens _csimsrsResponseStatus (\ s a -> s{_csimsrsResponseStatus = a})  instance NFData CreateSqlInjectionMatchSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,28 +96,28 @@     -> CreateWebACL createWebACL pName_ pMetricName_ pDefaultAction_ pChangeToken_ =   CreateWebACL'-  { _cwaName = pName_-  , _cwaMetricName = pMetricName_-  , _cwaDefaultAction = pDefaultAction_-  , _cwaChangeToken = pChangeToken_-  }+    { _cwaName = pName_+    , _cwaMetricName = pMetricName_+    , _cwaDefaultAction = pDefaultAction_+    , _cwaChangeToken = pChangeToken_+    }   -- | A friendly name or description of the 'WebACL' . You can't change @Name@ after you create the @WebACL@ . cwaName :: Lens' CreateWebACL Text-cwaName = lens _cwaName (\ s a -> s{_cwaName = a});+cwaName = lens _cwaName (\ s a -> s{_cwaName = a})  -- | A friendly name or description for the metrics for this @WebACL@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change @MetricName@ after you create the @WebACL@ . cwaMetricName :: Lens' CreateWebACL Text-cwaMetricName = lens _cwaMetricName (\ s a -> s{_cwaMetricName = a});+cwaMetricName = lens _cwaMetricName (\ s a -> s{_cwaMetricName = a})  -- | The action that you want AWS WAF to take when a request doesn't match the criteria specified in any of the @Rule@ objects that are associated with the @WebACL@ . cwaDefaultAction :: Lens' CreateWebACL WafAction-cwaDefaultAction = lens _cwaDefaultAction (\ s a -> s{_cwaDefaultAction = a});+cwaDefaultAction = lens _cwaDefaultAction (\ s a -> s{_cwaDefaultAction = a})  -- | The value returned by the most recent call to 'GetChangeToken' . cwaChangeToken :: Lens' CreateWebACL Text-cwaChangeToken = lens _cwaChangeToken (\ s a -> s{_cwaChangeToken = a});+cwaChangeToken = lens _cwaChangeToken (\ s a -> s{_cwaChangeToken = a})  instance AWSRequest CreateWebACL where         type Rs CreateWebACL = CreateWebACLResponse@@ -180,22 +180,22 @@     -> CreateWebACLResponse createWebACLResponse pResponseStatus_ =   CreateWebACLResponse'-  { _cwarsWebACL = Nothing-  , _cwarsChangeToken = Nothing-  , _cwarsResponseStatus = pResponseStatus_-  }+    { _cwarsWebACL = Nothing+    , _cwarsChangeToken = Nothing+    , _cwarsResponseStatus = pResponseStatus_+    }   -- | The 'WebACL' returned in the @CreateWebACL@ response. cwarsWebACL :: Lens' CreateWebACLResponse (Maybe WebACL)-cwarsWebACL = lens _cwarsWebACL (\ s a -> s{_cwarsWebACL = a});+cwarsWebACL = lens _cwarsWebACL (\ s a -> s{_cwarsWebACL = a})  -- | The @ChangeToken@ that you used to submit the @CreateWebACL@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . cwarsChangeToken :: Lens' CreateWebACLResponse (Maybe Text)-cwarsChangeToken = lens _cwarsChangeToken (\ s a -> s{_cwarsChangeToken = a});+cwarsChangeToken = lens _cwarsChangeToken (\ s a -> s{_cwarsChangeToken = a})  -- | -- | The response status code. cwarsResponseStatus :: Lens' CreateWebACLResponse Int-cwarsResponseStatus = lens _cwarsResponseStatus (\ s a -> s{_cwarsResponseStatus = a});+cwarsResponseStatus = lens _cwarsResponseStatus (\ s a -> s{_cwarsResponseStatus = a})  instance NFData CreateWebACLResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.CreateXSSMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -88,11 +88,11 @@  -- | A friendly name or description for the 'XssMatchSet' that you're creating. You can't change @Name@ after you create the @XssMatchSet@ . cxmsName :: Lens' CreateXSSMatchSet Text-cxmsName = lens _cxmsName (\ s a -> s{_cxmsName = a});+cxmsName = lens _cxmsName (\ s a -> s{_cxmsName = a})  -- | The value returned by the most recent call to 'GetChangeToken' . cxmsChangeToken :: Lens' CreateXSSMatchSet Text-cxmsChangeToken = lens _cxmsChangeToken (\ s a -> s{_cxmsChangeToken = a});+cxmsChangeToken = lens _cxmsChangeToken (\ s a -> s{_cxmsChangeToken = a})  instance AWSRequest CreateXSSMatchSet where         type Rs CreateXSSMatchSet = CreateXSSMatchSetResponse@@ -157,22 +157,22 @@     -> CreateXSSMatchSetResponse createXSSMatchSetResponse pResponseStatus_ =   CreateXSSMatchSetResponse'-  { _cxmsrsXSSMatchSet = Nothing-  , _cxmsrsChangeToken = Nothing-  , _cxmsrsResponseStatus = pResponseStatus_-  }+    { _cxmsrsXSSMatchSet = Nothing+    , _cxmsrsChangeToken = Nothing+    , _cxmsrsResponseStatus = pResponseStatus_+    }   -- | An 'XssMatchSet' . cxmsrsXSSMatchSet :: Lens' CreateXSSMatchSetResponse (Maybe XSSMatchSet)-cxmsrsXSSMatchSet = lens _cxmsrsXSSMatchSet (\ s a -> s{_cxmsrsXSSMatchSet = a});+cxmsrsXSSMatchSet = lens _cxmsrsXSSMatchSet (\ s a -> s{_cxmsrsXSSMatchSet = a})  -- | The @ChangeToken@ that you used to submit the @CreateXssMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . cxmsrsChangeToken :: Lens' CreateXSSMatchSetResponse (Maybe Text)-cxmsrsChangeToken = lens _cxmsrsChangeToken (\ s a -> s{_cxmsrsChangeToken = a});+cxmsrsChangeToken = lens _cxmsrsChangeToken (\ s a -> s{_cxmsrsChangeToken = a})  -- | -- | The response status code. cxmsrsResponseStatus :: Lens' CreateXSSMatchSetResponse Int-cxmsrsResponseStatus = lens _cxmsrsResponseStatus (\ s a -> s{_cxmsrsResponseStatus = a});+cxmsrsResponseStatus = lens _cxmsrsResponseStatus (\ s a -> s{_cxmsrsResponseStatus = a})  instance NFData CreateXSSMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteByteMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,16 +77,16 @@     -> DeleteByteMatchSet deleteByteMatchSet pByteMatchSetId_ pChangeToken_ =   DeleteByteMatchSet'-  {_dbmsByteMatchSetId = pByteMatchSetId_, _dbmsChangeToken = pChangeToken_}+    {_dbmsByteMatchSetId = pByteMatchSetId_, _dbmsChangeToken = pChangeToken_}   -- | The @ByteMatchSetId@ of the 'ByteMatchSet' that you want to delete. @ByteMatchSetId@ is returned by 'CreateByteMatchSet' and by 'ListByteMatchSets' . dbmsByteMatchSetId :: Lens' DeleteByteMatchSet Text-dbmsByteMatchSetId = lens _dbmsByteMatchSetId (\ s a -> s{_dbmsByteMatchSetId = a});+dbmsByteMatchSetId = lens _dbmsByteMatchSetId (\ s a -> s{_dbmsByteMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . dbmsChangeToken :: Lens' DeleteByteMatchSet Text-dbmsChangeToken = lens _dbmsChangeToken (\ s a -> s{_dbmsChangeToken = a});+dbmsChangeToken = lens _dbmsChangeToken (\ s a -> s{_dbmsChangeToken = a})  instance AWSRequest DeleteByteMatchSet where         type Rs DeleteByteMatchSet =@@ -144,15 +144,15 @@     -> DeleteByteMatchSetResponse deleteByteMatchSetResponse pResponseStatus_ =   DeleteByteMatchSetResponse'-  {_dbmsrsChangeToken = Nothing, _dbmsrsResponseStatus = pResponseStatus_}+    {_dbmsrsChangeToken = Nothing, _dbmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteByteMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . dbmsrsChangeToken :: Lens' DeleteByteMatchSetResponse (Maybe Text)-dbmsrsChangeToken = lens _dbmsrsChangeToken (\ s a -> s{_dbmsrsChangeToken = a});+dbmsrsChangeToken = lens _dbmsrsChangeToken (\ s a -> s{_dbmsrsChangeToken = a})  -- | -- | The response status code. dbmsrsResponseStatus :: Lens' DeleteByteMatchSetResponse Int-dbmsrsResponseStatus = lens _dbmsrsResponseStatus (\ s a -> s{_dbmsrsResponseStatus = a});+dbmsrsResponseStatus = lens _dbmsrsResponseStatus (\ s a -> s{_dbmsrsResponseStatus = a})  instance NFData DeleteByteMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteGeoMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,16 +77,16 @@     -> DeleteGeoMatchSet deleteGeoMatchSet pGeoMatchSetId_ pChangeToken_ =   DeleteGeoMatchSet'-  {_dgmsGeoMatchSetId = pGeoMatchSetId_, _dgmsChangeToken = pChangeToken_}+    {_dgmsGeoMatchSetId = pGeoMatchSetId_, _dgmsChangeToken = pChangeToken_}   -- | The @GeoMatchSetID@ of the 'GeoMatchSet' that you want to delete. @GeoMatchSetId@ is returned by 'CreateGeoMatchSet' and by 'ListGeoMatchSets' . dgmsGeoMatchSetId :: Lens' DeleteGeoMatchSet Text-dgmsGeoMatchSetId = lens _dgmsGeoMatchSetId (\ s a -> s{_dgmsGeoMatchSetId = a});+dgmsGeoMatchSetId = lens _dgmsGeoMatchSetId (\ s a -> s{_dgmsGeoMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . dgmsChangeToken :: Lens' DeleteGeoMatchSet Text-dgmsChangeToken = lens _dgmsChangeToken (\ s a -> s{_dgmsChangeToken = a});+dgmsChangeToken = lens _dgmsChangeToken (\ s a -> s{_dgmsChangeToken = a})  instance AWSRequest DeleteGeoMatchSet where         type Rs DeleteGeoMatchSet = DeleteGeoMatchSetResponse@@ -143,15 +143,15 @@     -> DeleteGeoMatchSetResponse deleteGeoMatchSetResponse pResponseStatus_ =   DeleteGeoMatchSetResponse'-  {_dgmsrsChangeToken = Nothing, _dgmsrsResponseStatus = pResponseStatus_}+    {_dgmsrsChangeToken = Nothing, _dgmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteGeoMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . dgmsrsChangeToken :: Lens' DeleteGeoMatchSetResponse (Maybe Text)-dgmsrsChangeToken = lens _dgmsrsChangeToken (\ s a -> s{_dgmsrsChangeToken = a});+dgmsrsChangeToken = lens _dgmsrsChangeToken (\ s a -> s{_dgmsrsChangeToken = a})  -- | -- | The response status code. dgmsrsResponseStatus :: Lens' DeleteGeoMatchSetResponse Int-dgmsrsResponseStatus = lens _dgmsrsResponseStatus (\ s a -> s{_dgmsrsResponseStatus = a});+dgmsrsResponseStatus = lens _dgmsrsResponseStatus (\ s a -> s{_dgmsrsResponseStatus = a})  instance NFData DeleteGeoMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteIPSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,11 +81,11 @@  -- | The @IPSetId@ of the 'IPSet' that you want to delete. @IPSetId@ is returned by 'CreateIPSet' and by 'ListIPSets' . disIPSetId :: Lens' DeleteIPSet Text-disIPSetId = lens _disIPSetId (\ s a -> s{_disIPSetId = a});+disIPSetId = lens _disIPSetId (\ s a -> s{_disIPSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . disChangeToken :: Lens' DeleteIPSet Text-disChangeToken = lens _disChangeToken (\ s a -> s{_disChangeToken = a});+disChangeToken = lens _disChangeToken (\ s a -> s{_disChangeToken = a})  instance AWSRequest DeleteIPSet where         type Rs DeleteIPSet = DeleteIPSetResponse@@ -142,15 +142,15 @@     -> DeleteIPSetResponse deleteIPSetResponse pResponseStatus_ =   DeleteIPSetResponse'-  {_disrsChangeToken = Nothing, _disrsResponseStatus = pResponseStatus_}+    {_disrsChangeToken = Nothing, _disrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteIPSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . disrsChangeToken :: Lens' DeleteIPSetResponse (Maybe Text)-disrsChangeToken = lens _disrsChangeToken (\ s a -> s{_disrsChangeToken = a});+disrsChangeToken = lens _disrsChangeToken (\ s a -> s{_disrsChangeToken = a})  -- | -- | The response status code. disrsResponseStatus :: Lens' DeleteIPSetResponse Int-disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a})  instance NFData DeleteIPSetResponse where

@@ -0,0 +1,127 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.DeletePermissionPolicy+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Permanently deletes an IAM policy from the specified RuleGroup.+--+--+-- The user making the request must be the owner of the RuleGroup.+--+module Network.AWS.WAFRegional.DeletePermissionPolicy+    (+    -- * Creating a Request+      deletePermissionPolicy+    , DeletePermissionPolicy+    -- * Request Lenses+    , dppResourceARN++    -- * Destructuring the Response+    , deletePermissionPolicyResponse+    , DeletePermissionPolicyResponse+    -- * Response Lenses+    , dpprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'deletePermissionPolicy' smart constructor.+newtype DeletePermissionPolicy = DeletePermissionPolicy'+  { _dppResourceARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeletePermissionPolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dppResourceARN' - The Amazon Resource Name (ARN) of the RuleGroup from which you want to delete the policy. The user making the request must be the owner of the RuleGroup.+deletePermissionPolicy+    :: Text -- ^ 'dppResourceARN'+    -> DeletePermissionPolicy+deletePermissionPolicy pResourceARN_ =+  DeletePermissionPolicy' {_dppResourceARN = pResourceARN_}+++-- | The Amazon Resource Name (ARN) of the RuleGroup from which you want to delete the policy. The user making the request must be the owner of the RuleGroup.+dppResourceARN :: Lens' DeletePermissionPolicy Text+dppResourceARN = lens _dppResourceARN (\ s a -> s{_dppResourceARN = a})++instance AWSRequest DeletePermissionPolicy where+        type Rs DeletePermissionPolicy =+             DeletePermissionPolicyResponse+        request = postJSON wAFRegional+        response+          = receiveEmpty+              (\ s h x ->+                 DeletePermissionPolicyResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeletePermissionPolicy where++instance NFData DeletePermissionPolicy where++instance ToHeaders DeletePermissionPolicy where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.DeletePermissionPolicy" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeletePermissionPolicy where+        toJSON DeletePermissionPolicy'{..}+          = object+              (catMaybes [Just ("ResourceArn" .= _dppResourceARN)])++instance ToPath DeletePermissionPolicy where+        toPath = const "/"++instance ToQuery DeletePermissionPolicy where+        toQuery = const mempty++-- | /See:/ 'deletePermissionPolicyResponse' smart constructor.+newtype DeletePermissionPolicyResponse = DeletePermissionPolicyResponse'+  { _dpprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeletePermissionPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpprsResponseStatus' - -- | The response status code.+deletePermissionPolicyResponse+    :: Int -- ^ 'dpprsResponseStatus'+    -> DeletePermissionPolicyResponse+deletePermissionPolicyResponse pResponseStatus_ =+  DeletePermissionPolicyResponse' {_dpprsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dpprsResponseStatus :: Lens' DeletePermissionPolicyResponse Int+dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a})++instance NFData DeletePermissionPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteRateBasedRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,16 +77,16 @@     -> DeleteRateBasedRule deleteRateBasedRule pRuleId_ pChangeToken_ =   DeleteRateBasedRule'-  {_drbrRuleId = pRuleId_, _drbrChangeToken = pChangeToken_}+    {_drbrRuleId = pRuleId_, _drbrChangeToken = pChangeToken_}   -- | The @RuleId@ of the 'RateBasedRule' that you want to delete. @RuleId@ is returned by 'CreateRateBasedRule' and by 'ListRateBasedRules' . drbrRuleId :: Lens' DeleteRateBasedRule Text-drbrRuleId = lens _drbrRuleId (\ s a -> s{_drbrRuleId = a});+drbrRuleId = lens _drbrRuleId (\ s a -> s{_drbrRuleId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . drbrChangeToken :: Lens' DeleteRateBasedRule Text-drbrChangeToken = lens _drbrChangeToken (\ s a -> s{_drbrChangeToken = a});+drbrChangeToken = lens _drbrChangeToken (\ s a -> s{_drbrChangeToken = a})  instance AWSRequest DeleteRateBasedRule where         type Rs DeleteRateBasedRule =@@ -144,15 +144,15 @@     -> DeleteRateBasedRuleResponse deleteRateBasedRuleResponse pResponseStatus_ =   DeleteRateBasedRuleResponse'-  {_drbrrsChangeToken = Nothing, _drbrrsResponseStatus = pResponseStatus_}+    {_drbrrsChangeToken = Nothing, _drbrrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteRateBasedRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . drbrrsChangeToken :: Lens' DeleteRateBasedRuleResponse (Maybe Text)-drbrrsChangeToken = lens _drbrrsChangeToken (\ s a -> s{_drbrrsChangeToken = a});+drbrrsChangeToken = lens _drbrrsChangeToken (\ s a -> s{_drbrrsChangeToken = a})  -- | -- | The response status code. drbrrsResponseStatus :: Lens' DeleteRateBasedRuleResponse Int-drbrrsResponseStatus = lens _drbrrsResponseStatus (\ s a -> s{_drbrrsResponseStatus = a});+drbrrsResponseStatus = lens _drbrrsResponseStatus (\ s a -> s{_drbrrsResponseStatus = a})  instance NFData DeleteRateBasedRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteRegexMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,16 +77,16 @@     -> DeleteRegexMatchSet deleteRegexMatchSet pRegexMatchSetId_ pChangeToken_ =   DeleteRegexMatchSet'-  {_drmsRegexMatchSetId = pRegexMatchSetId_, _drmsChangeToken = pChangeToken_}+    {_drmsRegexMatchSetId = pRegexMatchSetId_, _drmsChangeToken = pChangeToken_}   -- | The @RegexMatchSetId@ of the 'RegexMatchSet' that you want to delete. @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' . drmsRegexMatchSetId :: Lens' DeleteRegexMatchSet Text-drmsRegexMatchSetId = lens _drmsRegexMatchSetId (\ s a -> s{_drmsRegexMatchSetId = a});+drmsRegexMatchSetId = lens _drmsRegexMatchSetId (\ s a -> s{_drmsRegexMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . drmsChangeToken :: Lens' DeleteRegexMatchSet Text-drmsChangeToken = lens _drmsChangeToken (\ s a -> s{_drmsChangeToken = a});+drmsChangeToken = lens _drmsChangeToken (\ s a -> s{_drmsChangeToken = a})  instance AWSRequest DeleteRegexMatchSet where         type Rs DeleteRegexMatchSet =@@ -144,15 +144,15 @@     -> DeleteRegexMatchSetResponse deleteRegexMatchSetResponse pResponseStatus_ =   DeleteRegexMatchSetResponse'-  {_drmsrsChangeToken = Nothing, _drmsrsResponseStatus = pResponseStatus_}+    {_drmsrsChangeToken = Nothing, _drmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteRegexMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . drmsrsChangeToken :: Lens' DeleteRegexMatchSetResponse (Maybe Text)-drmsrsChangeToken = lens _drmsrsChangeToken (\ s a -> s{_drmsrsChangeToken = a});+drmsrsChangeToken = lens _drmsrsChangeToken (\ s a -> s{_drmsrsChangeToken = a})  -- | -- | The response status code. drmsrsResponseStatus :: Lens' DeleteRegexMatchSetResponse Int-drmsrsResponseStatus = lens _drmsrsResponseStatus (\ s a -> s{_drmsrsResponseStatus = a});+drmsrsResponseStatus = lens _drmsrsResponseStatus (\ s a -> s{_drmsrsResponseStatus = a})  instance NFData DeleteRegexMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteRegexPatternSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,18 +65,18 @@     -> DeleteRegexPatternSet deleteRegexPatternSet pRegexPatternSetId_ pChangeToken_ =   DeleteRegexPatternSet'-  { _drpsRegexPatternSetId = pRegexPatternSetId_-  , _drpsChangeToken = pChangeToken_-  }+    { _drpsRegexPatternSetId = pRegexPatternSetId_+    , _drpsChangeToken = pChangeToken_+    }   -- | The @RegexPatternSetId@ of the 'RegexPatternSet' that you want to delete. @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' . drpsRegexPatternSetId :: Lens' DeleteRegexPatternSet Text-drpsRegexPatternSetId = lens _drpsRegexPatternSetId (\ s a -> s{_drpsRegexPatternSetId = a});+drpsRegexPatternSetId = lens _drpsRegexPatternSetId (\ s a -> s{_drpsRegexPatternSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . drpsChangeToken :: Lens' DeleteRegexPatternSet Text-drpsChangeToken = lens _drpsChangeToken (\ s a -> s{_drpsChangeToken = a});+drpsChangeToken = lens _drpsChangeToken (\ s a -> s{_drpsChangeToken = a})  instance AWSRequest DeleteRegexPatternSet where         type Rs DeleteRegexPatternSet =@@ -135,15 +135,15 @@     -> DeleteRegexPatternSetResponse deleteRegexPatternSetResponse pResponseStatus_ =   DeleteRegexPatternSetResponse'-  {_drpsrsChangeToken = Nothing, _drpsrsResponseStatus = pResponseStatus_}+    {_drpsrsChangeToken = Nothing, _drpsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteRegexPatternSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . drpsrsChangeToken :: Lens' DeleteRegexPatternSetResponse (Maybe Text)-drpsrsChangeToken = lens _drpsrsChangeToken (\ s a -> s{_drpsrsChangeToken = a});+drpsrsChangeToken = lens _drpsrsChangeToken (\ s a -> s{_drpsrsChangeToken = a})  -- | -- | The response status code. drpsrsResponseStatus :: Lens' DeleteRegexPatternSetResponse Int-drpsrsResponseStatus = lens _drpsrsResponseStatus (\ s a -> s{_drpsrsResponseStatus = a});+drpsrsResponseStatus = lens _drpsrsResponseStatus (\ s a -> s{_drpsrsResponseStatus = a})  instance NFData DeleteRegexPatternSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,11 +81,11 @@  -- | The @RuleId@ of the 'Rule' that you want to delete. @RuleId@ is returned by 'CreateRule' and by 'ListRules' . drRuleId :: Lens' DeleteRule Text-drRuleId = lens _drRuleId (\ s a -> s{_drRuleId = a});+drRuleId = lens _drRuleId (\ s a -> s{_drRuleId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . drChangeToken :: Lens' DeleteRule Text-drChangeToken = lens _drChangeToken (\ s a -> s{_drChangeToken = a});+drChangeToken = lens _drChangeToken (\ s a -> s{_drChangeToken = a})  instance AWSRequest DeleteRule where         type Rs DeleteRule = DeleteRuleResponse@@ -142,15 +142,15 @@     -> DeleteRuleResponse deleteRuleResponse pResponseStatus_ =   DeleteRuleResponse'-  {_drrsChangeToken = Nothing, _drrsResponseStatus = pResponseStatus_}+    {_drrsChangeToken = Nothing, _drrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . drrsChangeToken :: Lens' DeleteRuleResponse (Maybe Text)-drrsChangeToken = lens _drrsChangeToken (\ s a -> s{_drrsChangeToken = a});+drrsChangeToken = lens _drrsChangeToken (\ s a -> s{_drrsChangeToken = a})  -- | -- | The response status code. drrsResponseStatus :: Lens' DeleteRuleResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DeleteRuleResponse where

@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.DeleteRuleGroup+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Permanently deletes a 'RuleGroup' . You can't delete a @RuleGroup@ if it's still used in any @WebACL@ objects or if it still includes any rules.+--+--+-- If you just want to remove a @RuleGroup@ from a @WebACL@ , use 'UpdateWebACL' .+--+-- To permanently delete a @RuleGroup@ from AWS WAF, perform the following steps:+--+--     * Update the @RuleGroup@ to remove rules, if any. For more information, see 'UpdateRuleGroup' .+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @DeleteRuleGroup@ request.+--+--     * Submit a @DeleteRuleGroup@ request.+--+--+--+module Network.AWS.WAFRegional.DeleteRuleGroup+    (+    -- * Creating a Request+      deleteRuleGroup+    , DeleteRuleGroup+    -- * Request Lenses+    , drgRuleGroupId+    , drgChangeToken++    -- * Destructuring the Response+    , deleteRuleGroupResponse+    , DeleteRuleGroupResponse+    -- * Response Lenses+    , drgrsChangeToken+    , drgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'deleteRuleGroup' smart constructor.+data DeleteRuleGroup = DeleteRuleGroup'+  { _drgRuleGroupId :: !Text+  , _drgChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRuleGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drgRuleGroupId' - The @RuleGroupId@ of the 'RuleGroup' that you want to delete. @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+--+-- * 'drgChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+deleteRuleGroup+    :: Text -- ^ 'drgRuleGroupId'+    -> Text -- ^ 'drgChangeToken'+    -> DeleteRuleGroup+deleteRuleGroup pRuleGroupId_ pChangeToken_ =+  DeleteRuleGroup'+    {_drgRuleGroupId = pRuleGroupId_, _drgChangeToken = pChangeToken_}+++-- | The @RuleGroupId@ of the 'RuleGroup' that you want to delete. @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+drgRuleGroupId :: Lens' DeleteRuleGroup Text+drgRuleGroupId = lens _drgRuleGroupId (\ s a -> s{_drgRuleGroupId = a})++-- | The value returned by the most recent call to 'GetChangeToken' .+drgChangeToken :: Lens' DeleteRuleGroup Text+drgChangeToken = lens _drgChangeToken (\ s a -> s{_drgChangeToken = a})++instance AWSRequest DeleteRuleGroup where+        type Rs DeleteRuleGroup = DeleteRuleGroupResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 DeleteRuleGroupResponse' <$>+                   (x .?> "ChangeToken") <*> (pure (fromEnum s)))++instance Hashable DeleteRuleGroup where++instance NFData DeleteRuleGroup where++instance ToHeaders DeleteRuleGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.DeleteRuleGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteRuleGroup where+        toJSON DeleteRuleGroup'{..}+          = object+              (catMaybes+                 [Just ("RuleGroupId" .= _drgRuleGroupId),+                  Just ("ChangeToken" .= _drgChangeToken)])++instance ToPath DeleteRuleGroup where+        toPath = const "/"++instance ToQuery DeleteRuleGroup where+        toQuery = const mempty++-- | /See:/ 'deleteRuleGroupResponse' smart constructor.+data DeleteRuleGroupResponse = DeleteRuleGroupResponse'+  { _drgrsChangeToken    :: !(Maybe Text)+  , _drgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRuleGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drgrsChangeToken' - The @ChangeToken@ that you used to submit the @DeleteRuleGroup@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' .+--+-- * 'drgrsResponseStatus' - -- | The response status code.+deleteRuleGroupResponse+    :: Int -- ^ 'drgrsResponseStatus'+    -> DeleteRuleGroupResponse+deleteRuleGroupResponse pResponseStatus_ =+  DeleteRuleGroupResponse'+    {_drgrsChangeToken = Nothing, _drgrsResponseStatus = pResponseStatus_}+++-- | The @ChangeToken@ that you used to submit the @DeleteRuleGroup@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' .+drgrsChangeToken :: Lens' DeleteRuleGroupResponse (Maybe Text)+drgrsChangeToken = lens _drgrsChangeToken (\ s a -> s{_drgrsChangeToken = a})++-- | -- | The response status code.+drgrsResponseStatus :: Lens' DeleteRuleGroupResponse Int+drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a})++instance NFData DeleteRuleGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteSizeConstraintSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,18 +77,18 @@     -> DeleteSizeConstraintSet deleteSizeConstraintSet pSizeConstraintSetId_ pChangeToken_ =   DeleteSizeConstraintSet'-  { _dscsSizeConstraintSetId = pSizeConstraintSetId_-  , _dscsChangeToken = pChangeToken_-  }+    { _dscsSizeConstraintSetId = pSizeConstraintSetId_+    , _dscsChangeToken = pChangeToken_+    }   -- | The @SizeConstraintSetId@ of the 'SizeConstraintSet' that you want to delete. @SizeConstraintSetId@ is returned by 'CreateSizeConstraintSet' and by 'ListSizeConstraintSets' . dscsSizeConstraintSetId :: Lens' DeleteSizeConstraintSet Text-dscsSizeConstraintSetId = lens _dscsSizeConstraintSetId (\ s a -> s{_dscsSizeConstraintSetId = a});+dscsSizeConstraintSetId = lens _dscsSizeConstraintSetId (\ s a -> s{_dscsSizeConstraintSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . dscsChangeToken :: Lens' DeleteSizeConstraintSet Text-dscsChangeToken = lens _dscsChangeToken (\ s a -> s{_dscsChangeToken = a});+dscsChangeToken = lens _dscsChangeToken (\ s a -> s{_dscsChangeToken = a})  instance AWSRequest DeleteSizeConstraintSet where         type Rs DeleteSizeConstraintSet =@@ -147,15 +147,15 @@     -> DeleteSizeConstraintSetResponse deleteSizeConstraintSetResponse pResponseStatus_ =   DeleteSizeConstraintSetResponse'-  {_dscsrsChangeToken = Nothing, _dscsrsResponseStatus = pResponseStatus_}+    {_dscsrsChangeToken = Nothing, _dscsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteSizeConstraintSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . dscsrsChangeToken :: Lens' DeleteSizeConstraintSetResponse (Maybe Text)-dscsrsChangeToken = lens _dscsrsChangeToken (\ s a -> s{_dscsrsChangeToken = a});+dscsrsChangeToken = lens _dscsrsChangeToken (\ s a -> s{_dscsrsChangeToken = a})  -- | -- | The response status code. dscsrsResponseStatus :: Lens' DeleteSizeConstraintSetResponse Int-dscsrsResponseStatus = lens _dscsrsResponseStatus (\ s a -> s{_dscsrsResponseStatus = a});+dscsrsResponseStatus = lens _dscsrsResponseStatus (\ s a -> s{_dscsrsResponseStatus = a})  instance NFData DeleteSizeConstraintSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteSqlInjectionMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,18 +81,18 @@     -> DeleteSqlInjectionMatchSet deleteSqlInjectionMatchSet pSqlInjectionMatchSetId_ pChangeToken_ =   DeleteSqlInjectionMatchSet'-  { _dsimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_-  , _dsimsChangeToken = pChangeToken_-  }+    { _dsimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_+    , _dsimsChangeToken = pChangeToken_+    }   -- | The @SqlInjectionMatchSetId@ of the 'SqlInjectionMatchSet' that you want to delete. @SqlInjectionMatchSetId@ is returned by 'CreateSqlInjectionMatchSet' and by 'ListSqlInjectionMatchSets' . dsimsSqlInjectionMatchSetId :: Lens' DeleteSqlInjectionMatchSet Text-dsimsSqlInjectionMatchSetId = lens _dsimsSqlInjectionMatchSetId (\ s a -> s{_dsimsSqlInjectionMatchSetId = a});+dsimsSqlInjectionMatchSetId = lens _dsimsSqlInjectionMatchSetId (\ s a -> s{_dsimsSqlInjectionMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . dsimsChangeToken :: Lens' DeleteSqlInjectionMatchSet Text-dsimsChangeToken = lens _dsimsChangeToken (\ s a -> s{_dsimsChangeToken = a});+dsimsChangeToken = lens _dsimsChangeToken (\ s a -> s{_dsimsChangeToken = a})  instance AWSRequest DeleteSqlInjectionMatchSet where         type Rs DeleteSqlInjectionMatchSet =@@ -156,16 +156,16 @@     -> DeleteSqlInjectionMatchSetResponse deleteSqlInjectionMatchSetResponse pResponseStatus_ =   DeleteSqlInjectionMatchSetResponse'-  {_dsimsrsChangeToken = Nothing, _dsimsrsResponseStatus = pResponseStatus_}+    {_dsimsrsChangeToken = Nothing, _dsimsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteSqlInjectionMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . dsimsrsChangeToken :: Lens' DeleteSqlInjectionMatchSetResponse (Maybe Text)-dsimsrsChangeToken = lens _dsimsrsChangeToken (\ s a -> s{_dsimsrsChangeToken = a});+dsimsrsChangeToken = lens _dsimsrsChangeToken (\ s a -> s{_dsimsrsChangeToken = a})  -- | -- | The response status code. dsimsrsResponseStatus :: Lens' DeleteSqlInjectionMatchSetResponse Int-dsimsrsResponseStatus = lens _dsimsrsResponseStatus (\ s a -> s{_dsimsrsResponseStatus = a});+dsimsrsResponseStatus = lens _dsimsrsResponseStatus (\ s a -> s{_dsimsrsResponseStatus = a})  instance NFData DeleteSqlInjectionMatchSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,11 +79,11 @@  -- | The @WebACLId@ of the 'WebACL' that you want to delete. @WebACLId@ is returned by 'CreateWebACL' and by 'ListWebACLs' . dwaWebACLId :: Lens' DeleteWebACL Text-dwaWebACLId = lens _dwaWebACLId (\ s a -> s{_dwaWebACLId = a});+dwaWebACLId = lens _dwaWebACLId (\ s a -> s{_dwaWebACLId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . dwaChangeToken :: Lens' DeleteWebACL Text-dwaChangeToken = lens _dwaChangeToken (\ s a -> s{_dwaChangeToken = a});+dwaChangeToken = lens _dwaChangeToken (\ s a -> s{_dwaChangeToken = a})  instance AWSRequest DeleteWebACL where         type Rs DeleteWebACL = DeleteWebACLResponse@@ -140,15 +140,15 @@     -> DeleteWebACLResponse deleteWebACLResponse pResponseStatus_ =   DeleteWebACLResponse'-  {_dwarsChangeToken = Nothing, _dwarsResponseStatus = pResponseStatus_}+    {_dwarsChangeToken = Nothing, _dwarsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteWebACL@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . dwarsChangeToken :: Lens' DeleteWebACLResponse (Maybe Text)-dwarsChangeToken = lens _dwarsChangeToken (\ s a -> s{_dwarsChangeToken = a});+dwarsChangeToken = lens _dwarsChangeToken (\ s a -> s{_dwarsChangeToken = a})  -- | -- | The response status code. dwarsResponseStatus :: Lens' DeleteWebACLResponse Int-dwarsResponseStatus = lens _dwarsResponseStatus (\ s a -> s{_dwarsResponseStatus = a});+dwarsResponseStatus = lens _dwarsResponseStatus (\ s a -> s{_dwarsResponseStatus = a})  instance NFData DeleteWebACLResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DeleteXSSMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,16 +81,16 @@     -> DeleteXSSMatchSet deleteXSSMatchSet pXSSMatchSetId_ pChangeToken_ =   DeleteXSSMatchSet'-  {_dxmsXSSMatchSetId = pXSSMatchSetId_, _dxmsChangeToken = pChangeToken_}+    {_dxmsXSSMatchSetId = pXSSMatchSetId_, _dxmsChangeToken = pChangeToken_}   -- | The @XssMatchSetId@ of the 'XssMatchSet' that you want to delete. @XssMatchSetId@ is returned by 'CreateXssMatchSet' and by 'ListXssMatchSets' . dxmsXSSMatchSetId :: Lens' DeleteXSSMatchSet Text-dxmsXSSMatchSetId = lens _dxmsXSSMatchSetId (\ s a -> s{_dxmsXSSMatchSetId = a});+dxmsXSSMatchSetId = lens _dxmsXSSMatchSetId (\ s a -> s{_dxmsXSSMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . dxmsChangeToken :: Lens' DeleteXSSMatchSet Text-dxmsChangeToken = lens _dxmsChangeToken (\ s a -> s{_dxmsChangeToken = a});+dxmsChangeToken = lens _dxmsChangeToken (\ s a -> s{_dxmsChangeToken = a})  instance AWSRequest DeleteXSSMatchSet where         type Rs DeleteXSSMatchSet = DeleteXSSMatchSetResponse@@ -151,15 +151,15 @@     -> DeleteXSSMatchSetResponse deleteXSSMatchSetResponse pResponseStatus_ =   DeleteXSSMatchSetResponse'-  {_dxmsrsChangeToken = Nothing, _dxmsrsResponseStatus = pResponseStatus_}+    {_dxmsrsChangeToken = Nothing, _dxmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @DeleteXssMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . dxmsrsChangeToken :: Lens' DeleteXSSMatchSetResponse (Maybe Text)-dxmsrsChangeToken = lens _dxmsrsChangeToken (\ s a -> s{_dxmsrsChangeToken = a});+dxmsrsChangeToken = lens _dxmsrsChangeToken (\ s a -> s{_dxmsrsChangeToken = a})  -- | -- | The response status code. dxmsrsResponseStatus :: Lens' DeleteXSSMatchSetResponse Int-dxmsrsResponseStatus = lens _dxmsrsResponseStatus (\ s a -> s{_dxmsrsResponseStatus = a});+dxmsrsResponseStatus = lens _dxmsrsResponseStatus (\ s a -> s{_dxmsrsResponseStatus = a})  instance NFData DeleteXSSMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.DisassociateWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The ARN (Amazon Resource Name) of the resource from which the web ACL is being removed. dwaResourceARN :: Lens' DisassociateWebACL Text-dwaResourceARN = lens _dwaResourceARN (\ s a -> s{_dwaResourceARN = a});+dwaResourceARN = lens _dwaResourceARN (\ s a -> s{_dwaResourceARN = a})  instance AWSRequest DisassociateWebACL where         type Rs DisassociateWebACL =@@ -119,6 +119,6 @@  -- | -- | The response status code. dwaclrsResponseStatus :: Lens' DisassociateWebACLResponse Int-dwaclrsResponseStatus = lens _dwaclrsResponseStatus (\ s a -> s{_dwaclrsResponseStatus = a});+dwaclrsResponseStatus = lens _dwaclrsResponseStatus (\ s a -> s{_dwaclrsResponseStatus = a})  instance NFData DisassociateWebACLResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetByteMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The @ByteMatchSetId@ of the 'ByteMatchSet' that you want to get. @ByteMatchSetId@ is returned by 'CreateByteMatchSet' and by 'ListByteMatchSets' . gbmsByteMatchSetId :: Lens' GetByteMatchSet Text-gbmsByteMatchSetId = lens _gbmsByteMatchSetId (\ s a -> s{_gbmsByteMatchSetId = a});+gbmsByteMatchSetId = lens _gbmsByteMatchSetId (\ s a -> s{_gbmsByteMatchSetId = a})  instance AWSRequest GetByteMatchSet where         type Rs GetByteMatchSet = GetByteMatchSetResponse@@ -120,15 +120,15 @@     -> GetByteMatchSetResponse getByteMatchSetResponse pResponseStatus_ =   GetByteMatchSetResponse'-  {_gbmsrsByteMatchSet = Nothing, _gbmsrsResponseStatus = pResponseStatus_}+    {_gbmsrsByteMatchSet = Nothing, _gbmsrsResponseStatus = pResponseStatus_}   -- | Information about the 'ByteMatchSet' that you specified in the @GetByteMatchSet@ request. For more information, see the following topics:     * 'ByteMatchSet' : Contains @ByteMatchSetId@ , @ByteMatchTuples@ , and @Name@      * @ByteMatchTuples@ : Contains an array of 'ByteMatchTuple' objects. Each @ByteMatchTuple@ object contains 'FieldToMatch' , @PositionalConstraint@ , @TargetString@ , and @TextTransformation@      * 'FieldToMatch' : Contains @Data@ and @Type@ gbmsrsByteMatchSet :: Lens' GetByteMatchSetResponse (Maybe ByteMatchSet)-gbmsrsByteMatchSet = lens _gbmsrsByteMatchSet (\ s a -> s{_gbmsrsByteMatchSet = a});+gbmsrsByteMatchSet = lens _gbmsrsByteMatchSet (\ s a -> s{_gbmsrsByteMatchSet = a})  -- | -- | The response status code. gbmsrsResponseStatus :: Lens' GetByteMatchSetResponse Int-gbmsrsResponseStatus = lens _gbmsrsResponseStatus (\ s a -> s{_gbmsrsResponseStatus = a});+gbmsrsResponseStatus = lens _gbmsrsResponseStatus (\ s a -> s{_gbmsrsResponseStatus = a})  instance NFData GetByteMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetChangeToken--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -110,15 +110,15 @@     -> GetChangeTokenResponse getChangeTokenResponse pResponseStatus_ =   GetChangeTokenResponse'-  {_gctrsChangeToken = Nothing, _gctrsResponseStatus = pResponseStatus_}+    {_gctrsChangeToken = Nothing, _gctrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used in the request. Use this value in a @GetChangeTokenStatus@ request to get the current status of the request. gctrsChangeToken :: Lens' GetChangeTokenResponse (Maybe Text)-gctrsChangeToken = lens _gctrsChangeToken (\ s a -> s{_gctrsChangeToken = a});+gctrsChangeToken = lens _gctrsChangeToken (\ s a -> s{_gctrsChangeToken = a})  -- | -- | The response status code. gctrsResponseStatus :: Lens' GetChangeTokenResponse Int-gctrsResponseStatus = lens _gctrsResponseStatus (\ s a -> s{_gctrsResponseStatus = a});+gctrsResponseStatus = lens _gctrsResponseStatus (\ s a -> s{_gctrsResponseStatus = a})  instance NFData GetChangeTokenResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetChangeTokenStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | The change token for which you want to get the status. This change token was previously returned in the @GetChangeToken@ response. gctsChangeToken :: Lens' GetChangeTokenStatus Text-gctsChangeToken = lens _gctsChangeToken (\ s a -> s{_gctsChangeToken = a});+gctsChangeToken = lens _gctsChangeToken (\ s a -> s{_gctsChangeToken = a})  instance AWSRequest GetChangeTokenStatus where         type Rs GetChangeTokenStatus =@@ -129,15 +129,17 @@     -> GetChangeTokenStatusResponse getChangeTokenStatusResponse pResponseStatus_ =   GetChangeTokenStatusResponse'-  {_gctsrsChangeTokenStatus = Nothing, _gctsrsResponseStatus = pResponseStatus_}+    { _gctsrsChangeTokenStatus = Nothing+    , _gctsrsResponseStatus = pResponseStatus_+    }   -- | The status of the change token. gctsrsChangeTokenStatus :: Lens' GetChangeTokenStatusResponse (Maybe ChangeTokenStatus)-gctsrsChangeTokenStatus = lens _gctsrsChangeTokenStatus (\ s a -> s{_gctsrsChangeTokenStatus = a});+gctsrsChangeTokenStatus = lens _gctsrsChangeTokenStatus (\ s a -> s{_gctsrsChangeTokenStatus = a})  -- | -- | The response status code. gctsrsResponseStatus :: Lens' GetChangeTokenStatusResponse Int-gctsrsResponseStatus = lens _gctsrsResponseStatus (\ s a -> s{_gctsrsResponseStatus = a});+gctsrsResponseStatus = lens _gctsrsResponseStatus (\ s a -> s{_gctsrsResponseStatus = a})  instance NFData GetChangeTokenStatusResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetGeoMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The @GeoMatchSetId@ of the 'GeoMatchSet' that you want to get. @GeoMatchSetId@ is returned by 'CreateGeoMatchSet' and by 'ListGeoMatchSets' . ggmsGeoMatchSetId :: Lens' GetGeoMatchSet Text-ggmsGeoMatchSetId = lens _ggmsGeoMatchSetId (\ s a -> s{_ggmsGeoMatchSetId = a});+ggmsGeoMatchSetId = lens _ggmsGeoMatchSetId (\ s a -> s{_ggmsGeoMatchSetId = a})  instance AWSRequest GetGeoMatchSet where         type Rs GetGeoMatchSet = GetGeoMatchSetResponse@@ -120,15 +120,15 @@     -> GetGeoMatchSetResponse getGeoMatchSetResponse pResponseStatus_ =   GetGeoMatchSetResponse'-  {_ggmsrsGeoMatchSet = Nothing, _ggmsrsResponseStatus = pResponseStatus_}+    {_ggmsrsGeoMatchSet = Nothing, _ggmsrsResponseStatus = pResponseStatus_}   -- | Information about the 'GeoMatchSet' that you specified in the @GetGeoMatchSet@ request. This includes the @Type@ , which for a @GeoMatchContraint@ is always @Country@ , as well as the @Value@ , which is the identifier for a specific country. ggmsrsGeoMatchSet :: Lens' GetGeoMatchSetResponse (Maybe GeoMatchSet)-ggmsrsGeoMatchSet = lens _ggmsrsGeoMatchSet (\ s a -> s{_ggmsrsGeoMatchSet = a});+ggmsrsGeoMatchSet = lens _ggmsrsGeoMatchSet (\ s a -> s{_ggmsrsGeoMatchSet = a})  -- | -- | The response status code. ggmsrsResponseStatus :: Lens' GetGeoMatchSetResponse Int-ggmsrsResponseStatus = lens _ggmsrsResponseStatus (\ s a -> s{_ggmsrsResponseStatus = a});+ggmsrsResponseStatus = lens _ggmsrsResponseStatus (\ s a -> s{_ggmsrsResponseStatus = a})  instance NFData GetGeoMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetIPSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The @IPSetId@ of the 'IPSet' that you want to get. @IPSetId@ is returned by 'CreateIPSet' and by 'ListIPSets' . gisIPSetId :: Lens' GetIPSet Text-gisIPSetId = lens _gisIPSetId (\ s a -> s{_gisIPSetId = a});+gisIPSetId = lens _gisIPSetId (\ s a -> s{_gisIPSetId = a})  instance AWSRequest GetIPSet where         type Rs GetIPSet = GetIPSetResponse@@ -117,15 +117,15 @@     -> GetIPSetResponse getIPSetResponse pResponseStatus_ =   GetIPSetResponse'-  {_gisrsIPSet = Nothing, _gisrsResponseStatus = pResponseStatus_}+    {_gisrsIPSet = Nothing, _gisrsResponseStatus = pResponseStatus_}   -- | Information about the 'IPSet' that you specified in the @GetIPSet@ request. For more information, see the following topics:     * 'IPSet' : Contains @IPSetDescriptors@ , @IPSetId@ , and @Name@      * @IPSetDescriptors@ : Contains an array of 'IPSetDescriptor' objects. Each @IPSetDescriptor@ object contains @Type@ and @Value@ gisrsIPSet :: Lens' GetIPSetResponse (Maybe IPSet)-gisrsIPSet = lens _gisrsIPSet (\ s a -> s{_gisrsIPSet = a});+gisrsIPSet = lens _gisrsIPSet (\ s a -> s{_gisrsIPSet = a})  -- | -- | The response status code. gisrsResponseStatus :: Lens' GetIPSetResponse Int-gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a});+gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a})  instance NFData GetIPSetResponse where

@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.GetPermissionPolicy+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the IAM policy attached to the RuleGroup.+--+--+module Network.AWS.WAFRegional.GetPermissionPolicy+    (+    -- * Creating a Request+      getPermissionPolicy+    , GetPermissionPolicy+    -- * Request Lenses+    , gppResourceARN++    -- * Destructuring the Response+    , getPermissionPolicyResponse+    , GetPermissionPolicyResponse+    -- * Response Lenses+    , gpprsPolicy+    , gpprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'getPermissionPolicy' smart constructor.+newtype GetPermissionPolicy = GetPermissionPolicy'+  { _gppResourceARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetPermissionPolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gppResourceARN' - The Amazon Resource Name (ARN) of the RuleGroup for which you want to get the policy.+getPermissionPolicy+    :: Text -- ^ 'gppResourceARN'+    -> GetPermissionPolicy+getPermissionPolicy pResourceARN_ =+  GetPermissionPolicy' {_gppResourceARN = pResourceARN_}+++-- | The Amazon Resource Name (ARN) of the RuleGroup for which you want to get the policy.+gppResourceARN :: Lens' GetPermissionPolicy Text+gppResourceARN = lens _gppResourceARN (\ s a -> s{_gppResourceARN = a})++instance AWSRequest GetPermissionPolicy where+        type Rs GetPermissionPolicy =+             GetPermissionPolicyResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 GetPermissionPolicyResponse' <$>+                   (x .?> "Policy") <*> (pure (fromEnum s)))++instance Hashable GetPermissionPolicy where++instance NFData GetPermissionPolicy where++instance ToHeaders GetPermissionPolicy where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.GetPermissionPolicy" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetPermissionPolicy where+        toJSON GetPermissionPolicy'{..}+          = object+              (catMaybes [Just ("ResourceArn" .= _gppResourceARN)])++instance ToPath GetPermissionPolicy where+        toPath = const "/"++instance ToQuery GetPermissionPolicy where+        toQuery = const mempty++-- | /See:/ 'getPermissionPolicyResponse' smart constructor.+data GetPermissionPolicyResponse = GetPermissionPolicyResponse'+  { _gpprsPolicy         :: !(Maybe Text)+  , _gpprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetPermissionPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gpprsPolicy' - The IAM policy attached to the specified RuleGroup.+--+-- * 'gpprsResponseStatus' - -- | The response status code.+getPermissionPolicyResponse+    :: Int -- ^ 'gpprsResponseStatus'+    -> GetPermissionPolicyResponse+getPermissionPolicyResponse pResponseStatus_ =+  GetPermissionPolicyResponse'+    {_gpprsPolicy = Nothing, _gpprsResponseStatus = pResponseStatus_}+++-- | The IAM policy attached to the specified RuleGroup.+gpprsPolicy :: Lens' GetPermissionPolicyResponse (Maybe Text)+gpprsPolicy = lens _gpprsPolicy (\ s a -> s{_gpprsPolicy = a})++-- | -- | The response status code.+gpprsResponseStatus :: Lens' GetPermissionPolicyResponse Int+gpprsResponseStatus = lens _gpprsResponseStatus (\ s a -> s{_gpprsResponseStatus = a})++instance NFData GetPermissionPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetRateBasedRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The @RuleId@ of the 'RateBasedRule' that you want to get. @RuleId@ is returned by 'CreateRateBasedRule' and by 'ListRateBasedRules' . grbrRuleId :: Lens' GetRateBasedRule Text-grbrRuleId = lens _grbrRuleId (\ s a -> s{_grbrRuleId = a});+grbrRuleId = lens _grbrRuleId (\ s a -> s{_grbrRuleId = a})  instance AWSRequest GetRateBasedRule where         type Rs GetRateBasedRule = GetRateBasedRuleResponse@@ -117,15 +117,15 @@     -> GetRateBasedRuleResponse getRateBasedRuleResponse pResponseStatus_ =   GetRateBasedRuleResponse'-  {_grbrrsRule = Nothing, _grbrrsResponseStatus = pResponseStatus_}+    {_grbrrsRule = Nothing, _grbrrsResponseStatus = pResponseStatus_}   -- | Information about the 'RateBasedRule' that you specified in the @GetRateBasedRule@ request. grbrrsRule :: Lens' GetRateBasedRuleResponse (Maybe RateBasedRule)-grbrrsRule = lens _grbrrsRule (\ s a -> s{_grbrrsRule = a});+grbrrsRule = lens _grbrrsRule (\ s a -> s{_grbrrsRule = a})  -- | -- | The response status code. grbrrsResponseStatus :: Lens' GetRateBasedRuleResponse Int-grbrrsResponseStatus = lens _grbrrsResponseStatus (\ s a -> s{_grbrrsResponseStatus = a});+grbrrsResponseStatus = lens _grbrrsResponseStatus (\ s a -> s{_grbrrsResponseStatus = a})  instance NFData GetRateBasedRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetRateBasedRuleManagedKeys--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,16 +65,16 @@     -> GetRateBasedRuleManagedKeys getRateBasedRuleManagedKeys pRuleId_ =   GetRateBasedRuleManagedKeys'-  {_grbrmkNextMarker = Nothing, _grbrmkRuleId = pRuleId_}+    {_grbrmkNextMarker = Nothing, _grbrmkRuleId = pRuleId_}   -- | A null value and not currently used. Do not include this in your request. grbrmkNextMarker :: Lens' GetRateBasedRuleManagedKeys (Maybe Text)-grbrmkNextMarker = lens _grbrmkNextMarker (\ s a -> s{_grbrmkNextMarker = a});+grbrmkNextMarker = lens _grbrmkNextMarker (\ s a -> s{_grbrmkNextMarker = a})  -- | The @RuleId@ of the 'RateBasedRule' for which you want to get a list of @ManagedKeys@ . @RuleId@ is returned by 'CreateRateBasedRule' and by 'ListRateBasedRules' . grbrmkRuleId :: Lens' GetRateBasedRuleManagedKeys Text-grbrmkRuleId = lens _grbrmkRuleId (\ s a -> s{_grbrmkRuleId = a});+grbrmkRuleId = lens _grbrmkRuleId (\ s a -> s{_grbrmkRuleId = a})  instance AWSRequest GetRateBasedRuleManagedKeys where         type Rs GetRateBasedRuleManagedKeys =@@ -137,23 +137,23 @@     -> GetRateBasedRuleManagedKeysResponse getRateBasedRuleManagedKeysResponse pResponseStatus_ =   GetRateBasedRuleManagedKeysResponse'-  { _grbrmkrsNextMarker = Nothing-  , _grbrmkrsManagedKeys = Nothing-  , _grbrmkrsResponseStatus = pResponseStatus_-  }+    { _grbrmkrsNextMarker = Nothing+    , _grbrmkrsManagedKeys = Nothing+    , _grbrmkrsResponseStatus = pResponseStatus_+    }   -- | A null value and not currently used. grbrmkrsNextMarker :: Lens' GetRateBasedRuleManagedKeysResponse (Maybe Text)-grbrmkrsNextMarker = lens _grbrmkrsNextMarker (\ s a -> s{_grbrmkrsNextMarker = a});+grbrmkrsNextMarker = lens _grbrmkrsNextMarker (\ s a -> s{_grbrmkrsNextMarker = a})  -- | An array of IP addresses that currently are blocked by the specified 'RateBasedRule' . grbrmkrsManagedKeys :: Lens' GetRateBasedRuleManagedKeysResponse [Text]-grbrmkrsManagedKeys = lens _grbrmkrsManagedKeys (\ s a -> s{_grbrmkrsManagedKeys = a}) . _Default . _Coerce;+grbrmkrsManagedKeys = lens _grbrmkrsManagedKeys (\ s a -> s{_grbrmkrsManagedKeys = a}) . _Default . _Coerce  -- | -- | The response status code. grbrmkrsResponseStatus :: Lens' GetRateBasedRuleManagedKeysResponse Int-grbrmkrsResponseStatus = lens _grbrmkrsResponseStatus (\ s a -> s{_grbrmkrsResponseStatus = a});+grbrmkrsResponseStatus = lens _grbrmkrsResponseStatus (\ s a -> s{_grbrmkrsResponseStatus = a})  instance NFData GetRateBasedRuleManagedKeysResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetRegexMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The @RegexMatchSetId@ of the 'RegexMatchSet' that you want to get. @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' . grmsRegexMatchSetId :: Lens' GetRegexMatchSet Text-grmsRegexMatchSetId = lens _grmsRegexMatchSetId (\ s a -> s{_grmsRegexMatchSetId = a});+grmsRegexMatchSetId = lens _grmsRegexMatchSetId (\ s a -> s{_grmsRegexMatchSetId = a})  instance AWSRequest GetRegexMatchSet where         type Rs GetRegexMatchSet = GetRegexMatchSetResponse@@ -120,15 +120,15 @@     -> GetRegexMatchSetResponse getRegexMatchSetResponse pResponseStatus_ =   GetRegexMatchSetResponse'-  {_grmsrsRegexMatchSet = Nothing, _grmsrsResponseStatus = pResponseStatus_}+    {_grmsrsRegexMatchSet = Nothing, _grmsrsResponseStatus = pResponseStatus_}   -- | Information about the 'RegexMatchSet' that you specified in the @GetRegexMatchSet@ request. For more information, see 'RegexMatchTuple' . grmsrsRegexMatchSet :: Lens' GetRegexMatchSetResponse (Maybe RegexMatchSet)-grmsrsRegexMatchSet = lens _grmsrsRegexMatchSet (\ s a -> s{_grmsrsRegexMatchSet = a});+grmsrsRegexMatchSet = lens _grmsrsRegexMatchSet (\ s a -> s{_grmsrsRegexMatchSet = a})  -- | -- | The response status code. grmsrsResponseStatus :: Lens' GetRegexMatchSetResponse Int-grmsrsResponseStatus = lens _grmsrsResponseStatus (\ s a -> s{_grmsrsResponseStatus = a});+grmsrsResponseStatus = lens _grmsrsResponseStatus (\ s a -> s{_grmsrsResponseStatus = a})  instance NFData GetRegexMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetRegexPatternSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The @RegexPatternSetId@ of the 'RegexPatternSet' that you want to get. @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' . grpsRegexPatternSetId :: Lens' GetRegexPatternSet Text-grpsRegexPatternSetId = lens _grpsRegexPatternSetId (\ s a -> s{_grpsRegexPatternSetId = a});+grpsRegexPatternSetId = lens _grpsRegexPatternSetId (\ s a -> s{_grpsRegexPatternSetId = a})  instance AWSRequest GetRegexPatternSet where         type Rs GetRegexPatternSet =@@ -122,15 +122,15 @@     -> GetRegexPatternSetResponse getRegexPatternSetResponse pResponseStatus_ =   GetRegexPatternSetResponse'-  {_grpsrsRegexPatternSet = Nothing, _grpsrsResponseStatus = pResponseStatus_}+    {_grpsrsRegexPatternSet = Nothing, _grpsrsResponseStatus = pResponseStatus_}   -- | Information about the 'RegexPatternSet' that you specified in the @GetRegexPatternSet@ request, including the identifier of the pattern set and the regular expression patterns you want AWS WAF to search for. grpsrsRegexPatternSet :: Lens' GetRegexPatternSetResponse (Maybe RegexPatternSet)-grpsrsRegexPatternSet = lens _grpsrsRegexPatternSet (\ s a -> s{_grpsrsRegexPatternSet = a});+grpsrsRegexPatternSet = lens _grpsrsRegexPatternSet (\ s a -> s{_grpsrsRegexPatternSet = a})  -- | -- | The response status code. grpsrsResponseStatus :: Lens' GetRegexPatternSetResponse Int-grpsrsResponseStatus = lens _grpsrsResponseStatus (\ s a -> s{_grpsrsResponseStatus = a});+grpsrsResponseStatus = lens _grpsrsResponseStatus (\ s a -> s{_grpsrsResponseStatus = a})  instance NFData GetRegexPatternSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The @RuleId@ of the 'Rule' that you want to get. @RuleId@ is returned by 'CreateRule' and by 'ListRules' . grRuleId :: Lens' GetRule Text-grRuleId = lens _grRuleId (\ s a -> s{_grRuleId = a});+grRuleId = lens _grRuleId (\ s a -> s{_grRuleId = a})  instance AWSRequest GetRule where         type Rs GetRule = GetRuleResponse@@ -120,10 +120,10 @@  -- | Information about the 'Rule' that you specified in the @GetRule@ request. For more information, see the following topics:     * 'Rule' : Contains @MetricName@ , @Name@ , an array of @Predicate@ objects, and @RuleId@      * 'Predicate' : Each @Predicate@ object contains @DataId@ , @Negated@ , and @Type@ grrsRule :: Lens' GetRuleResponse (Maybe Rule)-grrsRule = lens _grrsRule (\ s a -> s{_grrsRule = a});+grrsRule = lens _grrsRule (\ s a -> s{_grrsRule = a})  -- | -- | The response status code. grrsResponseStatus :: Lens' GetRuleResponse Int-grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})  instance NFData GetRuleResponse where

@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.GetRuleGroup+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the 'RuleGroup' that is specified by the @RuleGroupId@ that you included in the @GetRuleGroup@ request.+--+--+-- To view the rules in a rule group, use 'ListActivatedRulesInRuleGroup' .+--+module Network.AWS.WAFRegional.GetRuleGroup+    (+    -- * Creating a Request+      getRuleGroup+    , GetRuleGroup+    -- * Request Lenses+    , grgRuleGroupId++    -- * Destructuring the Response+    , getRuleGroupResponse+    , GetRuleGroupResponse+    -- * Response Lenses+    , grgrsRuleGroup+    , grgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'getRuleGroup' smart constructor.+newtype GetRuleGroup = GetRuleGroup'+  { _grgRuleGroupId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRuleGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grgRuleGroupId' - The @RuleGroupId@ of the 'RuleGroup' that you want to get. @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+getRuleGroup+    :: Text -- ^ 'grgRuleGroupId'+    -> GetRuleGroup+getRuleGroup pRuleGroupId_ = GetRuleGroup' {_grgRuleGroupId = pRuleGroupId_}+++-- | The @RuleGroupId@ of the 'RuleGroup' that you want to get. @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+grgRuleGroupId :: Lens' GetRuleGroup Text+grgRuleGroupId = lens _grgRuleGroupId (\ s a -> s{_grgRuleGroupId = a})++instance AWSRequest GetRuleGroup where+        type Rs GetRuleGroup = GetRuleGroupResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 GetRuleGroupResponse' <$>+                   (x .?> "RuleGroup") <*> (pure (fromEnum s)))++instance Hashable GetRuleGroup where++instance NFData GetRuleGroup where++instance ToHeaders GetRuleGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.GetRuleGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetRuleGroup where+        toJSON GetRuleGroup'{..}+          = object+              (catMaybes [Just ("RuleGroupId" .= _grgRuleGroupId)])++instance ToPath GetRuleGroup where+        toPath = const "/"++instance ToQuery GetRuleGroup where+        toQuery = const mempty++-- | /See:/ 'getRuleGroupResponse' smart constructor.+data GetRuleGroupResponse = GetRuleGroupResponse'+  { _grgrsRuleGroup      :: !(Maybe RuleGroup)+  , _grgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRuleGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grgrsRuleGroup' - Information about the 'RuleGroup' that you specified in the @GetRuleGroup@ request.+--+-- * 'grgrsResponseStatus' - -- | The response status code.+getRuleGroupResponse+    :: Int -- ^ 'grgrsResponseStatus'+    -> GetRuleGroupResponse+getRuleGroupResponse pResponseStatus_ =+  GetRuleGroupResponse'+    {_grgrsRuleGroup = Nothing, _grgrsResponseStatus = pResponseStatus_}+++-- | Information about the 'RuleGroup' that you specified in the @GetRuleGroup@ request.+grgrsRuleGroup :: Lens' GetRuleGroupResponse (Maybe RuleGroup)+grgrsRuleGroup = lens _grgrsRuleGroup (\ s a -> s{_grgrsRuleGroup = a})++-- | -- | The response status code.+grgrsResponseStatus :: Lens' GetRuleGroupResponse Int+grgrsResponseStatus = lens _grgrsResponseStatus (\ s a -> s{_grgrsResponseStatus = a})++instance NFData GetRuleGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetSampledRequests--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@ -- -- * 'gsrWebACLId' - The @WebACLId@ of the @WebACL@ for which you want @GetSampledRequests@ to return a sample of requests. ----- * 'gsrRuleId' - @RuleId@ is one of two values:     * The @RuleId@ of the @Rule@ for which you want @GetSampledRequests@ to return a sample of requests.     * @Default_Action@ , which causes @GetSampledRequests@ to return a sample of the requests that didn't match any of the rules in the specified @WebACL@ .+-- * 'gsrRuleId' - @RuleId@ is one of three values:     * The @RuleId@ of the @Rule@ or the @RuleGroupId@ of the @RuleGroup@ for which you want @GetSampledRequests@ to return a sample of requests.     * @Default_Action@ , which causes @GetSampledRequests@ to return a sample of the requests that didn't match any of the rules in the specified @WebACL@ . -- -- * 'gsrTimeWindow' - The start date and time and the end date and time of the range for which you want @GetSampledRequests@ to return a sample of requests. Specify the date and time in the following format: @"2016-09-27T14:50Z"@ . You can specify any time range in the previous three hours. --@@ -79,28 +79,28 @@     -> GetSampledRequests getSampledRequests pWebACLId_ pRuleId_ pTimeWindow_ pMaxItems_ =   GetSampledRequests'-  { _gsrWebACLId = pWebACLId_-  , _gsrRuleId = pRuleId_-  , _gsrTimeWindow = pTimeWindow_-  , _gsrMaxItems = _Nat # pMaxItems_-  }+    { _gsrWebACLId = pWebACLId_+    , _gsrRuleId = pRuleId_+    , _gsrTimeWindow = pTimeWindow_+    , _gsrMaxItems = _Nat # pMaxItems_+    }   -- | The @WebACLId@ of the @WebACL@ for which you want @GetSampledRequests@ to return a sample of requests. gsrWebACLId :: Lens' GetSampledRequests Text-gsrWebACLId = lens _gsrWebACLId (\ s a -> s{_gsrWebACLId = a});+gsrWebACLId = lens _gsrWebACLId (\ s a -> s{_gsrWebACLId = a}) --- | @RuleId@ is one of two values:     * The @RuleId@ of the @Rule@ for which you want @GetSampledRequests@ to return a sample of requests.     * @Default_Action@ , which causes @GetSampledRequests@ to return a sample of the requests that didn't match any of the rules in the specified @WebACL@ .+-- | @RuleId@ is one of three values:     * The @RuleId@ of the @Rule@ or the @RuleGroupId@ of the @RuleGroup@ for which you want @GetSampledRequests@ to return a sample of requests.     * @Default_Action@ , which causes @GetSampledRequests@ to return a sample of the requests that didn't match any of the rules in the specified @WebACL@ . gsrRuleId :: Lens' GetSampledRequests Text-gsrRuleId = lens _gsrRuleId (\ s a -> s{_gsrRuleId = a});+gsrRuleId = lens _gsrRuleId (\ s a -> s{_gsrRuleId = a})  -- | The start date and time and the end date and time of the range for which you want @GetSampledRequests@ to return a sample of requests. Specify the date and time in the following format: @"2016-09-27T14:50Z"@ . You can specify any time range in the previous three hours. gsrTimeWindow :: Lens' GetSampledRequests TimeWindow-gsrTimeWindow = lens _gsrTimeWindow (\ s a -> s{_gsrTimeWindow = a});+gsrTimeWindow = lens _gsrTimeWindow (\ s a -> s{_gsrTimeWindow = a})  -- | The number of requests that you want AWS WAF to return from among the first 5,000 requests that your AWS resource received during the time range. If your resource received fewer requests than the value of @MaxItems@ , @GetSampledRequests@ returns information about all of them. gsrMaxItems :: Lens' GetSampledRequests Natural-gsrMaxItems = lens _gsrMaxItems (\ s a -> s{_gsrMaxItems = a}) . _Nat;+gsrMaxItems = lens _gsrMaxItems (\ s a -> s{_gsrMaxItems = a}) . _Nat  instance AWSRequest GetSampledRequests where         type Rs GetSampledRequests =@@ -169,27 +169,27 @@     -> GetSampledRequestsResponse getSampledRequestsResponse pResponseStatus_ =   GetSampledRequestsResponse'-  { _gsrrsSampledRequests = Nothing-  , _gsrrsPopulationSize = Nothing-  , _gsrrsTimeWindow = Nothing-  , _gsrrsResponseStatus = pResponseStatus_-  }+    { _gsrrsSampledRequests = Nothing+    , _gsrrsPopulationSize = Nothing+    , _gsrrsTimeWindow = Nothing+    , _gsrrsResponseStatus = pResponseStatus_+    }   -- | A complex type that contains detailed information about each of the requests in the sample. gsrrsSampledRequests :: Lens' GetSampledRequestsResponse [SampledHTTPRequest]-gsrrsSampledRequests = lens _gsrrsSampledRequests (\ s a -> s{_gsrrsSampledRequests = a}) . _Default . _Coerce;+gsrrsSampledRequests = lens _gsrrsSampledRequests (\ s a -> s{_gsrrsSampledRequests = a}) . _Default . _Coerce  -- | The total number of requests from which @GetSampledRequests@ got a sample of @MaxItems@ requests. If @PopulationSize@ is less than @MaxItems@ , the sample includes every request that your AWS resource received during the specified time range. gsrrsPopulationSize :: Lens' GetSampledRequestsResponse (Maybe Integer)-gsrrsPopulationSize = lens _gsrrsPopulationSize (\ s a -> s{_gsrrsPopulationSize = a});+gsrrsPopulationSize = lens _gsrrsPopulationSize (\ s a -> s{_gsrrsPopulationSize = a})  -- | Usually, @TimeWindow@ is the time range that you specified in the @GetSampledRequests@ request. However, if your AWS resource received more than 5,000 requests during the time range that you specified in the request, @GetSampledRequests@ returns the time range for the first 5,000 requests. gsrrsTimeWindow :: Lens' GetSampledRequestsResponse (Maybe TimeWindow)-gsrrsTimeWindow = lens _gsrrsTimeWindow (\ s a -> s{_gsrrsTimeWindow = a});+gsrrsTimeWindow = lens _gsrrsTimeWindow (\ s a -> s{_gsrrsTimeWindow = a})  -- | -- | The response status code. gsrrsResponseStatus :: Lens' GetSampledRequestsResponse Int-gsrrsResponseStatus = lens _gsrrsResponseStatus (\ s a -> s{_gsrrsResponseStatus = a});+gsrrsResponseStatus = lens _gsrrsResponseStatus (\ s a -> s{_gsrrsResponseStatus = a})  instance NFData GetSampledRequestsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetSizeConstraintSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The @SizeConstraintSetId@ of the 'SizeConstraintSet' that you want to get. @SizeConstraintSetId@ is returned by 'CreateSizeConstraintSet' and by 'ListSizeConstraintSets' . gscsSizeConstraintSetId :: Lens' GetSizeConstraintSet Text-gscsSizeConstraintSetId = lens _gscsSizeConstraintSetId (\ s a -> s{_gscsSizeConstraintSetId = a});+gscsSizeConstraintSetId = lens _gscsSizeConstraintSetId (\ s a -> s{_gscsSizeConstraintSetId = a})  instance AWSRequest GetSizeConstraintSet where         type Rs GetSizeConstraintSet =@@ -122,15 +122,17 @@     -> GetSizeConstraintSetResponse getSizeConstraintSetResponse pResponseStatus_ =   GetSizeConstraintSetResponse'-  {_gscsrsSizeConstraintSet = Nothing, _gscsrsResponseStatus = pResponseStatus_}+    { _gscsrsSizeConstraintSet = Nothing+    , _gscsrsResponseStatus = pResponseStatus_+    }   -- | Information about the 'SizeConstraintSet' that you specified in the @GetSizeConstraintSet@ request. For more information, see the following topics:     * 'SizeConstraintSet' : Contains @SizeConstraintSetId@ , @SizeConstraints@ , and @Name@      * @SizeConstraints@ : Contains an array of 'SizeConstraint' objects. Each @SizeConstraint@ object contains 'FieldToMatch' , @TextTransformation@ , @ComparisonOperator@ , and @Size@      * 'FieldToMatch' : Contains @Data@ and @Type@ gscsrsSizeConstraintSet :: Lens' GetSizeConstraintSetResponse (Maybe SizeConstraintSet)-gscsrsSizeConstraintSet = lens _gscsrsSizeConstraintSet (\ s a -> s{_gscsrsSizeConstraintSet = a});+gscsrsSizeConstraintSet = lens _gscsrsSizeConstraintSet (\ s a -> s{_gscsrsSizeConstraintSet = a})  -- | -- | The response status code. gscsrsResponseStatus :: Lens' GetSizeConstraintSetResponse Int-gscsrsResponseStatus = lens _gscsrsResponseStatus (\ s a -> s{_gscsrsResponseStatus = a});+gscsrsResponseStatus = lens _gscsrsResponseStatus (\ s a -> s{_gscsrsResponseStatus = a})  instance NFData GetSizeConstraintSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetSqlInjectionMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,12 +64,12 @@     -> GetSqlInjectionMatchSet getSqlInjectionMatchSet pSqlInjectionMatchSetId_ =   GetSqlInjectionMatchSet'-  {_gsimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_}+    {_gsimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_}   -- | The @SqlInjectionMatchSetId@ of the 'SqlInjectionMatchSet' that you want to get. @SqlInjectionMatchSetId@ is returned by 'CreateSqlInjectionMatchSet' and by 'ListSqlInjectionMatchSets' . gsimsSqlInjectionMatchSetId :: Lens' GetSqlInjectionMatchSet Text-gsimsSqlInjectionMatchSetId = lens _gsimsSqlInjectionMatchSetId (\ s a -> s{_gsimsSqlInjectionMatchSetId = a});+gsimsSqlInjectionMatchSetId = lens _gsimsSqlInjectionMatchSetId (\ s a -> s{_gsimsSqlInjectionMatchSetId = a})  instance AWSRequest GetSqlInjectionMatchSet where         type Rs GetSqlInjectionMatchSet =@@ -133,17 +133,17 @@     -> GetSqlInjectionMatchSetResponse getSqlInjectionMatchSetResponse pResponseStatus_ =   GetSqlInjectionMatchSetResponse'-  { _gsimsrsSqlInjectionMatchSet = Nothing-  , _gsimsrsResponseStatus = pResponseStatus_-  }+    { _gsimsrsSqlInjectionMatchSet = Nothing+    , _gsimsrsResponseStatus = pResponseStatus_+    }   -- | Information about the 'SqlInjectionMatchSet' that you specified in the @GetSqlInjectionMatchSet@ request. For more information, see the following topics:     * 'SqlInjectionMatchSet' : Contains @Name@ , @SqlInjectionMatchSetId@ , and an array of @SqlInjectionMatchTuple@ objects     * 'SqlInjectionMatchTuple' : Each @SqlInjectionMatchTuple@ object contains @FieldToMatch@ and @TextTransformation@      * 'FieldToMatch' : Contains @Data@ and @Type@ gsimsrsSqlInjectionMatchSet :: Lens' GetSqlInjectionMatchSetResponse (Maybe SqlInjectionMatchSet)-gsimsrsSqlInjectionMatchSet = lens _gsimsrsSqlInjectionMatchSet (\ s a -> s{_gsimsrsSqlInjectionMatchSet = a});+gsimsrsSqlInjectionMatchSet = lens _gsimsrsSqlInjectionMatchSet (\ s a -> s{_gsimsrsSqlInjectionMatchSet = a})  -- | -- | The response status code. gsimsrsResponseStatus :: Lens' GetSqlInjectionMatchSetResponse Int-gsimsrsResponseStatus = lens _gsimsrsResponseStatus (\ s a -> s{_gsimsrsResponseStatus = a});+gsimsrsResponseStatus = lens _gsimsrsResponseStatus (\ s a -> s{_gsimsrsResponseStatus = a})  instance NFData GetSqlInjectionMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The @WebACLId@ of the 'WebACL' that you want to get. @WebACLId@ is returned by 'CreateWebACL' and by 'ListWebACLs' . gwaWebACLId :: Lens' GetWebACL Text-gwaWebACLId = lens _gwaWebACLId (\ s a -> s{_gwaWebACLId = a});+gwaWebACLId = lens _gwaWebACLId (\ s a -> s{_gwaWebACLId = a})  instance AWSRequest GetWebACL where         type Rs GetWebACL = GetWebACLResponse@@ -117,15 +117,15 @@     -> GetWebACLResponse getWebACLResponse pResponseStatus_ =   GetWebACLResponse'-  {_gwarsWebACL = Nothing, _gwarsResponseStatus = pResponseStatus_}+    {_gwarsWebACL = Nothing, _gwarsResponseStatus = pResponseStatus_}   -- | Information about the 'WebACL' that you specified in the @GetWebACL@ request. For more information, see the following topics:     * 'WebACL' : Contains @DefaultAction@ , @MetricName@ , @Name@ , an array of @Rule@ objects, and @WebACLId@      * @DefaultAction@ (Data type is 'WafAction' ): Contains @Type@      * @Rules@ : Contains an array of @ActivatedRule@ objects, which contain @Action@ , @Priority@ , and @RuleId@      * @Action@ : Contains @Type@ gwarsWebACL :: Lens' GetWebACLResponse (Maybe WebACL)-gwarsWebACL = lens _gwarsWebACL (\ s a -> s{_gwarsWebACL = a});+gwarsWebACL = lens _gwarsWebACL (\ s a -> s{_gwarsWebACL = a})  -- | -- | The response status code. gwarsResponseStatus :: Lens' GetWebACLResponse Int-gwarsResponseStatus = lens _gwarsResponseStatus (\ s a -> s{_gwarsResponseStatus = a});+gwarsResponseStatus = lens _gwarsResponseStatus (\ s a -> s{_gwarsResponseStatus = a})  instance NFData GetWebACLResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetWebACLForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The ARN (Amazon Resource Name) of the resource for which to get the web ACL. gwafrResourceARN :: Lens' GetWebACLForResource Text-gwafrResourceARN = lens _gwafrResourceARN (\ s a -> s{_gwafrResourceARN = a});+gwafrResourceARN = lens _gwafrResourceARN (\ s a -> s{_gwafrResourceARN = a})  instance AWSRequest GetWebACLForResource where         type Rs GetWebACLForResource =@@ -121,15 +121,15 @@     -> GetWebACLForResourceResponse getWebACLForResourceResponse pResponseStatus_ =   GetWebACLForResourceResponse'-  {_gwafrrsWebACLSummary = Nothing, _gwafrrsResponseStatus = pResponseStatus_}+    {_gwafrrsWebACLSummary = Nothing, _gwafrrsResponseStatus = pResponseStatus_}   -- | Information about the web ACL that you specified in the @GetWebACLForResource@ request. If there is no associated resource, a null WebACLSummary is returned. gwafrrsWebACLSummary :: Lens' GetWebACLForResourceResponse (Maybe WebACLSummary)-gwafrrsWebACLSummary = lens _gwafrrsWebACLSummary (\ s a -> s{_gwafrrsWebACLSummary = a});+gwafrrsWebACLSummary = lens _gwafrrsWebACLSummary (\ s a -> s{_gwafrrsWebACLSummary = a})  -- | -- | The response status code. gwafrrsResponseStatus :: Lens' GetWebACLForResourceResponse Int-gwafrrsResponseStatus = lens _gwafrrsResponseStatus (\ s a -> s{_gwafrrsResponseStatus = a});+gwafrrsResponseStatus = lens _gwafrrsResponseStatus (\ s a -> s{_gwafrrsResponseStatus = a})  instance NFData GetWebACLForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.GetXSSMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The @XssMatchSetId@ of the 'XssMatchSet' that you want to get. @XssMatchSetId@ is returned by 'CreateXssMatchSet' and by 'ListXssMatchSets' . gxmsXSSMatchSetId :: Lens' GetXSSMatchSet Text-gxmsXSSMatchSetId = lens _gxmsXSSMatchSetId (\ s a -> s{_gxmsXSSMatchSetId = a});+gxmsXSSMatchSetId = lens _gxmsXSSMatchSetId (\ s a -> s{_gxmsXSSMatchSetId = a})  instance AWSRequest GetXSSMatchSet where         type Rs GetXSSMatchSet = GetXSSMatchSetResponse@@ -128,15 +128,15 @@     -> GetXSSMatchSetResponse getXSSMatchSetResponse pResponseStatus_ =   GetXSSMatchSetResponse'-  {_gxmsrsXSSMatchSet = Nothing, _gxmsrsResponseStatus = pResponseStatus_}+    {_gxmsrsXSSMatchSet = Nothing, _gxmsrsResponseStatus = pResponseStatus_}   -- | Information about the 'XssMatchSet' that you specified in the @GetXssMatchSet@ request. For more information, see the following topics:     * 'XssMatchSet' : Contains @Name@ , @XssMatchSetId@ , and an array of @XssMatchTuple@ objects     * 'XssMatchTuple' : Each @XssMatchTuple@ object contains @FieldToMatch@ and @TextTransformation@      * 'FieldToMatch' : Contains @Data@ and @Type@ gxmsrsXSSMatchSet :: Lens' GetXSSMatchSetResponse (Maybe XSSMatchSet)-gxmsrsXSSMatchSet = lens _gxmsrsXSSMatchSet (\ s a -> s{_gxmsrsXSSMatchSet = a});+gxmsrsXSSMatchSet = lens _gxmsrsXSSMatchSet (\ s a -> s{_gxmsrsXSSMatchSet = a})  -- | -- | The response status code. gxmsrsResponseStatus :: Lens' GetXSSMatchSetResponse Int-gxmsrsResponseStatus = lens _gxmsrsResponseStatus (\ s a -> s{_gxmsrsResponseStatus = a});+gxmsrsResponseStatus = lens _gxmsrsResponseStatus (\ s a -> s{_gxmsrsResponseStatus = a})  instance NFData GetXSSMatchSetResponse where

@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.ListActivatedRulesInRuleGroup+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of 'ActivatedRule' objects.+--+--+module Network.AWS.WAFRegional.ListActivatedRulesInRuleGroup+    (+    -- * Creating a Request+      listActivatedRulesInRuleGroup+    , ListActivatedRulesInRuleGroup+    -- * Request Lenses+    , larirgRuleGroupId+    , larirgNextMarker+    , larirgLimit++    -- * Destructuring the Response+    , listActivatedRulesInRuleGroupResponse+    , ListActivatedRulesInRuleGroupResponse+    -- * Response Lenses+    , larirgrsNextMarker+    , larirgrsActivatedRules+    , larirgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'listActivatedRulesInRuleGroup' smart constructor.+data ListActivatedRulesInRuleGroup = ListActivatedRulesInRuleGroup'+  { _larirgRuleGroupId :: !(Maybe Text)+  , _larirgNextMarker  :: !(Maybe Text)+  , _larirgLimit       :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListActivatedRulesInRuleGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'larirgRuleGroupId' - The @RuleGroupId@ of the 'RuleGroup' for which you want to get a list of 'ActivatedRule' objects.+--+-- * 'larirgNextMarker' - If you specify a value for @Limit@ and you have more @ActivatedRules@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @ActivatedRules@ . For the second and subsequent @ListActivatedRulesInRuleGroup@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @ActivatedRules@ .+--+-- * 'larirgLimit' - Specifies the number of @ActivatedRules@ that you want AWS WAF to return for this request. If you have more @ActivatedRules@ than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @ActivatedRules@ .+listActivatedRulesInRuleGroup+    :: ListActivatedRulesInRuleGroup+listActivatedRulesInRuleGroup =+  ListActivatedRulesInRuleGroup'+    { _larirgRuleGroupId = Nothing+    , _larirgNextMarker = Nothing+    , _larirgLimit = Nothing+    }+++-- | The @RuleGroupId@ of the 'RuleGroup' for which you want to get a list of 'ActivatedRule' objects.+larirgRuleGroupId :: Lens' ListActivatedRulesInRuleGroup (Maybe Text)+larirgRuleGroupId = lens _larirgRuleGroupId (\ s a -> s{_larirgRuleGroupId = a})++-- | If you specify a value for @Limit@ and you have more @ActivatedRules@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @ActivatedRules@ . For the second and subsequent @ListActivatedRulesInRuleGroup@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @ActivatedRules@ .+larirgNextMarker :: Lens' ListActivatedRulesInRuleGroup (Maybe Text)+larirgNextMarker = lens _larirgNextMarker (\ s a -> s{_larirgNextMarker = a})++-- | Specifies the number of @ActivatedRules@ that you want AWS WAF to return for this request. If you have more @ActivatedRules@ than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @ActivatedRules@ .+larirgLimit :: Lens' ListActivatedRulesInRuleGroup (Maybe Natural)+larirgLimit = lens _larirgLimit (\ s a -> s{_larirgLimit = a}) . mapping _Nat++instance AWSRequest ListActivatedRulesInRuleGroup+         where+        type Rs ListActivatedRulesInRuleGroup =+             ListActivatedRulesInRuleGroupResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 ListActivatedRulesInRuleGroupResponse' <$>+                   (x .?> "NextMarker") <*>+                     (x .?> "ActivatedRules" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListActivatedRulesInRuleGroup where++instance NFData ListActivatedRulesInRuleGroup where++instance ToHeaders ListActivatedRulesInRuleGroup+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.ListActivatedRulesInRuleGroup"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListActivatedRulesInRuleGroup where+        toJSON ListActivatedRulesInRuleGroup'{..}+          = object+              (catMaybes+                 [("RuleGroupId" .=) <$> _larirgRuleGroupId,+                  ("NextMarker" .=) <$> _larirgNextMarker,+                  ("Limit" .=) <$> _larirgLimit])++instance ToPath ListActivatedRulesInRuleGroup where+        toPath = const "/"++instance ToQuery ListActivatedRulesInRuleGroup where+        toQuery = const mempty++-- | /See:/ 'listActivatedRulesInRuleGroupResponse' smart constructor.+data ListActivatedRulesInRuleGroupResponse = ListActivatedRulesInRuleGroupResponse'+  { _larirgrsNextMarker     :: !(Maybe Text)+  , _larirgrsActivatedRules :: !(Maybe [ActivatedRule])+  , _larirgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListActivatedRulesInRuleGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'larirgrsNextMarker' - If you have more @ActivatedRules@ than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @ActivatedRules@ , submit another @ListActivatedRulesInRuleGroup@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request.+--+-- * 'larirgrsActivatedRules' - An array of @ActivatedRules@ objects.+--+-- * 'larirgrsResponseStatus' - -- | The response status code.+listActivatedRulesInRuleGroupResponse+    :: Int -- ^ 'larirgrsResponseStatus'+    -> ListActivatedRulesInRuleGroupResponse+listActivatedRulesInRuleGroupResponse pResponseStatus_ =+  ListActivatedRulesInRuleGroupResponse'+    { _larirgrsNextMarker = Nothing+    , _larirgrsActivatedRules = Nothing+    , _larirgrsResponseStatus = pResponseStatus_+    }+++-- | If you have more @ActivatedRules@ than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @ActivatedRules@ , submit another @ListActivatedRulesInRuleGroup@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request.+larirgrsNextMarker :: Lens' ListActivatedRulesInRuleGroupResponse (Maybe Text)+larirgrsNextMarker = lens _larirgrsNextMarker (\ s a -> s{_larirgrsNextMarker = a})++-- | An array of @ActivatedRules@ objects.+larirgrsActivatedRules :: Lens' ListActivatedRulesInRuleGroupResponse [ActivatedRule]+larirgrsActivatedRules = lens _larirgrsActivatedRules (\ s a -> s{_larirgrsActivatedRules = a}) . _Default . _Coerce++-- | -- | The response status code.+larirgrsResponseStatus :: Lens' ListActivatedRulesInRuleGroupResponse Int+larirgrsResponseStatus = lens _larirgrsResponseStatus (\ s a -> s{_larirgrsResponseStatus = a})++instance NFData ListActivatedRulesInRuleGroupResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListByteMatchSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | If you specify a value for @Limit@ and you have more @ByteMatchSets@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @ByteMatchSets@ . For the second and subsequent @ListByteMatchSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @ByteMatchSets@ . lbmsNextMarker :: Lens' ListByteMatchSets (Maybe Text)-lbmsNextMarker = lens _lbmsNextMarker (\ s a -> s{_lbmsNextMarker = a});+lbmsNextMarker = lens _lbmsNextMarker (\ s a -> s{_lbmsNextMarker = a})  -- | Specifies the number of @ByteMatchSet@ objects that you want AWS WAF to return for this request. If you have more @ByteMatchSets@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @ByteMatchSet@ objects. lbmsLimit :: Lens' ListByteMatchSets (Maybe Natural)-lbmsLimit = lens _lbmsLimit (\ s a -> s{_lbmsLimit = a}) . mapping _Nat;+lbmsLimit = lens _lbmsLimit (\ s a -> s{_lbmsLimit = a}) . mapping _Nat  instance AWSRequest ListByteMatchSets where         type Rs ListByteMatchSets = ListByteMatchSetsResponse@@ -134,22 +134,22 @@     -> ListByteMatchSetsResponse listByteMatchSetsResponse pResponseStatus_ =   ListByteMatchSetsResponse'-  { _lbmsrsByteMatchSets = Nothing-  , _lbmsrsNextMarker = Nothing-  , _lbmsrsResponseStatus = pResponseStatus_-  }+    { _lbmsrsByteMatchSets = Nothing+    , _lbmsrsNextMarker = Nothing+    , _lbmsrsResponseStatus = pResponseStatus_+    }   -- | An array of 'ByteMatchSetSummary' objects. lbmsrsByteMatchSets :: Lens' ListByteMatchSetsResponse [ByteMatchSetSummary]-lbmsrsByteMatchSets = lens _lbmsrsByteMatchSets (\ s a -> s{_lbmsrsByteMatchSets = a}) . _Default . _Coerce;+lbmsrsByteMatchSets = lens _lbmsrsByteMatchSets (\ s a -> s{_lbmsrsByteMatchSets = a}) . _Default . _Coerce  -- | If you have more @ByteMatchSet@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @ByteMatchSet@ objects, submit another @ListByteMatchSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lbmsrsNextMarker :: Lens' ListByteMatchSetsResponse (Maybe Text)-lbmsrsNextMarker = lens _lbmsrsNextMarker (\ s a -> s{_lbmsrsNextMarker = a});+lbmsrsNextMarker = lens _lbmsrsNextMarker (\ s a -> s{_lbmsrsNextMarker = a})  -- | -- | The response status code. lbmsrsResponseStatus :: Lens' ListByteMatchSetsResponse Int-lbmsrsResponseStatus = lens _lbmsrsResponseStatus (\ s a -> s{_lbmsrsResponseStatus = a});+lbmsrsResponseStatus = lens _lbmsrsResponseStatus (\ s a -> s{_lbmsrsResponseStatus = a})  instance NFData ListByteMatchSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListGeoMatchSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | If you specify a value for @Limit@ and you have more @GeoMatchSet@ s than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @GeoMatchSet@ objects. For the second and subsequent @ListGeoMatchSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @GeoMatchSet@ objects. lgmsNextMarker :: Lens' ListGeoMatchSets (Maybe Text)-lgmsNextMarker = lens _lgmsNextMarker (\ s a -> s{_lgmsNextMarker = a});+lgmsNextMarker = lens _lgmsNextMarker (\ s a -> s{_lgmsNextMarker = a})  -- | Specifies the number of @GeoMatchSet@ objects that you want AWS WAF to return for this request. If you have more @GeoMatchSet@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @GeoMatchSet@ objects. lgmsLimit :: Lens' ListGeoMatchSets (Maybe Natural)-lgmsLimit = lens _lgmsLimit (\ s a -> s{_lgmsLimit = a}) . mapping _Nat;+lgmsLimit = lens _lgmsLimit (\ s a -> s{_lgmsLimit = a}) . mapping _Nat  instance AWSRequest ListGeoMatchSets where         type Rs ListGeoMatchSets = ListGeoMatchSetsResponse@@ -134,22 +134,22 @@     -> ListGeoMatchSetsResponse listGeoMatchSetsResponse pResponseStatus_ =   ListGeoMatchSetsResponse'-  { _lgmsrsGeoMatchSets = Nothing-  , _lgmsrsNextMarker = Nothing-  , _lgmsrsResponseStatus = pResponseStatus_-  }+    { _lgmsrsGeoMatchSets = Nothing+    , _lgmsrsNextMarker = Nothing+    , _lgmsrsResponseStatus = pResponseStatus_+    }   -- | An array of 'GeoMatchSetSummary' objects. lgmsrsGeoMatchSets :: Lens' ListGeoMatchSetsResponse [GeoMatchSetSummary]-lgmsrsGeoMatchSets = lens _lgmsrsGeoMatchSets (\ s a -> s{_lgmsrsGeoMatchSets = a}) . _Default . _Coerce;+lgmsrsGeoMatchSets = lens _lgmsrsGeoMatchSets (\ s a -> s{_lgmsrsGeoMatchSets = a}) . _Default . _Coerce  -- | If you have more @GeoMatchSet@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @GeoMatchSet@ objects, submit another @ListGeoMatchSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lgmsrsNextMarker :: Lens' ListGeoMatchSetsResponse (Maybe Text)-lgmsrsNextMarker = lens _lgmsrsNextMarker (\ s a -> s{_lgmsrsNextMarker = a});+lgmsrsNextMarker = lens _lgmsrsNextMarker (\ s a -> s{_lgmsrsNextMarker = a})  -- | -- | The response status code. lgmsrsResponseStatus :: Lens' ListGeoMatchSetsResponse Int-lgmsrsResponseStatus = lens _lgmsrsResponseStatus (\ s a -> s{_lgmsrsResponseStatus = a});+lgmsrsResponseStatus = lens _lgmsrsResponseStatus (\ s a -> s{_lgmsrsResponseStatus = a})  instance NFData ListGeoMatchSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListIPSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,11 +67,11 @@  -- | If you specify a value for @Limit@ and you have more @IPSets@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @IPSets@ . For the second and subsequent @ListIPSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @IPSets@ . lisNextMarker :: Lens' ListIPSets (Maybe Text)-lisNextMarker = lens _lisNextMarker (\ s a -> s{_lisNextMarker = a});+lisNextMarker = lens _lisNextMarker (\ s a -> s{_lisNextMarker = a})  -- | Specifies the number of @IPSet@ objects that you want AWS WAF to return for this request. If you have more @IPSet@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @IPSet@ objects. lisLimit :: Lens' ListIPSets (Maybe Natural)-lisLimit = lens _lisLimit (\ s a -> s{_lisLimit = a}) . mapping _Nat;+lisLimit = lens _lisLimit (\ s a -> s{_lisLimit = a}) . mapping _Nat  instance AWSRequest ListIPSets where         type Rs ListIPSets = ListIPSetsResponse@@ -132,22 +132,22 @@     -> ListIPSetsResponse listIPSetsResponse pResponseStatus_ =   ListIPSetsResponse'-  { _lisrsNextMarker = Nothing-  , _lisrsIPSets = Nothing-  , _lisrsResponseStatus = pResponseStatus_-  }+    { _lisrsNextMarker = Nothing+    , _lisrsIPSets = Nothing+    , _lisrsResponseStatus = pResponseStatus_+    }   -- | If you have more @IPSet@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @IPSet@ objects, submit another @ListIPSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lisrsNextMarker :: Lens' ListIPSetsResponse (Maybe Text)-lisrsNextMarker = lens _lisrsNextMarker (\ s a -> s{_lisrsNextMarker = a});+lisrsNextMarker = lens _lisrsNextMarker (\ s a -> s{_lisrsNextMarker = a})  -- | An array of 'IPSetSummary' objects. lisrsIPSets :: Lens' ListIPSetsResponse [IPSetSummary]-lisrsIPSets = lens _lisrsIPSets (\ s a -> s{_lisrsIPSets = a}) . _Default . _Coerce;+lisrsIPSets = lens _lisrsIPSets (\ s a -> s{_lisrsIPSets = a}) . _Default . _Coerce  -- | -- | The response status code. lisrsResponseStatus :: Lens' ListIPSetsResponse Int-lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a});+lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a})  instance NFData ListIPSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListRateBasedRules--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | If you specify a value for @Limit@ and you have more @Rules@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @Rules@ . For the second and subsequent @ListRateBasedRules@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @Rules@ . lrbrNextMarker :: Lens' ListRateBasedRules (Maybe Text)-lrbrNextMarker = lens _lrbrNextMarker (\ s a -> s{_lrbrNextMarker = a});+lrbrNextMarker = lens _lrbrNextMarker (\ s a -> s{_lrbrNextMarker = a})  -- | Specifies the number of @Rules@ that you want AWS WAF to return for this request. If you have more @Rules@ than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @Rules@ . lrbrLimit :: Lens' ListRateBasedRules (Maybe Natural)-lrbrLimit = lens _lrbrLimit (\ s a -> s{_lrbrLimit = a}) . mapping _Nat;+lrbrLimit = lens _lrbrLimit (\ s a -> s{_lrbrLimit = a}) . mapping _Nat  instance AWSRequest ListRateBasedRules where         type Rs ListRateBasedRules =@@ -134,22 +134,22 @@     -> ListRateBasedRulesResponse listRateBasedRulesResponse pResponseStatus_ =   ListRateBasedRulesResponse'-  { _lrbrrsRules = Nothing-  , _lrbrrsNextMarker = Nothing-  , _lrbrrsResponseStatus = pResponseStatus_-  }+    { _lrbrrsRules = Nothing+    , _lrbrrsNextMarker = Nothing+    , _lrbrrsResponseStatus = pResponseStatus_+    }   -- | An array of 'RuleSummary' objects. lrbrrsRules :: Lens' ListRateBasedRulesResponse [RuleSummary]-lrbrrsRules = lens _lrbrrsRules (\ s a -> s{_lrbrrsRules = a}) . _Default . _Coerce;+lrbrrsRules = lens _lrbrrsRules (\ s a -> s{_lrbrrsRules = a}) . _Default . _Coerce  -- | If you have more @Rules@ than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @Rules@ , submit another @ListRateBasedRules@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lrbrrsNextMarker :: Lens' ListRateBasedRulesResponse (Maybe Text)-lrbrrsNextMarker = lens _lrbrrsNextMarker (\ s a -> s{_lrbrrsNextMarker = a});+lrbrrsNextMarker = lens _lrbrrsNextMarker (\ s a -> s{_lrbrrsNextMarker = a})  -- | -- | The response status code. lrbrrsResponseStatus :: Lens' ListRateBasedRulesResponse Int-lrbrrsResponseStatus = lens _lrbrrsResponseStatus (\ s a -> s{_lrbrrsResponseStatus = a});+lrbrrsResponseStatus = lens _lrbrrsResponseStatus (\ s a -> s{_lrbrrsResponseStatus = a})  instance NFData ListRateBasedRulesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListRegexMatchSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | If you specify a value for @Limit@ and you have more @RegexMatchSet@ objects than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @ByteMatchSets@ . For the second and subsequent @ListRegexMatchSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @RegexMatchSet@ objects. lrmsNextMarker :: Lens' ListRegexMatchSets (Maybe Text)-lrmsNextMarker = lens _lrmsNextMarker (\ s a -> s{_lrmsNextMarker = a});+lrmsNextMarker = lens _lrmsNextMarker (\ s a -> s{_lrmsNextMarker = a})  -- | Specifies the number of @RegexMatchSet@ objects that you want AWS WAF to return for this request. If you have more @RegexMatchSet@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @RegexMatchSet@ objects. lrmsLimit :: Lens' ListRegexMatchSets (Maybe Natural)-lrmsLimit = lens _lrmsLimit (\ s a -> s{_lrmsLimit = a}) . mapping _Nat;+lrmsLimit = lens _lrmsLimit (\ s a -> s{_lrmsLimit = a}) . mapping _Nat  instance AWSRequest ListRegexMatchSets where         type Rs ListRegexMatchSets =@@ -135,22 +135,22 @@     -> ListRegexMatchSetsResponse listRegexMatchSetsResponse pResponseStatus_ =   ListRegexMatchSetsResponse'-  { _lrmsrsRegexMatchSets = Nothing-  , _lrmsrsNextMarker = Nothing-  , _lrmsrsResponseStatus = pResponseStatus_-  }+    { _lrmsrsRegexMatchSets = Nothing+    , _lrmsrsNextMarker = Nothing+    , _lrmsrsResponseStatus = pResponseStatus_+    }   -- | An array of 'RegexMatchSetSummary' objects. lrmsrsRegexMatchSets :: Lens' ListRegexMatchSetsResponse [RegexMatchSetSummary]-lrmsrsRegexMatchSets = lens _lrmsrsRegexMatchSets (\ s a -> s{_lrmsrsRegexMatchSets = a}) . _Default . _Coerce;+lrmsrsRegexMatchSets = lens _lrmsrsRegexMatchSets (\ s a -> s{_lrmsrsRegexMatchSets = a}) . _Default . _Coerce  -- | If you have more @RegexMatchSet@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @RegexMatchSet@ objects, submit another @ListRegexMatchSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lrmsrsNextMarker :: Lens' ListRegexMatchSetsResponse (Maybe Text)-lrmsrsNextMarker = lens _lrmsrsNextMarker (\ s a -> s{_lrmsrsNextMarker = a});+lrmsrsNextMarker = lens _lrmsrsNextMarker (\ s a -> s{_lrmsrsNextMarker = a})  -- | -- | The response status code. lrmsrsResponseStatus :: Lens' ListRegexMatchSetsResponse Int-lrmsrsResponseStatus = lens _lrmsrsResponseStatus (\ s a -> s{_lrmsrsResponseStatus = a});+lrmsrsResponseStatus = lens _lrmsrsResponseStatus (\ s a -> s{_lrmsrsResponseStatus = a})  instance NFData ListRegexMatchSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListRegexPatternSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | If you specify a value for @Limit@ and you have more @RegexPatternSet@ objects than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @RegexPatternSet@ objects. For the second and subsequent @ListRegexPatternSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @RegexPatternSet@ objects. lrpsNextMarker :: Lens' ListRegexPatternSets (Maybe Text)-lrpsNextMarker = lens _lrpsNextMarker (\ s a -> s{_lrpsNextMarker = a});+lrpsNextMarker = lens _lrpsNextMarker (\ s a -> s{_lrpsNextMarker = a})  -- | Specifies the number of @RegexPatternSet@ objects that you want AWS WAF to return for this request. If you have more @RegexPatternSet@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @RegexPatternSet@ objects. lrpsLimit :: Lens' ListRegexPatternSets (Maybe Natural)-lrpsLimit = lens _lrpsLimit (\ s a -> s{_lrpsLimit = a}) . mapping _Nat;+lrpsLimit = lens _lrpsLimit (\ s a -> s{_lrpsLimit = a}) . mapping _Nat  instance AWSRequest ListRegexPatternSets where         type Rs ListRegexPatternSets =@@ -135,22 +135,22 @@     -> ListRegexPatternSetsResponse listRegexPatternSetsResponse pResponseStatus_ =   ListRegexPatternSetsResponse'-  { _lrpsrsRegexPatternSets = Nothing-  , _lrpsrsNextMarker = Nothing-  , _lrpsrsResponseStatus = pResponseStatus_-  }+    { _lrpsrsRegexPatternSets = Nothing+    , _lrpsrsNextMarker = Nothing+    , _lrpsrsResponseStatus = pResponseStatus_+    }   -- | An array of 'RegexPatternSetSummary' objects. lrpsrsRegexPatternSets :: Lens' ListRegexPatternSetsResponse [RegexPatternSetSummary]-lrpsrsRegexPatternSets = lens _lrpsrsRegexPatternSets (\ s a -> s{_lrpsrsRegexPatternSets = a}) . _Default . _Coerce;+lrpsrsRegexPatternSets = lens _lrpsrsRegexPatternSets (\ s a -> s{_lrpsrsRegexPatternSets = a}) . _Default . _Coerce  -- | If you have more @RegexPatternSet@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @RegexPatternSet@ objects, submit another @ListRegexPatternSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lrpsrsNextMarker :: Lens' ListRegexPatternSetsResponse (Maybe Text)-lrpsrsNextMarker = lens _lrpsrsNextMarker (\ s a -> s{_lrpsrsNextMarker = a});+lrpsrsNextMarker = lens _lrpsrsNextMarker (\ s a -> s{_lrpsrsNextMarker = a})  -- | -- | The response status code. lrpsrsResponseStatus :: Lens' ListRegexPatternSetsResponse Int-lrpsrsResponseStatus = lens _lrpsrsResponseStatus (\ s a -> s{_lrpsrsResponseStatus = a});+lrpsrsResponseStatus = lens _lrpsrsResponseStatus (\ s a -> s{_lrpsrsResponseStatus = a})  instance NFData ListRegexPatternSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListResourcesForWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The unique identifier (ID) of the web ACL for which to list the associated resources. lrfwaWebACLId :: Lens' ListResourcesForWebACL Text-lrfwaWebACLId = lens _lrfwaWebACLId (\ s a -> s{_lrfwaWebACLId = a});+lrfwaWebACLId = lens _lrfwaWebACLId (\ s a -> s{_lrfwaWebACLId = a})  instance AWSRequest ListResourcesForWebACL where         type Rs ListResourcesForWebACL =@@ -121,15 +121,15 @@     -> ListResourcesForWebACLResponse listResourcesForWebACLResponse pResponseStatus_ =   ListResourcesForWebACLResponse'-  {_lrfwarsResourceARNs = Nothing, _lrfwarsResponseStatus = pResponseStatus_}+    {_lrfwarsResourceARNs = Nothing, _lrfwarsResponseStatus = pResponseStatus_}   -- | An array of ARNs (Amazon Resource Names) of the resources associated with the specified web ACL. An array with zero elements is returned if there are no resources associated with the web ACL. lrfwarsResourceARNs :: Lens' ListResourcesForWebACLResponse [Text]-lrfwarsResourceARNs = lens _lrfwarsResourceARNs (\ s a -> s{_lrfwarsResourceARNs = a}) . _Default . _Coerce;+lrfwarsResourceARNs = lens _lrfwarsResourceARNs (\ s a -> s{_lrfwarsResourceARNs = a}) . _Default . _Coerce  -- | -- | The response status code. lrfwarsResponseStatus :: Lens' ListResourcesForWebACLResponse Int-lrfwarsResponseStatus = lens _lrfwarsResponseStatus (\ s a -> s{_lrfwarsResponseStatus = a});+lrfwarsResponseStatus = lens _lrfwarsResponseStatus (\ s a -> s{_lrfwarsResponseStatus = a})  instance NFData ListResourcesForWebACLResponse where

@@ -0,0 +1,154 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.ListRuleGroups+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of 'RuleGroup' objects.+--+--+module Network.AWS.WAFRegional.ListRuleGroups+    (+    -- * Creating a Request+      listRuleGroups+    , ListRuleGroups+    -- * Request Lenses+    , lrgNextMarker+    , lrgLimit++    -- * Destructuring the Response+    , listRuleGroupsResponse+    , ListRuleGroupsResponse+    -- * Response Lenses+    , lrgrsRuleGroups+    , lrgrsNextMarker+    , lrgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'listRuleGroups' smart constructor.+data ListRuleGroups = ListRuleGroups'+  { _lrgNextMarker :: !(Maybe Text)+  , _lrgLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRuleGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrgNextMarker' - If you specify a value for @Limit@ and you have more @RuleGroups@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @RuleGroups@ . For the second and subsequent @ListRuleGroups@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @RuleGroups@ .+--+-- * 'lrgLimit' - Specifies the number of @RuleGroups@ that you want AWS WAF to return for this request. If you have more @RuleGroups@ than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @RuleGroups@ .+listRuleGroups+    :: ListRuleGroups+listRuleGroups = ListRuleGroups' {_lrgNextMarker = Nothing, _lrgLimit = Nothing}+++-- | If you specify a value for @Limit@ and you have more @RuleGroups@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @RuleGroups@ . For the second and subsequent @ListRuleGroups@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @RuleGroups@ .+lrgNextMarker :: Lens' ListRuleGroups (Maybe Text)+lrgNextMarker = lens _lrgNextMarker (\ s a -> s{_lrgNextMarker = a})++-- | Specifies the number of @RuleGroups@ that you want AWS WAF to return for this request. If you have more @RuleGroups@ than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @RuleGroups@ .+lrgLimit :: Lens' ListRuleGroups (Maybe Natural)+lrgLimit = lens _lrgLimit (\ s a -> s{_lrgLimit = a}) . mapping _Nat++instance AWSRequest ListRuleGroups where+        type Rs ListRuleGroups = ListRuleGroupsResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 ListRuleGroupsResponse' <$>+                   (x .?> "RuleGroups" .!@ mempty) <*>+                     (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListRuleGroups where++instance NFData ListRuleGroups where++instance ToHeaders ListRuleGroups where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.ListRuleGroups" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListRuleGroups where+        toJSON ListRuleGroups'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _lrgNextMarker,+                  ("Limit" .=) <$> _lrgLimit])++instance ToPath ListRuleGroups where+        toPath = const "/"++instance ToQuery ListRuleGroups where+        toQuery = const mempty++-- | /See:/ 'listRuleGroupsResponse' smart constructor.+data ListRuleGroupsResponse = ListRuleGroupsResponse'+  { _lrgrsRuleGroups     :: !(Maybe [RuleGroupSummary])+  , _lrgrsNextMarker     :: !(Maybe Text)+  , _lrgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRuleGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrgrsRuleGroups' - An array of 'RuleGroup' objects.+--+-- * 'lrgrsNextMarker' - If you have more @RuleGroups@ than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @RuleGroups@ , submit another @ListRuleGroups@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request.+--+-- * 'lrgrsResponseStatus' - -- | The response status code.+listRuleGroupsResponse+    :: Int -- ^ 'lrgrsResponseStatus'+    -> ListRuleGroupsResponse+listRuleGroupsResponse pResponseStatus_ =+  ListRuleGroupsResponse'+    { _lrgrsRuleGroups = Nothing+    , _lrgrsNextMarker = Nothing+    , _lrgrsResponseStatus = pResponseStatus_+    }+++-- | An array of 'RuleGroup' objects.+lrgrsRuleGroups :: Lens' ListRuleGroupsResponse [RuleGroupSummary]+lrgrsRuleGroups = lens _lrgrsRuleGroups (\ s a -> s{_lrgrsRuleGroups = a}) . _Default . _Coerce++-- | If you have more @RuleGroups@ than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @RuleGroups@ , submit another @ListRuleGroups@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request.+lrgrsNextMarker :: Lens' ListRuleGroupsResponse (Maybe Text)+lrgrsNextMarker = lens _lrgrsNextMarker (\ s a -> s{_lrgrsNextMarker = a})++-- | -- | The response status code.+lrgrsResponseStatus :: Lens' ListRuleGroupsResponse Int+lrgrsResponseStatus = lens _lrgrsResponseStatus (\ s a -> s{_lrgrsResponseStatus = a})++instance NFData ListRuleGroupsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListRules--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,11 +67,11 @@  -- | If you specify a value for @Limit@ and you have more @Rules@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @Rules@ . For the second and subsequent @ListRules@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @Rules@ . lrNextMarker :: Lens' ListRules (Maybe Text)-lrNextMarker = lens _lrNextMarker (\ s a -> s{_lrNextMarker = a});+lrNextMarker = lens _lrNextMarker (\ s a -> s{_lrNextMarker = a})  -- | Specifies the number of @Rules@ that you want AWS WAF to return for this request. If you have more @Rules@ than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @Rules@ . lrLimit :: Lens' ListRules (Maybe Natural)-lrLimit = lens _lrLimit (\ s a -> s{_lrLimit = a}) . mapping _Nat;+lrLimit = lens _lrLimit (\ s a -> s{_lrLimit = a}) . mapping _Nat  instance AWSRequest ListRules where         type Rs ListRules = ListRulesResponse@@ -131,22 +131,22 @@     -> ListRulesResponse listRulesResponse pResponseStatus_ =   ListRulesResponse'-  { _lrrsRules = Nothing-  , _lrrsNextMarker = Nothing-  , _lrrsResponseStatus = pResponseStatus_-  }+    { _lrrsRules = Nothing+    , _lrrsNextMarker = Nothing+    , _lrrsResponseStatus = pResponseStatus_+    }   -- | An array of 'RuleSummary' objects. lrrsRules :: Lens' ListRulesResponse [RuleSummary]-lrrsRules = lens _lrrsRules (\ s a -> s{_lrrsRules = a}) . _Default . _Coerce;+lrrsRules = lens _lrrsRules (\ s a -> s{_lrrsRules = a}) . _Default . _Coerce  -- | If you have more @Rules@ than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @Rules@ , submit another @ListRules@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lrrsNextMarker :: Lens' ListRulesResponse (Maybe Text)-lrrsNextMarker = lens _lrrsNextMarker (\ s a -> s{_lrrsNextMarker = a});+lrrsNextMarker = lens _lrrsNextMarker (\ s a -> s{_lrrsNextMarker = a})  -- | -- | The response status code. lrrsResponseStatus :: Lens' ListRulesResponse Int-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})  instance NFData ListRulesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListSizeConstraintSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | If you specify a value for @Limit@ and you have more @SizeConstraintSets@ than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @SizeConstraintSets@ . For the second and subsequent @ListSizeConstraintSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @SizeConstraintSets@ . lscsNextMarker :: Lens' ListSizeConstraintSets (Maybe Text)-lscsNextMarker = lens _lscsNextMarker (\ s a -> s{_lscsNextMarker = a});+lscsNextMarker = lens _lscsNextMarker (\ s a -> s{_lscsNextMarker = a})  -- | Specifies the number of @SizeConstraintSet@ objects that you want AWS WAF to return for this request. If you have more @SizeConstraintSets@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @SizeConstraintSet@ objects. lscsLimit :: Lens' ListSizeConstraintSets (Maybe Natural)-lscsLimit = lens _lscsLimit (\ s a -> s{_lscsLimit = a}) . mapping _Nat;+lscsLimit = lens _lscsLimit (\ s a -> s{_lscsLimit = a}) . mapping _Nat  instance AWSRequest ListSizeConstraintSets where         type Rs ListSizeConstraintSets =@@ -135,22 +135,22 @@     -> ListSizeConstraintSetsResponse listSizeConstraintSetsResponse pResponseStatus_ =   ListSizeConstraintSetsResponse'-  { _lscsrsSizeConstraintSets = Nothing-  , _lscsrsNextMarker = Nothing-  , _lscsrsResponseStatus = pResponseStatus_-  }+    { _lscsrsSizeConstraintSets = Nothing+    , _lscsrsNextMarker = Nothing+    , _lscsrsResponseStatus = pResponseStatus_+    }   -- | An array of 'SizeConstraintSetSummary' objects. lscsrsSizeConstraintSets :: Lens' ListSizeConstraintSetsResponse [SizeConstraintSetSummary]-lscsrsSizeConstraintSets = lens _lscsrsSizeConstraintSets (\ s a -> s{_lscsrsSizeConstraintSets = a}) . _Default . _Coerce;+lscsrsSizeConstraintSets = lens _lscsrsSizeConstraintSets (\ s a -> s{_lscsrsSizeConstraintSets = a}) . _Default . _Coerce  -- | If you have more @SizeConstraintSet@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @SizeConstraintSet@ objects, submit another @ListSizeConstraintSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lscsrsNextMarker :: Lens' ListSizeConstraintSetsResponse (Maybe Text)-lscsrsNextMarker = lens _lscsrsNextMarker (\ s a -> s{_lscsrsNextMarker = a});+lscsrsNextMarker = lens _lscsrsNextMarker (\ s a -> s{_lscsrsNextMarker = a})  -- | -- | The response status code. lscsrsResponseStatus :: Lens' ListSizeConstraintSetsResponse Int-lscsrsResponseStatus = lens _lscsrsResponseStatus (\ s a -> s{_lscsrsResponseStatus = a});+lscsrsResponseStatus = lens _lscsrsResponseStatus (\ s a -> s{_lscsrsResponseStatus = a})  instance NFData ListSizeConstraintSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListSqlInjectionMatchSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,11 +72,11 @@  -- | If you specify a value for @Limit@ and you have more 'SqlInjectionMatchSet' objects than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @SqlInjectionMatchSets@ . For the second and subsequent @ListSqlInjectionMatchSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @SqlInjectionMatchSets@ . lsimsNextMarker :: Lens' ListSqlInjectionMatchSets (Maybe Text)-lsimsNextMarker = lens _lsimsNextMarker (\ s a -> s{_lsimsNextMarker = a});+lsimsNextMarker = lens _lsimsNextMarker (\ s a -> s{_lsimsNextMarker = a})  -- | Specifies the number of 'SqlInjectionMatchSet' objects that you want AWS WAF to return for this request. If you have more @SqlInjectionMatchSet@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @Rules@ . lsimsLimit :: Lens' ListSqlInjectionMatchSets (Maybe Natural)-lsimsLimit = lens _lsimsLimit (\ s a -> s{_lsimsLimit = a}) . mapping _Nat;+lsimsLimit = lens _lsimsLimit (\ s a -> s{_lsimsLimit = a}) . mapping _Nat  instance AWSRequest ListSqlInjectionMatchSets where         type Rs ListSqlInjectionMatchSets =@@ -143,23 +143,23 @@     -> ListSqlInjectionMatchSetsResponse listSqlInjectionMatchSetsResponse pResponseStatus_ =   ListSqlInjectionMatchSetsResponse'-  { _lsimsrsNextMarker = Nothing-  , _lsimsrsSqlInjectionMatchSets = Nothing-  , _lsimsrsResponseStatus = pResponseStatus_-  }+    { _lsimsrsNextMarker = Nothing+    , _lsimsrsSqlInjectionMatchSets = Nothing+    , _lsimsrsResponseStatus = pResponseStatus_+    }   -- | If you have more 'SqlInjectionMatchSet' objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @SqlInjectionMatchSet@ objects, submit another @ListSqlInjectionMatchSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lsimsrsNextMarker :: Lens' ListSqlInjectionMatchSetsResponse (Maybe Text)-lsimsrsNextMarker = lens _lsimsrsNextMarker (\ s a -> s{_lsimsrsNextMarker = a});+lsimsrsNextMarker = lens _lsimsrsNextMarker (\ s a -> s{_lsimsrsNextMarker = a})  -- | An array of 'SqlInjectionMatchSetSummary' objects. lsimsrsSqlInjectionMatchSets :: Lens' ListSqlInjectionMatchSetsResponse [SqlInjectionMatchSetSummary]-lsimsrsSqlInjectionMatchSets = lens _lsimsrsSqlInjectionMatchSets (\ s a -> s{_lsimsrsSqlInjectionMatchSets = a}) . _Default . _Coerce;+lsimsrsSqlInjectionMatchSets = lens _lsimsrsSqlInjectionMatchSets (\ s a -> s{_lsimsrsSqlInjectionMatchSets = a}) . _Default . _Coerce  -- | -- | The response status code. lsimsrsResponseStatus :: Lens' ListSqlInjectionMatchSetsResponse Int-lsimsrsResponseStatus = lens _lsimsrsResponseStatus (\ s a -> s{_lsimsrsResponseStatus = a});+lsimsrsResponseStatus = lens _lsimsrsResponseStatus (\ s a -> s{_lsimsrsResponseStatus = a})  instance NFData ListSqlInjectionMatchSetsResponse          where

@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.ListSubscribedRuleGroups+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of 'RuleGroup' objects that you are subscribed to.+--+--+module Network.AWS.WAFRegional.ListSubscribedRuleGroups+    (+    -- * Creating a Request+      listSubscribedRuleGroups+    , ListSubscribedRuleGroups+    -- * Request Lenses+    , lsrgNextMarker+    , lsrgLimit++    -- * Destructuring the Response+    , listSubscribedRuleGroupsResponse+    , ListSubscribedRuleGroupsResponse+    -- * Response Lenses+    , lsrgrsRuleGroups+    , lsrgrsNextMarker+    , lsrgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'listSubscribedRuleGroups' smart constructor.+data ListSubscribedRuleGroups = ListSubscribedRuleGroups'+  { _lsrgNextMarker :: !(Maybe Text)+  , _lsrgLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListSubscribedRuleGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lsrgNextMarker' - If you specify a value for @Limit@ and you have more @ByteMatchSets@ subscribed rule groups than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of subscribed rule groups. For the second and subsequent @ListSubscribedRuleGroupsRequest@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of subscribed rule groups.+--+-- * 'lsrgLimit' - Specifies the number of subscribed rule groups that you want AWS WAF to return for this request. If you have more objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of objects.+listSubscribedRuleGroups+    :: ListSubscribedRuleGroups+listSubscribedRuleGroups =+  ListSubscribedRuleGroups' {_lsrgNextMarker = Nothing, _lsrgLimit = Nothing}+++-- | If you specify a value for @Limit@ and you have more @ByteMatchSets@ subscribed rule groups than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of subscribed rule groups. For the second and subsequent @ListSubscribedRuleGroupsRequest@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of subscribed rule groups.+lsrgNextMarker :: Lens' ListSubscribedRuleGroups (Maybe Text)+lsrgNextMarker = lens _lsrgNextMarker (\ s a -> s{_lsrgNextMarker = a})++-- | Specifies the number of subscribed rule groups that you want AWS WAF to return for this request. If you have more objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of objects.+lsrgLimit :: Lens' ListSubscribedRuleGroups (Maybe Natural)+lsrgLimit = lens _lsrgLimit (\ s a -> s{_lsrgLimit = a}) . mapping _Nat++instance AWSRequest ListSubscribedRuleGroups where+        type Rs ListSubscribedRuleGroups =+             ListSubscribedRuleGroupsResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 ListSubscribedRuleGroupsResponse' <$>+                   (x .?> "RuleGroups" .!@ mempty) <*>+                     (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListSubscribedRuleGroups where++instance NFData ListSubscribedRuleGroups where++instance ToHeaders ListSubscribedRuleGroups where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.ListSubscribedRuleGroups"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListSubscribedRuleGroups where+        toJSON ListSubscribedRuleGroups'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _lsrgNextMarker,+                  ("Limit" .=) <$> _lsrgLimit])++instance ToPath ListSubscribedRuleGroups where+        toPath = const "/"++instance ToQuery ListSubscribedRuleGroups where+        toQuery = const mempty++-- | /See:/ 'listSubscribedRuleGroupsResponse' smart constructor.+data ListSubscribedRuleGroupsResponse = ListSubscribedRuleGroupsResponse'+  { _lsrgrsRuleGroups     :: !(Maybe [SubscribedRuleGroupSummary])+  , _lsrgrsNextMarker     :: !(Maybe Text)+  , _lsrgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListSubscribedRuleGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lsrgrsRuleGroups' - An array of 'RuleGroup' objects.+--+-- * 'lsrgrsNextMarker' - If you have more objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more objects, submit another @ListSubscribedRuleGroups@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request.+--+-- * 'lsrgrsResponseStatus' - -- | The response status code.+listSubscribedRuleGroupsResponse+    :: Int -- ^ 'lsrgrsResponseStatus'+    -> ListSubscribedRuleGroupsResponse+listSubscribedRuleGroupsResponse pResponseStatus_ =+  ListSubscribedRuleGroupsResponse'+    { _lsrgrsRuleGroups = Nothing+    , _lsrgrsNextMarker = Nothing+    , _lsrgrsResponseStatus = pResponseStatus_+    }+++-- | An array of 'RuleGroup' objects.+lsrgrsRuleGroups :: Lens' ListSubscribedRuleGroupsResponse [SubscribedRuleGroupSummary]+lsrgrsRuleGroups = lens _lsrgrsRuleGroups (\ s a -> s{_lsrgrsRuleGroups = a}) . _Default . _Coerce++-- | If you have more objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more objects, submit another @ListSubscribedRuleGroups@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request.+lsrgrsNextMarker :: Lens' ListSubscribedRuleGroupsResponse (Maybe Text)+lsrgrsNextMarker = lens _lsrgrsNextMarker (\ s a -> s{_lsrgrsNextMarker = a})++-- | -- | The response status code.+lsrgrsResponseStatus :: Lens' ListSubscribedRuleGroupsResponse Int+lsrgrsResponseStatus = lens _lsrgrsResponseStatus (\ s a -> s{_lsrgrsResponseStatus = a})++instance NFData ListSubscribedRuleGroupsResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListWebACLs--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,11 +67,11 @@  -- | If you specify a value for @Limit@ and you have more @WebACL@ objects than the number that you specify for @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @WebACL@ objects. For the second and subsequent @ListWebACLs@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @WebACL@ objects. lwaNextMarker :: Lens' ListWebACLs (Maybe Text)-lwaNextMarker = lens _lwaNextMarker (\ s a -> s{_lwaNextMarker = a});+lwaNextMarker = lens _lwaNextMarker (\ s a -> s{_lwaNextMarker = a})  -- | Specifies the number of @WebACL@ objects that you want AWS WAF to return for this request. If you have more @WebACL@ objects than the number that you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @WebACL@ objects. lwaLimit :: Lens' ListWebACLs (Maybe Natural)-lwaLimit = lens _lwaLimit (\ s a -> s{_lwaLimit = a}) . mapping _Nat;+lwaLimit = lens _lwaLimit (\ s a -> s{_lwaLimit = a}) . mapping _Nat  instance AWSRequest ListWebACLs where         type Rs ListWebACLs = ListWebACLsResponse@@ -132,22 +132,22 @@     -> ListWebACLsResponse listWebACLsResponse pResponseStatus_ =   ListWebACLsResponse'-  { _lwarsWebACLs = Nothing-  , _lwarsNextMarker = Nothing-  , _lwarsResponseStatus = pResponseStatus_-  }+    { _lwarsWebACLs = Nothing+    , _lwarsNextMarker = Nothing+    , _lwarsResponseStatus = pResponseStatus_+    }   -- | An array of 'WebACLSummary' objects. lwarsWebACLs :: Lens' ListWebACLsResponse [WebACLSummary]-lwarsWebACLs = lens _lwarsWebACLs (\ s a -> s{_lwarsWebACLs = a}) . _Default . _Coerce;+lwarsWebACLs = lens _lwarsWebACLs (\ s a -> s{_lwarsWebACLs = a}) . _Default . _Coerce  -- | If you have more @WebACL@ objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @WebACL@ objects, submit another @ListWebACLs@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lwarsNextMarker :: Lens' ListWebACLsResponse (Maybe Text)-lwarsNextMarker = lens _lwarsNextMarker (\ s a -> s{_lwarsNextMarker = a});+lwarsNextMarker = lens _lwarsNextMarker (\ s a -> s{_lwarsNextMarker = a})  -- | -- | The response status code. lwarsResponseStatus :: Lens' ListWebACLsResponse Int-lwarsResponseStatus = lens _lwarsResponseStatus (\ s a -> s{_lwarsResponseStatus = a});+lwarsResponseStatus = lens _lwarsResponseStatus (\ s a -> s{_lwarsResponseStatus = a})  instance NFData ListWebACLsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.ListXSSMatchSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,11 +72,11 @@  -- | If you specify a value for @Limit@ and you have more 'XssMatchSet' objects than the value of @Limit@ , AWS WAF returns a @NextMarker@ value in the response that allows you to list another group of @XssMatchSets@ . For the second and subsequent @ListXssMatchSets@ requests, specify the value of @NextMarker@ from the previous response to get information about another batch of @XssMatchSets@ . lxmsNextMarker :: Lens' ListXSSMatchSets (Maybe Text)-lxmsNextMarker = lens _lxmsNextMarker (\ s a -> s{_lxmsNextMarker = a});+lxmsNextMarker = lens _lxmsNextMarker (\ s a -> s{_lxmsNextMarker = a})  -- | Specifies the number of 'XssMatchSet' objects that you want AWS WAF to return for this request. If you have more @XssMatchSet@ objects than the number you specify for @Limit@ , the response includes a @NextMarker@ value that you can use to get another batch of @Rules@ . lxmsLimit :: Lens' ListXSSMatchSets (Maybe Natural)-lxmsLimit = lens _lxmsLimit (\ s a -> s{_lxmsLimit = a}) . mapping _Nat;+lxmsLimit = lens _lxmsLimit (\ s a -> s{_lxmsLimit = a}) . mapping _Nat  instance AWSRequest ListXSSMatchSets where         type Rs ListXSSMatchSets = ListXSSMatchSetsResponse@@ -142,22 +142,22 @@     -> ListXSSMatchSetsResponse listXSSMatchSetsResponse pResponseStatus_ =   ListXSSMatchSetsResponse'-  { _lxmsrsXSSMatchSets = Nothing-  , _lxmsrsNextMarker = Nothing-  , _lxmsrsResponseStatus = pResponseStatus_-  }+    { _lxmsrsXSSMatchSets = Nothing+    , _lxmsrsNextMarker = Nothing+    , _lxmsrsResponseStatus = pResponseStatus_+    }   -- | An array of 'XssMatchSetSummary' objects. lxmsrsXSSMatchSets :: Lens' ListXSSMatchSetsResponse [XSSMatchSetSummary]-lxmsrsXSSMatchSets = lens _lxmsrsXSSMatchSets (\ s a -> s{_lxmsrsXSSMatchSets = a}) . _Default . _Coerce;+lxmsrsXSSMatchSets = lens _lxmsrsXSSMatchSets (\ s a -> s{_lxmsrsXSSMatchSets = a}) . _Default . _Coerce  -- | If you have more 'XssMatchSet' objects than the number that you specified for @Limit@ in the request, the response includes a @NextMarker@ value. To list more @XssMatchSet@ objects, submit another @ListXssMatchSets@ request, and specify the @NextMarker@ value from the response in the @NextMarker@ value in the next request. lxmsrsNextMarker :: Lens' ListXSSMatchSetsResponse (Maybe Text)-lxmsrsNextMarker = lens _lxmsrsNextMarker (\ s a -> s{_lxmsrsNextMarker = a});+lxmsrsNextMarker = lens _lxmsrsNextMarker (\ s a -> s{_lxmsrsNextMarker = a})  -- | -- | The response status code. lxmsrsResponseStatus :: Lens' ListXSSMatchSetsResponse Int-lxmsrsResponseStatus = lens _lxmsrsResponseStatus (\ s a -> s{_lxmsrsResponseStatus = a});+lxmsrsResponseStatus = lens _lxmsrsResponseStatus (\ s a -> s{_lxmsrsResponseStatus = a})  instance NFData ListXSSMatchSetsResponse where

@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.PutPermissionPolicy+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attaches a IAM policy to the specified resource. The only supported use for this action is to share a RuleGroup across accounts.+--+--+-- The @PutPermissionPolicy@ is subject to the following restrictions:+--+--     * You can attach only one policy with each @PutPermissionPolicy@ request.+--+--     * The policy must include an @Effect@ , @Action@ and @Principal@ .+--+--     * @Effect@ must specify @Allow@ .+--+--     * The @Action@ in the policy must be @waf:UpdateWebACL@ and @waf-regional:UpdateWebACL@ . Any extra or wildcard actions in the policy will be rejected.+--+--     * The policy cannot include a @Resource@ parameter.+--+--     * The ARN in the request must be a valid WAF RuleGroup ARN and the RuleGroup must exist in the same region.+--+--     * The user making the request must be the owner of the RuleGroup.+--+--     * Your policy must be composed using IAM Policy version 2012-10-17.+--+--+--+-- For more information, see <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html IAM Policies> .+--+-- An example of a valid policy parameter is shown in the Examples section below.+--+module Network.AWS.WAFRegional.PutPermissionPolicy+    (+    -- * Creating a Request+      putPermissionPolicy+    , PutPermissionPolicy+    -- * Request Lenses+    , pppResourceARN+    , pppPolicy++    -- * Destructuring the Response+    , putPermissionPolicyResponse+    , PutPermissionPolicyResponse+    -- * Response Lenses+    , ppprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'putPermissionPolicy' smart constructor.+data PutPermissionPolicy = PutPermissionPolicy'+  { _pppResourceARN :: !Text+  , _pppPolicy      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutPermissionPolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pppResourceARN' - The Amazon Resource Name (ARN) of the RuleGroup to which you want to attach the policy.+--+-- * 'pppPolicy' - The policy to attach to the specified RuleGroup.+putPermissionPolicy+    :: Text -- ^ 'pppResourceARN'+    -> Text -- ^ 'pppPolicy'+    -> PutPermissionPolicy+putPermissionPolicy pResourceARN_ pPolicy_ =+  PutPermissionPolicy' {_pppResourceARN = pResourceARN_, _pppPolicy = pPolicy_}+++-- | The Amazon Resource Name (ARN) of the RuleGroup to which you want to attach the policy.+pppResourceARN :: Lens' PutPermissionPolicy Text+pppResourceARN = lens _pppResourceARN (\ s a -> s{_pppResourceARN = a})++-- | The policy to attach to the specified RuleGroup.+pppPolicy :: Lens' PutPermissionPolicy Text+pppPolicy = lens _pppPolicy (\ s a -> s{_pppPolicy = a})++instance AWSRequest PutPermissionPolicy where+        type Rs PutPermissionPolicy =+             PutPermissionPolicyResponse+        request = postJSON wAFRegional+        response+          = receiveEmpty+              (\ s h x ->+                 PutPermissionPolicyResponse' <$> (pure (fromEnum s)))++instance Hashable PutPermissionPolicy where++instance NFData PutPermissionPolicy where++instance ToHeaders PutPermissionPolicy where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.PutPermissionPolicy" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PutPermissionPolicy where+        toJSON PutPermissionPolicy'{..}+          = object+              (catMaybes+                 [Just ("ResourceArn" .= _pppResourceARN),+                  Just ("Policy" .= _pppPolicy)])++instance ToPath PutPermissionPolicy where+        toPath = const "/"++instance ToQuery PutPermissionPolicy where+        toQuery = const mempty++-- | /See:/ 'putPermissionPolicyResponse' smart constructor.+newtype PutPermissionPolicyResponse = PutPermissionPolicyResponse'+  { _ppprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutPermissionPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ppprsResponseStatus' - -- | The response status code.+putPermissionPolicyResponse+    :: Int -- ^ 'ppprsResponseStatus'+    -> PutPermissionPolicyResponse+putPermissionPolicyResponse pResponseStatus_ =+  PutPermissionPolicyResponse' {_ppprsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+ppprsResponseStatus :: Lens' PutPermissionPolicyResponse Int+ppprsResponseStatus = lens _ppprsResponseStatus (\ s a -> s{_ppprsResponseStatus = a})++instance NFData PutPermissionPolicyResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.WAFRegional.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -17,12 +17,14 @@      -- * Errors     , _WAFInvalidAccountException+    , _WAFSubscriptionNotFoundException     , _WAFReferencedItemException     , _WAFInvalidRegexPatternException     , _WAFInvalidOperationException     , _WAFNonexistentItemException     , _WAFInvalidParameterException     , _WAFLimitsExceededException+    , _WAFInvalidPermissionPolicyException     , _WAFStaleDataException     , _WAFInternalErrorException     , _WAFNonexistentContainerException@@ -66,16 +68,20 @@     -- * WafActionType     , WafActionType (..) +    -- * WafOverrideActionType+    , WafOverrideActionType (..)+     -- * WafRuleType     , WafRuleType (..)      -- * ActivatedRule     , ActivatedRule     , activatedRule+    , arOverrideAction+    , arAction     , arType     , arPriority     , arRuleId-    , arAction      -- * ByteMatchSet     , ByteMatchSet@@ -246,6 +252,25 @@     , rRuleId     , rPredicates +    -- * RuleGroup+    , RuleGroup+    , ruleGroup+    , rgMetricName+    , rgName+    , rgRuleGroupId++    -- * RuleGroupSummary+    , RuleGroupSummary+    , ruleGroupSummary+    , rgsRuleGroupId+    , rgsName++    -- * RuleGroupUpdate+    , RuleGroupUpdate+    , ruleGroupUpdate+    , rguAction+    , rguActivatedRule+     -- * RuleSummary     , RuleSummary     , ruleSummary@@ -261,6 +286,7 @@     -- * SampledHTTPRequest     , SampledHTTPRequest     , sampledHTTPRequest+    , shttprRuleWithinRuleGroup     , shttprAction     , shttprTimestamp     , shttprRequest@@ -318,6 +344,13 @@     , simtFieldToMatch     , simtTextTransformation +    -- * SubscribedRuleGroupSummary+    , SubscribedRuleGroupSummary+    , subscribedRuleGroupSummary+    , srgsRuleGroupId+    , srgsName+    , srgsMetricName+     -- * TimeWindow     , TimeWindow     , timeWindow@@ -329,6 +362,11 @@     , wafAction     , waType +    -- * WafOverrideAction+    , WafOverrideAction+    , wafOverrideAction+    , woaType+     -- * WebACL     , WebACL     , webACL@@ -386,24 +424,24 @@ wAFRegional :: Service wAFRegional =   Service-  { _svcAbbrev = "WAFRegional"-  , _svcSigner = v4-  , _svcPrefix = "waf-regional"-  , _svcVersion = "2016-11-28"-  , _svcEndpoint = defaultEndpoint wAFRegional-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "WAFRegional"-  , _svcRetry = retry-  }+    { _svcAbbrev = "WAFRegional"+    , _svcSigner = v4+    , _svcPrefix = "waf-regional"+    , _svcVersion = "2016-11-28"+    , _svcEndpoint = defaultEndpoint wAFRegional+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "WAFRegional"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -412,6 +450,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -427,6 +467,14 @@   _MatchServiceError wAFRegional "WAFInvalidAccountException"  +-- | The specified subscription does not exist.+--+--+_WAFSubscriptionNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_WAFSubscriptionNotFoundException =+  _MatchServiceError wAFRegional "WAFSubscriptionNotFoundException"++ -- | The operation failed because you tried to delete an object that is still in use. For example: -- --@@ -513,6 +561,34 @@ _WAFLimitsExceededException :: AsError a => Getting (First ServiceError) a ServiceError _WAFLimitsExceededException =   _MatchServiceError wAFRegional "WAFLimitsExceededException"+++-- | The operation failed because the specified policy is not in the proper format.+--+--+-- The policy is subject to the following restrictions:+--+--     * You can attach only one policy with each @PutPermissionPolicy@ request.+--+--     * The policy must include an @Effect@ , @Action@ and @Principal@ .+--+--     * @Effect@ must specify @Allow@ .+--+--     * The @Action@ in the policy must be @waf:UpdateWebACL@ or @waf-regional:UpdateWebACL@ . Any extra or wildcard actions in the policy will be rejected.+--+--     * The policy cannot include a @Resource@ parameter.+--+--     * The ARN in the request must be a valid WAF RuleGroup ARN and the RuleGroup must exist in the same region.+--+--     * The user making the request must be the owner of the RuleGroup.+--+--     * Your policy must be composed using IAM Policy version 2012-10-17.+--+--+--+_WAFInvalidPermissionPolicyException :: AsError a => Getting (First ServiceError) a ServiceError+_WAFInvalidPermissionPolicyException =+  _MatchServiceError wAFRegional "WAFInvalidPermissionPolicyException"   -- | The operation failed because you tried to create, update, or delete an object by using a change token that has already been used.

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.WAFRegional.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -29,10 +29,11 @@ -- -- /See:/ 'activatedRule' smart constructor. data ActivatedRule = ActivatedRule'-  { _arType     :: !(Maybe WafRuleType)-  , _arPriority :: !Int-  , _arRuleId   :: !Text-  , _arAction   :: !WafAction+  { _arOverrideAction :: !(Maybe WafOverrideAction)+  , _arAction         :: !(Maybe WafAction)+  , _arType           :: !(Maybe WafRuleType)+  , _arPriority       :: !Int+  , _arRuleId         :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -40,51 +41,58 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'arType' - The rule type, either @REGULAR@ , as defined by 'Rule' , or @RATE_BASED@ , as defined by 'RateBasedRule' . The default is REGULAR. Although this field is optional, be aware that if you try to add a RATE_BASED rule to a web ACL without setting the type, the 'UpdateWebACL' request will fail because the request tries to add a REGULAR rule with the specified ID, which does not exist.+-- * 'arOverrideAction' - Use the @OverrideAction@ to test your @RuleGroup@ . Any rule in a @RuleGroup@ can potentially block a request. If you set the @OverrideAction@ to @None@ , the @RuleGroup@ will block a request if any individual rule in the @RuleGroup@ matches the request and is configured to block that request. However if you first want to test the @RuleGroup@ , set the @OverrideAction@ to @Count@ . The @RuleGroup@ will then override any block action specified by individual rules contained within the group. Instead of blocking matching requests, those requests will be counted. You can view a record of counted requests using 'GetSampledRequests' .  @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ . --+-- * 'arAction' - Specifies the action that CloudFront or AWS WAF takes when a web request matches the conditions in the @Rule@ . Valid values for @Action@ include the following:     * @ALLOW@ : CloudFront responds with the requested object.     * @BLOCK@ : CloudFront responds with an HTTP 403 (Forbidden) status code.     * @COUNT@ : AWS WAF increments a counter of requests that match the conditions in the rule and then continues to inspect the web request based on the remaining rules in the web ACL.  @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .+--+-- * 'arType' - The rule type, either @REGULAR@ , as defined by 'Rule' , @RATE_BASED@ , as defined by 'RateBasedRule' , or @GROUP@ , as defined by 'RuleGroup' . The default is REGULAR. Although this field is optional, be aware that if you try to add a RATE_BASED rule to a web ACL without setting the type, the 'UpdateWebACL' request will fail because the request tries to add a REGULAR rule with the specified ID, which does not exist.+-- -- * 'arPriority' - Specifies the order in which the @Rules@ in a @WebACL@ are evaluated. Rules with a lower value for @Priority@ are evaluated before @Rules@ with a higher value. The value must be a unique integer. If you add multiple @Rules@ to a @WebACL@ , the values don't need to be consecutive. -- -- * 'arRuleId' - The @RuleId@ for a @Rule@ . You use @RuleId@ to get more information about a @Rule@ (see 'GetRule' ), update a @Rule@ (see 'UpdateRule' ), insert a @Rule@ into a @WebACL@ or delete a one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @Rule@ from AWS WAF (see 'DeleteRule' ). @RuleId@ is returned by 'CreateRule' and by 'ListRules' .------ * 'arAction' - Specifies the action that CloudFront or AWS WAF takes when a web request matches the conditions in the @Rule@ . Valid values for @Action@ include the following:     * @ALLOW@ : CloudFront responds with the requested object.     * @BLOCK@ : CloudFront responds with an HTTP 403 (Forbidden) status code.     * @COUNT@ : AWS WAF increments a counter of requests that match the conditions in the rule and then continues to inspect the web request based on the remaining rules in the web ACL. activatedRule     :: Int -- ^ 'arPriority'     -> Text -- ^ 'arRuleId'-    -> WafAction -- ^ 'arAction'     -> ActivatedRule-activatedRule pPriority_ pRuleId_ pAction_ =+activatedRule pPriority_ pRuleId_ =   ActivatedRule'-  { _arType = Nothing-  , _arPriority = pPriority_-  , _arRuleId = pRuleId_-  , _arAction = pAction_-  }+    { _arOverrideAction = Nothing+    , _arAction = Nothing+    , _arType = Nothing+    , _arPriority = pPriority_+    , _arRuleId = pRuleId_+    }  --- | The rule type, either @REGULAR@ , as defined by 'Rule' , or @RATE_BASED@ , as defined by 'RateBasedRule' . The default is REGULAR. Although this field is optional, be aware that if you try to add a RATE_BASED rule to a web ACL without setting the type, the 'UpdateWebACL' request will fail because the request tries to add a REGULAR rule with the specified ID, which does not exist.+-- | Use the @OverrideAction@ to test your @RuleGroup@ . Any rule in a @RuleGroup@ can potentially block a request. If you set the @OverrideAction@ to @None@ , the @RuleGroup@ will block a request if any individual rule in the @RuleGroup@ matches the request and is configured to block that request. However if you first want to test the @RuleGroup@ , set the @OverrideAction@ to @Count@ . The @RuleGroup@ will then override any block action specified by individual rules contained within the group. Instead of blocking matching requests, those requests will be counted. You can view a record of counted requests using 'GetSampledRequests' .  @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .+arOverrideAction :: Lens' ActivatedRule (Maybe WafOverrideAction)+arOverrideAction = lens _arOverrideAction (\ s a -> s{_arOverrideAction = a})++-- | Specifies the action that CloudFront or AWS WAF takes when a web request matches the conditions in the @Rule@ . Valid values for @Action@ include the following:     * @ALLOW@ : CloudFront responds with the requested object.     * @BLOCK@ : CloudFront responds with an HTTP 403 (Forbidden) status code.     * @COUNT@ : AWS WAF increments a counter of requests that match the conditions in the rule and then continues to inspect the web request based on the remaining rules in the web ACL.  @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .+arAction :: Lens' ActivatedRule (Maybe WafAction)+arAction = lens _arAction (\ s a -> s{_arAction = a})++-- | The rule type, either @REGULAR@ , as defined by 'Rule' , @RATE_BASED@ , as defined by 'RateBasedRule' , or @GROUP@ , as defined by 'RuleGroup' . The default is REGULAR. Although this field is optional, be aware that if you try to add a RATE_BASED rule to a web ACL without setting the type, the 'UpdateWebACL' request will fail because the request tries to add a REGULAR rule with the specified ID, which does not exist. arType :: Lens' ActivatedRule (Maybe WafRuleType)-arType = lens _arType (\ s a -> s{_arType = a});+arType = lens _arType (\ s a -> s{_arType = a})  -- | Specifies the order in which the @Rules@ in a @WebACL@ are evaluated. Rules with a lower value for @Priority@ are evaluated before @Rules@ with a higher value. The value must be a unique integer. If you add multiple @Rules@ to a @WebACL@ , the values don't need to be consecutive. arPriority :: Lens' ActivatedRule Int-arPriority = lens _arPriority (\ s a -> s{_arPriority = a});+arPriority = lens _arPriority (\ s a -> s{_arPriority = a})  -- | The @RuleId@ for a @Rule@ . You use @RuleId@ to get more information about a @Rule@ (see 'GetRule' ), update a @Rule@ (see 'UpdateRule' ), insert a @Rule@ into a @WebACL@ or delete a one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @Rule@ from AWS WAF (see 'DeleteRule' ). @RuleId@ is returned by 'CreateRule' and by 'ListRules' . arRuleId :: Lens' ActivatedRule Text-arRuleId = lens _arRuleId (\ s a -> s{_arRuleId = a});---- | Specifies the action that CloudFront or AWS WAF takes when a web request matches the conditions in the @Rule@ . Valid values for @Action@ include the following:     * @ALLOW@ : CloudFront responds with the requested object.     * @BLOCK@ : CloudFront responds with an HTTP 403 (Forbidden) status code.     * @COUNT@ : AWS WAF increments a counter of requests that match the conditions in the rule and then continues to inspect the web request based on the remaining rules in the web ACL.-arAction :: Lens' ActivatedRule WafAction-arAction = lens _arAction (\ s a -> s{_arAction = a});+arRuleId = lens _arRuleId (\ s a -> s{_arRuleId = a})  instance FromJSON ActivatedRule where         parseJSON           = withObject "ActivatedRule"               (\ x ->                  ActivatedRule' <$>-                   (x .:? "Type") <*> (x .: "Priority") <*>-                     (x .: "RuleId")-                     <*> (x .: "Action"))+                   (x .:? "OverrideAction") <*> (x .:? "Action") <*>+                     (x .:? "Type")+                     <*> (x .: "Priority")+                     <*> (x .: "RuleId"))  instance Hashable ActivatedRule where @@ -94,10 +102,10 @@         toJSON ActivatedRule'{..}           = object               (catMaybes-                 [("Type" .=) <$> _arType,+                 [("OverrideAction" .=) <$> _arOverrideAction,+                  ("Action" .=) <$> _arAction, ("Type" .=) <$> _arType,                   Just ("Priority" .= _arPriority),-                  Just ("RuleId" .= _arRuleId),-                  Just ("Action" .= _arAction)])+                  Just ("RuleId" .= _arRuleId)])  -- | In a 'GetByteMatchSet' request, @ByteMatchSet@ is a complex type that contains the @ByteMatchSetId@ and @Name@ of a @ByteMatchSet@ , and the values that you specified when you updated the @ByteMatchSet@ . --@@ -127,23 +135,23 @@     -> ByteMatchSet byteMatchSet pByteMatchSetId_ =   ByteMatchSet'-  { _bmsName = Nothing-  , _bmsByteMatchSetId = pByteMatchSetId_-  , _bmsByteMatchTuples = mempty-  }+    { _bmsName = Nothing+    , _bmsByteMatchSetId = pByteMatchSetId_+    , _bmsByteMatchTuples = mempty+    }   -- | A friendly name or description of the 'ByteMatchSet' . You can't change @Name@ after you create a @ByteMatchSet@ . bmsName :: Lens' ByteMatchSet (Maybe Text)-bmsName = lens _bmsName (\ s a -> s{_bmsName = a});+bmsName = lens _bmsName (\ s a -> s{_bmsName = a})  -- | The @ByteMatchSetId@ for a @ByteMatchSet@ . You use @ByteMatchSetId@ to get information about a @ByteMatchSet@ (see 'GetByteMatchSet' ), update a @ByteMatchSet@ (see 'UpdateByteMatchSet' ), insert a @ByteMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @ByteMatchSet@ from AWS WAF (see 'DeleteByteMatchSet' ). @ByteMatchSetId@ is returned by 'CreateByteMatchSet' and by 'ListByteMatchSets' . bmsByteMatchSetId :: Lens' ByteMatchSet Text-bmsByteMatchSetId = lens _bmsByteMatchSetId (\ s a -> s{_bmsByteMatchSetId = a});+bmsByteMatchSetId = lens _bmsByteMatchSetId (\ s a -> s{_bmsByteMatchSetId = a})  -- | Specifies the bytes (typically a string that corresponds with ASCII characters) that you want AWS WAF to search for in web requests, the location in requests that you want AWS WAF to search, and other settings. bmsByteMatchTuples :: Lens' ByteMatchSet [ByteMatchTuple]-bmsByteMatchTuples = lens _bmsByteMatchTuples (\ s a -> s{_bmsByteMatchTuples = a}) . _Coerce;+bmsByteMatchTuples = lens _bmsByteMatchTuples (\ s a -> s{_bmsByteMatchTuples = a}) . _Coerce  instance FromJSON ByteMatchSet where         parseJSON@@ -181,16 +189,16 @@     -> ByteMatchSetSummary byteMatchSetSummary pByteMatchSetId_ pName_ =   ByteMatchSetSummary'-  {_bmssByteMatchSetId = pByteMatchSetId_, _bmssName = pName_}+    {_bmssByteMatchSetId = pByteMatchSetId_, _bmssName = pName_}   -- | The @ByteMatchSetId@ for a @ByteMatchSet@ . You use @ByteMatchSetId@ to get information about a @ByteMatchSet@ , update a @ByteMatchSet@ , remove a @ByteMatchSet@ from a @Rule@ , and delete a @ByteMatchSet@ from AWS WAF. @ByteMatchSetId@ is returned by 'CreateByteMatchSet' and by 'ListByteMatchSets' . bmssByteMatchSetId :: Lens' ByteMatchSetSummary Text-bmssByteMatchSetId = lens _bmssByteMatchSetId (\ s a -> s{_bmssByteMatchSetId = a});+bmssByteMatchSetId = lens _bmssByteMatchSetId (\ s a -> s{_bmssByteMatchSetId = a})  -- | A friendly name or description of the 'ByteMatchSet' . You can't change @Name@ after you create a @ByteMatchSet@ . bmssName :: Lens' ByteMatchSetSummary Text-bmssName = lens _bmssName (\ s a -> s{_bmssName = a});+bmssName = lens _bmssName (\ s a -> s{_bmssName = a})  instance FromJSON ByteMatchSetSummary where         parseJSON@@ -227,16 +235,16 @@     -> ByteMatchSetUpdate byteMatchSetUpdate pAction_ pByteMatchTuple_ =   ByteMatchSetUpdate'-  {_bmsuAction = pAction_, _bmsuByteMatchTuple = pByteMatchTuple_}+    {_bmsuAction = pAction_, _bmsuByteMatchTuple = pByteMatchTuple_}   -- | Specifies whether to insert or delete a 'ByteMatchTuple' . bmsuAction :: Lens' ByteMatchSetUpdate ChangeAction-bmsuAction = lens _bmsuAction (\ s a -> s{_bmsuAction = a});+bmsuAction = lens _bmsuAction (\ s a -> s{_bmsuAction = a})  -- | Information about the part of a web request that you want AWS WAF to inspect and the value that you want AWS WAF to search for. If you specify @DELETE@ for the value of @Action@ , the @ByteMatchTuple@ values must exactly match the values in the @ByteMatchTuple@ that you want to delete from the @ByteMatchSet@ . bmsuByteMatchTuple :: Lens' ByteMatchSetUpdate ByteMatchTuple-bmsuByteMatchTuple = lens _bmsuByteMatchTuple (\ s a -> s{_bmsuByteMatchTuple = a});+bmsuByteMatchTuple = lens _bmsuByteMatchTuple (\ s a -> s{_bmsuByteMatchTuple = a})  instance Hashable ByteMatchSetUpdate where @@ -281,28 +289,28 @@     -> ByteMatchTuple byteMatchTuple pFieldToMatch_ pTargetString_ pTextTransformation_ pPositionalConstraint_ =   ByteMatchTuple'-  { _bmtFieldToMatch = pFieldToMatch_-  , _bmtTargetString = _Base64 # pTargetString_-  , _bmtTextTransformation = pTextTransformation_-  , _bmtPositionalConstraint = pPositionalConstraint_-  }+    { _bmtFieldToMatch = pFieldToMatch_+    , _bmtTargetString = _Base64 # pTargetString_+    , _bmtTextTransformation = pTextTransformation_+    , _bmtPositionalConstraint = pPositionalConstraint_+    }   -- | The part of a web request that you want AWS WAF to search, such as a specified header or a query string. For more information, see 'FieldToMatch' . bmtFieldToMatch :: Lens' ByteMatchTuple FieldToMatch-bmtFieldToMatch = lens _bmtFieldToMatch (\ s a -> s{_bmtFieldToMatch = a});+bmtFieldToMatch = lens _bmtFieldToMatch (\ s a -> s{_bmtFieldToMatch = a})  -- | The value that you want AWS WAF to search for. AWS WAF searches for the specified string in the part of web requests that you specified in @FieldToMatch@ . The maximum length of the value is 50 bytes. Valid values depend on the values that you specified for @FieldToMatch@ :     * @HEADER@ : The value that you want AWS WAF to search for in the request header that you specified in 'FieldToMatch' , for example, the value of the @User-Agent@ or @Referer@ header.     * @METHOD@ : The HTTP method, which indicates the type of operation specified in the request. CloudFront supports the following methods: @DELETE@ , @GET@ , @HEAD@ , @OPTIONS@ , @PATCH@ , @POST@ , and @PUT@ .     * @QUERY_STRING@ : The value that you want AWS WAF to search for in the query string, which is the part of a URL that appears after a @?@ character.     * @URI@ : The value that you want AWS WAF to search for in the part of a URL that identifies a resource, for example, @/images/daily-ad.jpg@ .     * @BODY@ : The part of a request that contains any additional data that you want to send to your web server as the HTTP request body, such as data from a form. The request body immediately follows the request headers. Note that only the first @8192@ bytes of the request body are forwarded to AWS WAF for inspection. To allow or block requests based on the length of the body, you can create a size constraint set. For more information, see 'CreateSizeConstraintSet' .  If @TargetString@ includes alphabetic characters A-Z and a-z, note that the value is case sensitive. __If you're using the AWS WAF API__  Specify a base64-encoded version of the value. The maximum length of the value before you base64-encode it is 50 bytes. For example, suppose the value of @Type@ is @HEADER@ and the value of @Data@ is @User-Agent@ . If you want to search the @User-Agent@ header for the value @BadBot@ , you base64-encode @BadBot@ using MIME base64 encoding and include the resulting value, @QmFkQm90@ , in the value of @TargetString@ . __If you're using the AWS CLI or one of the AWS SDKs__  The value that you want AWS WAF to search for. The SDK automatically base64 encodes the value.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. bmtTargetString :: Lens' ByteMatchTuple ByteString-bmtTargetString = lens _bmtTargetString (\ s a -> s{_bmtTargetString = a}) . _Base64;+bmtTargetString = lens _bmtTargetString (\ s a -> s{_bmtTargetString = a}) . _Base64  -- | Text transformations eliminate some of the unusual formatting that attackers use in web requests in an effort to bypass AWS WAF. If you specify a transformation, AWS WAF performs the transformation on @TargetString@ before inspecting a request for a match. __CMD_LINE__  When you're concerned that attackers are injecting an operating system commandline command and using unusual formatting to disguise some or all of the command, use this option to perform the following transformations:     * Delete the following characters: \ " ' ^     * Delete spaces before the following characters: / (     * Replace the following characters with a space: , ;     * Replace multiple spaces with one space     * Convert uppercase letters (A-Z) to lowercase (a-z) __COMPRESS_WHITE_SPACE__  Use this option to replace the following characters with a space character (decimal 32):     * \f, formfeed, decimal 12     * \t, tab, decimal 9     * \n, newline, decimal 10     * \r, carriage return, decimal 13     * \v, vertical tab, decimal 11     * non-breaking space, decimal 160 @COMPRESS_WHITE_SPACE@ also replaces multiple spaces with one space. __HTML_ENTITY_DECODE__  Use this option to replace HTML-encoded characters with unencoded characters. @HTML_ENTITY_DECODE@ performs the following operations:     * Replaces @(ampersand)quot;@ with @"@      * Replaces @(ampersand)nbsp;@ with a non-breaking space, decimal 160     * Replaces @(ampersand)lt;@ with a "less than" symbol     * Replaces @(ampersand)gt;@ with @>@      * Replaces characters that are represented in hexadecimal format, @(ampersand)#xhhhh;@ , with the corresponding characters     * Replaces characters that are represented in decimal format, @(ampersand)#nnnn;@ , with the corresponding characters __LOWERCASE__  Use this option to convert uppercase letters (A-Z) to lowercase (a-z). __URL_DECODE__  Use this option to decode a URL-encoded value. __NONE__  Specify @NONE@ if you don't want to perform any text transformations. bmtTextTransformation :: Lens' ByteMatchTuple TextTransformation-bmtTextTransformation = lens _bmtTextTransformation (\ s a -> s{_bmtTextTransformation = a});+bmtTextTransformation = lens _bmtTextTransformation (\ s a -> s{_bmtTextTransformation = a})  -- | Within the portion of a web request that you want to search (for example, in the query string, if any), specify where you want AWS WAF to search. Valid values include the following: __CONTAINS__  The specified part of the web request must include the value of @TargetString@ , but the location doesn't matter. __CONTAINS_WORD__  The specified part of the web request must include the value of @TargetString@ , and @TargetString@ must contain only alphanumeric characters or underscore (A-Z, a-z, 0-9, or _). In addition, @TargetString@ must be a word, which means one of the following:     * @TargetString@ exactly matches the value of the specified part of the web request, such as the value of a header.     * @TargetString@ is at the beginning of the specified part of the web request and is followed by a character other than an alphanumeric character or underscore (_), for example, @BadBot;@ .     * @TargetString@ is at the end of the specified part of the web request and is preceded by a character other than an alphanumeric character or underscore (_), for example, @;BadBot@ .     * @TargetString@ is in the middle of the specified part of the web request and is preceded and followed by characters other than alphanumeric characters or underscore (_), for example, @-BadBot;@ . __EXACTLY__  The value of the specified part of the web request must exactly match the value of @TargetString@ . __STARTS_WITH__  The value of @TargetString@ must appear at the beginning of the specified part of the web request. __ENDS_WITH__  The value of @TargetString@ must appear at the end of the specified part of the web request. bmtPositionalConstraint :: Lens' ByteMatchTuple PositionalConstraint-bmtPositionalConstraint = lens _bmtPositionalConstraint (\ s a -> s{_bmtPositionalConstraint = a});+bmtPositionalConstraint = lens _bmtPositionalConstraint (\ s a -> s{_bmtPositionalConstraint = a})  instance FromJSON ByteMatchTuple where         parseJSON@@ -355,11 +363,11 @@  -- | When the value of @Type@ is @HEADER@ , enter the name of the header that you want AWS WAF to search, for example, @User-Agent@ or @Referer@ . If the value of @Type@ is any other value, omit @Data@ . The name of the header is not case sensitive. ftmData :: Lens' FieldToMatch (Maybe Text)-ftmData = lens _ftmData (\ s a -> s{_ftmData = a});+ftmData = lens _ftmData (\ s a -> s{_ftmData = a})  -- | The part of the web request that you want AWS WAF to search for a specified string. Parts of a request that you can search include the following:     * @HEADER@ : A specified request header, for example, the value of the @User-Agent@ or @Referer@ header. If you choose @HEADER@ for the type, specify the name of the header in @Data@ .     * @METHOD@ : The HTTP method, which indicated the type of operation that the request is asking the origin to perform. Amazon CloudFront supports the following methods: @DELETE@ , @GET@ , @HEAD@ , @OPTIONS@ , @PATCH@ , @POST@ , and @PUT@ .     * @QUERY_STRING@ : A query string, which is the part of a URL that appears after a @?@ character, if any.     * @URI@ : The part of a web request that identifies a resource, for example, @/images/daily-ad.jpg@ .     * @BODY@ : The part of a request that contains any additional data that you want to send to your web server as the HTTP request body, such as data from a form. The request body immediately follows the request headers. Note that only the first @8192@ bytes of the request body are forwarded to AWS WAF for inspection. To allow or block requests based on the length of the body, you can create a size constraint set. For more information, see 'CreateSizeConstraintSet' . ftmType :: Lens' FieldToMatch MatchFieldType-ftmType = lens _ftmType (\ s a -> s{_ftmType = a});+ftmType = lens _ftmType (\ s a -> s{_ftmType = a})  instance FromJSON FieldToMatch where         parseJSON@@ -406,11 +414,11 @@  -- | The type of geographical area you want AWS WAF to search for. Currently @Country@ is the only valid value. gmcType :: Lens' GeoMatchConstraint GeoMatchConstraintType-gmcType = lens _gmcType (\ s a -> s{_gmcType = a});+gmcType = lens _gmcType (\ s a -> s{_gmcType = a})  -- | The country that you want AWS WAF to search for. gmcValue :: Lens' GeoMatchConstraint GeoMatchConstraintValue-gmcValue = lens _gmcValue (\ s a -> s{_gmcValue = a});+gmcValue = lens _gmcValue (\ s a -> s{_gmcValue = a})  instance FromJSON GeoMatchConstraint where         parseJSON@@ -456,23 +464,23 @@     -> GeoMatchSet geoMatchSet pGeoMatchSetId_ =   GeoMatchSet'-  { _gmsName = Nothing-  , _gmsGeoMatchSetId = pGeoMatchSetId_-  , _gmsGeoMatchConstraints = mempty-  }+    { _gmsName = Nothing+    , _gmsGeoMatchSetId = pGeoMatchSetId_+    , _gmsGeoMatchConstraints = mempty+    }   -- | A friendly name or description of the 'GeoMatchSet' . You can't change the name of an @GeoMatchSet@ after you create it. gmsName :: Lens' GeoMatchSet (Maybe Text)-gmsName = lens _gmsName (\ s a -> s{_gmsName = a});+gmsName = lens _gmsName (\ s a -> s{_gmsName = a})  -- | The @GeoMatchSetId@ for an @GeoMatchSet@ . You use @GeoMatchSetId@ to get information about a @GeoMatchSet@ (see 'GeoMatchSet' ), update a @GeoMatchSet@ (see 'UpdateGeoMatchSet' ), insert a @GeoMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @GeoMatchSet@ from AWS WAF (see 'DeleteGeoMatchSet' ). @GeoMatchSetId@ is returned by 'CreateGeoMatchSet' and by 'ListGeoMatchSets' . gmsGeoMatchSetId :: Lens' GeoMatchSet Text-gmsGeoMatchSetId = lens _gmsGeoMatchSetId (\ s a -> s{_gmsGeoMatchSetId = a});+gmsGeoMatchSetId = lens _gmsGeoMatchSetId (\ s a -> s{_gmsGeoMatchSetId = a})  -- | An array of 'GeoMatchConstraint' objects, which contain the country that you want AWS WAF to search for. gmsGeoMatchConstraints :: Lens' GeoMatchSet [GeoMatchConstraint]-gmsGeoMatchConstraints = lens _gmsGeoMatchConstraints (\ s a -> s{_gmsGeoMatchConstraints = a}) . _Coerce;+gmsGeoMatchConstraints = lens _gmsGeoMatchConstraints (\ s a -> s{_gmsGeoMatchConstraints = a}) . _Coerce  instance FromJSON GeoMatchSet where         parseJSON@@ -514,11 +522,11 @@  -- | The @GeoMatchSetId@ for an 'GeoMatchSet' . You can use @GeoMatchSetId@ in a 'GetGeoMatchSet' request to get detailed information about an 'GeoMatchSet' . gmssGeoMatchSetId :: Lens' GeoMatchSetSummary Text-gmssGeoMatchSetId = lens _gmssGeoMatchSetId (\ s a -> s{_gmssGeoMatchSetId = a});+gmssGeoMatchSetId = lens _gmssGeoMatchSetId (\ s a -> s{_gmssGeoMatchSetId = a})  -- | A friendly name or description of the 'GeoMatchSet' . You can't change the name of an @GeoMatchSet@ after you create it. gmssName :: Lens' GeoMatchSetSummary Text-gmssName = lens _gmssName (\ s a -> s{_gmssName = a});+gmssName = lens _gmssName (\ s a -> s{_gmssName = a})  instance FromJSON GeoMatchSetSummary where         parseJSON@@ -555,16 +563,16 @@     -> GeoMatchSetUpdate geoMatchSetUpdate pAction_ pGeoMatchConstraint_ =   GeoMatchSetUpdate'-  {_gmsuAction = pAction_, _gmsuGeoMatchConstraint = pGeoMatchConstraint_}+    {_gmsuAction = pAction_, _gmsuGeoMatchConstraint = pGeoMatchConstraint_}   -- | Specifies whether to insert or delete a country with 'UpdateGeoMatchSet' . gmsuAction :: Lens' GeoMatchSetUpdate ChangeAction-gmsuAction = lens _gmsuAction (\ s a -> s{_gmsuAction = a});+gmsuAction = lens _gmsuAction (\ s a -> s{_gmsuAction = a})  -- | The country from which web requests originate that you want AWS WAF to search for. gmsuGeoMatchConstraint :: Lens' GeoMatchSetUpdate GeoMatchConstraint-gmsuGeoMatchConstraint = lens _gmsuGeoMatchConstraint (\ s a -> s{_gmsuGeoMatchConstraint = a});+gmsuGeoMatchConstraint = lens _gmsuGeoMatchConstraint (\ s a -> s{_gmsuGeoMatchConstraint = a})  instance Hashable GeoMatchSetUpdate where @@ -603,11 +611,11 @@  -- | The value of one of the headers in the sampled web request. httphValue :: Lens' HTTPHeader (Maybe Text)-httphValue = lens _httphValue (\ s a -> s{_httphValue = a});+httphValue = lens _httphValue (\ s a -> s{_httphValue = a})  -- | The name of one of the headers in the sampled web request. httphName :: Lens' HTTPHeader (Maybe Text)-httphName = lens _httphName (\ s a -> s{_httphName = a});+httphName = lens _httphName (\ s a -> s{_httphName = a})  instance FromJSON HTTPHeader where         parseJSON@@ -653,38 +661,38 @@     :: HTTPRequest hTTPRequest =   HTTPRequest'-  { _httprHTTPVersion = Nothing-  , _httprCountry = Nothing-  , _httprURI = Nothing-  , _httprHeaders = Nothing-  , _httprMethod = Nothing-  , _httprClientIP = Nothing-  }+    { _httprHTTPVersion = Nothing+    , _httprCountry = Nothing+    , _httprURI = Nothing+    , _httprHeaders = Nothing+    , _httprMethod = Nothing+    , _httprClientIP = Nothing+    }   -- | The HTTP version specified in the sampled web request, for example, @HTTP/1.1@ . httprHTTPVersion :: Lens' HTTPRequest (Maybe Text)-httprHTTPVersion = lens _httprHTTPVersion (\ s a -> s{_httprHTTPVersion = a});+httprHTTPVersion = lens _httprHTTPVersion (\ s a -> s{_httprHTTPVersion = a})  -- | The two-letter country code for the country that the request originated from. For a current list of country codes, see the Wikipedia entry <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO 3166-1 alpha-2> . httprCountry :: Lens' HTTPRequest (Maybe Text)-httprCountry = lens _httprCountry (\ s a -> s{_httprCountry = a});+httprCountry = lens _httprCountry (\ s a -> s{_httprCountry = a})  -- | The part of a web request that identifies the resource, for example, @/images/daily-ad.jpg@ . httprURI :: Lens' HTTPRequest (Maybe Text)-httprURI = lens _httprURI (\ s a -> s{_httprURI = a});+httprURI = lens _httprURI (\ s a -> s{_httprURI = a})  -- | A complex type that contains two values for each header in the sampled web request: the name of the header and the value of the header. httprHeaders :: Lens' HTTPRequest [HTTPHeader]-httprHeaders = lens _httprHeaders (\ s a -> s{_httprHeaders = a}) . _Default . _Coerce;+httprHeaders = lens _httprHeaders (\ s a -> s{_httprHeaders = a}) . _Default . _Coerce  -- | The HTTP method specified in the sampled web request. CloudFront supports the following methods: @DELETE@ , @GET@ , @HEAD@ , @OPTIONS@ , @PATCH@ , @POST@ , and @PUT@ . httprMethod :: Lens' HTTPRequest (Maybe Text)-httprMethod = lens _httprMethod (\ s a -> s{_httprMethod = a});+httprMethod = lens _httprMethod (\ s a -> s{_httprMethod = a})  -- | The IP address that the request originated from. If the @WebACL@ is associated with a CloudFront distribution, this is the value of one of the following fields in CloudFront access logs:     * @c-ip@ , if the viewer did not use an HTTP proxy or a load balancer to send the request     * @x-forwarded-for@ , if the viewer did use an HTTP proxy or a load balancer to send the request httprClientIP :: Lens' HTTPRequest (Maybe Text)-httprClientIP = lens _httprClientIP (\ s a -> s{_httprClientIP = a});+httprClientIP = lens _httprClientIP (\ s a -> s{_httprClientIP = a})  instance FromJSON HTTPRequest where         parseJSON@@ -729,20 +737,20 @@     -> IPSet ipSet pIPSetId_ =   IPSet'-  {_isName = Nothing, _isIPSetId = pIPSetId_, _isIPSetDescriptors = mempty}+    {_isName = Nothing, _isIPSetId = pIPSetId_, _isIPSetDescriptors = mempty}   -- | A friendly name or description of the 'IPSet' . You can't change the name of an @IPSet@ after you create it. isName :: Lens' IPSet (Maybe Text)-isName = lens _isName (\ s a -> s{_isName = a});+isName = lens _isName (\ s a -> s{_isName = a})  -- | The @IPSetId@ for an @IPSet@ . You use @IPSetId@ to get information about an @IPSet@ (see 'GetIPSet' ), update an @IPSet@ (see 'UpdateIPSet' ), insert an @IPSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete an @IPSet@ from AWS WAF (see 'DeleteIPSet' ). @IPSetId@ is returned by 'CreateIPSet' and by 'ListIPSets' . isIPSetId :: Lens' IPSet Text-isIPSetId = lens _isIPSetId (\ s a -> s{_isIPSetId = a});+isIPSetId = lens _isIPSetId (\ s a -> s{_isIPSetId = a})  -- | The IP address type (@IPV4@ or @IPV6@ ) and the IP address range (in CIDR notation) that web requests originate from. If the @WebACL@ is associated with a CloudFront distribution and the viewer did not use an HTTP proxy or a load balancer to send the request, this is the value of the c-ip field in the CloudFront access logs. isIPSetDescriptors :: Lens' IPSet [IPSetDescriptor]-isIPSetDescriptors = lens _isIPSetDescriptors (\ s a -> s{_isIPSetDescriptors = a}) . _Coerce;+isIPSetDescriptors = lens _isIPSetDescriptors (\ s a -> s{_isIPSetDescriptors = a}) . _Coerce  instance FromJSON IPSet where         parseJSON@@ -784,11 +792,11 @@  -- | Specify @IPV4@ or @IPV6@ . isdType :: Lens' IPSetDescriptor IPSetDescriptorType-isdType = lens _isdType (\ s a -> s{_isdType = a});+isdType = lens _isdType (\ s a -> s{_isdType = a})  -- | Specify an IPv4 address by using CIDR notation. For example:     * To configure AWS WAF to allow, block, or count requests that originated from the IP address 192.0.2.44, specify @192.0.2.44/32@ .     * To configure AWS WAF to allow, block, or count requests that originated from IP addresses from 192.0.2.0 to 192.0.2.255, specify @192.0.2.0/24@ . For more information about CIDR notation, see the Wikipedia entry <https://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Classless Inter-Domain Routing> . Specify an IPv6 address by using CIDR notation. For example:     * To configure AWS WAF to allow, block, or count requests that originated from the IP address 1111:0000:0000:0000:0000:0000:0000:0111, specify @1111:0000:0000:0000:0000:0000:0000:0111/128@ .     * To configure AWS WAF to allow, block, or count requests that originated from IP addresses 1111:0000:0000:0000:0000:0000:0000:0000 to 1111:0000:0000:0000:ffff:ffff:ffff:ffff, specify @1111:0000:0000:0000:0000:0000:0000:0000/64@ . isdValue :: Lens' IPSetDescriptor Text-isdValue = lens _isdValue (\ s a -> s{_isdValue = a});+isdValue = lens _isdValue (\ s a -> s{_isdValue = a})  instance FromJSON IPSetDescriptor where         parseJSON@@ -836,11 +844,11 @@  -- | The @IPSetId@ for an 'IPSet' . You can use @IPSetId@ in a 'GetIPSet' request to get detailed information about an 'IPSet' . issIPSetId :: Lens' IPSetSummary Text-issIPSetId = lens _issIPSetId (\ s a -> s{_issIPSetId = a});+issIPSetId = lens _issIPSetId (\ s a -> s{_issIPSetId = a})  -- | A friendly name or description of the 'IPSet' . You can't change the name of an @IPSet@ after you create it. issName :: Lens' IPSetSummary Text-issName = lens _issName (\ s a -> s{_issName = a});+issName = lens _issName (\ s a -> s{_issName = a})  instance FromJSON IPSetSummary where         parseJSON@@ -880,11 +888,11 @@  -- | Specifies whether to insert or delete an IP address with 'UpdateIPSet' . isuAction :: Lens' IPSetUpdate ChangeAction-isuAction = lens _isuAction (\ s a -> s{_isuAction = a});+isuAction = lens _isuAction (\ s a -> s{_isuAction = a})  -- | The IP address type (@IPV4@ or @IPV6@ ) and the IP address range (in CIDR notation) that web requests originate from. isuIPSetDescriptor :: Lens' IPSetUpdate IPSetDescriptor-isuIPSetDescriptor = lens _isuIPSetDescriptor (\ s a -> s{_isuIPSetDescriptor = a});+isuIPSetDescriptor = lens _isuIPSetDescriptor (\ s a -> s{_isuIPSetDescriptor = a})  instance Hashable IPSetUpdate where @@ -929,15 +937,15 @@  -- | Set @Negated@ to @False@ if you want AWS WAF to allow, block, or count requests based on the settings in the specified 'ByteMatchSet' , 'IPSet' , 'SqlInjectionMatchSet' , 'XssMatchSet' , 'RegexMatchSet' , 'GeoMatchSet' , or 'SizeConstraintSet' . For example, if an @IPSet@ includes the IP address @192.0.2.44@ , AWS WAF will allow or block requests based on that IP address. Set @Negated@ to @True@ if you want AWS WAF to allow or block a request based on the negation of the settings in the 'ByteMatchSet' , 'IPSet' , 'SqlInjectionMatchSet' , 'XssMatchSet' , 'RegexMatchSet' , 'GeoMatchSet' , or 'SizeConstraintSet' . For example, if an @IPSet@ includes the IP address @192.0.2.44@ , AWS WAF will allow, block, or count requests based on all IP addresses /except/ @192.0.2.44@ . pNegated :: Lens' Predicate Bool-pNegated = lens _pNegated (\ s a -> s{_pNegated = a});+pNegated = lens _pNegated (\ s a -> s{_pNegated = a})  -- | The type of predicate in a @Rule@ , such as @ByteMatchSet@ or @IPSet@ . pType :: Lens' Predicate PredicateType-pType = lens _pType (\ s a -> s{_pType = a});+pType = lens _pType (\ s a -> s{_pType = a})  -- | A unique identifier for a predicate in a @Rule@ , such as @ByteMatchSetId@ or @IPSetId@ . The ID is returned by the corresponding @Create@ or @List@ command. pDataId :: Lens' Predicate Text-pDataId = lens _pDataId (\ s a -> s{_pDataId = a});+pDataId = lens _pDataId (\ s a -> s{_pDataId = a})  instance FromJSON Predicate where         parseJSON@@ -1006,38 +1014,38 @@     -> RateBasedRule rateBasedRule pRuleId_ pRateKey_ pRateLimit_ =   RateBasedRule'-  { _rbrMetricName = Nothing-  , _rbrName = Nothing-  , _rbrRuleId = pRuleId_-  , _rbrMatchPredicates = mempty-  , _rbrRateKey = pRateKey_-  , _rbrRateLimit = _Nat # pRateLimit_-  }+    { _rbrMetricName = Nothing+    , _rbrName = Nothing+    , _rbrRuleId = pRuleId_+    , _rbrMatchPredicates = mempty+    , _rbrRateKey = pRateKey_+    , _rbrRateLimit = _Nat # pRateLimit_+    }   -- | A friendly name or description for the metrics for a @RateBasedRule@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RateBasedRule@ . rbrMetricName :: Lens' RateBasedRule (Maybe Text)-rbrMetricName = lens _rbrMetricName (\ s a -> s{_rbrMetricName = a});+rbrMetricName = lens _rbrMetricName (\ s a -> s{_rbrMetricName = a})  -- | A friendly name or description for a @RateBasedRule@ . You can't change the name of a @RateBasedRule@ after you create it. rbrName :: Lens' RateBasedRule (Maybe Text)-rbrName = lens _rbrName (\ s a -> s{_rbrName = a});+rbrName = lens _rbrName (\ s a -> s{_rbrName = a})  -- | A unique identifier for a @RateBasedRule@ . You use @RuleId@ to get more information about a @RateBasedRule@ (see 'GetRateBasedRule' ), update a @RateBasedRule@ (see 'UpdateRateBasedRule' ), insert a @RateBasedRule@ into a @WebACL@ or delete one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @RateBasedRule@ from AWS WAF (see 'DeleteRateBasedRule' ). rbrRuleId :: Lens' RateBasedRule Text-rbrRuleId = lens _rbrRuleId (\ s a -> s{_rbrRuleId = a});+rbrRuleId = lens _rbrRuleId (\ s a -> s{_rbrRuleId = a})  -- | The @Predicates@ object contains one @Predicate@ element for each 'ByteMatchSet' , 'IPSet' , or 'SqlInjectionMatchSet' object that you want to include in a @RateBasedRule@ . rbrMatchPredicates :: Lens' RateBasedRule [Predicate]-rbrMatchPredicates = lens _rbrMatchPredicates (\ s a -> s{_rbrMatchPredicates = a}) . _Coerce;+rbrMatchPredicates = lens _rbrMatchPredicates (\ s a -> s{_rbrMatchPredicates = a}) . _Coerce  -- | The field that AWS WAF uses to determine if requests are likely arriving from single source and thus subject to rate monitoring. The only valid value for @RateKey@ is @IP@ . @IP@ indicates that requests arriving from the same IP address are subject to the @RateLimit@ that is specified in the @RateBasedRule@ . rbrRateKey :: Lens' RateBasedRule RateKey-rbrRateKey = lens _rbrRateKey (\ s a -> s{_rbrRateKey = a});+rbrRateKey = lens _rbrRateKey (\ s a -> s{_rbrRateKey = a})  -- | The maximum number of requests, which have an identical value in the field specified by the @RateKey@ , allowed in a five-minute period. If the number of requests exceeds the @RateLimit@ and the other predicates specified in the rule are also met, AWS WAF triggers the action that is specified for this rule. rbrRateLimit :: Lens' RateBasedRule Natural-rbrRateLimit = lens _rbrRateLimit (\ s a -> s{_rbrRateLimit = a}) . _Nat;+rbrRateLimit = lens _rbrRateLimit (\ s a -> s{_rbrRateLimit = a}) . _Nat  instance FromJSON RateBasedRule where         parseJSON@@ -1081,23 +1089,23 @@     :: RegexMatchSet regexMatchSet =   RegexMatchSet'-  { _rmsName = Nothing-  , _rmsRegexMatchTuples = Nothing-  , _rmsRegexMatchSetId = Nothing-  }+    { _rmsName = Nothing+    , _rmsRegexMatchTuples = Nothing+    , _rmsRegexMatchSetId = Nothing+    }   -- | A friendly name or description of the 'RegexMatchSet' . You can't change @Name@ after you create a @RegexMatchSet@ . rmsName :: Lens' RegexMatchSet (Maybe Text)-rmsName = lens _rmsName (\ s a -> s{_rmsName = a});+rmsName = lens _rmsName (\ s a -> s{_rmsName = a})  -- | Contains an array of 'RegexMatchTuple' objects. Each @RegexMatchTuple@ object contains:      * The part of a web request that you want AWS WAF to inspect, such as a query string or the value of the @User-Agent@ header.      * The identifier of the pattern (a regular expression) that you want AWS WAF to look for. For more information, see 'RegexPatternSet' .     * Whether to perform any conversions on the request, such as converting it to lowercase, before inspecting it for the specified string. rmsRegexMatchTuples :: Lens' RegexMatchSet [RegexMatchTuple]-rmsRegexMatchTuples = lens _rmsRegexMatchTuples (\ s a -> s{_rmsRegexMatchTuples = a}) . _Default . _Coerce;+rmsRegexMatchTuples = lens _rmsRegexMatchTuples (\ s a -> s{_rmsRegexMatchTuples = a}) . _Default . _Coerce  -- | The @RegexMatchSetId@ for a @RegexMatchSet@ . You use @RegexMatchSetId@ to get information about a @RegexMatchSet@ (see 'GetRegexMatchSet' ), update a @RegexMatchSet@ (see 'UpdateRegexMatchSet' ), insert a @RegexMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @RegexMatchSet@ from AWS WAF (see 'DeleteRegexMatchSet' ). @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' . rmsRegexMatchSetId :: Lens' RegexMatchSet (Maybe Text)-rmsRegexMatchSetId = lens _rmsRegexMatchSetId (\ s a -> s{_rmsRegexMatchSetId = a});+rmsRegexMatchSetId = lens _rmsRegexMatchSetId (\ s a -> s{_rmsRegexMatchSetId = a})  instance FromJSON RegexMatchSet where         parseJSON@@ -1136,16 +1144,16 @@     -> RegexMatchSetSummary regexMatchSetSummary pRegexMatchSetId_ pName_ =   RegexMatchSetSummary'-  {_rmssRegexMatchSetId = pRegexMatchSetId_, _rmssName = pName_}+    {_rmssRegexMatchSetId = pRegexMatchSetId_, _rmssName = pName_}   -- | The @RegexMatchSetId@ for a @RegexMatchSet@ . You use @RegexMatchSetId@ to get information about a @RegexMatchSet@ , update a @RegexMatchSet@ , remove a @RegexMatchSet@ from a @Rule@ , and delete a @RegexMatchSet@ from AWS WAF. @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' . rmssRegexMatchSetId :: Lens' RegexMatchSetSummary Text-rmssRegexMatchSetId = lens _rmssRegexMatchSetId (\ s a -> s{_rmssRegexMatchSetId = a});+rmssRegexMatchSetId = lens _rmssRegexMatchSetId (\ s a -> s{_rmssRegexMatchSetId = a})  -- | A friendly name or description of the 'RegexMatchSet' . You can't change @Name@ after you create a @RegexMatchSet@ . rmssName :: Lens' RegexMatchSetSummary Text-rmssName = lens _rmssName (\ s a -> s{_rmssName = a});+rmssName = lens _rmssName (\ s a -> s{_rmssName = a})  instance FromJSON RegexMatchSetSummary where         parseJSON@@ -1182,16 +1190,16 @@     -> RegexMatchSetUpdate regexMatchSetUpdate pAction_ pRegexMatchTuple_ =   RegexMatchSetUpdate'-  {_rmsuAction = pAction_, _rmsuRegexMatchTuple = pRegexMatchTuple_}+    {_rmsuAction = pAction_, _rmsuRegexMatchTuple = pRegexMatchTuple_}   -- | Specifies whether to insert or delete a 'RegexMatchTuple' . rmsuAction :: Lens' RegexMatchSetUpdate ChangeAction-rmsuAction = lens _rmsuAction (\ s a -> s{_rmsuAction = a});+rmsuAction = lens _rmsuAction (\ s a -> s{_rmsuAction = a})  -- | Information about the part of a web request that you want AWS WAF to inspect and the identifier of the regular expression (regex) pattern that you want AWS WAF to search for. If you specify @DELETE@ for the value of @Action@ , the @RegexMatchTuple@ values must exactly match the values in the @RegexMatchTuple@ that you want to delete from the @RegexMatchSet@ . rmsuRegexMatchTuple :: Lens' RegexMatchSetUpdate RegexMatchTuple-rmsuRegexMatchTuple = lens _rmsuRegexMatchTuple (\ s a -> s{_rmsuRegexMatchTuple = a});+rmsuRegexMatchTuple = lens _rmsuRegexMatchTuple (\ s a -> s{_rmsuRegexMatchTuple = a})  instance Hashable RegexMatchSetUpdate where @@ -1240,23 +1248,23 @@     -> RegexMatchTuple regexMatchTuple pFieldToMatch_ pTextTransformation_ pRegexPatternSetId_ =   RegexMatchTuple'-  { _rmtFieldToMatch = pFieldToMatch_-  , _rmtTextTransformation = pTextTransformation_-  , _rmtRegexPatternSetId = pRegexPatternSetId_-  }+    { _rmtFieldToMatch = pFieldToMatch_+    , _rmtTextTransformation = pTextTransformation_+    , _rmtRegexPatternSetId = pRegexPatternSetId_+    }   -- | Specifies where in a web request to look for the @RegexPatternSet@ . rmtFieldToMatch :: Lens' RegexMatchTuple FieldToMatch-rmtFieldToMatch = lens _rmtFieldToMatch (\ s a -> s{_rmtFieldToMatch = a});+rmtFieldToMatch = lens _rmtFieldToMatch (\ s a -> s{_rmtFieldToMatch = a})  -- | Text transformations eliminate some of the unusual formatting that attackers use in web requests in an effort to bypass AWS WAF. If you specify a transformation, AWS WAF performs the transformation on @RegexPatternSet@ before inspecting a request for a match. __CMD_LINE__  When you're concerned that attackers are injecting an operating system commandline command and using unusual formatting to disguise some or all of the command, use this option to perform the following transformations:     * Delete the following characters: \ " ' ^     * Delete spaces before the following characters: / (     * Replace the following characters with a space: , ;     * Replace multiple spaces with one space     * Convert uppercase letters (A-Z) to lowercase (a-z) __COMPRESS_WHITE_SPACE__  Use this option to replace the following characters with a space character (decimal 32):     * \f, formfeed, decimal 12     * \t, tab, decimal 9     * \n, newline, decimal 10     * \r, carriage return, decimal 13     * \v, vertical tab, decimal 11     * non-breaking space, decimal 160 @COMPRESS_WHITE_SPACE@ also replaces multiple spaces with one space. __HTML_ENTITY_DECODE__  Use this option to replace HTML-encoded characters with unencoded characters. @HTML_ENTITY_DECODE@ performs the following operations:     * Replaces @(ampersand)quot;@ with @"@      * Replaces @(ampersand)nbsp;@ with a non-breaking space, decimal 160     * Replaces @(ampersand)lt;@ with a "less than" symbol     * Replaces @(ampersand)gt;@ with @>@      * Replaces characters that are represented in hexadecimal format, @(ampersand)#xhhhh;@ , with the corresponding characters     * Replaces characters that are represented in decimal format, @(ampersand)#nnnn;@ , with the corresponding characters __LOWERCASE__  Use this option to convert uppercase letters (A-Z) to lowercase (a-z). __URL_DECODE__  Use this option to decode a URL-encoded value. __NONE__  Specify @NONE@ if you don't want to perform any text transformations. rmtTextTransformation :: Lens' RegexMatchTuple TextTransformation-rmtTextTransformation = lens _rmtTextTransformation (\ s a -> s{_rmtTextTransformation = a});+rmtTextTransformation = lens _rmtTextTransformation (\ s a -> s{_rmtTextTransformation = a})  -- | The @RegexPatternSetId@ for a @RegexPatternSet@ . You use @RegexPatternSetId@ to get information about a @RegexPatternSet@ (see 'GetRegexPatternSet' ), update a @RegexPatternSet@ (see 'UpdateRegexPatternSet' ), insert a @RegexPatternSet@ into a @RegexMatchSet@ or delete one from a @RegexMatchSet@ (see 'UpdateRegexMatchSet' ), and delete an @RegexPatternSet@ from AWS WAF (see 'DeleteRegexPatternSet' ). @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' . rmtRegexPatternSetId :: Lens' RegexMatchTuple Text-rmtRegexPatternSetId = lens _rmtRegexPatternSetId (\ s a -> s{_rmtRegexPatternSetId = a});+rmtRegexPatternSetId = lens _rmtRegexPatternSetId (\ s a -> s{_rmtRegexPatternSetId = a})  instance FromJSON RegexMatchTuple where         parseJSON@@ -1305,23 +1313,23 @@     -> RegexPatternSet regexPatternSet pRegexPatternSetId_ =   RegexPatternSet'-  { _rpsName = Nothing-  , _rpsRegexPatternSetId = pRegexPatternSetId_-  , _rpsRegexPatternStrings = mempty-  }+    { _rpsName = Nothing+    , _rpsRegexPatternSetId = pRegexPatternSetId_+    , _rpsRegexPatternStrings = mempty+    }   -- | A friendly name or description of the 'RegexPatternSet' . You can't change @Name@ after you create a @RegexPatternSet@ . rpsName :: Lens' RegexPatternSet (Maybe Text)-rpsName = lens _rpsName (\ s a -> s{_rpsName = a});+rpsName = lens _rpsName (\ s a -> s{_rpsName = a})  -- | The identifier for the @RegexPatternSet@ . You use @RegexPatternSetId@ to get information about a @RegexPatternSet@ , update a @RegexPatternSet@ , remove a @RegexPatternSet@ from a @RegexMatchSet@ , and delete a @RegexPatternSet@ from AWS WAF. @RegexMatchSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' . rpsRegexPatternSetId :: Lens' RegexPatternSet Text-rpsRegexPatternSetId = lens _rpsRegexPatternSetId (\ s a -> s{_rpsRegexPatternSetId = a});+rpsRegexPatternSetId = lens _rpsRegexPatternSetId (\ s a -> s{_rpsRegexPatternSetId = a})  -- | Specifies the regular expression (regex) patterns that you want AWS WAF to search for, such as @B[a@]dB[o0]t@ . rpsRegexPatternStrings :: Lens' RegexPatternSet [Text]-rpsRegexPatternStrings = lens _rpsRegexPatternStrings (\ s a -> s{_rpsRegexPatternStrings = a}) . _Coerce;+rpsRegexPatternStrings = lens _rpsRegexPatternStrings (\ s a -> s{_rpsRegexPatternStrings = a}) . _Coerce  instance FromJSON RegexPatternSet where         parseJSON@@ -1359,16 +1367,16 @@     -> RegexPatternSetSummary regexPatternSetSummary pRegexPatternSetId_ pName_ =   RegexPatternSetSummary'-  {_rpssRegexPatternSetId = pRegexPatternSetId_, _rpssName = pName_}+    {_rpssRegexPatternSetId = pRegexPatternSetId_, _rpssName = pName_}   -- | The @RegexPatternSetId@ for a @RegexPatternSet@ . You use @RegexPatternSetId@ to get information about a @RegexPatternSet@ , update a @RegexPatternSet@ , remove a @RegexPatternSet@ from a @RegexMatchSet@ , and delete a @RegexPatternSet@ from AWS WAF. @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' . rpssRegexPatternSetId :: Lens' RegexPatternSetSummary Text-rpssRegexPatternSetId = lens _rpssRegexPatternSetId (\ s a -> s{_rpssRegexPatternSetId = a});+rpssRegexPatternSetId = lens _rpssRegexPatternSetId (\ s a -> s{_rpssRegexPatternSetId = a})  -- | A friendly name or description of the 'RegexPatternSet' . You can't change @Name@ after you create a @RegexPatternSet@ . rpssName :: Lens' RegexPatternSetSummary Text-rpssName = lens _rpssName (\ s a -> s{_rpssName = a});+rpssName = lens _rpssName (\ s a -> s{_rpssName = a})  instance FromJSON RegexPatternSetSummary where         parseJSON@@ -1405,16 +1413,16 @@     -> RegexPatternSetUpdate regexPatternSetUpdate pAction_ pRegexPatternString_ =   RegexPatternSetUpdate'-  {_rpsuAction = pAction_, _rpsuRegexPatternString = pRegexPatternString_}+    {_rpsuAction = pAction_, _rpsuRegexPatternString = pRegexPatternString_}   -- | Specifies whether to insert or delete a @RegexPatternString@ . rpsuAction :: Lens' RegexPatternSetUpdate ChangeAction-rpsuAction = lens _rpsuAction (\ s a -> s{_rpsuAction = a});+rpsuAction = lens _rpsuAction (\ s a -> s{_rpsuAction = a})  -- | Specifies the regular expression (regex) pattern that you want AWS WAF to search for, such as @B[a@]dB[o0]t@ . rpsuRegexPatternString :: Lens' RegexPatternSetUpdate Text-rpsuRegexPatternString = lens _rpsuRegexPatternString (\ s a -> s{_rpsuRegexPatternString = a});+rpsuRegexPatternString = lens _rpsuRegexPatternString (\ s a -> s{_rpsuRegexPatternString = a})  instance Hashable RegexPatternSetUpdate where @@ -1465,28 +1473,28 @@     -> Rule rule pRuleId_ =   Rule'-  { _rMetricName = Nothing-  , _rName = Nothing-  , _rRuleId = pRuleId_-  , _rPredicates = mempty-  }+    { _rMetricName = Nothing+    , _rName = Nothing+    , _rRuleId = pRuleId_+    , _rPredicates = mempty+    }   -- | A friendly name or description for the metrics for this @Rule@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change @MetricName@ after you create the @Rule@ . rMetricName :: Lens' Rule (Maybe Text)-rMetricName = lens _rMetricName (\ s a -> s{_rMetricName = a});+rMetricName = lens _rMetricName (\ s a -> s{_rMetricName = a})  -- | The friendly name or description for the @Rule@ . You can't change the name of a @Rule@ after you create it. rName :: Lens' Rule (Maybe Text)-rName = lens _rName (\ s a -> s{_rName = a});+rName = lens _rName (\ s a -> s{_rName = a})  -- | A unique identifier for a @Rule@ . You use @RuleId@ to get more information about a @Rule@ (see 'GetRule' ), update a @Rule@ (see 'UpdateRule' ), insert a @Rule@ into a @WebACL@ or delete a one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @Rule@ from AWS WAF (see 'DeleteRule' ). @RuleId@ is returned by 'CreateRule' and by 'ListRules' . rRuleId :: Lens' Rule Text-rRuleId = lens _rRuleId (\ s a -> s{_rRuleId = a});+rRuleId = lens _rRuleId (\ s a -> s{_rRuleId = a})  -- | The @Predicates@ object contains one @Predicate@ element for each 'ByteMatchSet' , 'IPSet' , or 'SqlInjectionMatchSet' object that you want to include in a @Rule@ . rPredicates :: Lens' Rule [Predicate]-rPredicates = lens _rPredicates (\ s a -> s{_rPredicates = a}) . _Coerce;+rPredicates = lens _rPredicates (\ s a -> s{_rPredicates = a}) . _Coerce  instance FromJSON Rule where         parseJSON@@ -1501,6 +1509,159 @@  instance NFData Rule where +-- | A collection of predefined rules that you can add to a web ACL.+--+--+-- Rule groups are subject to the following limits:+--+--     * Three rule groups per account. You can request an increase to this limit by contacting customer support.+--+--     * One rule group per web ACL.+--+--     * Ten rules per rule group.+--+--+--+--+-- /See:/ 'ruleGroup' smart constructor.+data RuleGroup = RuleGroup'+  { _rgMetricName  :: !(Maybe Text)+  , _rgName        :: !(Maybe Text)+  , _rgRuleGroupId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RuleGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rgMetricName' - A friendly name or description for the metrics for this @RuleGroup@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RuleGroup@ .+--+-- * 'rgName' - The friendly name or description for the @RuleGroup@ . You can't change the name of a @RuleGroup@ after you create it.+--+-- * 'rgRuleGroupId' - A unique identifier for a @RuleGroup@ . You use @RuleGroupId@ to get more information about a @RuleGroup@ (see 'GetRuleGroup' ), update a @RuleGroup@ (see 'UpdateRuleGroup' ), insert a @RuleGroup@ into a @WebACL@ or delete a one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @RuleGroup@ from AWS WAF (see 'DeleteRuleGroup' ). @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+ruleGroup+    :: Text -- ^ 'rgRuleGroupId'+    -> RuleGroup+ruleGroup pRuleGroupId_ =+  RuleGroup'+    {_rgMetricName = Nothing, _rgName = Nothing, _rgRuleGroupId = pRuleGroupId_}+++-- | A friendly name or description for the metrics for this @RuleGroup@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RuleGroup@ .+rgMetricName :: Lens' RuleGroup (Maybe Text)+rgMetricName = lens _rgMetricName (\ s a -> s{_rgMetricName = a})++-- | The friendly name or description for the @RuleGroup@ . You can't change the name of a @RuleGroup@ after you create it.+rgName :: Lens' RuleGroup (Maybe Text)+rgName = lens _rgName (\ s a -> s{_rgName = a})++-- | A unique identifier for a @RuleGroup@ . You use @RuleGroupId@ to get more information about a @RuleGroup@ (see 'GetRuleGroup' ), update a @RuleGroup@ (see 'UpdateRuleGroup' ), insert a @RuleGroup@ into a @WebACL@ or delete a one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @RuleGroup@ from AWS WAF (see 'DeleteRuleGroup' ). @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+rgRuleGroupId :: Lens' RuleGroup Text+rgRuleGroupId = lens _rgRuleGroupId (\ s a -> s{_rgRuleGroupId = a})++instance FromJSON RuleGroup where+        parseJSON+          = withObject "RuleGroup"+              (\ x ->+                 RuleGroup' <$>+                   (x .:? "MetricName") <*> (x .:? "Name") <*>+                     (x .: "RuleGroupId"))++instance Hashable RuleGroup where++instance NFData RuleGroup where++-- | Contains the identifier and the friendly name or description of the @RuleGroup@ .+--+--+--+-- /See:/ 'ruleGroupSummary' smart constructor.+data RuleGroupSummary = RuleGroupSummary'+  { _rgsRuleGroupId :: !Text+  , _rgsName        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RuleGroupSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rgsRuleGroupId' - A unique identifier for a @RuleGroup@ . You use @RuleGroupId@ to get more information about a @RuleGroup@ (see 'GetRuleGroup' ), update a @RuleGroup@ (see 'UpdateRuleGroup' ), insert a @RuleGroup@ into a @WebACL@ or delete one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @RuleGroup@ from AWS WAF (see 'DeleteRuleGroup' ). @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+--+-- * 'rgsName' - A friendly name or description of the 'RuleGroup' . You can't change the name of a @RuleGroup@ after you create it.+ruleGroupSummary+    :: Text -- ^ 'rgsRuleGroupId'+    -> Text -- ^ 'rgsName'+    -> RuleGroupSummary+ruleGroupSummary pRuleGroupId_ pName_ =+  RuleGroupSummary' {_rgsRuleGroupId = pRuleGroupId_, _rgsName = pName_}+++-- | A unique identifier for a @RuleGroup@ . You use @RuleGroupId@ to get more information about a @RuleGroup@ (see 'GetRuleGroup' ), update a @RuleGroup@ (see 'UpdateRuleGroup' ), insert a @RuleGroup@ into a @WebACL@ or delete one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @RuleGroup@ from AWS WAF (see 'DeleteRuleGroup' ). @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+rgsRuleGroupId :: Lens' RuleGroupSummary Text+rgsRuleGroupId = lens _rgsRuleGroupId (\ s a -> s{_rgsRuleGroupId = a})++-- | A friendly name or description of the 'RuleGroup' . You can't change the name of a @RuleGroup@ after you create it.+rgsName :: Lens' RuleGroupSummary Text+rgsName = lens _rgsName (\ s a -> s{_rgsName = a})++instance FromJSON RuleGroupSummary where+        parseJSON+          = withObject "RuleGroupSummary"+              (\ x ->+                 RuleGroupSummary' <$>+                   (x .: "RuleGroupId") <*> (x .: "Name"))++instance Hashable RuleGroupSummary where++instance NFData RuleGroupSummary where++-- | Specifies an @ActivatedRule@ and indicates whether you want to add it to a @RuleGroup@ or delete it from a @RuleGroup@ .+--+--+--+-- /See:/ 'ruleGroupUpdate' smart constructor.+data RuleGroupUpdate = RuleGroupUpdate'+  { _rguAction        :: !ChangeAction+  , _rguActivatedRule :: !ActivatedRule+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RuleGroupUpdate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rguAction' - Specify @INSERT@ to add an @ActivatedRule@ to a @RuleGroup@ . Use @DELETE@ to remove an @ActivatedRule@ from a @RuleGroup@ .+--+-- * 'rguActivatedRule' - The @ActivatedRule@ object specifies a @Rule@ that you want to insert or delete, the priority of the @Rule@ in the @WebACL@ , and the action that you want AWS WAF to take when a web request matches the @Rule@ (@ALLOW@ , @BLOCK@ , or @COUNT@ ).+ruleGroupUpdate+    :: ChangeAction -- ^ 'rguAction'+    -> ActivatedRule -- ^ 'rguActivatedRule'+    -> RuleGroupUpdate+ruleGroupUpdate pAction_ pActivatedRule_ =+  RuleGroupUpdate' {_rguAction = pAction_, _rguActivatedRule = pActivatedRule_}+++-- | Specify @INSERT@ to add an @ActivatedRule@ to a @RuleGroup@ . Use @DELETE@ to remove an @ActivatedRule@ from a @RuleGroup@ .+rguAction :: Lens' RuleGroupUpdate ChangeAction+rguAction = lens _rguAction (\ s a -> s{_rguAction = a})++-- | The @ActivatedRule@ object specifies a @Rule@ that you want to insert or delete, the priority of the @Rule@ in the @WebACL@ , and the action that you want AWS WAF to take when a web request matches the @Rule@ (@ALLOW@ , @BLOCK@ , or @COUNT@ ).+rguActivatedRule :: Lens' RuleGroupUpdate ActivatedRule+rguActivatedRule = lens _rguActivatedRule (\ s a -> s{_rguActivatedRule = a})++instance Hashable RuleGroupUpdate where++instance NFData RuleGroupUpdate where++instance ToJSON RuleGroupUpdate where+        toJSON RuleGroupUpdate'{..}+          = object+              (catMaybes+                 [Just ("Action" .= _rguAction),+                  Just ("ActivatedRule" .= _rguActivatedRule)])+ -- | Contains the identifier and the friendly name or description of the @Rule@ . -- --@@ -1529,11 +1690,11 @@  -- | A unique identifier for a @Rule@ . You use @RuleId@ to get more information about a @Rule@ (see 'GetRule' ), update a @Rule@ (see 'UpdateRule' ), insert a @Rule@ into a @WebACL@ or delete one from a @WebACL@ (see 'UpdateWebACL' ), or delete a @Rule@ from AWS WAF (see 'DeleteRule' ). @RuleId@ is returned by 'CreateRule' and by 'ListRules' . rsRuleId :: Lens' RuleSummary Text-rsRuleId = lens _rsRuleId (\ s a -> s{_rsRuleId = a});+rsRuleId = lens _rsRuleId (\ s a -> s{_rsRuleId = a})  -- | A friendly name or description of the 'Rule' . You can't change the name of a @Rule@ after you create it. rsName :: Lens' RuleSummary Text-rsName = lens _rsName (\ s a -> s{_rsName = a});+rsName = lens _rsName (\ s a -> s{_rsName = a})  instance FromJSON RuleSummary where         parseJSON@@ -1573,11 +1734,11 @@  -- | Specify @INSERT@ to add a @Predicate@ to a @Rule@ . Use @DELETE@ to remove a @Predicate@ from a @Rule@ . ruAction :: Lens' RuleUpdate ChangeAction-ruAction = lens _ruAction (\ s a -> s{_ruAction = a});+ruAction = lens _ruAction (\ s a -> s{_ruAction = a})  -- | The ID of the @Predicate@ (such as an @IPSet@ ) that you want to add to a @Rule@ . ruPredicate :: Lens' RuleUpdate Predicate-ruPredicate = lens _ruPredicate (\ s a -> s{_ruPredicate = a});+ruPredicate = lens _ruPredicate (\ s a -> s{_ruPredicate = a})  instance Hashable RuleUpdate where @@ -1596,10 +1757,11 @@ -- -- /See:/ 'sampledHTTPRequest' smart constructor. data SampledHTTPRequest = SampledHTTPRequest'-  { _shttprAction    :: !(Maybe Text)-  , _shttprTimestamp :: !(Maybe POSIX)-  , _shttprRequest   :: !HTTPRequest-  , _shttprWeight    :: !Nat+  { _shttprRuleWithinRuleGroup :: !(Maybe Text)+  , _shttprAction              :: !(Maybe Text)+  , _shttprTimestamp           :: !(Maybe POSIX)+  , _shttprRequest             :: !HTTPRequest+  , _shttprWeight              :: !Nat   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1607,6 +1769,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'shttprRuleWithinRuleGroup' - This value is returned if the @GetSampledRequests@ request specifies the ID of a @RuleGroup@ rather than the ID of an individual rule. @RuleWithinRuleGroup@ is the rule within the specified @RuleGroup@ that matched the request listed in the response.+-- -- * 'shttprAction' - The action for the @Rule@ that the request matched: @ALLOW@ , @BLOCK@ , or @COUNT@ . -- -- * 'shttprTimestamp' - The time at which AWS WAF received the request from your AWS resource, in Unix time format (in seconds).@@ -1620,36 +1784,42 @@     -> SampledHTTPRequest sampledHTTPRequest pRequest_ pWeight_ =   SampledHTTPRequest'-  { _shttprAction = Nothing-  , _shttprTimestamp = Nothing-  , _shttprRequest = pRequest_-  , _shttprWeight = _Nat # pWeight_-  }+    { _shttprRuleWithinRuleGroup = Nothing+    , _shttprAction = Nothing+    , _shttprTimestamp = Nothing+    , _shttprRequest = pRequest_+    , _shttprWeight = _Nat # pWeight_+    }  +-- | This value is returned if the @GetSampledRequests@ request specifies the ID of a @RuleGroup@ rather than the ID of an individual rule. @RuleWithinRuleGroup@ is the rule within the specified @RuleGroup@ that matched the request listed in the response.+shttprRuleWithinRuleGroup :: Lens' SampledHTTPRequest (Maybe Text)+shttprRuleWithinRuleGroup = lens _shttprRuleWithinRuleGroup (\ s a -> s{_shttprRuleWithinRuleGroup = a})+ -- | The action for the @Rule@ that the request matched: @ALLOW@ , @BLOCK@ , or @COUNT@ . shttprAction :: Lens' SampledHTTPRequest (Maybe Text)-shttprAction = lens _shttprAction (\ s a -> s{_shttprAction = a});+shttprAction = lens _shttprAction (\ s a -> s{_shttprAction = a})  -- | The time at which AWS WAF received the request from your AWS resource, in Unix time format (in seconds). shttprTimestamp :: Lens' SampledHTTPRequest (Maybe UTCTime)-shttprTimestamp = lens _shttprTimestamp (\ s a -> s{_shttprTimestamp = a}) . mapping _Time;+shttprTimestamp = lens _shttprTimestamp (\ s a -> s{_shttprTimestamp = a}) . mapping _Time  -- | A complex type that contains detailed information about the request. shttprRequest :: Lens' SampledHTTPRequest HTTPRequest-shttprRequest = lens _shttprRequest (\ s a -> s{_shttprRequest = a});+shttprRequest = lens _shttprRequest (\ s a -> s{_shttprRequest = a})  -- | A value that indicates how one result in the response relates proportionally to other results in the response. A result that has a weight of @2@ represents roughly twice as many CloudFront web requests as a result that has a weight of @1@ . shttprWeight :: Lens' SampledHTTPRequest Natural-shttprWeight = lens _shttprWeight (\ s a -> s{_shttprWeight = a}) . _Nat;+shttprWeight = lens _shttprWeight (\ s a -> s{_shttprWeight = a}) . _Nat  instance FromJSON SampledHTTPRequest where         parseJSON           = withObject "SampledHTTPRequest"               (\ x ->                  SampledHTTPRequest' <$>-                   (x .:? "Action") <*> (x .:? "Timestamp") <*>-                     (x .: "Request")+                   (x .:? "RuleWithinRuleGroup") <*> (x .:? "Action")+                     <*> (x .:? "Timestamp")+                     <*> (x .: "Request")                      <*> (x .: "Weight"))  instance Hashable SampledHTTPRequest where@@ -1688,28 +1858,28 @@     -> SizeConstraint sizeConstraint pFieldToMatch_ pTextTransformation_ pComparisonOperator_ pSize_ =   SizeConstraint'-  { _scFieldToMatch = pFieldToMatch_-  , _scTextTransformation = pTextTransformation_-  , _scComparisonOperator = pComparisonOperator_-  , _scSize = _Nat # pSize_-  }+    { _scFieldToMatch = pFieldToMatch_+    , _scTextTransformation = pTextTransformation_+    , _scComparisonOperator = pComparisonOperator_+    , _scSize = _Nat # pSize_+    }   -- | Specifies where in a web request to look for the size constraint. scFieldToMatch :: Lens' SizeConstraint FieldToMatch-scFieldToMatch = lens _scFieldToMatch (\ s a -> s{_scFieldToMatch = a});+scFieldToMatch = lens _scFieldToMatch (\ s a -> s{_scFieldToMatch = a})  -- | Text transformations eliminate some of the unusual formatting that attackers use in web requests in an effort to bypass AWS WAF. If you specify a transformation, AWS WAF performs the transformation on @FieldToMatch@ before inspecting a request for a match. Note that if you choose @BODY@ for the value of @Type@ , you must choose @NONE@ for @TextTransformation@ because CloudFront forwards only the first 8192 bytes for inspection.  __NONE__  Specify @NONE@ if you don't want to perform any text transformations. __CMD_LINE__  When you're concerned that attackers are injecting an operating system command line command and using unusual formatting to disguise some or all of the command, use this option to perform the following transformations:     * Delete the following characters: \ " ' ^     * Delete spaces before the following characters: / (     * Replace the following characters with a space: , ;     * Replace multiple spaces with one space     * Convert uppercase letters (A-Z) to lowercase (a-z) __COMPRESS_WHITE_SPACE__  Use this option to replace the following characters with a space character (decimal 32):     * \f, formfeed, decimal 12     * \t, tab, decimal 9     * \n, newline, decimal 10     * \r, carriage return, decimal 13     * \v, vertical tab, decimal 11     * non-breaking space, decimal 160 @COMPRESS_WHITE_SPACE@ also replaces multiple spaces with one space. __HTML_ENTITY_DECODE__  Use this option to replace HTML-encoded characters with unencoded characters. @HTML_ENTITY_DECODE@ performs the following operations:     * Replaces @(ampersand)quot;@ with @"@      * Replaces @(ampersand)nbsp;@ with a non-breaking space, decimal 160     * Replaces @(ampersand)lt;@ with a "less than" symbol     * Replaces @(ampersand)gt;@ with @>@      * Replaces characters that are represented in hexadecimal format, @(ampersand)#xhhhh;@ , with the corresponding characters     * Replaces characters that are represented in decimal format, @(ampersand)#nnnn;@ , with the corresponding characters __LOWERCASE__  Use this option to convert uppercase letters (A-Z) to lowercase (a-z). __URL_DECODE__  Use this option to decode a URL-encoded value. scTextTransformation :: Lens' SizeConstraint TextTransformation-scTextTransformation = lens _scTextTransformation (\ s a -> s{_scTextTransformation = a});+scTextTransformation = lens _scTextTransformation (\ s a -> s{_scTextTransformation = a})  -- | The type of comparison you want AWS WAF to perform. AWS WAF uses this in combination with the provided @Size@ and @FieldToMatch@ to build an expression in the form of "@Size@ @ComparisonOperator@ size in bytes of @FieldToMatch@ ". If that expression is true, the @SizeConstraint@ is considered to match. __EQ__ : Used to test if the @Size@ is equal to the size of the @FieldToMatch@  __NE__ : Used to test if the @Size@ is not equal to the size of the @FieldToMatch@  __LE__ : Used to test if the @Size@ is less than or equal to the size of the @FieldToMatch@  __LT__ : Used to test if the @Size@ is strictly less than the size of the @FieldToMatch@  __GE__ : Used to test if the @Size@ is greater than or equal to the size of the @FieldToMatch@  __GT__ : Used to test if the @Size@ is strictly greater than the size of the @FieldToMatch@ scComparisonOperator :: Lens' SizeConstraint ComparisonOperator-scComparisonOperator = lens _scComparisonOperator (\ s a -> s{_scComparisonOperator = a});+scComparisonOperator = lens _scComparisonOperator (\ s a -> s{_scComparisonOperator = a})  -- | The size in bytes that you want AWS WAF to compare against the size of the specified @FieldToMatch@ . AWS WAF uses this in combination with @ComparisonOperator@ and @FieldToMatch@ to build an expression in the form of "@Size@ @ComparisonOperator@ size in bytes of @FieldToMatch@ ". If that expression is true, the @SizeConstraint@ is considered to match. Valid values for size are 0 - 21474836480 bytes (0 - 20 GB). If you specify @URI@ for the value of @Type@ , the / in the URI counts as one character. For example, the URI @/logo.jpg@ is nine characters long. scSize :: Lens' SizeConstraint Natural-scSize = lens _scSize (\ s a -> s{_scSize = a}) . _Nat;+scSize = lens _scSize (\ s a -> s{_scSize = a}) . _Nat  instance FromJSON SizeConstraint where         parseJSON@@ -1759,23 +1929,23 @@     -> SizeConstraintSet sizeConstraintSet pSizeConstraintSetId_ =   SizeConstraintSet'-  { _scsName = Nothing-  , _scsSizeConstraintSetId = pSizeConstraintSetId_-  , _scsSizeConstraints = mempty-  }+    { _scsName = Nothing+    , _scsSizeConstraintSetId = pSizeConstraintSetId_+    , _scsSizeConstraints = mempty+    }   -- | The name, if any, of the @SizeConstraintSet@ . scsName :: Lens' SizeConstraintSet (Maybe Text)-scsName = lens _scsName (\ s a -> s{_scsName = a});+scsName = lens _scsName (\ s a -> s{_scsName = a})  -- | A unique identifier for a @SizeConstraintSet@ . You use @SizeConstraintSetId@ to get information about a @SizeConstraintSet@ (see 'GetSizeConstraintSet' ), update a @SizeConstraintSet@ (see 'UpdateSizeConstraintSet' ), insert a @SizeConstraintSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @SizeConstraintSet@ from AWS WAF (see 'DeleteSizeConstraintSet' ). @SizeConstraintSetId@ is returned by 'CreateSizeConstraintSet' and by 'ListSizeConstraintSets' . scsSizeConstraintSetId :: Lens' SizeConstraintSet Text-scsSizeConstraintSetId = lens _scsSizeConstraintSetId (\ s a -> s{_scsSizeConstraintSetId = a});+scsSizeConstraintSetId = lens _scsSizeConstraintSetId (\ s a -> s{_scsSizeConstraintSetId = a})  -- | Specifies the parts of web requests that you want to inspect the size of. scsSizeConstraints :: Lens' SizeConstraintSet [SizeConstraint]-scsSizeConstraints = lens _scsSizeConstraints (\ s a -> s{_scsSizeConstraints = a}) . _Coerce;+scsSizeConstraints = lens _scsSizeConstraints (\ s a -> s{_scsSizeConstraints = a}) . _Coerce  instance FromJSON SizeConstraintSet where         parseJSON@@ -1813,16 +1983,16 @@     -> SizeConstraintSetSummary sizeConstraintSetSummary pSizeConstraintSetId_ pName_ =   SizeConstraintSetSummary'-  {_scssSizeConstraintSetId = pSizeConstraintSetId_, _scssName = pName_}+    {_scssSizeConstraintSetId = pSizeConstraintSetId_, _scssName = pName_}   -- | A unique identifier for a @SizeConstraintSet@ . You use @SizeConstraintSetId@ to get information about a @SizeConstraintSet@ (see 'GetSizeConstraintSet' ), update a @SizeConstraintSet@ (see 'UpdateSizeConstraintSet' ), insert a @SizeConstraintSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @SizeConstraintSet@ from AWS WAF (see 'DeleteSizeConstraintSet' ). @SizeConstraintSetId@ is returned by 'CreateSizeConstraintSet' and by 'ListSizeConstraintSets' . scssSizeConstraintSetId :: Lens' SizeConstraintSetSummary Text-scssSizeConstraintSetId = lens _scssSizeConstraintSetId (\ s a -> s{_scssSizeConstraintSetId = a});+scssSizeConstraintSetId = lens _scssSizeConstraintSetId (\ s a -> s{_scssSizeConstraintSetId = a})  -- | The name of the @SizeConstraintSet@ , if any. scssName :: Lens' SizeConstraintSetSummary Text-scssName = lens _scssName (\ s a -> s{_scssName = a});+scssName = lens _scssName (\ s a -> s{_scssName = a})  instance FromJSON SizeConstraintSetSummary where         parseJSON@@ -1859,16 +2029,16 @@     -> SizeConstraintSetUpdate sizeConstraintSetUpdate pAction_ pSizeConstraint_ =   SizeConstraintSetUpdate'-  {_scsuAction = pAction_, _scsuSizeConstraint = pSizeConstraint_}+    {_scsuAction = pAction_, _scsuSizeConstraint = pSizeConstraint_}   -- | Specify @INSERT@ to add a 'SizeConstraintSetUpdate' to a 'SizeConstraintSet' . Use @DELETE@ to remove a @SizeConstraintSetUpdate@ from a @SizeConstraintSet@ . scsuAction :: Lens' SizeConstraintSetUpdate ChangeAction-scsuAction = lens _scsuAction (\ s a -> s{_scsuAction = a});+scsuAction = lens _scsuAction (\ s a -> s{_scsuAction = a})  -- | Specifies a constraint on the size of a part of the web request. AWS WAF uses the @Size@ , @ComparisonOperator@ , and @FieldToMatch@ to build an expression in the form of "@Size@ @ComparisonOperator@ size in bytes of @FieldToMatch@ ". If that expression is true, the @SizeConstraint@ is considered to match. scsuSizeConstraint :: Lens' SizeConstraintSetUpdate SizeConstraint-scsuSizeConstraint = lens _scsuSizeConstraint (\ s a -> s{_scsuSizeConstraint = a});+scsuSizeConstraint = lens _scsuSizeConstraint (\ s a -> s{_scsuSizeConstraint = a})  instance Hashable SizeConstraintSetUpdate where @@ -1907,23 +2077,23 @@     -> SqlInjectionMatchSet sqlInjectionMatchSet pSqlInjectionMatchSetId_ =   SqlInjectionMatchSet'-  { _simsName = Nothing-  , _simsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_-  , _simsSqlInjectionMatchTuples = mempty-  }+    { _simsName = Nothing+    , _simsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_+    , _simsSqlInjectionMatchTuples = mempty+    }   -- | The name, if any, of the @SqlInjectionMatchSet@ . simsName :: Lens' SqlInjectionMatchSet (Maybe Text)-simsName = lens _simsName (\ s a -> s{_simsName = a});+simsName = lens _simsName (\ s a -> s{_simsName = a})  -- | A unique identifier for a @SqlInjectionMatchSet@ . You use @SqlInjectionMatchSetId@ to get information about a @SqlInjectionMatchSet@ (see 'GetSqlInjectionMatchSet' ), update a @SqlInjectionMatchSet@ (see 'UpdateSqlInjectionMatchSet' ), insert a @SqlInjectionMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @SqlInjectionMatchSet@ from AWS WAF (see 'DeleteSqlInjectionMatchSet' ). @SqlInjectionMatchSetId@ is returned by 'CreateSqlInjectionMatchSet' and by 'ListSqlInjectionMatchSets' . simsSqlInjectionMatchSetId :: Lens' SqlInjectionMatchSet Text-simsSqlInjectionMatchSetId = lens _simsSqlInjectionMatchSetId (\ s a -> s{_simsSqlInjectionMatchSetId = a});+simsSqlInjectionMatchSetId = lens _simsSqlInjectionMatchSetId (\ s a -> s{_simsSqlInjectionMatchSetId = a})  -- | Specifies the parts of web requests that you want to inspect for snippets of malicious SQL code. simsSqlInjectionMatchTuples :: Lens' SqlInjectionMatchSet [SqlInjectionMatchTuple]-simsSqlInjectionMatchTuples = lens _simsSqlInjectionMatchTuples (\ s a -> s{_simsSqlInjectionMatchTuples = a}) . _Coerce;+simsSqlInjectionMatchTuples = lens _simsSqlInjectionMatchTuples (\ s a -> s{_simsSqlInjectionMatchTuples = a}) . _Coerce  instance FromJSON SqlInjectionMatchSet where         parseJSON@@ -1961,16 +2131,18 @@     -> SqlInjectionMatchSetSummary sqlInjectionMatchSetSummary pSqlInjectionMatchSetId_ pName_ =   SqlInjectionMatchSetSummary'-  {_simssSqlInjectionMatchSetId = pSqlInjectionMatchSetId_, _simssName = pName_}+    { _simssSqlInjectionMatchSetId = pSqlInjectionMatchSetId_+    , _simssName = pName_+    }   -- | A unique identifier for a @SqlInjectionMatchSet@ . You use @SqlInjectionMatchSetId@ to get information about a @SqlInjectionMatchSet@ (see 'GetSqlInjectionMatchSet' ), update a @SqlInjectionMatchSet@ (see 'UpdateSqlInjectionMatchSet' ), insert a @SqlInjectionMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete a @SqlInjectionMatchSet@ from AWS WAF (see 'DeleteSqlInjectionMatchSet' ). @SqlInjectionMatchSetId@ is returned by 'CreateSqlInjectionMatchSet' and by 'ListSqlInjectionMatchSets' . simssSqlInjectionMatchSetId :: Lens' SqlInjectionMatchSetSummary Text-simssSqlInjectionMatchSetId = lens _simssSqlInjectionMatchSetId (\ s a -> s{_simssSqlInjectionMatchSetId = a});+simssSqlInjectionMatchSetId = lens _simssSqlInjectionMatchSetId (\ s a -> s{_simssSqlInjectionMatchSetId = a})  -- | The name of the @SqlInjectionMatchSet@ , if any, specified by @Id@ . simssName :: Lens' SqlInjectionMatchSetSummary Text-simssName = lens _simssName (\ s a -> s{_simssName = a});+simssName = lens _simssName (\ s a -> s{_simssName = a})  instance FromJSON SqlInjectionMatchSetSummary where         parseJSON@@ -2007,18 +2179,18 @@     -> SqlInjectionMatchSetUpdate sqlInjectionMatchSetUpdate pAction_ pSqlInjectionMatchTuple_ =   SqlInjectionMatchSetUpdate'-  { _simsuAction = pAction_-  , _simsuSqlInjectionMatchTuple = pSqlInjectionMatchTuple_-  }+    { _simsuAction = pAction_+    , _simsuSqlInjectionMatchTuple = pSqlInjectionMatchTuple_+    }   -- | Specify @INSERT@ to add a 'SqlInjectionMatchSetUpdate' to a 'SqlInjectionMatchSet' . Use @DELETE@ to remove a @SqlInjectionMatchSetUpdate@ from a @SqlInjectionMatchSet@ . simsuAction :: Lens' SqlInjectionMatchSetUpdate ChangeAction-simsuAction = lens _simsuAction (\ s a -> s{_simsuAction = a});+simsuAction = lens _simsuAction (\ s a -> s{_simsuAction = a})  -- | Specifies the part of a web request that you want AWS WAF to inspect for snippets of malicious SQL code and, if you want AWS WAF to inspect a header, the name of the header. simsuSqlInjectionMatchTuple :: Lens' SqlInjectionMatchSetUpdate SqlInjectionMatchTuple-simsuSqlInjectionMatchTuple = lens _simsuSqlInjectionMatchTuple (\ s a -> s{_simsuSqlInjectionMatchTuple = a});+simsuSqlInjectionMatchTuple = lens _simsuSqlInjectionMatchTuple (\ s a -> s{_simsuSqlInjectionMatchTuple = a})  instance Hashable SqlInjectionMatchSetUpdate where @@ -2057,18 +2229,18 @@     -> SqlInjectionMatchTuple sqlInjectionMatchTuple pFieldToMatch_ pTextTransformation_ =   SqlInjectionMatchTuple'-  { _simtFieldToMatch = pFieldToMatch_-  , _simtTextTransformation = pTextTransformation_-  }+    { _simtFieldToMatch = pFieldToMatch_+    , _simtTextTransformation = pTextTransformation_+    }   -- | Specifies where in a web request to look for snippets of malicious SQL code. simtFieldToMatch :: Lens' SqlInjectionMatchTuple FieldToMatch-simtFieldToMatch = lens _simtFieldToMatch (\ s a -> s{_simtFieldToMatch = a});+simtFieldToMatch = lens _simtFieldToMatch (\ s a -> s{_simtFieldToMatch = a})  -- | Text transformations eliminate some of the unusual formatting that attackers use in web requests in an effort to bypass AWS WAF. If you specify a transformation, AWS WAF performs the transformation on @FieldToMatch@ before inspecting a request for a match. __CMD_LINE__  When you're concerned that attackers are injecting an operating system commandline command and using unusual formatting to disguise some or all of the command, use this option to perform the following transformations:     * Delete the following characters: \ " ' ^     * Delete spaces before the following characters: / (     * Replace the following characters with a space: , ;     * Replace multiple spaces with one space     * Convert uppercase letters (A-Z) to lowercase (a-z) __COMPRESS_WHITE_SPACE__  Use this option to replace the following characters with a space character (decimal 32):     * \f, formfeed, decimal 12     * \t, tab, decimal 9     * \n, newline, decimal 10     * \r, carriage return, decimal 13     * \v, vertical tab, decimal 11     * non-breaking space, decimal 160 @COMPRESS_WHITE_SPACE@ also replaces multiple spaces with one space. __HTML_ENTITY_DECODE__  Use this option to replace HTML-encoded characters with unencoded characters. @HTML_ENTITY_DECODE@ performs the following operations:     * Replaces @(ampersand)quot;@ with @"@      * Replaces @(ampersand)nbsp;@ with a non-breaking space, decimal 160     * Replaces @(ampersand)lt;@ with a "less than" symbol     * Replaces @(ampersand)gt;@ with @>@      * Replaces characters that are represented in hexadecimal format, @(ampersand)#xhhhh;@ , with the corresponding characters     * Replaces characters that are represented in decimal format, @(ampersand)#nnnn;@ , with the corresponding characters __LOWERCASE__  Use this option to convert uppercase letters (A-Z) to lowercase (a-z). __URL_DECODE__  Use this option to decode a URL-encoded value. __NONE__  Specify @NONE@ if you don't want to perform any text transformations. simtTextTransformation :: Lens' SqlInjectionMatchTuple TextTransformation-simtTextTransformation = lens _simtTextTransformation (\ s a -> s{_simtTextTransformation = a});+simtTextTransformation = lens _simtTextTransformation (\ s a -> s{_simtTextTransformation = a})  instance FromJSON SqlInjectionMatchTuple where         parseJSON@@ -2090,6 +2262,64 @@                   Just                     ("TextTransformation" .= _simtTextTransformation)]) +-- | A summary of the rule groups you are subscribed to.+--+--+--+-- /See:/ 'subscribedRuleGroupSummary' smart constructor.+data SubscribedRuleGroupSummary = SubscribedRuleGroupSummary'+  { _srgsRuleGroupId :: !Text+  , _srgsName        :: !Text+  , _srgsMetricName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SubscribedRuleGroupSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srgsRuleGroupId' - A unique identifier for a @RuleGroup@ .+--+-- * 'srgsName' - A friendly name or description of the @RuleGroup@ . You can't change the name of a @RuleGroup@ after you create it.+--+-- * 'srgsMetricName' - A friendly name or description for the metrics for this @RuleGroup@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RuleGroup@ .+subscribedRuleGroupSummary+    :: Text -- ^ 'srgsRuleGroupId'+    -> Text -- ^ 'srgsName'+    -> Text -- ^ 'srgsMetricName'+    -> SubscribedRuleGroupSummary+subscribedRuleGroupSummary pRuleGroupId_ pName_ pMetricName_ =+  SubscribedRuleGroupSummary'+    { _srgsRuleGroupId = pRuleGroupId_+    , _srgsName = pName_+    , _srgsMetricName = pMetricName_+    }+++-- | A unique identifier for a @RuleGroup@ .+srgsRuleGroupId :: Lens' SubscribedRuleGroupSummary Text+srgsRuleGroupId = lens _srgsRuleGroupId (\ s a -> s{_srgsRuleGroupId = a})++-- | A friendly name or description of the @RuleGroup@ . You can't change the name of a @RuleGroup@ after you create it.+srgsName :: Lens' SubscribedRuleGroupSummary Text+srgsName = lens _srgsName (\ s a -> s{_srgsName = a})++-- | A friendly name or description for the metrics for this @RuleGroup@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change the name of the metric after you create the @RuleGroup@ .+srgsMetricName :: Lens' SubscribedRuleGroupSummary Text+srgsMetricName = lens _srgsMetricName (\ s a -> s{_srgsMetricName = a})++instance FromJSON SubscribedRuleGroupSummary where+        parseJSON+          = withObject "SubscribedRuleGroupSummary"+              (\ x ->+                 SubscribedRuleGroupSummary' <$>+                   (x .: "RuleGroupId") <*> (x .: "Name") <*>+                     (x .: "MetricName"))++instance Hashable SubscribedRuleGroupSummary where++instance NFData SubscribedRuleGroupSummary where+ -- | In a 'GetSampledRequests' request, the @StartTime@ and @EndTime@ objects specify the time range for which you want AWS WAF to return a sample of web requests. -- --@@ -2116,16 +2346,16 @@     -> TimeWindow timeWindow pStartTime_ pEndTime_ =   TimeWindow'-  {_twStartTime = _Time # pStartTime_, _twEndTime = _Time # pEndTime_}+    {_twStartTime = _Time # pStartTime_, _twEndTime = _Time # pEndTime_}   -- | The beginning of the time range from which you want @GetSampledRequests@ to return a sample of the requests that your AWS resource received. Specify the date and time in the following format: @"2016-09-27T14:50Z"@ . You can specify any time range in the previous three hours. twStartTime :: Lens' TimeWindow UTCTime-twStartTime = lens _twStartTime (\ s a -> s{_twStartTime = a}) . _Time;+twStartTime = lens _twStartTime (\ s a -> s{_twStartTime = a}) . _Time  -- | The end of the time range from which you want @GetSampledRequests@ to return a sample of the requests that your AWS resource received. Specify the date and time in the following format: @"2016-09-27T14:50Z"@ . You can specify any time range in the previous three hours. twEndTime :: Lens' TimeWindow UTCTime-twEndTime = lens _twEndTime (\ s a -> s{_twEndTime = a}) . _Time;+twEndTime = lens _twEndTime (\ s a -> s{_twEndTime = a}) . _Time  instance FromJSON TimeWindow where         parseJSON@@ -2168,7 +2398,7 @@  -- | Specifies how you want AWS WAF to respond to requests that match the settings in a @Rule@ . Valid settings include the following:     * @ALLOW@ : AWS WAF allows requests     * @BLOCK@ : AWS WAF blocks requests     * @COUNT@ : AWS WAF increments a counter of the requests that match all of the conditions in the rule. AWS WAF then continues to inspect the web request based on the remaining rules in the web ACL. You can't specify @COUNT@ for the default action for a @WebACL@ . waType :: Lens' WafAction WafActionType-waType = lens _waType (\ s a -> s{_waType = a});+waType = lens _waType (\ s a -> s{_waType = a})  instance FromJSON WafAction where         parseJSON@@ -2183,6 +2413,44 @@         toJSON WafAction'{..}           = object (catMaybes [Just ("Type" .= _waType)]) +-- | The action to take if any rule within the @RuleGroup@ matches a request.+--+--+--+-- /See:/ 'wafOverrideAction' smart constructor.+newtype WafOverrideAction = WafOverrideAction'+  { _woaType :: WafOverrideActionType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WafOverrideAction' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'woaType' - @COUNT@ overrides the action specified by the individual rule within a @RuleGroup@ . If set to @NONE@ , the rule's action will take place.+wafOverrideAction+    :: WafOverrideActionType -- ^ 'woaType'+    -> WafOverrideAction+wafOverrideAction pType_ = WafOverrideAction' {_woaType = pType_}+++-- | @COUNT@ overrides the action specified by the individual rule within a @RuleGroup@ . If set to @NONE@ , the rule's action will take place.+woaType :: Lens' WafOverrideAction WafOverrideActionType+woaType = lens _woaType (\ s a -> s{_woaType = a})++instance FromJSON WafOverrideAction where+        parseJSON+          = withObject "WafOverrideAction"+              (\ x -> WafOverrideAction' <$> (x .: "Type"))++instance Hashable WafOverrideAction where++instance NFData WafOverrideAction where++instance ToJSON WafOverrideAction where+        toJSON WafOverrideAction'{..}+          = object (catMaybes [Just ("Type" .= _woaType)])+ -- | Contains the @Rules@ that identify the requests that you want to allow, block, or count. In a @WebACL@ , you also specify a default action (@ALLOW@ or @BLOCK@ ), and the action for each @Rule@ that you add to a @WebACL@ , for example, block requests from specified IP addresses or block requests from specified referrers. You also associate the @WebACL@ with a CloudFront distribution to identify the requests that you want AWS WAF to filter. If you add more than one @Rule@ to a @WebACL@ , a request needs to match only one of the specifications to be allowed, blocked, or counted. For more information, see 'UpdateWebACL' . -- --@@ -2216,33 +2484,33 @@     -> WebACL webACL pWebACLId_ pDefaultAction_ =   WebACL'-  { _waMetricName = Nothing-  , _waName = Nothing-  , _waWebACLId = pWebACLId_-  , _waDefaultAction = pDefaultAction_-  , _waRules = mempty-  }+    { _waMetricName = Nothing+    , _waName = Nothing+    , _waWebACLId = pWebACLId_+    , _waDefaultAction = pDefaultAction_+    , _waRules = mempty+    }   -- | A friendly name or description for the metrics for this @WebACL@ . The name can contain only alphanumeric characters (A-Z, a-z, 0-9); the name can't contain whitespace. You can't change @MetricName@ after you create the @WebACL@ . waMetricName :: Lens' WebACL (Maybe Text)-waMetricName = lens _waMetricName (\ s a -> s{_waMetricName = a});+waMetricName = lens _waMetricName (\ s a -> s{_waMetricName = a})  -- | A friendly name or description of the @WebACL@ . You can't change the name of a @WebACL@ after you create it. waName :: Lens' WebACL (Maybe Text)-waName = lens _waName (\ s a -> s{_waName = a});+waName = lens _waName (\ s a -> s{_waName = a})  -- | A unique identifier for a @WebACL@ . You use @WebACLId@ to get information about a @WebACL@ (see 'GetWebACL' ), update a @WebACL@ (see 'UpdateWebACL' ), and delete a @WebACL@ from AWS WAF (see 'DeleteWebACL' ). @WebACLId@ is returned by 'CreateWebACL' and by 'ListWebACLs' . waWebACLId :: Lens' WebACL Text-waWebACLId = lens _waWebACLId (\ s a -> s{_waWebACLId = a});+waWebACLId = lens _waWebACLId (\ s a -> s{_waWebACLId = a})  -- | The action to perform if none of the @Rules@ contained in the @WebACL@ match. The action is specified by the 'WafAction' object. waDefaultAction :: Lens' WebACL WafAction-waDefaultAction = lens _waDefaultAction (\ s a -> s{_waDefaultAction = a});+waDefaultAction = lens _waDefaultAction (\ s a -> s{_waDefaultAction = a})  -- | An array that contains the action for each @Rule@ in a @WebACL@ , the priority of the @Rule@ , and the ID of the @Rule@ . waRules :: Lens' WebACL [ActivatedRule]-waRules = lens _waRules (\ s a -> s{_waRules = a}) . _Coerce;+waRules = lens _waRules (\ s a -> s{_waRules = a}) . _Coerce  instance FromJSON WebACL where         parseJSON@@ -2286,11 +2554,11 @@  -- | A unique identifier for a @WebACL@ . You use @WebACLId@ to get information about a @WebACL@ (see 'GetWebACL' ), update a @WebACL@ (see 'UpdateWebACL' ), and delete a @WebACL@ from AWS WAF (see 'DeleteWebACL' ). @WebACLId@ is returned by 'CreateWebACL' and by 'ListWebACLs' . wasWebACLId :: Lens' WebACLSummary Text-wasWebACLId = lens _wasWebACLId (\ s a -> s{_wasWebACLId = a});+wasWebACLId = lens _wasWebACLId (\ s a -> s{_wasWebACLId = a})  -- | A friendly name or description of the 'WebACL' . You can't change the name of a @WebACL@ after you create it. wasName :: Lens' WebACLSummary Text-wasName = lens _wasName (\ s a -> s{_wasName = a});+wasName = lens _wasName (\ s a -> s{_wasName = a})  instance FromJSON WebACLSummary where         parseJSON@@ -2331,11 +2599,11 @@  -- | Specifies whether to insert a @Rule@ into or delete a @Rule@ from a @WebACL@ . wauAction :: Lens' WebACLUpdate ChangeAction-wauAction = lens _wauAction (\ s a -> s{_wauAction = a});+wauAction = lens _wauAction (\ s a -> s{_wauAction = a})  -- | The @ActivatedRule@ object in an 'UpdateWebACL' request specifies a @Rule@ that you want to insert or delete, the priority of the @Rule@ in the @WebACL@ , and the action that you want AWS WAF to take when a web request matches the @Rule@ (@ALLOW@ , @BLOCK@ , or @COUNT@ ). wauActivatedRule :: Lens' WebACLUpdate ActivatedRule-wauActivatedRule = lens _wauActivatedRule (\ s a -> s{_wauActivatedRule = a});+wauActivatedRule = lens _wauActivatedRule (\ s a -> s{_wauActivatedRule = a})  instance Hashable WebACLUpdate where @@ -2374,23 +2642,23 @@     -> XSSMatchSet xssMatchSet pXSSMatchSetId_ =   XSSMatchSet'-  { _xmsName = Nothing-  , _xmsXSSMatchSetId = pXSSMatchSetId_-  , _xmsXSSMatchTuples = mempty-  }+    { _xmsName = Nothing+    , _xmsXSSMatchSetId = pXSSMatchSetId_+    , _xmsXSSMatchTuples = mempty+    }   -- | The name, if any, of the @XssMatchSet@ . xmsName :: Lens' XSSMatchSet (Maybe Text)-xmsName = lens _xmsName (\ s a -> s{_xmsName = a});+xmsName = lens _xmsName (\ s a -> s{_xmsName = a})  -- | A unique identifier for an @XssMatchSet@ . You use @XssMatchSetId@ to get information about an @XssMatchSet@ (see 'GetXssMatchSet' ), update an @XssMatchSet@ (see 'UpdateXssMatchSet' ), insert an @XssMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete an @XssMatchSet@ from AWS WAF (see 'DeleteXssMatchSet' ). @XssMatchSetId@ is returned by 'CreateXssMatchSet' and by 'ListXssMatchSets' . xmsXSSMatchSetId :: Lens' XSSMatchSet Text-xmsXSSMatchSetId = lens _xmsXSSMatchSetId (\ s a -> s{_xmsXSSMatchSetId = a});+xmsXSSMatchSetId = lens _xmsXSSMatchSetId (\ s a -> s{_xmsXSSMatchSetId = a})  -- | Specifies the parts of web requests that you want to inspect for cross-site scripting attacks. xmsXSSMatchTuples :: Lens' XSSMatchSet [XSSMatchTuple]-xmsXSSMatchTuples = lens _xmsXSSMatchTuples (\ s a -> s{_xmsXSSMatchTuples = a}) . _Coerce;+xmsXSSMatchTuples = lens _xmsXSSMatchTuples (\ s a -> s{_xmsXSSMatchTuples = a}) . _Coerce  instance FromJSON XSSMatchSet where         parseJSON@@ -2432,11 +2700,11 @@  -- | A unique identifier for an @XssMatchSet@ . You use @XssMatchSetId@ to get information about a @XssMatchSet@ (see 'GetXssMatchSet' ), update an @XssMatchSet@ (see 'UpdateXssMatchSet' ), insert an @XssMatchSet@ into a @Rule@ or delete one from a @Rule@ (see 'UpdateRule' ), and delete an @XssMatchSet@ from AWS WAF (see 'DeleteXssMatchSet' ). @XssMatchSetId@ is returned by 'CreateXssMatchSet' and by 'ListXssMatchSets' . xmssXSSMatchSetId :: Lens' XSSMatchSetSummary Text-xmssXSSMatchSetId = lens _xmssXSSMatchSetId (\ s a -> s{_xmssXSSMatchSetId = a});+xmssXSSMatchSetId = lens _xmssXSSMatchSetId (\ s a -> s{_xmssXSSMatchSetId = a})  -- | The name of the @XssMatchSet@ , if any, specified by @Id@ . xmssName :: Lens' XSSMatchSetSummary Text-xmssName = lens _xmssName (\ s a -> s{_xmssName = a});+xmssName = lens _xmssName (\ s a -> s{_xmssName = a})  instance FromJSON XSSMatchSetSummary where         parseJSON@@ -2473,16 +2741,16 @@     -> XSSMatchSetUpdate xssMatchSetUpdate pAction_ pXSSMatchTuple_ =   XSSMatchSetUpdate'-  {_xmsuAction = pAction_, _xmsuXSSMatchTuple = pXSSMatchTuple_}+    {_xmsuAction = pAction_, _xmsuXSSMatchTuple = pXSSMatchTuple_}   -- | Specify @INSERT@ to add a 'XssMatchSetUpdate' to an 'XssMatchSet' . Use @DELETE@ to remove a @XssMatchSetUpdate@ from an @XssMatchSet@ . xmsuAction :: Lens' XSSMatchSetUpdate ChangeAction-xmsuAction = lens _xmsuAction (\ s a -> s{_xmsuAction = a});+xmsuAction = lens _xmsuAction (\ s a -> s{_xmsuAction = a})  -- | Specifies the part of a web request that you want AWS WAF to inspect for cross-site scripting attacks and, if you want AWS WAF to inspect a header, the name of the header. xmsuXSSMatchTuple :: Lens' XSSMatchSetUpdate XSSMatchTuple-xmsuXSSMatchTuple = lens _xmsuXSSMatchTuple (\ s a -> s{_xmsuXSSMatchTuple = a});+xmsuXSSMatchTuple = lens _xmsuXSSMatchTuple (\ s a -> s{_xmsuXSSMatchTuple = a})  instance Hashable XSSMatchSetUpdate where @@ -2519,18 +2787,18 @@     -> XSSMatchTuple xssMatchTuple pFieldToMatch_ pTextTransformation_ =   XSSMatchTuple'-  { _xmtFieldToMatch = pFieldToMatch_-  , _xmtTextTransformation = pTextTransformation_-  }+    { _xmtFieldToMatch = pFieldToMatch_+    , _xmtTextTransformation = pTextTransformation_+    }   -- | Specifies where in a web request to look for cross-site scripting attacks. xmtFieldToMatch :: Lens' XSSMatchTuple FieldToMatch-xmtFieldToMatch = lens _xmtFieldToMatch (\ s a -> s{_xmtFieldToMatch = a});+xmtFieldToMatch = lens _xmtFieldToMatch (\ s a -> s{_xmtFieldToMatch = a})  -- | Text transformations eliminate some of the unusual formatting that attackers use in web requests in an effort to bypass AWS WAF. If you specify a transformation, AWS WAF performs the transformation on @FieldToMatch@ before inspecting a request for a match. __CMD_LINE__  When you're concerned that attackers are injecting an operating system commandline command and using unusual formatting to disguise some or all of the command, use this option to perform the following transformations:     * Delete the following characters: \ " ' ^     * Delete spaces before the following characters: / (     * Replace the following characters with a space: , ;     * Replace multiple spaces with one space     * Convert uppercase letters (A-Z) to lowercase (a-z) __COMPRESS_WHITE_SPACE__  Use this option to replace the following characters with a space character (decimal 32):     * \f, formfeed, decimal 12     * \t, tab, decimal 9     * \n, newline, decimal 10     * \r, carriage return, decimal 13     * \v, vertical tab, decimal 11     * non-breaking space, decimal 160 @COMPRESS_WHITE_SPACE@ also replaces multiple spaces with one space. __HTML_ENTITY_DECODE__  Use this option to replace HTML-encoded characters with unencoded characters. @HTML_ENTITY_DECODE@ performs the following operations:     * Replaces @(ampersand)quot;@ with @"@      * Replaces @(ampersand)nbsp;@ with a non-breaking space, decimal 160     * Replaces @(ampersand)lt;@ with a "less than" symbol     * Replaces @(ampersand)gt;@ with @>@      * Replaces characters that are represented in hexadecimal format, @(ampersand)#xhhhh;@ , with the corresponding characters     * Replaces characters that are represented in decimal format, @(ampersand)#nnnn;@ , with the corresponding characters __LOWERCASE__  Use this option to convert uppercase letters (A-Z) to lowercase (a-z). __URL_DECODE__  Use this option to decode a URL-encoded value. __NONE__  Specify @NONE@ if you don't want to perform any text transformations. xmtTextTransformation :: Lens' XSSMatchTuple TextTransformation-xmtTextTransformation = lens _xmtTextTransformation (\ s a -> s{_xmtTextTransformation = a});+xmtTextTransformation = lens _xmtTextTransformation (\ s a -> s{_xmtTextTransformation = a})  instance FromJSON XSSMatchTuple where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.WAFRegional.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -1171,21 +1171,54 @@ instance FromJSON WafActionType where     parseJSON = parseJSONText "WafActionType" +data WafOverrideActionType+  = WOATCount+  | WOATNone+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText WafOverrideActionType where+    parser = takeLowerText >>= \case+        "count" -> pure WOATCount+        "none" -> pure WOATNone+        e -> fromTextError $ "Failure parsing WafOverrideActionType from value: '" <> e+           <> "'. Accepted values: count, none"++instance ToText WafOverrideActionType where+    toText = \case+        WOATCount -> "COUNT"+        WOATNone -> "NONE"++instance Hashable     WafOverrideActionType+instance NFData       WafOverrideActionType+instance ToByteString WafOverrideActionType+instance ToQuery      WafOverrideActionType+instance ToHeader     WafOverrideActionType++instance ToJSON WafOverrideActionType where+    toJSON = toJSONText++instance FromJSON WafOverrideActionType where+    parseJSON = parseJSONText "WafOverrideActionType"+ data WafRuleType-  = RateBased+  = Group+  | RateBased   | Regular   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)   instance FromText WafRuleType where     parser = takeLowerText >>= \case+        "group" -> pure Group         "rate_based" -> pure RateBased         "regular" -> pure Regular         e -> fromTextError $ "Failure parsing WafRuleType from value: '" <> e-           <> "'. Accepted values: rate_based, regular"+           <> "'. Accepted values: group, rate_based, regular"  instance ToText WafRuleType where     toText = \case+        Group -> "GROUP"         RateBased -> "RATE_BASED"         Regular -> "REGULAR" 

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateByteMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,23 +96,23 @@     -> UpdateByteMatchSet updateByteMatchSet pByteMatchSetId_ pChangeToken_ pUpdates_ =   UpdateByteMatchSet'-  { _ubmsByteMatchSetId = pByteMatchSetId_-  , _ubmsChangeToken = pChangeToken_-  , _ubmsUpdates = _List1 # pUpdates_-  }+    { _ubmsByteMatchSetId = pByteMatchSetId_+    , _ubmsChangeToken = pChangeToken_+    , _ubmsUpdates = _List1 # pUpdates_+    }   -- | The @ByteMatchSetId@ of the 'ByteMatchSet' that you want to update. @ByteMatchSetId@ is returned by 'CreateByteMatchSet' and by 'ListByteMatchSets' . ubmsByteMatchSetId :: Lens' UpdateByteMatchSet Text-ubmsByteMatchSetId = lens _ubmsByteMatchSetId (\ s a -> s{_ubmsByteMatchSetId = a});+ubmsByteMatchSetId = lens _ubmsByteMatchSetId (\ s a -> s{_ubmsByteMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . ubmsChangeToken :: Lens' UpdateByteMatchSet Text-ubmsChangeToken = lens _ubmsChangeToken (\ s a -> s{_ubmsChangeToken = a});+ubmsChangeToken = lens _ubmsChangeToken (\ s a -> s{_ubmsChangeToken = a})  -- | An array of @ByteMatchSetUpdate@ objects that you want to insert into or delete from a 'ByteMatchSet' . For more information, see the applicable data types:     * 'ByteMatchSetUpdate' : Contains @Action@ and @ByteMatchTuple@      * 'ByteMatchTuple' : Contains @FieldToMatch@ , @PositionalConstraint@ , @TargetString@ , and @TextTransformation@      * 'FieldToMatch' : Contains @Data@ and @Type@ ubmsUpdates :: Lens' UpdateByteMatchSet (NonEmpty ByteMatchSetUpdate)-ubmsUpdates = lens _ubmsUpdates (\ s a -> s{_ubmsUpdates = a}) . _List1;+ubmsUpdates = lens _ubmsUpdates (\ s a -> s{_ubmsUpdates = a}) . _List1  instance AWSRequest UpdateByteMatchSet where         type Rs UpdateByteMatchSet =@@ -171,15 +171,15 @@     -> UpdateByteMatchSetResponse updateByteMatchSetResponse pResponseStatus_ =   UpdateByteMatchSetResponse'-  {_ubmsrsChangeToken = Nothing, _ubmsrsResponseStatus = pResponseStatus_}+    {_ubmsrsChangeToken = Nothing, _ubmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateByteMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . ubmsrsChangeToken :: Lens' UpdateByteMatchSetResponse (Maybe Text)-ubmsrsChangeToken = lens _ubmsrsChangeToken (\ s a -> s{_ubmsrsChangeToken = a});+ubmsrsChangeToken = lens _ubmsrsChangeToken (\ s a -> s{_ubmsrsChangeToken = a})  -- | -- | The response status code. ubmsrsResponseStatus :: Lens' UpdateByteMatchSetResponse Int-ubmsrsResponseStatus = lens _ubmsrsResponseStatus (\ s a -> s{_ubmsrsResponseStatus = a});+ubmsrsResponseStatus = lens _ubmsrsResponseStatus (\ s a -> s{_ubmsrsResponseStatus = a})  instance NFData UpdateByteMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateGeoMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -92,23 +92,23 @@     -> UpdateGeoMatchSet updateGeoMatchSet pGeoMatchSetId_ pChangeToken_ pUpdates_ =   UpdateGeoMatchSet'-  { _ugmsGeoMatchSetId = pGeoMatchSetId_-  , _ugmsChangeToken = pChangeToken_-  , _ugmsUpdates = _List1 # pUpdates_-  }+    { _ugmsGeoMatchSetId = pGeoMatchSetId_+    , _ugmsChangeToken = pChangeToken_+    , _ugmsUpdates = _List1 # pUpdates_+    }   -- | The @GeoMatchSetId@ of the 'GeoMatchSet' that you want to update. @GeoMatchSetId@ is returned by 'CreateGeoMatchSet' and by 'ListGeoMatchSets' . ugmsGeoMatchSetId :: Lens' UpdateGeoMatchSet Text-ugmsGeoMatchSetId = lens _ugmsGeoMatchSetId (\ s a -> s{_ugmsGeoMatchSetId = a});+ugmsGeoMatchSetId = lens _ugmsGeoMatchSetId (\ s a -> s{_ugmsGeoMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . ugmsChangeToken :: Lens' UpdateGeoMatchSet Text-ugmsChangeToken = lens _ugmsChangeToken (\ s a -> s{_ugmsChangeToken = a});+ugmsChangeToken = lens _ugmsChangeToken (\ s a -> s{_ugmsChangeToken = a})  -- | An array of @GeoMatchSetUpdate@ objects that you want to insert into or delete from an 'GeoMatchSet' . For more information, see the applicable data types:     * 'GeoMatchSetUpdate' : Contains @Action@ and @GeoMatchConstraint@      * 'GeoMatchConstraint' : Contains @Type@ and @Value@  You can have only one @Type@ and @Value@ per @GeoMatchConstraint@ . To add multiple countries, include multiple @GeoMatchSetUpdate@ objects in your request. ugmsUpdates :: Lens' UpdateGeoMatchSet (NonEmpty GeoMatchSetUpdate)-ugmsUpdates = lens _ugmsUpdates (\ s a -> s{_ugmsUpdates = a}) . _List1;+ugmsUpdates = lens _ugmsUpdates (\ s a -> s{_ugmsUpdates = a}) . _List1  instance AWSRequest UpdateGeoMatchSet where         type Rs UpdateGeoMatchSet = UpdateGeoMatchSetResponse@@ -166,15 +166,15 @@     -> UpdateGeoMatchSetResponse updateGeoMatchSetResponse pResponseStatus_ =   UpdateGeoMatchSetResponse'-  {_ugmsrsChangeToken = Nothing, _ugmsrsResponseStatus = pResponseStatus_}+    {_ugmsrsChangeToken = Nothing, _ugmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateGeoMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . ugmsrsChangeToken :: Lens' UpdateGeoMatchSetResponse (Maybe Text)-ugmsrsChangeToken = lens _ugmsrsChangeToken (\ s a -> s{_ugmsrsChangeToken = a});+ugmsrsChangeToken = lens _ugmsrsChangeToken (\ s a -> s{_ugmsrsChangeToken = a})  -- | -- | The response status code. ugmsrsResponseStatus :: Lens' UpdateGeoMatchSetResponse Int-ugmsrsResponseStatus = lens _ugmsrsResponseStatus (\ s a -> s{_ugmsrsResponseStatus = a});+ugmsrsResponseStatus = lens _ugmsrsResponseStatus (\ s a -> s{_ugmsrsResponseStatus = a})  instance NFData UpdateGeoMatchSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateIPSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -108,23 +108,23 @@     -> UpdateIPSet updateIPSet pIPSetId_ pChangeToken_ pUpdates_ =   UpdateIPSet'-  { _uisIPSetId = pIPSetId_-  , _uisChangeToken = pChangeToken_-  , _uisUpdates = _List1 # pUpdates_-  }+    { _uisIPSetId = pIPSetId_+    , _uisChangeToken = pChangeToken_+    , _uisUpdates = _List1 # pUpdates_+    }   -- | The @IPSetId@ of the 'IPSet' that you want to update. @IPSetId@ is returned by 'CreateIPSet' and by 'ListIPSets' . uisIPSetId :: Lens' UpdateIPSet Text-uisIPSetId = lens _uisIPSetId (\ s a -> s{_uisIPSetId = a});+uisIPSetId = lens _uisIPSetId (\ s a -> s{_uisIPSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . uisChangeToken :: Lens' UpdateIPSet Text-uisChangeToken = lens _uisChangeToken (\ s a -> s{_uisChangeToken = a});+uisChangeToken = lens _uisChangeToken (\ s a -> s{_uisChangeToken = a})  -- | An array of @IPSetUpdate@ objects that you want to insert into or delete from an 'IPSet' . For more information, see the applicable data types:     * 'IPSetUpdate' : Contains @Action@ and @IPSetDescriptor@      * 'IPSetDescriptor' : Contains @Type@ and @Value@ uisUpdates :: Lens' UpdateIPSet (NonEmpty IPSetUpdate)-uisUpdates = lens _uisUpdates (\ s a -> s{_uisUpdates = a}) . _List1;+uisUpdates = lens _uisUpdates (\ s a -> s{_uisUpdates = a}) . _List1  instance AWSRequest UpdateIPSet where         type Rs UpdateIPSet = UpdateIPSetResponse@@ -182,15 +182,15 @@     -> UpdateIPSetResponse updateIPSetResponse pResponseStatus_ =   UpdateIPSetResponse'-  {_uisrsChangeToken = Nothing, _uisrsResponseStatus = pResponseStatus_}+    {_uisrsChangeToken = Nothing, _uisrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateIPSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . uisrsChangeToken :: Lens' UpdateIPSetResponse (Maybe Text)-uisrsChangeToken = lens _uisrsChangeToken (\ s a -> s{_uisrsChangeToken = a});+uisrsChangeToken = lens _uisrsChangeToken (\ s a -> s{_uisrsChangeToken = a})  -- | -- | The response status code. uisrsResponseStatus :: Lens' UpdateIPSetResponse Int-uisrsResponseStatus = lens _uisrsResponseStatus (\ s a -> s{_uisrsResponseStatus = a});+uisrsResponseStatus = lens _uisrsResponseStatus (\ s a -> s{_uisrsResponseStatus = a})  instance NFData UpdateIPSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateRateBasedRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -102,28 +102,28 @@     -> UpdateRateBasedRule updateRateBasedRule pRuleId_ pChangeToken_ pRateLimit_ =   UpdateRateBasedRule'-  { _urbrRuleId = pRuleId_-  , _urbrChangeToken = pChangeToken_-  , _urbrUpdates = mempty-  , _urbrRateLimit = _Nat # pRateLimit_-  }+    { _urbrRuleId = pRuleId_+    , _urbrChangeToken = pChangeToken_+    , _urbrUpdates = mempty+    , _urbrRateLimit = _Nat # pRateLimit_+    }   -- | The @RuleId@ of the @RateBasedRule@ that you want to update. @RuleId@ is returned by @CreateRateBasedRule@ and by 'ListRateBasedRules' . urbrRuleId :: Lens' UpdateRateBasedRule Text-urbrRuleId = lens _urbrRuleId (\ s a -> s{_urbrRuleId = a});+urbrRuleId = lens _urbrRuleId (\ s a -> s{_urbrRuleId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . urbrChangeToken :: Lens' UpdateRateBasedRule Text-urbrChangeToken = lens _urbrChangeToken (\ s a -> s{_urbrChangeToken = a});+urbrChangeToken = lens _urbrChangeToken (\ s a -> s{_urbrChangeToken = a})  -- | An array of @RuleUpdate@ objects that you want to insert into or delete from a 'RateBasedRule' . urbrUpdates :: Lens' UpdateRateBasedRule [RuleUpdate]-urbrUpdates = lens _urbrUpdates (\ s a -> s{_urbrUpdates = a}) . _Coerce;+urbrUpdates = lens _urbrUpdates (\ s a -> s{_urbrUpdates = a}) . _Coerce  -- | The maximum number of requests, which have an identical value in the field specified by the @RateKey@ , allowed in a five-minute period. If the number of requests exceeds the @RateLimit@ and the other predicates specified in the rule are also met, AWS WAF triggers the action that is specified for this rule. urbrRateLimit :: Lens' UpdateRateBasedRule Natural-urbrRateLimit = lens _urbrRateLimit (\ s a -> s{_urbrRateLimit = a}) . _Nat;+urbrRateLimit = lens _urbrRateLimit (\ s a -> s{_urbrRateLimit = a}) . _Nat  instance AWSRequest UpdateRateBasedRule where         type Rs UpdateRateBasedRule =@@ -183,15 +183,15 @@     -> UpdateRateBasedRuleResponse updateRateBasedRuleResponse pResponseStatus_ =   UpdateRateBasedRuleResponse'-  {_urbrrsChangeToken = Nothing, _urbrrsResponseStatus = pResponseStatus_}+    {_urbrrsChangeToken = Nothing, _urbrrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateRateBasedRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . urbrrsChangeToken :: Lens' UpdateRateBasedRuleResponse (Maybe Text)-urbrrsChangeToken = lens _urbrrsChangeToken (\ s a -> s{_urbrrsChangeToken = a});+urbrrsChangeToken = lens _urbrrsChangeToken (\ s a -> s{_urbrrsChangeToken = a})  -- | -- | The response status code. urbrrsResponseStatus :: Lens' UpdateRateBasedRuleResponse Int-urbrrsResponseStatus = lens _urbrrsResponseStatus (\ s a -> s{_urbrrsResponseStatus = a});+urbrrsResponseStatus = lens _urbrrsResponseStatus (\ s a -> s{_urbrrsResponseStatus = a})  instance NFData UpdateRateBasedRuleResponse where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateRegexMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Inserts or deletes 'RegexMatchSetUpdate' objects (filters) in a 'RegexMatchSet' . For each @RegexMatchSetUpdate@ object, you specify the following values:+-- Inserts or deletes 'RegexMatchTuple' objects (filters) in a 'RegexMatchSet' . For each @RegexMatchSetUpdate@ object, you specify the following values: -- -- --     * Whether to insert or delete the object from the array. If you want to change a @RegexMatchSetUpdate@ object, you delete the existing object and add a new one. -----     * The part of a web request that you want AWS WAF to inspect, such as a query string or the value of the @User-Agent@ header.+--     * The part of a web request that you want AWS WAF to inspectupdate, such as a query string or the value of the @User-Agent@ header. -- --     * The identifier of the pattern (a regular expression) that you want AWS WAF to look for. For more information, see 'RegexPatternSet' . --@@ -94,23 +94,23 @@     -> UpdateRegexMatchSet updateRegexMatchSet pRegexMatchSetId_ pUpdates_ pChangeToken_ =   UpdateRegexMatchSet'-  { _urmsRegexMatchSetId = pRegexMatchSetId_-  , _urmsUpdates = _List1 # pUpdates_-  , _urmsChangeToken = pChangeToken_-  }+    { _urmsRegexMatchSetId = pRegexMatchSetId_+    , _urmsUpdates = _List1 # pUpdates_+    , _urmsChangeToken = pChangeToken_+    }   -- | The @RegexMatchSetId@ of the 'RegexMatchSet' that you want to update. @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' . urmsRegexMatchSetId :: Lens' UpdateRegexMatchSet Text-urmsRegexMatchSetId = lens _urmsRegexMatchSetId (\ s a -> s{_urmsRegexMatchSetId = a});+urmsRegexMatchSetId = lens _urmsRegexMatchSetId (\ s a -> s{_urmsRegexMatchSetId = a})  -- | An array of @RegexMatchSetUpdate@ objects that you want to insert into or delete from a 'RegexMatchSet' . For more information, see 'RegexMatchTuple' . urmsUpdates :: Lens' UpdateRegexMatchSet (NonEmpty RegexMatchSetUpdate)-urmsUpdates = lens _urmsUpdates (\ s a -> s{_urmsUpdates = a}) . _List1;+urmsUpdates = lens _urmsUpdates (\ s a -> s{_urmsUpdates = a}) . _List1  -- | The value returned by the most recent call to 'GetChangeToken' . urmsChangeToken :: Lens' UpdateRegexMatchSet Text-urmsChangeToken = lens _urmsChangeToken (\ s a -> s{_urmsChangeToken = a});+urmsChangeToken = lens _urmsChangeToken (\ s a -> s{_urmsChangeToken = a})  instance AWSRequest UpdateRegexMatchSet where         type Rs UpdateRegexMatchSet =@@ -169,15 +169,15 @@     -> UpdateRegexMatchSetResponse updateRegexMatchSetResponse pResponseStatus_ =   UpdateRegexMatchSetResponse'-  {_urmsrsChangeToken = Nothing, _urmsrsResponseStatus = pResponseStatus_}+    {_urmsrsChangeToken = Nothing, _urmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateRegexMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . urmsrsChangeToken :: Lens' UpdateRegexMatchSetResponse (Maybe Text)-urmsrsChangeToken = lens _urmsrsChangeToken (\ s a -> s{_urmsrsChangeToken = a});+urmsrsChangeToken = lens _urmsrsChangeToken (\ s a -> s{_urmsrsChangeToken = a})  -- | -- | The response status code. urmsrsResponseStatus :: Lens' UpdateRegexMatchSetResponse Int-urmsrsResponseStatus = lens _urmsrsResponseStatus (\ s a -> s{_urmsrsResponseStatus = a});+urmsrsResponseStatus = lens _urmsrsResponseStatus (\ s a -> s{_urmsrsResponseStatus = a})  instance NFData UpdateRegexMatchSetResponse where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateRegexPatternSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Inserts or deletes 'RegexMatchSetUpdate' objects (filters) in a 'RegexPatternSet' . For each @RegexPatternSet@ object, you specify the following values:+-- Inserts or deletes @RegexPatternString@ objects in a 'RegexPatternSet' . For each @RegexPatternString@ object, you specify the following values: -- -----     * Whether to insert or delete the object from the array. If you want to change a @RegexPatternSet@ object, you delete the existing object and add a new one.+--     * Whether to insert or delete the @RegexPatternString@ . -----     * The regular expression pattern that you want AWS WAF to look for. For more information, see 'RegexPatternSet' .+--     * The regular expression pattern that you want to insert or delete. For more information, see 'RegexPatternSet' . -- -- --@@ -100,23 +100,23 @@     -> UpdateRegexPatternSet updateRegexPatternSet pRegexPatternSetId_ pUpdates_ pChangeToken_ =   UpdateRegexPatternSet'-  { _urpsRegexPatternSetId = pRegexPatternSetId_-  , _urpsUpdates = _List1 # pUpdates_-  , _urpsChangeToken = pChangeToken_-  }+    { _urpsRegexPatternSetId = pRegexPatternSetId_+    , _urpsUpdates = _List1 # pUpdates_+    , _urpsChangeToken = pChangeToken_+    }   -- | The @RegexPatternSetId@ of the 'RegexPatternSet' that you want to update. @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' . urpsRegexPatternSetId :: Lens' UpdateRegexPatternSet Text-urpsRegexPatternSetId = lens _urpsRegexPatternSetId (\ s a -> s{_urpsRegexPatternSetId = a});+urpsRegexPatternSetId = lens _urpsRegexPatternSetId (\ s a -> s{_urpsRegexPatternSetId = a})  -- | An array of @RegexPatternSetUpdate@ objects that you want to insert into or delete from a 'RegexPatternSet' . urpsUpdates :: Lens' UpdateRegexPatternSet (NonEmpty RegexPatternSetUpdate)-urpsUpdates = lens _urpsUpdates (\ s a -> s{_urpsUpdates = a}) . _List1;+urpsUpdates = lens _urpsUpdates (\ s a -> s{_urpsUpdates = a}) . _List1  -- | The value returned by the most recent call to 'GetChangeToken' . urpsChangeToken :: Lens' UpdateRegexPatternSet Text-urpsChangeToken = lens _urpsChangeToken (\ s a -> s{_urpsChangeToken = a});+urpsChangeToken = lens _urpsChangeToken (\ s a -> s{_urpsChangeToken = a})  instance AWSRequest UpdateRegexPatternSet where         type Rs UpdateRegexPatternSet =@@ -176,15 +176,15 @@     -> UpdateRegexPatternSetResponse updateRegexPatternSetResponse pResponseStatus_ =   UpdateRegexPatternSetResponse'-  {_urpsrsChangeToken = Nothing, _urpsrsResponseStatus = pResponseStatus_}+    {_urpsrsChangeToken = Nothing, _urpsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateRegexPatternSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . urpsrsChangeToken :: Lens' UpdateRegexPatternSetResponse (Maybe Text)-urpsrsChangeToken = lens _urpsrsChangeToken (\ s a -> s{_urpsrsChangeToken = a});+urpsrsChangeToken = lens _urpsrsChangeToken (\ s a -> s{_urpsrsChangeToken = a})  -- | -- | The response status code. urpsrsResponseStatus :: Lens' UpdateRegexPatternSetResponse Int-urpsrsResponseStatus = lens _urpsrsResponseStatus (\ s a -> s{_urpsrsResponseStatus = a});+urpsrsResponseStatus = lens _urpsrsResponseStatus (\ s a -> s{_urpsrsResponseStatus = a})  instance NFData UpdateRegexPatternSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateRule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -95,20 +95,20 @@     -> UpdateRule updateRule pRuleId_ pChangeToken_ =   UpdateRule'-  {_urRuleId = pRuleId_, _urChangeToken = pChangeToken_, _urUpdates = mempty}+    {_urRuleId = pRuleId_, _urChangeToken = pChangeToken_, _urUpdates = mempty}   -- | The @RuleId@ of the @Rule@ that you want to update. @RuleId@ is returned by @CreateRule@ and by 'ListRules' . urRuleId :: Lens' UpdateRule Text-urRuleId = lens _urRuleId (\ s a -> s{_urRuleId = a});+urRuleId = lens _urRuleId (\ s a -> s{_urRuleId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . urChangeToken :: Lens' UpdateRule Text-urChangeToken = lens _urChangeToken (\ s a -> s{_urChangeToken = a});+urChangeToken = lens _urChangeToken (\ s a -> s{_urChangeToken = a})  -- | An array of @RuleUpdate@ objects that you want to insert into or delete from a 'Rule' . For more information, see the applicable data types:     * 'RuleUpdate' : Contains @Action@ and @Predicate@      * 'Predicate' : Contains @DataId@ , @Negated@ , and @Type@      * 'FieldToMatch' : Contains @Data@ and @Type@ urUpdates :: Lens' UpdateRule [RuleUpdate]-urUpdates = lens _urUpdates (\ s a -> s{_urUpdates = a}) . _Coerce;+urUpdates = lens _urUpdates (\ s a -> s{_urUpdates = a}) . _Coerce  instance AWSRequest UpdateRule where         type Rs UpdateRule = UpdateRuleResponse@@ -166,15 +166,15 @@     -> UpdateRuleResponse updateRuleResponse pResponseStatus_ =   UpdateRuleResponse'-  {_urrsChangeToken = Nothing, _urrsResponseStatus = pResponseStatus_}+    {_urrsChangeToken = Nothing, _urrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateRule@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . urrsChangeToken :: Lens' UpdateRuleResponse (Maybe Text)-urrsChangeToken = lens _urrsChangeToken (\ s a -> s{_urrsChangeToken = a});+urrsChangeToken = lens _urrsChangeToken (\ s a -> s{_urrsChangeToken = a})  -- | -- | The response status code. urrsResponseStatus :: Lens' UpdateRuleResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})  instance NFData UpdateRuleResponse where

@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.WAFRegional.UpdateRuleGroup+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Inserts or deletes 'ActivatedRule' objects in a @RuleGroup@ .+--+--+-- You can only insert @REGULAR@ rules into a rule group.+--+-- You can have a maximum of ten rules per rule group.+--+-- To create and configure a @RuleGroup@ , perform the following steps:+--+--     * Create and update the @Rules@ that you want to include in the @RuleGroup@ . See 'CreateRule' .+--+--     * Use @GetChangeToken@ to get the change token that you provide in the @ChangeToken@ parameter of an 'UpdateRuleGroup' request.+--+--     * Submit an @UpdateRuleGroup@ request to add @Rules@ to the @RuleGroup@ .+--+--     * Create and update a @WebACL@ that contains the @RuleGroup@ . See 'CreateWebACL' .+--+--+--+-- If you want to replace one @Rule@ with another, you delete the existing one and add the new one.+--+-- For more information about how to use the AWS WAF API to allow or block HTTP requests, see the <http://docs.aws.amazon.com/waf/latest/developerguide/ AWS WAF Developer Guide> .+--+module Network.AWS.WAFRegional.UpdateRuleGroup+    (+    -- * Creating a Request+      updateRuleGroup+    , UpdateRuleGroup+    -- * Request Lenses+    , urgRuleGroupId+    , urgUpdates+    , urgChangeToken++    -- * Destructuring the Response+    , updateRuleGroupResponse+    , UpdateRuleGroupResponse+    -- * Response Lenses+    , urgrsChangeToken+    , urgrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAFRegional.Types+import Network.AWS.WAFRegional.Types.Product++-- | /See:/ 'updateRuleGroup' smart constructor.+data UpdateRuleGroup = UpdateRuleGroup'+  { _urgRuleGroupId :: !Text+  , _urgUpdates     :: !(List1 RuleGroupUpdate)+  , _urgChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateRuleGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urgRuleGroupId' - The @RuleGroupId@ of the 'RuleGroup' that you want to update. @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+--+-- * 'urgUpdates' - An array of @RuleGroupUpdate@ objects that you want to insert into or delete from a 'RuleGroup' . You can only insert @REGULAR@ rules into a rule group. @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .+--+-- * 'urgChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+updateRuleGroup+    :: Text -- ^ 'urgRuleGroupId'+    -> NonEmpty RuleGroupUpdate -- ^ 'urgUpdates'+    -> Text -- ^ 'urgChangeToken'+    -> UpdateRuleGroup+updateRuleGroup pRuleGroupId_ pUpdates_ pChangeToken_ =+  UpdateRuleGroup'+    { _urgRuleGroupId = pRuleGroupId_+    , _urgUpdates = _List1 # pUpdates_+    , _urgChangeToken = pChangeToken_+    }+++-- | The @RuleGroupId@ of the 'RuleGroup' that you want to update. @RuleGroupId@ is returned by 'CreateRuleGroup' and by 'ListRuleGroups' .+urgRuleGroupId :: Lens' UpdateRuleGroup Text+urgRuleGroupId = lens _urgRuleGroupId (\ s a -> s{_urgRuleGroupId = a})++-- | An array of @RuleGroupUpdate@ objects that you want to insert into or delete from a 'RuleGroup' . You can only insert @REGULAR@ rules into a rule group. @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .+urgUpdates :: Lens' UpdateRuleGroup (NonEmpty RuleGroupUpdate)+urgUpdates = lens _urgUpdates (\ s a -> s{_urgUpdates = a}) . _List1++-- | The value returned by the most recent call to 'GetChangeToken' .+urgChangeToken :: Lens' UpdateRuleGroup Text+urgChangeToken = lens _urgChangeToken (\ s a -> s{_urgChangeToken = a})++instance AWSRequest UpdateRuleGroup where+        type Rs UpdateRuleGroup = UpdateRuleGroupResponse+        request = postJSON wAFRegional+        response+          = receiveJSON+              (\ s h x ->+                 UpdateRuleGroupResponse' <$>+                   (x .?> "ChangeToken") <*> (pure (fromEnum s)))++instance Hashable UpdateRuleGroup where++instance NFData UpdateRuleGroup where++instance ToHeaders UpdateRuleGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_Regional_20161128.UpdateRuleGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateRuleGroup where+        toJSON UpdateRuleGroup'{..}+          = object+              (catMaybes+                 [Just ("RuleGroupId" .= _urgRuleGroupId),+                  Just ("Updates" .= _urgUpdates),+                  Just ("ChangeToken" .= _urgChangeToken)])++instance ToPath UpdateRuleGroup where+        toPath = const "/"++instance ToQuery UpdateRuleGroup where+        toQuery = const mempty++-- | /See:/ 'updateRuleGroupResponse' smart constructor.+data UpdateRuleGroupResponse = UpdateRuleGroupResponse'+  { _urgrsChangeToken    :: !(Maybe Text)+  , _urgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateRuleGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urgrsChangeToken' - The @ChangeToken@ that you used to submit the @UpdateRuleGroup@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' .+--+-- * 'urgrsResponseStatus' - -- | The response status code.+updateRuleGroupResponse+    :: Int -- ^ 'urgrsResponseStatus'+    -> UpdateRuleGroupResponse+updateRuleGroupResponse pResponseStatus_ =+  UpdateRuleGroupResponse'+    {_urgrsChangeToken = Nothing, _urgrsResponseStatus = pResponseStatus_}+++-- | The @ChangeToken@ that you used to submit the @UpdateRuleGroup@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' .+urgrsChangeToken :: Lens' UpdateRuleGroupResponse (Maybe Text)+urgrsChangeToken = lens _urgrsChangeToken (\ s a -> s{_urgrsChangeToken = a})++-- | -- | The response status code.+urgrsResponseStatus :: Lens' UpdateRuleGroupResponse Int+urgrsResponseStatus = lens _urgrsResponseStatus (\ s a -> s{_urgrsResponseStatus = a})++instance NFData UpdateRuleGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateSizeConstraintSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,23 +96,23 @@     -> UpdateSizeConstraintSet updateSizeConstraintSet pSizeConstraintSetId_ pChangeToken_ pUpdates_ =   UpdateSizeConstraintSet'-  { _uscsSizeConstraintSetId = pSizeConstraintSetId_-  , _uscsChangeToken = pChangeToken_-  , _uscsUpdates = _List1 # pUpdates_-  }+    { _uscsSizeConstraintSetId = pSizeConstraintSetId_+    , _uscsChangeToken = pChangeToken_+    , _uscsUpdates = _List1 # pUpdates_+    }   -- | The @SizeConstraintSetId@ of the 'SizeConstraintSet' that you want to update. @SizeConstraintSetId@ is returned by 'CreateSizeConstraintSet' and by 'ListSizeConstraintSets' . uscsSizeConstraintSetId :: Lens' UpdateSizeConstraintSet Text-uscsSizeConstraintSetId = lens _uscsSizeConstraintSetId (\ s a -> s{_uscsSizeConstraintSetId = a});+uscsSizeConstraintSetId = lens _uscsSizeConstraintSetId (\ s a -> s{_uscsSizeConstraintSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . uscsChangeToken :: Lens' UpdateSizeConstraintSet Text-uscsChangeToken = lens _uscsChangeToken (\ s a -> s{_uscsChangeToken = a});+uscsChangeToken = lens _uscsChangeToken (\ s a -> s{_uscsChangeToken = a})  -- | An array of @SizeConstraintSetUpdate@ objects that you want to insert into or delete from a 'SizeConstraintSet' . For more information, see the applicable data types:     * 'SizeConstraintSetUpdate' : Contains @Action@ and @SizeConstraint@      * 'SizeConstraint' : Contains @FieldToMatch@ , @TextTransformation@ , @ComparisonOperator@ , and @Size@      * 'FieldToMatch' : Contains @Data@ and @Type@ uscsUpdates :: Lens' UpdateSizeConstraintSet (NonEmpty SizeConstraintSetUpdate)-uscsUpdates = lens _uscsUpdates (\ s a -> s{_uscsUpdates = a}) . _List1;+uscsUpdates = lens _uscsUpdates (\ s a -> s{_uscsUpdates = a}) . _List1  instance AWSRequest UpdateSizeConstraintSet where         type Rs UpdateSizeConstraintSet =@@ -172,15 +172,15 @@     -> UpdateSizeConstraintSetResponse updateSizeConstraintSetResponse pResponseStatus_ =   UpdateSizeConstraintSetResponse'-  {_uscsrsChangeToken = Nothing, _uscsrsResponseStatus = pResponseStatus_}+    {_uscsrsChangeToken = Nothing, _uscsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateSizeConstraintSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . uscsrsChangeToken :: Lens' UpdateSizeConstraintSetResponse (Maybe Text)-uscsrsChangeToken = lens _uscsrsChangeToken (\ s a -> s{_uscsrsChangeToken = a});+uscsrsChangeToken = lens _uscsrsChangeToken (\ s a -> s{_uscsrsChangeToken = a})  -- | -- | The response status code. uscsrsResponseStatus :: Lens' UpdateSizeConstraintSetResponse Int-uscsrsResponseStatus = lens _uscsrsResponseStatus (\ s a -> s{_uscsrsResponseStatus = a});+uscsrsResponseStatus = lens _uscsrsResponseStatus (\ s a -> s{_uscsrsResponseStatus = a})  instance NFData UpdateSizeConstraintSetResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateSqlInjectionMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,23 +96,23 @@     -> UpdateSqlInjectionMatchSet updateSqlInjectionMatchSet pSqlInjectionMatchSetId_ pChangeToken_ pUpdates_ =   UpdateSqlInjectionMatchSet'-  { _usimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_-  , _usimsChangeToken = pChangeToken_-  , _usimsUpdates = _List1 # pUpdates_-  }+    { _usimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_+    , _usimsChangeToken = pChangeToken_+    , _usimsUpdates = _List1 # pUpdates_+    }   -- | The @SqlInjectionMatchSetId@ of the @SqlInjectionMatchSet@ that you want to update. @SqlInjectionMatchSetId@ is returned by 'CreateSqlInjectionMatchSet' and by 'ListSqlInjectionMatchSets' . usimsSqlInjectionMatchSetId :: Lens' UpdateSqlInjectionMatchSet Text-usimsSqlInjectionMatchSetId = lens _usimsSqlInjectionMatchSetId (\ s a -> s{_usimsSqlInjectionMatchSetId = a});+usimsSqlInjectionMatchSetId = lens _usimsSqlInjectionMatchSetId (\ s a -> s{_usimsSqlInjectionMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . usimsChangeToken :: Lens' UpdateSqlInjectionMatchSet Text-usimsChangeToken = lens _usimsChangeToken (\ s a -> s{_usimsChangeToken = a});+usimsChangeToken = lens _usimsChangeToken (\ s a -> s{_usimsChangeToken = a})  -- | An array of @SqlInjectionMatchSetUpdate@ objects that you want to insert into or delete from a 'SqlInjectionMatchSet' . For more information, see the applicable data types:     * 'SqlInjectionMatchSetUpdate' : Contains @Action@ and @SqlInjectionMatchTuple@      * 'SqlInjectionMatchTuple' : Contains @FieldToMatch@ and @TextTransformation@      * 'FieldToMatch' : Contains @Data@ and @Type@ usimsUpdates :: Lens' UpdateSqlInjectionMatchSet (NonEmpty SqlInjectionMatchSetUpdate)-usimsUpdates = lens _usimsUpdates (\ s a -> s{_usimsUpdates = a}) . _List1;+usimsUpdates = lens _usimsUpdates (\ s a -> s{_usimsUpdates = a}) . _List1  instance AWSRequest UpdateSqlInjectionMatchSet where         type Rs UpdateSqlInjectionMatchSet =@@ -177,16 +177,16 @@     -> UpdateSqlInjectionMatchSetResponse updateSqlInjectionMatchSetResponse pResponseStatus_ =   UpdateSqlInjectionMatchSetResponse'-  {_usimsrsChangeToken = Nothing, _usimsrsResponseStatus = pResponseStatus_}+    {_usimsrsChangeToken = Nothing, _usimsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateSqlInjectionMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . usimsrsChangeToken :: Lens' UpdateSqlInjectionMatchSetResponse (Maybe Text)-usimsrsChangeToken = lens _usimsrsChangeToken (\ s a -> s{_usimsrsChangeToken = a});+usimsrsChangeToken = lens _usimsrsChangeToken (\ s a -> s{_usimsrsChangeToken = a})  -- | -- | The response status code. usimsrsResponseStatus :: Lens' UpdateSqlInjectionMatchSetResponse Int-usimsrsResponseStatus = lens _usimsrsResponseStatus (\ s a -> s{_usimsrsResponseStatus = a});+usimsrsResponseStatus = lens _usimsrsResponseStatus (\ s a -> s{_usimsrsResponseStatus = a})  instance NFData UpdateSqlInjectionMatchSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateWebACL--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -88,7 +88,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uwaUpdates' - An array of updates to make to the 'WebACL' . An array of @WebACLUpdate@ objects that you want to insert into or delete from a 'WebACL' . For more information, see the applicable data types:     * 'WebACLUpdate' : Contains @Action@ and @ActivatedRule@      * 'ActivatedRule' : Contains @Action@ , @Priority@ , @RuleId@ , and @Type@      * 'WafAction' : Contains @Type@+-- * 'uwaUpdates' - An array of updates to make to the 'WebACL' . An array of @WebACLUpdate@ objects that you want to insert into or delete from a 'WebACL' . For more information, see the applicable data types:     * 'WebACLUpdate' : Contains @Action@ and @ActivatedRule@      * 'ActivatedRule' : Contains @Action@ , @OverrideAction@ , @Priority@ , @RuleId@ , and @Type@ . @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .      * 'WafAction' : Contains @Type@ -- -- * 'uwaDefaultAction' - A default action for the web ACL, either ALLOW or BLOCK. AWS WAF performs the default action if a request doesn't match the criteria in any of the rules in a web ACL. --@@ -101,28 +101,28 @@     -> UpdateWebACL updateWebACL pWebACLId_ pChangeToken_ =   UpdateWebACL'-  { _uwaUpdates = Nothing-  , _uwaDefaultAction = Nothing-  , _uwaWebACLId = pWebACLId_-  , _uwaChangeToken = pChangeToken_-  }+    { _uwaUpdates = Nothing+    , _uwaDefaultAction = Nothing+    , _uwaWebACLId = pWebACLId_+    , _uwaChangeToken = pChangeToken_+    }  --- | An array of updates to make to the 'WebACL' . An array of @WebACLUpdate@ objects that you want to insert into or delete from a 'WebACL' . For more information, see the applicable data types:     * 'WebACLUpdate' : Contains @Action@ and @ActivatedRule@      * 'ActivatedRule' : Contains @Action@ , @Priority@ , @RuleId@ , and @Type@      * 'WafAction' : Contains @Type@+-- | An array of updates to make to the 'WebACL' . An array of @WebACLUpdate@ objects that you want to insert into or delete from a 'WebACL' . For more information, see the applicable data types:     * 'WebACLUpdate' : Contains @Action@ and @ActivatedRule@      * 'ActivatedRule' : Contains @Action@ , @OverrideAction@ , @Priority@ , @RuleId@ , and @Type@ . @ActivatedRule|OverrideAction@ applies only when updating or adding a @RuleGroup@ to a @WebACL@ . In this case you do not use @ActivatedRule|Action@ . For all other update requests, @ActivatedRule|Action@ is used instead of @ActivatedRule|OverrideAction@ .      * 'WafAction' : Contains @Type@ uwaUpdates :: Lens' UpdateWebACL [WebACLUpdate]-uwaUpdates = lens _uwaUpdates (\ s a -> s{_uwaUpdates = a}) . _Default . _Coerce;+uwaUpdates = lens _uwaUpdates (\ s a -> s{_uwaUpdates = a}) . _Default . _Coerce  -- | A default action for the web ACL, either ALLOW or BLOCK. AWS WAF performs the default action if a request doesn't match the criteria in any of the rules in a web ACL. uwaDefaultAction :: Lens' UpdateWebACL (Maybe WafAction)-uwaDefaultAction = lens _uwaDefaultAction (\ s a -> s{_uwaDefaultAction = a});+uwaDefaultAction = lens _uwaDefaultAction (\ s a -> s{_uwaDefaultAction = a})  -- | The @WebACLId@ of the 'WebACL' that you want to update. @WebACLId@ is returned by 'CreateWebACL' and by 'ListWebACLs' . uwaWebACLId :: Lens' UpdateWebACL Text-uwaWebACLId = lens _uwaWebACLId (\ s a -> s{_uwaWebACLId = a});+uwaWebACLId = lens _uwaWebACLId (\ s a -> s{_uwaWebACLId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . uwaChangeToken :: Lens' UpdateWebACL Text-uwaChangeToken = lens _uwaChangeToken (\ s a -> s{_uwaChangeToken = a});+uwaChangeToken = lens _uwaChangeToken (\ s a -> s{_uwaChangeToken = a})  instance AWSRequest UpdateWebACL where         type Rs UpdateWebACL = UpdateWebACLResponse@@ -181,15 +181,15 @@     -> UpdateWebACLResponse updateWebACLResponse pResponseStatus_ =   UpdateWebACLResponse'-  {_uwarsChangeToken = Nothing, _uwarsResponseStatus = pResponseStatus_}+    {_uwarsChangeToken = Nothing, _uwarsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateWebACL@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . uwarsChangeToken :: Lens' UpdateWebACLResponse (Maybe Text)-uwarsChangeToken = lens _uwarsChangeToken (\ s a -> s{_uwarsChangeToken = a});+uwarsChangeToken = lens _uwarsChangeToken (\ s a -> s{_uwarsChangeToken = a})  -- | -- | The response status code. uwarsResponseStatus :: Lens' UpdateWebACLResponse Int-uwarsResponseStatus = lens _uwarsResponseStatus (\ s a -> s{_uwarsResponseStatus = a});+uwarsResponseStatus = lens _uwarsResponseStatus (\ s a -> s{_uwarsResponseStatus = a})  instance NFData UpdateWebACLResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.WAFRegional.UpdateXSSMatchSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,23 +96,23 @@     -> UpdateXSSMatchSet updateXSSMatchSet pXSSMatchSetId_ pChangeToken_ pUpdates_ =   UpdateXSSMatchSet'-  { _uxmsXSSMatchSetId = pXSSMatchSetId_-  , _uxmsChangeToken = pChangeToken_-  , _uxmsUpdates = _List1 # pUpdates_-  }+    { _uxmsXSSMatchSetId = pXSSMatchSetId_+    , _uxmsChangeToken = pChangeToken_+    , _uxmsUpdates = _List1 # pUpdates_+    }   -- | The @XssMatchSetId@ of the @XssMatchSet@ that you want to update. @XssMatchSetId@ is returned by 'CreateXssMatchSet' and by 'ListXssMatchSets' . uxmsXSSMatchSetId :: Lens' UpdateXSSMatchSet Text-uxmsXSSMatchSetId = lens _uxmsXSSMatchSetId (\ s a -> s{_uxmsXSSMatchSetId = a});+uxmsXSSMatchSetId = lens _uxmsXSSMatchSetId (\ s a -> s{_uxmsXSSMatchSetId = a})  -- | The value returned by the most recent call to 'GetChangeToken' . uxmsChangeToken :: Lens' UpdateXSSMatchSet Text-uxmsChangeToken = lens _uxmsChangeToken (\ s a -> s{_uxmsChangeToken = a});+uxmsChangeToken = lens _uxmsChangeToken (\ s a -> s{_uxmsChangeToken = a})  -- | An array of @XssMatchSetUpdate@ objects that you want to insert into or delete from a 'XssMatchSet' . For more information, see the applicable data types:     * 'XssMatchSetUpdate' : Contains @Action@ and @XssMatchTuple@      * 'XssMatchTuple' : Contains @FieldToMatch@ and @TextTransformation@      * 'FieldToMatch' : Contains @Data@ and @Type@ uxmsUpdates :: Lens' UpdateXSSMatchSet (NonEmpty XSSMatchSetUpdate)-uxmsUpdates = lens _uxmsUpdates (\ s a -> s{_uxmsUpdates = a}) . _List1;+uxmsUpdates = lens _uxmsUpdates (\ s a -> s{_uxmsUpdates = a}) . _List1  instance AWSRequest UpdateXSSMatchSet where         type Rs UpdateXSSMatchSet = UpdateXSSMatchSetResponse@@ -174,15 +174,15 @@     -> UpdateXSSMatchSetResponse updateXSSMatchSetResponse pResponseStatus_ =   UpdateXSSMatchSetResponse'-  {_uxmsrsChangeToken = Nothing, _uxmsrsResponseStatus = pResponseStatus_}+    {_uxmsrsChangeToken = Nothing, _uxmsrsResponseStatus = pResponseStatus_}   -- | The @ChangeToken@ that you used to submit the @UpdateXssMatchSet@ request. You can also use this value to query the status of the request. For more information, see 'GetChangeTokenStatus' . uxmsrsChangeToken :: Lens' UpdateXSSMatchSetResponse (Maybe Text)-uxmsrsChangeToken = lens _uxmsrsChangeToken (\ s a -> s{_uxmsrsChangeToken = a});+uxmsrsChangeToken = lens _uxmsrsChangeToken (\ s a -> s{_uxmsrsChangeToken = a})  -- | -- | The response status code. uxmsrsResponseStatus :: Lens' UpdateXSSMatchSetResponse Int-uxmsrsResponseStatus = lens _uxmsrsResponseStatus (\ s a -> s{_uxmsrsResponseStatus = a});+uxmsrsResponseStatus = lens _uxmsrsResponseStatus (\ s a -> s{_uxmsrsResponseStatus = a})  instance NFData UpdateXSSMatchSetResponse where