amazonka-waf 1.4.5 → 1.5.0

raw patch · 110 files changed

+8982/−3022 lines, 110 filesdep ~amazonka-coredep ~amazonka-testdep ~amazonka-wafPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test, amazonka-waf

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-waf.cabal +37/−11
• fixture/CreateGeoMatchSet.yaml +10/−0
• fixture/CreateGeoMatchSetResponse.proto +0/−0
• fixture/CreateRateBasedRule.yaml +10/−0
• fixture/CreateRateBasedRuleResponse.proto +0/−0
• fixture/CreateRegexMatchSet.yaml +10/−0
• fixture/CreateRegexMatchSetResponse.proto +0/−0
• fixture/CreateRegexPatternSet.yaml +10/−0
• fixture/CreateRegexPatternSetResponse.proto +0/−0
• fixture/DeleteGeoMatchSet.yaml +10/−0
• fixture/DeleteGeoMatchSetResponse.proto +0/−0
• fixture/DeleteRateBasedRule.yaml +10/−0
• fixture/DeleteRateBasedRuleResponse.proto +0/−0
• fixture/DeleteRegexMatchSet.yaml +10/−0
• fixture/DeleteRegexMatchSetResponse.proto +0/−0
• fixture/DeleteRegexPatternSet.yaml +10/−0
• fixture/DeleteRegexPatternSetResponse.proto +0/−0
• fixture/GetGeoMatchSet.yaml +10/−0
• fixture/GetGeoMatchSetResponse.proto +0/−0
• fixture/GetRateBasedRule.yaml +10/−0
• fixture/GetRateBasedRuleManagedKeys.yaml +10/−0
• fixture/GetRateBasedRuleManagedKeysResponse.proto +0/−0
• fixture/GetRateBasedRuleResponse.proto +0/−0
• fixture/GetRegexMatchSet.yaml +10/−0
• fixture/GetRegexMatchSetResponse.proto +0/−0
• fixture/GetRegexPatternSet.yaml +10/−0
• fixture/GetRegexPatternSetResponse.proto +0/−0
• fixture/ListGeoMatchSets.yaml +10/−0
• fixture/ListGeoMatchSetsResponse.proto +0/−0
• fixture/ListRateBasedRules.yaml +10/−0
• fixture/ListRateBasedRulesResponse.proto +0/−0
• fixture/ListRegexMatchSets.yaml +10/−0
• fixture/ListRegexMatchSetsResponse.proto +0/−0
• fixture/ListRegexPatternSets.yaml +10/−0
• fixture/ListRegexPatternSetsResponse.proto +0/−0
• fixture/UpdateGeoMatchSet.yaml +10/−0
• fixture/UpdateGeoMatchSetResponse.proto +0/−0
• fixture/UpdateRateBasedRule.yaml +10/−0
• fixture/UpdateRateBasedRuleResponse.proto +0/−0
• fixture/UpdateRegexMatchSet.yaml +10/−0
• fixture/UpdateRegexMatchSetResponse.proto +0/−0
• fixture/UpdateRegexPatternSet.yaml +10/−0
• fixture/UpdateRegexPatternSetResponse.proto +0/−0
• gen/Network/AWS/WAF.hs +223/−43
• gen/Network/AWS/WAF/CreateByteMatchSet.hs +28/−27
• gen/Network/AWS/WAF/CreateGeoMatchSet.hs +169/−0
• gen/Network/AWS/WAF/CreateIPSet.hs +28/−27
• gen/Network/AWS/WAF/CreateRateBasedRule.hs +237/−0
• gen/Network/AWS/WAF/CreateRegexMatchSet.hs +171/−0
• gen/Network/AWS/WAF/CreateRegexPatternSet.hs +171/−0
• gen/Network/AWS/WAF/CreateRule.hs +33/−29
• gen/Network/AWS/WAF/CreateSizeConstraintSet.hs +29/−27
• gen/Network/AWS/WAF/CreateSqlInjectionMatchSet.hs +29/−26
• gen/Network/AWS/WAF/CreateWebACL.hs +35/−31
• gen/Network/AWS/WAF/CreateXSSMatchSet.hs +28/−27
• gen/Network/AWS/WAF/DeleteByteMatchSet.hs +25/−25
• gen/Network/AWS/WAF/DeleteGeoMatchSet.hs +156/−0
• gen/Network/AWS/WAF/DeleteIPSet.hs +24/−25
• gen/Network/AWS/WAF/DeleteRateBasedRule.hs +158/−0
• gen/Network/AWS/WAF/DeleteRegexMatchSet.hs +158/−0
• gen/Network/AWS/WAF/DeleteRegexPatternSet.hs +149/−0
• gen/Network/AWS/WAF/DeleteRule.hs +24/−25
• gen/Network/AWS/WAF/DeleteSizeConstraintSet.hs +27/−25
• gen/Network/AWS/WAF/DeleteSqlInjectionMatchSet.hs +27/−24
• gen/Network/AWS/WAF/DeleteWebACL.hs +24/−25
• gen/Network/AWS/WAF/DeleteXSSMatchSet.hs +25/−25
• gen/Network/AWS/WAF/GetByteMatchSet.hs +23/−23
• gen/Network/AWS/WAF/GetChangeToken.hs +22/−20
• gen/Network/AWS/WAF/GetChangeTokenStatus.hs +23/−23
• gen/Network/AWS/WAF/GetGeoMatchSet.hs +133/−0
• gen/Network/AWS/WAF/GetIPSet.hs +23/−24
• gen/Network/AWS/WAF/GetRateBasedRule.hs +130/−0
• gen/Network/AWS/WAF/GetRateBasedRuleManagedKeys.hs +159/−0
• gen/Network/AWS/WAF/GetRegexMatchSet.hs +133/−0
• gen/Network/AWS/WAF/GetRegexPatternSet.hs +135/−0
• gen/Network/AWS/WAF/GetRule.hs +22/−24
• gen/Network/AWS/WAF/GetSampledRequests.hs +40/−36
• gen/Network/AWS/WAF/GetSizeConstraintSet.hs +23/−23
• gen/Network/AWS/WAF/GetSqlInjectionMatchSet.hs +26/−23
• gen/Network/AWS/WAF/GetWebACL.hs +23/−24
• gen/Network/AWS/WAF/GetXSSMatchSet.hs +23/−23
• gen/Network/AWS/WAF/ListByteMatchSets.hs +29/−28
• gen/Network/AWS/WAF/ListGeoMatchSets.hs +154/−0
• gen/Network/AWS/WAF/ListIPSets.hs +31/−31
• gen/Network/AWS/WAF/ListRateBasedRules.hs +154/−0
• gen/Network/AWS/WAF/ListRegexMatchSets.hs +155/−0
• gen/Network/AWS/WAF/ListRegexPatternSets.hs +156/−0
• gen/Network/AWS/WAF/ListRules.hs +29/−29
• gen/Network/AWS/WAF/ListSizeConstraintSets.hs +29/−28
• gen/Network/AWS/WAF/ListSqlInjectionMatchSets.hs +29/−27
• gen/Network/AWS/WAF/ListWebACLs.hs +29/−29
• gen/Network/AWS/WAF/ListXSSMatchSets.hs +29/−28
• gen/Network/AWS/WAF/Types.hs +157/−38
• gen/Network/AWS/WAF/Types/Product.hs +2534/−1841
• gen/Network/AWS/WAF/Types/Sum.hs +920/−50
• gen/Network/AWS/WAF/UpdateByteMatchSet.hs +33/−30
• gen/Network/AWS/WAF/UpdateGeoMatchSet.hs +179/−0
• gen/Network/AWS/WAF/UpdateIPSet.hs +47/−32
• gen/Network/AWS/WAF/UpdateRateBasedRule.hs +197/−0
• gen/Network/AWS/WAF/UpdateRegexMatchSet.hs +183/−0
• gen/Network/AWS/WAF/UpdateRegexPatternSet.hs +190/−0
• gen/Network/AWS/WAF/UpdateRule.hs +26/−27
• gen/Network/AWS/WAF/UpdateSizeConstraintSet.hs +33/−30
• gen/Network/AWS/WAF/UpdateSqlInjectionMatchSet.hs +33/−29
• gen/Network/AWS/WAF/UpdateWebACL.hs +37/−35
• gen/Network/AWS/WAF/UpdateXSSMatchSet.hs +33/−30
• gen/Network/AWS/WAF/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/WAF.hs +384/−6

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

@@ -1,13 +1,13 @@ name:                  amazonka-waf-version:               1.4.5+version:               1.5.0 synopsis:              Amazon WAF SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,26 +29,39 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-waf  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.WAF         , Network.AWS.WAF.CreateByteMatchSet+        , Network.AWS.WAF.CreateGeoMatchSet         , Network.AWS.WAF.CreateIPSet+        , Network.AWS.WAF.CreateRateBasedRule+        , Network.AWS.WAF.CreateRegexMatchSet+        , Network.AWS.WAF.CreateRegexPatternSet         , Network.AWS.WAF.CreateRule         , Network.AWS.WAF.CreateSizeConstraintSet         , Network.AWS.WAF.CreateSqlInjectionMatchSet         , Network.AWS.WAF.CreateWebACL         , Network.AWS.WAF.CreateXSSMatchSet         , Network.AWS.WAF.DeleteByteMatchSet+        , Network.AWS.WAF.DeleteGeoMatchSet         , Network.AWS.WAF.DeleteIPSet+        , Network.AWS.WAF.DeleteRateBasedRule+        , Network.AWS.WAF.DeleteRegexMatchSet+        , Network.AWS.WAF.DeleteRegexPatternSet         , Network.AWS.WAF.DeleteRule         , Network.AWS.WAF.DeleteSizeConstraintSet         , Network.AWS.WAF.DeleteSqlInjectionMatchSet@@ -57,7 +70,12 @@         , Network.AWS.WAF.GetByteMatchSet         , Network.AWS.WAF.GetChangeToken         , Network.AWS.WAF.GetChangeTokenStatus+        , Network.AWS.WAF.GetGeoMatchSet         , Network.AWS.WAF.GetIPSet+        , Network.AWS.WAF.GetRateBasedRule+        , Network.AWS.WAF.GetRateBasedRuleManagedKeys+        , Network.AWS.WAF.GetRegexMatchSet+        , Network.AWS.WAF.GetRegexPatternSet         , Network.AWS.WAF.GetRule         , Network.AWS.WAF.GetSampledRequests         , Network.AWS.WAF.GetSizeConstraintSet@@ -65,7 +83,11 @@         , Network.AWS.WAF.GetWebACL         , Network.AWS.WAF.GetXSSMatchSet         , Network.AWS.WAF.ListByteMatchSets+        , Network.AWS.WAF.ListGeoMatchSets         , Network.AWS.WAF.ListIPSets+        , Network.AWS.WAF.ListRateBasedRules+        , Network.AWS.WAF.ListRegexMatchSets+        , Network.AWS.WAF.ListRegexPatternSets         , Network.AWS.WAF.ListRules         , Network.AWS.WAF.ListSizeConstraintSets         , Network.AWS.WAF.ListSqlInjectionMatchSets@@ -73,7 +95,11 @@         , Network.AWS.WAF.ListXSSMatchSets         , Network.AWS.WAF.Types         , Network.AWS.WAF.UpdateByteMatchSet+        , Network.AWS.WAF.UpdateGeoMatchSet         , Network.AWS.WAF.UpdateIPSet+        , Network.AWS.WAF.UpdateRateBasedRule+        , Network.AWS.WAF.UpdateRegexMatchSet+        , Network.AWS.WAF.UpdateRegexPatternSet         , Network.AWS.WAF.UpdateRule         , Network.AWS.WAF.UpdateSizeConstraintSet         , Network.AWS.WAF.UpdateSqlInjectionMatchSet@@ -86,7 +112,7 @@         , Network.AWS.WAF.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-waf-test@@ -106,9 +132,9 @@         , Test.AWS.WAF.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-waf == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-waf         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/waf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  waf.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,13 +5,13 @@  -- | -- Module      : Network.AWS.WAF--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- This is the /AWS WAF API Reference/ . This guide is for developers who need detailed information about the AWS WAF API actions, data types, and errors. For detailed information about AWS WAF features and an overview of how to use the AWS WAF API, see the <http://docs.aws.amazon.com/waf/latest/developerguide/ AWS WAF Developer Guide> .+-- This is the /AWS WAF API Reference/ for using AWS WAF with Amazon CloudFront. The AWS WAF actions and data types listed in the reference are available for protecting Amazon CloudFront distributions. You can use these actions and data types via the endpoint /waf.amazonaws.com/ . This guide is for developers who need detailed information about the AWS WAF API actions, data types, and errors. For detailed information about AWS WAF features and an overview of how to use the AWS WAF API, see the <http://docs.aws.amazon.com/waf/latest/developerguide/ AWS WAF Developer Guide> . -- -- module Network.AWS.WAF@@ -28,6 +28,9 @@     -- ** WAFReferencedItemException     , _WAFReferencedItemException +    -- ** WAFInvalidRegexPatternException+    , _WAFInvalidRegexPatternException+     -- ** WAFInvalidOperationException     , _WAFInvalidOperationException @@ -61,9 +64,18 @@     -- * Operations     -- $operations +    -- ** ListRateBasedRules+    , module Network.AWS.WAF.ListRateBasedRules+     -- ** GetSizeConstraintSet     , module Network.AWS.WAF.GetSizeConstraintSet +    -- ** DeleteRateBasedRule+    , module Network.AWS.WAF.DeleteRateBasedRule++    -- ** UpdateRateBasedRule+    , module Network.AWS.WAF.UpdateRateBasedRule+     -- ** UpdateRule     , module Network.AWS.WAF.UpdateRule @@ -94,9 +106,21 @@     -- ** CreateWebACL     , module Network.AWS.WAF.CreateWebACL +    -- ** GetGeoMatchSet+    , module Network.AWS.WAF.GetGeoMatchSet+     -- ** ListByteMatchSets (Paginated)     , module Network.AWS.WAF.ListByteMatchSets +    -- ** ListGeoMatchSets+    , module Network.AWS.WAF.ListGeoMatchSets++    -- ** DeleteRegexMatchSet+    , module Network.AWS.WAF.DeleteRegexMatchSet++    -- ** UpdateRegexMatchSet+    , module Network.AWS.WAF.UpdateRegexMatchSet+     -- ** GetIPSet     , module Network.AWS.WAF.GetIPSet @@ -115,6 +139,9 @@     -- ** ListXSSMatchSets (Paginated)     , module Network.AWS.WAF.ListXSSMatchSets +    -- ** CreateGeoMatchSet+    , module Network.AWS.WAF.CreateGeoMatchSet+     -- ** GetChangeToken     , module Network.AWS.WAF.GetChangeToken @@ -142,6 +169,12 @@     -- ** DeleteByteMatchSet     , module Network.AWS.WAF.DeleteByteMatchSet +    -- ** GetRateBasedRuleManagedKeys+    , module Network.AWS.WAF.GetRateBasedRuleManagedKeys++    -- ** GetRegexMatchSet+    , module Network.AWS.WAF.GetRegexMatchSet+     -- ** DeleteIPSet     , module Network.AWS.WAF.DeleteIPSet @@ -151,24 +184,57 @@     -- ** ListIPSets (Paginated)     , module Network.AWS.WAF.ListIPSets +    -- ** ListRegexMatchSets+    , module Network.AWS.WAF.ListRegexMatchSets+     -- ** CreateXSSMatchSet     , module Network.AWS.WAF.CreateXSSMatchSet +    -- ** DeleteGeoMatchSet+    , module Network.AWS.WAF.DeleteGeoMatchSet++    -- ** UpdateGeoMatchSet+    , module Network.AWS.WAF.UpdateGeoMatchSet+     -- ** GetByteMatchSet     , module Network.AWS.WAF.GetByteMatchSet +    -- ** CreateRegexMatchSet+    , module Network.AWS.WAF.CreateRegexMatchSet++    -- ** GetRateBasedRule+    , module Network.AWS.WAF.GetRateBasedRule++    -- ** CreateRegexPatternSet+    , module Network.AWS.WAF.CreateRegexPatternSet+     -- ** DeleteSizeConstraintSet     , module Network.AWS.WAF.DeleteSizeConstraintSet      -- ** UpdateSizeConstraintSet     , module Network.AWS.WAF.UpdateSizeConstraintSet +    -- ** DeleteRegexPatternSet+    , module Network.AWS.WAF.DeleteRegexPatternSet++    -- ** UpdateRegexPatternSet+    , module Network.AWS.WAF.UpdateRegexPatternSet+     -- ** CreateSizeConstraintSet     , module Network.AWS.WAF.CreateSizeConstraintSet +    -- ** ListRegexPatternSets+    , module Network.AWS.WAF.ListRegexPatternSets+     -- ** ListSqlInjectionMatchSets (Paginated)     , module Network.AWS.WAF.ListSqlInjectionMatchSets +    -- ** GetRegexPatternSet+    , module Network.AWS.WAF.GetRegexPatternSet++    -- ** CreateRateBasedRule+    , module Network.AWS.WAF.CreateRateBasedRule+     -- ** DeleteSqlInjectionMatchSet     , module Network.AWS.WAF.DeleteSqlInjectionMatchSet @@ -186,6 +252,12 @@     -- ** ComparisonOperator     , ComparisonOperator (..) +    -- ** GeoMatchConstraintType+    , GeoMatchConstraintType (..)++    -- ** GeoMatchConstraintValue+    , GeoMatchConstraintValue (..)+     -- ** IPSetDescriptorType     , IPSetDescriptorType (..) @@ -198,15 +270,22 @@     -- ** PredicateType     , PredicateType (..) +    -- ** RateKey+    , RateKey (..)+     -- ** TextTransformation     , TextTransformation (..)      -- ** WafActionType     , WafActionType (..) +    -- ** WafRuleType+    , WafRuleType (..)+     -- ** ActivatedRule     , ActivatedRule     , activatedRule+    , arType     , arPriority     , arRuleId     , arAction@@ -244,6 +323,31 @@     , ftmData     , ftmType +    -- ** GeoMatchConstraint+    , GeoMatchConstraint+    , geoMatchConstraint+    , gmcType+    , gmcValue++    -- ** GeoMatchSet+    , GeoMatchSet+    , geoMatchSet+    , gmsName+    , gmsGeoMatchSetId+    , gmsGeoMatchConstraints++    -- ** GeoMatchSetSummary+    , GeoMatchSetSummary+    , geoMatchSetSummary+    , gmssGeoMatchSetId+    , gmssName++    -- ** GeoMatchSetUpdate+    , GeoMatchSetUpdate+    , geoMatchSetUpdate+    , gmsuAction+    , gmsuGeoMatchConstraint+     -- ** HTTPHeader     , HTTPHeader     , hTTPHeader@@ -292,6 +396,61 @@     , pType     , pDataId +    -- ** RateBasedRule+    , RateBasedRule+    , rateBasedRule+    , rbrMetricName+    , rbrName+    , rbrRuleId+    , rbrMatchPredicates+    , rbrRateKey+    , rbrRateLimit++    -- ** RegexMatchSet+    , RegexMatchSet+    , regexMatchSet+    , rmsName+    , rmsRegexMatchTuples+    , rmsRegexMatchSetId++    -- ** RegexMatchSetSummary+    , RegexMatchSetSummary+    , regexMatchSetSummary+    , rmssRegexMatchSetId+    , rmssName++    -- ** RegexMatchSetUpdate+    , RegexMatchSetUpdate+    , regexMatchSetUpdate+    , rmsuAction+    , rmsuRegexMatchTuple++    -- ** RegexMatchTuple+    , RegexMatchTuple+    , regexMatchTuple+    , rmtFieldToMatch+    , rmtTextTransformation+    , rmtRegexPatternSetId++    -- ** RegexPatternSet+    , RegexPatternSet+    , regexPatternSet+    , rpsName+    , rpsRegexPatternSetId+    , rpsRegexPatternStrings++    -- ** RegexPatternSetSummary+    , RegexPatternSetSummary+    , regexPatternSetSummary+    , rpssRegexPatternSetId+    , rpssName++    -- ** RegexPatternSetUpdate+    , RegexPatternSetUpdate+    , regexPatternSetUpdate+    , rpsuAction+    , rpsuRegexPatternString+     -- ** Rule     , Rule     , rule@@ -430,46 +589,67 @@     , xmtTextTransformation     ) where -import           Network.AWS.WAF.CreateByteMatchSet-import           Network.AWS.WAF.CreateIPSet-import           Network.AWS.WAF.CreateRule-import           Network.AWS.WAF.CreateSizeConstraintSet-import           Network.AWS.WAF.CreateSqlInjectionMatchSet-import           Network.AWS.WAF.CreateWebACL-import           Network.AWS.WAF.CreateXSSMatchSet-import           Network.AWS.WAF.DeleteByteMatchSet-import           Network.AWS.WAF.DeleteIPSet-import           Network.AWS.WAF.DeleteRule-import           Network.AWS.WAF.DeleteSizeConstraintSet-import           Network.AWS.WAF.DeleteSqlInjectionMatchSet-import           Network.AWS.WAF.DeleteWebACL-import           Network.AWS.WAF.DeleteXSSMatchSet-import           Network.AWS.WAF.GetByteMatchSet-import           Network.AWS.WAF.GetChangeToken-import           Network.AWS.WAF.GetChangeTokenStatus-import           Network.AWS.WAF.GetIPSet-import           Network.AWS.WAF.GetRule-import           Network.AWS.WAF.GetSampledRequests-import           Network.AWS.WAF.GetSizeConstraintSet-import           Network.AWS.WAF.GetSqlInjectionMatchSet-import           Network.AWS.WAF.GetWebACL-import           Network.AWS.WAF.GetXSSMatchSet-import           Network.AWS.WAF.ListByteMatchSets-import           Network.AWS.WAF.ListIPSets-import           Network.AWS.WAF.ListRules-import           Network.AWS.WAF.ListSizeConstraintSets-import           Network.AWS.WAF.ListSqlInjectionMatchSets-import           Network.AWS.WAF.ListWebACLs-import           Network.AWS.WAF.ListXSSMatchSets-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.UpdateByteMatchSet-import           Network.AWS.WAF.UpdateIPSet-import           Network.AWS.WAF.UpdateRule-import           Network.AWS.WAF.UpdateSizeConstraintSet-import           Network.AWS.WAF.UpdateSqlInjectionMatchSet-import           Network.AWS.WAF.UpdateWebACL-import           Network.AWS.WAF.UpdateXSSMatchSet-import           Network.AWS.WAF.Waiters+import Network.AWS.WAF.CreateByteMatchSet+import Network.AWS.WAF.CreateGeoMatchSet+import Network.AWS.WAF.CreateIPSet+import Network.AWS.WAF.CreateRateBasedRule+import Network.AWS.WAF.CreateRegexMatchSet+import Network.AWS.WAF.CreateRegexPatternSet+import Network.AWS.WAF.CreateRule+import Network.AWS.WAF.CreateSizeConstraintSet+import Network.AWS.WAF.CreateSqlInjectionMatchSet+import Network.AWS.WAF.CreateWebACL+import Network.AWS.WAF.CreateXSSMatchSet+import Network.AWS.WAF.DeleteByteMatchSet+import Network.AWS.WAF.DeleteGeoMatchSet+import Network.AWS.WAF.DeleteIPSet+import Network.AWS.WAF.DeleteRateBasedRule+import Network.AWS.WAF.DeleteRegexMatchSet+import Network.AWS.WAF.DeleteRegexPatternSet+import Network.AWS.WAF.DeleteRule+import Network.AWS.WAF.DeleteSizeConstraintSet+import Network.AWS.WAF.DeleteSqlInjectionMatchSet+import Network.AWS.WAF.DeleteWebACL+import Network.AWS.WAF.DeleteXSSMatchSet+import Network.AWS.WAF.GetByteMatchSet+import Network.AWS.WAF.GetChangeToken+import Network.AWS.WAF.GetChangeTokenStatus+import Network.AWS.WAF.GetGeoMatchSet+import Network.AWS.WAF.GetIPSet+import Network.AWS.WAF.GetRateBasedRule+import Network.AWS.WAF.GetRateBasedRuleManagedKeys+import Network.AWS.WAF.GetRegexMatchSet+import Network.AWS.WAF.GetRegexPatternSet+import Network.AWS.WAF.GetRule+import Network.AWS.WAF.GetSampledRequests+import Network.AWS.WAF.GetSizeConstraintSet+import Network.AWS.WAF.GetSqlInjectionMatchSet+import Network.AWS.WAF.GetWebACL+import Network.AWS.WAF.GetXSSMatchSet+import Network.AWS.WAF.ListByteMatchSets+import Network.AWS.WAF.ListGeoMatchSets+import Network.AWS.WAF.ListIPSets+import Network.AWS.WAF.ListRateBasedRules+import Network.AWS.WAF.ListRegexMatchSets+import Network.AWS.WAF.ListRegexPatternSets+import Network.AWS.WAF.ListRules+import Network.AWS.WAF.ListSizeConstraintSets+import Network.AWS.WAF.ListSqlInjectionMatchSets+import Network.AWS.WAF.ListWebACLs+import Network.AWS.WAF.ListXSSMatchSets+import Network.AWS.WAF.Types+import Network.AWS.WAF.UpdateByteMatchSet+import Network.AWS.WAF.UpdateGeoMatchSet+import Network.AWS.WAF.UpdateIPSet+import Network.AWS.WAF.UpdateRateBasedRule+import Network.AWS.WAF.UpdateRegexMatchSet+import Network.AWS.WAF.UpdateRegexPatternSet+import Network.AWS.WAF.UpdateRule+import Network.AWS.WAF.UpdateSizeConstraintSet+import Network.AWS.WAF.UpdateSqlInjectionMatchSet+import Network.AWS.WAF.UpdateWebACL+import Network.AWS.WAF.UpdateXSSMatchSet+import Network.AWS.WAF.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateByteMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -53,19 +53,20 @@     , cbmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'createByteMatchSet' smart constructor. data CreateByteMatchSet = CreateByteMatchSet'-    { _cbmsName        :: !Text-    , _cbmsChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbmsName        :: !Text+  , _cbmsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateByteMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +79,9 @@     -> Text -- ^ 'cbmsChangeToken'     -> CreateByteMatchSet createByteMatchSet pName_ pChangeToken_ =-    CreateByteMatchSet'-    { _cbmsName = pName_-    , _cbmsChangeToken = pChangeToken_-    }+  CreateByteMatchSet' {_cbmsName = pName_, _cbmsChangeToken = pChangeToken_} + -- | 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});@@ -102,9 +101,9 @@                    (x .?> "ByteMatchSet") <*> (x .?> "ChangeToken") <*>                      (pure (fromEnum s))) -instance Hashable CreateByteMatchSet+instance Hashable CreateByteMatchSet where -instance NFData CreateByteMatchSet+instance NFData CreateByteMatchSet where  instance ToHeaders CreateByteMatchSet where         toHeaders@@ -130,11 +129,12 @@  -- | /See:/ 'createByteMatchSetResponse' smart constructor. data CreateByteMatchSetResponse = CreateByteMatchSetResponse'-    { _cbmsrsByteMatchSet   :: !(Maybe ByteMatchSet)-    , _cbmsrsChangeToken    :: !(Maybe Text)-    , _cbmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbmsrsByteMatchSet   :: !(Maybe ByteMatchSet)+  , _cbmsrsChangeToken    :: !(Maybe Text)+  , _cbmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateByteMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +148,13 @@     :: Int -- ^ 'cbmsrsResponseStatus'     -> CreateByteMatchSetResponse createByteMatchSetResponse pResponseStatus_ =-    CreateByteMatchSetResponse'-    { _cbmsrsByteMatchSet = Nothing-    , _cbmsrsChangeToken = Nothing-    , _cbmsrsResponseStatus = pResponseStatus_-    }+  CreateByteMatchSetResponse'+  { _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});@@ -166,4 +167,4 @@ cbmsrsResponseStatus :: Lens' CreateByteMatchSetResponse Int cbmsrsResponseStatus = lens _cbmsrsResponseStatus (\ s a -> s{_cbmsrsResponseStatus = a}); -instance NFData CreateByteMatchSetResponse+instance NFData CreateByteMatchSetResponse where

@@ -0,0 +1,169 @@+{-# 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.WAF.CreateGeoMatchSet+-- Copyright   : (c) 2013-2017 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 an 'GeoMatchSet' , which you use to specify which web requests you want to allow or block based on the country that the requests originate from. For example, if you're receiving a lot of requests from one or more countries and you want to block the requests, you can create an @GeoMatchSet@ that contains those countries and then configure AWS WAF to block the requests.+--+--+-- To create and configure a @GeoMatchSet@ , perform the following steps:+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @CreateGeoMatchSet@ request.+--+--     * Submit a @CreateGeoMatchSet@ request.+--+--     * Use @GetChangeToken@ to get the change token that you provide in the @ChangeToken@ parameter of an 'UpdateGeoMatchSet' request.+--+--     * Submit an @UpdateGeoMatchSetSet@ request to specify the countries that you want AWS WAF to watch for.+--+--+--+-- 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.WAF.CreateGeoMatchSet+    (+    -- * Creating a Request+      createGeoMatchSet+    , CreateGeoMatchSet+    -- * Request Lenses+    , cgmsName+    , cgmsChangeToken++    -- * Destructuring the Response+    , createGeoMatchSetResponse+    , CreateGeoMatchSetResponse+    -- * Response Lenses+    , cgmsrsGeoMatchSet+    , cgmsrsChangeToken+    , cgmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'createGeoMatchSet' smart constructor.+data CreateGeoMatchSet = CreateGeoMatchSet'+  { _cgmsName        :: !Text+  , _cgmsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateGeoMatchSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cgmsName' - A friendly name or description of the 'GeoMatchSet' . You can't change @Name@ after you create the @GeoMatchSet@ .+--+-- * 'cgmsChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+createGeoMatchSet+    :: Text -- ^ 'cgmsName'+    -> Text -- ^ 'cgmsChangeToken'+    -> CreateGeoMatchSet+createGeoMatchSet pName_ pChangeToken_ =+  CreateGeoMatchSet' {_cgmsName = pName_, _cgmsChangeToken = pChangeToken_}+++-- | 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});++-- | The value returned by the most recent call to 'GetChangeToken' .+cgmsChangeToken :: Lens' CreateGeoMatchSet Text+cgmsChangeToken = lens _cgmsChangeToken (\ s a -> s{_cgmsChangeToken = a});++instance AWSRequest CreateGeoMatchSet where+        type Rs CreateGeoMatchSet = CreateGeoMatchSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 CreateGeoMatchSetResponse' <$>+                   (x .?> "GeoMatchSet") <*> (x .?> "ChangeToken") <*>+                     (pure (fromEnum s)))++instance Hashable CreateGeoMatchSet where++instance NFData CreateGeoMatchSet where++instance ToHeaders CreateGeoMatchSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.CreateGeoMatchSet" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateGeoMatchSet where+        toJSON CreateGeoMatchSet'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _cgmsName),+                  Just ("ChangeToken" .= _cgmsChangeToken)])++instance ToPath CreateGeoMatchSet where+        toPath = const "/"++instance ToQuery CreateGeoMatchSet where+        toQuery = const mempty++-- | /See:/ 'createGeoMatchSetResponse' smart constructor.+data CreateGeoMatchSetResponse = CreateGeoMatchSetResponse'+  { _cgmsrsGeoMatchSet    :: !(Maybe GeoMatchSet)+  , _cgmsrsChangeToken    :: !(Maybe Text)+  , _cgmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateGeoMatchSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cgmsrsGeoMatchSet' - The 'GeoMatchSet' returned in the @CreateGeoMatchSet@ response. The @GeoMatchSet@ contains no @GeoMatchConstraints@ .+--+-- * 'cgmsrsChangeToken' - 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' .+--+-- * 'cgmsrsResponseStatus' - -- | The response status code.+createGeoMatchSetResponse+    :: Int -- ^ 'cgmsrsResponseStatus'+    -> CreateGeoMatchSetResponse+createGeoMatchSetResponse pResponseStatus_ =+  CreateGeoMatchSetResponse'+  { _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});++-- | 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});++-- | -- | The response status code.+cgmsrsResponseStatus :: Lens' CreateGeoMatchSetResponse Int+cgmsrsResponseStatus = lens _cgmsrsResponseStatus (\ s a -> s{_cgmsrsResponseStatus = a});++instance NFData CreateGeoMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateIPSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -53,19 +53,20 @@     , cisrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'createIPSet' smart constructor. data CreateIPSet = CreateIPSet'-    { _cisName        :: !Text-    , _cisChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cisName        :: !Text+  , _cisChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateIPSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +79,9 @@     -> Text -- ^ 'cisChangeToken'     -> CreateIPSet createIPSet pName_ pChangeToken_ =-    CreateIPSet'-    { _cisName = pName_-    , _cisChangeToken = pChangeToken_-    }+  CreateIPSet' {_cisName = pName_, _cisChangeToken = pChangeToken_} + -- | 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});@@ -101,9 +100,9 @@                    (x .?> "ChangeToken") <*> (x .?> "IPSet") <*>                      (pure (fromEnum s))) -instance Hashable CreateIPSet+instance Hashable CreateIPSet where -instance NFData CreateIPSet+instance NFData CreateIPSet where  instance ToHeaders CreateIPSet where         toHeaders@@ -129,11 +128,12 @@  -- | /See:/ 'createIPSetResponse' smart constructor. data CreateIPSetResponse = CreateIPSetResponse'-    { _cisrsChangeToken    :: !(Maybe Text)-    , _cisrsIPSet          :: !(Maybe IPSet)-    , _cisrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cisrsChangeToken    :: !(Maybe Text)+  , _cisrsIPSet          :: !(Maybe IPSet)+  , _cisrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateIPSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,12 +147,13 @@     :: Int -- ^ 'cisrsResponseStatus'     -> CreateIPSetResponse createIPSetResponse pResponseStatus_ =-    CreateIPSetResponse'-    { _cisrsChangeToken = Nothing-    , _cisrsIPSet = Nothing-    , _cisrsResponseStatus = pResponseStatus_-    }+  CreateIPSetResponse'+  { _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});@@ -165,4 +166,4 @@ cisrsResponseStatus :: Lens' CreateIPSetResponse Int cisrsResponseStatus = lens _cisrsResponseStatus (\ s a -> s{_cisrsResponseStatus = a}); -instance NFData CreateIPSetResponse+instance NFData CreateIPSetResponse where

@@ -0,0 +1,237 @@+{-# 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.WAF.CreateRateBasedRule+-- Copyright   : (c) 2013-2017 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 'RateBasedRule' . The @RateBasedRule@ contains a @RateLimit@ , which specifies the maximum number of requests that AWS WAF allows from a specified IP address in a five-minute period. The @RateBasedRule@ also contains the @IPSet@ objects, @ByteMatchSet@ objects, and other predicates that identify the requests that you want to count or block if these requests exceed the @RateLimit@ .+--+--+-- If you add more than one predicate to a @RateBasedRule@ , a request not only must exceed the @RateLimit@ , but it also must match all the specifications to be counted or blocked. For example, suppose you add the following to a @RateBasedRule@ :+--+--     * An @IPSet@ that matches the IP address @192.0.2.44/32@+--+--     * A @ByteMatchSet@ that matches @BadBot@ in the @User-Agent@ header+--+--+--+-- Further, you specify a @RateLimit@ of 15,000.+--+-- You then add the @RateBasedRule@ to a @WebACL@ and specify that you want to block requests that meet the conditions in the rule. For a request to be blocked, it must come from the IP address 192.0.2.44 /and/ the @User-Agent@ header in the request must contain the value @BadBot@ . Further, requests that match these two conditions must be received at a rate of more than 15,000 requests every five minutes. If both conditions are met and the rate is exceeded, AWS WAF blocks the requests. If the rate drops below 15,000 for a five-minute period, AWS WAF no longer blocks the requests.+--+-- As a second example, suppose you want to limit requests to a particular page on your site. To do this, you could add the following to a @RateBasedRule@ :+--+--     * A @ByteMatchSet@ with @FieldToMatch@ of @URI@+--+--     * A @PositionalConstraint@ of @STARTS_WITH@+--+--     * A @TargetString@ of @login@+--+--+--+-- Further, you specify a @RateLimit@ of 15,000.+--+-- By adding this @RateBasedRule@ to a @WebACL@ , you could limit requests to your login page without affecting the rest of your site.+--+-- To create and configure a @RateBasedRule@ , perform the following steps:+--+--     * Create and update the predicates that you want to include in the rule. For more information, see 'CreateByteMatchSet' , 'CreateIPSet' , and 'CreateSqlInjectionMatchSet' .+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @CreateRule@ request.+--+--     * Submit a @CreateRateBasedRule@ request.+--+--     * Use @GetChangeToken@ to get the change token that you provide in the @ChangeToken@ parameter of an 'UpdateRule' request.+--+--     * Submit an @UpdateRateBasedRule@ request to specify the predicates that you want to include in the rule.+--+--     * Create and update a @WebACL@ that contains the @RateBasedRule@ . For more information, see 'CreateWebACL' .+--+--+--+-- 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.WAF.CreateRateBasedRule+    (+    -- * Creating a Request+      createRateBasedRule+    , CreateRateBasedRule+    -- * Request Lenses+    , crbrName+    , crbrMetricName+    , crbrRateKey+    , crbrRateLimit+    , crbrChangeToken++    -- * Destructuring the Response+    , createRateBasedRuleResponse+    , CreateRateBasedRuleResponse+    -- * Response Lenses+    , crbrrsRule+    , crbrrsChangeToken+    , crbrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'createRateBasedRule' smart constructor.+data CreateRateBasedRule = CreateRateBasedRule'+  { _crbrName        :: !Text+  , _crbrMetricName  :: !Text+  , _crbrRateKey     :: !RateKey+  , _crbrRateLimit   :: !Nat+  , _crbrChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRateBasedRule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crbrName' - A friendly name or description of the 'RateBasedRule' . You can't change the name of a @RateBasedRule@ after you create it.+--+-- * 'crbrMetricName' - 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@ .+--+-- * 'crbrRateKey' - 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@ .+--+-- * 'crbrRateLimit' - 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.+--+-- * 'crbrChangeToken' - 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' .+createRateBasedRule+    :: Text -- ^ 'crbrName'+    -> Text -- ^ 'crbrMetricName'+    -> RateKey -- ^ 'crbrRateKey'+    -> Natural -- ^ 'crbrRateLimit'+    -> Text -- ^ 'crbrChangeToken'+    -> CreateRateBasedRule+createRateBasedRule pName_ pMetricName_ pRateKey_ pRateLimit_ pChangeToken_ =+  CreateRateBasedRule'+  { _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});++-- | 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});++-- | 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});++-- | 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;++-- | 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});++instance AWSRequest CreateRateBasedRule where+        type Rs CreateRateBasedRule =+             CreateRateBasedRuleResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 CreateRateBasedRuleResponse' <$>+                   (x .?> "Rule") <*> (x .?> "ChangeToken") <*>+                     (pure (fromEnum s)))++instance Hashable CreateRateBasedRule where++instance NFData CreateRateBasedRule where++instance ToHeaders CreateRateBasedRule where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.CreateRateBasedRule" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateRateBasedRule where+        toJSON CreateRateBasedRule'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _crbrName),+                  Just ("MetricName" .= _crbrMetricName),+                  Just ("RateKey" .= _crbrRateKey),+                  Just ("RateLimit" .= _crbrRateLimit),+                  Just ("ChangeToken" .= _crbrChangeToken)])++instance ToPath CreateRateBasedRule where+        toPath = const "/"++instance ToQuery CreateRateBasedRule where+        toQuery = const mempty++-- | /See:/ 'createRateBasedRuleResponse' smart constructor.+data CreateRateBasedRuleResponse = CreateRateBasedRuleResponse'+  { _crbrrsRule           :: !(Maybe RateBasedRule)+  , _crbrrsChangeToken    :: !(Maybe Text)+  , _crbrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRateBasedRuleResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crbrrsRule' - The 'RateBasedRule' that is returned in the @CreateRateBasedRule@ response.+--+-- * 'crbrrsChangeToken' - 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' .+--+-- * 'crbrrsResponseStatus' - -- | The response status code.+createRateBasedRuleResponse+    :: Int -- ^ 'crbrrsResponseStatus'+    -> CreateRateBasedRuleResponse+createRateBasedRuleResponse pResponseStatus_ =+  CreateRateBasedRuleResponse'+  { _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});++-- | 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});++-- | -- | The response status code.+crbrrsResponseStatus :: Lens' CreateRateBasedRuleResponse Int+crbrrsResponseStatus = lens _crbrrsResponseStatus (\ s a -> s{_crbrrsResponseStatus = a});++instance NFData CreateRateBasedRuleResponse where

@@ -0,0 +1,171 @@+{-# 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.WAF.CreateRegexMatchSet+-- Copyright   : (c) 2013-2017 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 'RegexMatchSet' . You then use 'UpdateRegexMatchSet' to identify the part of a web request that you want AWS WAF to inspect, such as the values of the @User-Agent@ header or the query string. For example, you can create a @RegexMatchSet@ that contains a @RegexMatchTuple@ that looks for any requests with @User-Agent@ headers that match a @RegexPatternSet@ with pattern @B[a@]dB[o0]t@ . You can then configure AWS WAF to reject those requests.+--+--+-- To create and configure a @RegexMatchSet@ , perform the following steps:+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @CreateRegexMatchSet@ request.+--+--     * Submit a @CreateRegexMatchSet@ request.+--+--     * Use @GetChangeToken@ to get the change token that you provide in the @ChangeToken@ parameter of an @UpdateRegexMatchSet@ request.+--+--     * Submit an 'UpdateRegexMatchSet' request to specify the part of the request that you want AWS WAF to inspect (for example, the header or the URI) and the value, using a @RegexPatternSet@ , that you want AWS WAF to watch for.+--+--+--+-- 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.WAF.CreateRegexMatchSet+    (+    -- * Creating a Request+      createRegexMatchSet+    , CreateRegexMatchSet+    -- * Request Lenses+    , crmsName+    , crmsChangeToken++    -- * Destructuring the Response+    , createRegexMatchSetResponse+    , CreateRegexMatchSetResponse+    -- * Response Lenses+    , crmsrsRegexMatchSet+    , crmsrsChangeToken+    , crmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'createRegexMatchSet' smart constructor.+data CreateRegexMatchSet = CreateRegexMatchSet'+  { _crmsName        :: !Text+  , _crmsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRegexMatchSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crmsName' - A friendly name or description of the 'RegexMatchSet' . You can't change @Name@ after you create a @RegexMatchSet@ .+--+-- * 'crmsChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+createRegexMatchSet+    :: Text -- ^ 'crmsName'+    -> Text -- ^ 'crmsChangeToken'+    -> CreateRegexMatchSet+createRegexMatchSet pName_ pChangeToken_ =+  CreateRegexMatchSet' {_crmsName = pName_, _crmsChangeToken = pChangeToken_}+++-- | 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});++-- | The value returned by the most recent call to 'GetChangeToken' .+crmsChangeToken :: Lens' CreateRegexMatchSet Text+crmsChangeToken = lens _crmsChangeToken (\ s a -> s{_crmsChangeToken = a});++instance AWSRequest CreateRegexMatchSet where+        type Rs CreateRegexMatchSet =+             CreateRegexMatchSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 CreateRegexMatchSetResponse' <$>+                   (x .?> "RegexMatchSet") <*> (x .?> "ChangeToken") <*>+                     (pure (fromEnum s)))++instance Hashable CreateRegexMatchSet where++instance NFData CreateRegexMatchSet where++instance ToHeaders CreateRegexMatchSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.CreateRegexMatchSet" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateRegexMatchSet where+        toJSON CreateRegexMatchSet'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _crmsName),+                  Just ("ChangeToken" .= _crmsChangeToken)])++instance ToPath CreateRegexMatchSet where+        toPath = const "/"++instance ToQuery CreateRegexMatchSet where+        toQuery = const mempty++-- | /See:/ 'createRegexMatchSetResponse' smart constructor.+data CreateRegexMatchSetResponse = CreateRegexMatchSetResponse'+  { _crmsrsRegexMatchSet  :: !(Maybe RegexMatchSet)+  , _crmsrsChangeToken    :: !(Maybe Text)+  , _crmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRegexMatchSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crmsrsRegexMatchSet' - A 'RegexMatchSet' that contains no @RegexMatchTuple@ objects.+--+-- * 'crmsrsChangeToken' - 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' .+--+-- * 'crmsrsResponseStatus' - -- | The response status code.+createRegexMatchSetResponse+    :: Int -- ^ 'crmsrsResponseStatus'+    -> CreateRegexMatchSetResponse+createRegexMatchSetResponse pResponseStatus_ =+  CreateRegexMatchSetResponse'+  { _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});++-- | 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});++-- | -- | The response status code.+crmsrsResponseStatus :: Lens' CreateRegexMatchSetResponse Int+crmsrsResponseStatus = lens _crmsrsResponseStatus (\ s a -> s{_crmsrsResponseStatus = a});++instance NFData CreateRegexMatchSetResponse where

@@ -0,0 +1,171 @@+{-# 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.WAF.CreateRegexPatternSet+-- Copyright   : (c) 2013-2017 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 @RegexPatternSet@ . You then use 'UpdateRegexPatternSet' to specify the regular expression (regex) pattern that you want AWS WAF to search for, such as @B[a@]dB[o0]t@ . You can then configure AWS WAF to reject those requests.+--+--+-- To create and configure a @RegexPatternSet@ , perform the following steps:+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @CreateRegexPatternSet@ request.+--+--     * Submit a @CreateRegexPatternSet@ request.+--+--     * Use @GetChangeToken@ to get the change token that you provide in the @ChangeToken@ parameter of an @UpdateRegexPatternSet@ request.+--+--     * Submit an 'UpdateRegexPatternSet' request to specify the string that you want AWS WAF to watch for.+--+--+--+-- 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.WAF.CreateRegexPatternSet+    (+    -- * Creating a Request+      createRegexPatternSet+    , CreateRegexPatternSet+    -- * Request Lenses+    , crpsName+    , crpsChangeToken++    -- * Destructuring the Response+    , createRegexPatternSetResponse+    , CreateRegexPatternSetResponse+    -- * Response Lenses+    , crpsrsRegexPatternSet+    , crpsrsChangeToken+    , crpsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'createRegexPatternSet' smart constructor.+data CreateRegexPatternSet = CreateRegexPatternSet'+  { _crpsName        :: !Text+  , _crpsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRegexPatternSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crpsName' - A friendly name or description of the 'RegexPatternSet' . You can't change @Name@ after you create a @RegexPatternSet@ .+--+-- * 'crpsChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+createRegexPatternSet+    :: Text -- ^ 'crpsName'+    -> Text -- ^ 'crpsChangeToken'+    -> CreateRegexPatternSet+createRegexPatternSet pName_ pChangeToken_ =+  CreateRegexPatternSet' {_crpsName = pName_, _crpsChangeToken = pChangeToken_}+++-- | 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});++-- | The value returned by the most recent call to 'GetChangeToken' .+crpsChangeToken :: Lens' CreateRegexPatternSet Text+crpsChangeToken = lens _crpsChangeToken (\ s a -> s{_crpsChangeToken = a});++instance AWSRequest CreateRegexPatternSet where+        type Rs CreateRegexPatternSet =+             CreateRegexPatternSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 CreateRegexPatternSetResponse' <$>+                   (x .?> "RegexPatternSet") <*> (x .?> "ChangeToken")+                     <*> (pure (fromEnum s)))++instance Hashable CreateRegexPatternSet where++instance NFData CreateRegexPatternSet where++instance ToHeaders CreateRegexPatternSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.CreateRegexPatternSet" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateRegexPatternSet where+        toJSON CreateRegexPatternSet'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _crpsName),+                  Just ("ChangeToken" .= _crpsChangeToken)])++instance ToPath CreateRegexPatternSet where+        toPath = const "/"++instance ToQuery CreateRegexPatternSet where+        toQuery = const mempty++-- | /See:/ 'createRegexPatternSetResponse' smart constructor.+data CreateRegexPatternSetResponse = CreateRegexPatternSetResponse'+  { _crpsrsRegexPatternSet :: !(Maybe RegexPatternSet)+  , _crpsrsChangeToken     :: !(Maybe Text)+  , _crpsrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateRegexPatternSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crpsrsRegexPatternSet' - A 'RegexPatternSet' that contains no objects.+--+-- * 'crpsrsChangeToken' - 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' .+--+-- * 'crpsrsResponseStatus' - -- | The response status code.+createRegexPatternSetResponse+    :: Int -- ^ 'crpsrsResponseStatus'+    -> CreateRegexPatternSetResponse+createRegexPatternSetResponse pResponseStatus_ =+  CreateRegexPatternSetResponse'+  { _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});++-- | 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});++-- | -- | The response status code.+crpsrsResponseStatus :: Lens' CreateRegexPatternSetResponse Int+crpsrsResponseStatus = lens _crpsrsResponseStatus (\ s a -> s{_crpsrsResponseStatus = a});++instance NFData CreateRegexPatternSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateRule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -66,20 +66,21 @@     , crrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'createRule' smart constructor. data CreateRule = CreateRule'-    { _crName        :: !Text-    , _crMetricName  :: !Text-    , _crChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crName        :: !Text+  , _crMetricName  :: !Text+  , _crChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,12 +96,13 @@     -> Text -- ^ 'crChangeToken'     -> CreateRule createRule pName_ pMetricName_ pChangeToken_ =-    CreateRule'-    { _crName = pName_-    , _crMetricName = pMetricName_-    , _crChangeToken = pChangeToken_-    }+  CreateRule'+  { _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});@@ -123,9 +125,9 @@                    (x .?> "Rule") <*> (x .?> "ChangeToken") <*>                      (pure (fromEnum s))) -instance Hashable CreateRule+instance Hashable CreateRule where -instance NFData CreateRule+instance NFData CreateRule where  instance ToHeaders CreateRule where         toHeaders@@ -152,11 +154,12 @@  -- | /See:/ 'createRuleResponse' smart constructor. data CreateRuleResponse = CreateRuleResponse'-    { _crrsRule           :: !(Maybe Rule)-    , _crrsChangeToken    :: !(Maybe Text)-    , _crrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrsRule           :: !(Maybe Rule)+  , _crrsChangeToken    :: !(Maybe Text)+  , _crrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -170,12 +173,13 @@     :: Int -- ^ 'crrsResponseStatus'     -> CreateRuleResponse createRuleResponse pResponseStatus_ =-    CreateRuleResponse'-    { _crrsRule = Nothing-    , _crrsChangeToken = Nothing-    , _crrsResponseStatus = pResponseStatus_-    }+  CreateRuleResponse'+  { _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});@@ -188,4 +192,4 @@ crrsResponseStatus :: Lens' CreateRuleResponse Int crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}); -instance NFData CreateRuleResponse+instance NFData CreateRuleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateSizeConstraintSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -53,19 +53,20 @@     , cscsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'createSizeConstraintSet' smart constructor. data CreateSizeConstraintSet = CreateSizeConstraintSet'-    { _cscsName        :: !Text-    , _cscsChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cscsName        :: !Text+  , _cscsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSizeConstraintSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +79,10 @@     -> Text -- ^ 'cscsChangeToken'     -> CreateSizeConstraintSet createSizeConstraintSet pName_ pChangeToken_ =-    CreateSizeConstraintSet'-    { _cscsName = pName_-    , _cscsChangeToken = pChangeToken_-    }+  CreateSizeConstraintSet'+  {_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});@@ -102,9 +102,9 @@                    (x .?> "SizeConstraintSet") <*> (x .?> "ChangeToken")                      <*> (pure (fromEnum s))) -instance Hashable CreateSizeConstraintSet+instance Hashable CreateSizeConstraintSet where -instance NFData CreateSizeConstraintSet+instance NFData CreateSizeConstraintSet where  instance ToHeaders CreateSizeConstraintSet where         toHeaders@@ -131,11 +131,12 @@  -- | /See:/ 'createSizeConstraintSetResponse' smart constructor. data CreateSizeConstraintSetResponse = CreateSizeConstraintSetResponse'-    { _cscsrsSizeConstraintSet :: !(Maybe SizeConstraintSet)-    , _cscsrsChangeToken       :: !(Maybe Text)-    , _cscsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cscsrsSizeConstraintSet :: !(Maybe SizeConstraintSet)+  , _cscsrsChangeToken       :: !(Maybe Text)+  , _cscsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSizeConstraintSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,12 +150,13 @@     :: Int -- ^ 'cscsrsResponseStatus'     -> CreateSizeConstraintSetResponse createSizeConstraintSetResponse pResponseStatus_ =-    CreateSizeConstraintSetResponse'-    { _cscsrsSizeConstraintSet = Nothing-    , _cscsrsChangeToken = Nothing-    , _cscsrsResponseStatus = pResponseStatus_-    }+  CreateSizeConstraintSetResponse'+  { _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});@@ -167,4 +169,4 @@ cscsrsResponseStatus :: Lens' CreateSizeConstraintSetResponse Int cscsrsResponseStatus = lens _cscsrsResponseStatus (\ s a -> s{_cscsrsResponseStatus = a}); -instance NFData CreateSizeConstraintSetResponse+instance NFData CreateSizeConstraintSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateSqlInjectionMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -53,12 +53,12 @@     , csimsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | A request to create a 'SqlInjectionMatchSet' . --@@ -66,10 +66,11 @@ -- -- /See:/ 'createSqlInjectionMatchSet' smart constructor. data CreateSqlInjectionMatchSet = CreateSqlInjectionMatchSet'-    { _csimsName        :: !Text-    , _csimsChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csimsName        :: !Text+  , _csimsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSqlInjectionMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,11 +83,10 @@     -> Text -- ^ 'csimsChangeToken'     -> CreateSqlInjectionMatchSet createSqlInjectionMatchSet pName_ pChangeToken_ =-    CreateSqlInjectionMatchSet'-    { _csimsName = pName_-    , _csimsChangeToken = pChangeToken_-    }+  CreateSqlInjectionMatchSet'+  {_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});@@ -107,9 +107,9 @@                      (x .?> "ChangeToken")                      <*> (pure (fromEnum s))) -instance Hashable CreateSqlInjectionMatchSet+instance Hashable CreateSqlInjectionMatchSet where -instance NFData CreateSqlInjectionMatchSet+instance NFData CreateSqlInjectionMatchSet where  instance ToHeaders CreateSqlInjectionMatchSet where         toHeaders@@ -140,11 +140,12 @@ -- -- /See:/ 'createSqlInjectionMatchSetResponse' smart constructor. data CreateSqlInjectionMatchSetResponse = CreateSqlInjectionMatchSetResponse'-    { _csimsrsSqlInjectionMatchSet :: !(Maybe SqlInjectionMatchSet)-    , _csimsrsChangeToken          :: !(Maybe Text)-    , _csimsrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csimsrsSqlInjectionMatchSet :: !(Maybe SqlInjectionMatchSet)+  , _csimsrsChangeToken          :: !(Maybe Text)+  , _csimsrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSqlInjectionMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -158,12 +159,13 @@     :: Int -- ^ 'csimsrsResponseStatus'     -> CreateSqlInjectionMatchSetResponse createSqlInjectionMatchSetResponse pResponseStatus_ =-    CreateSqlInjectionMatchSetResponse'-    { _csimsrsSqlInjectionMatchSet = Nothing-    , _csimsrsChangeToken = Nothing-    , _csimsrsResponseStatus = pResponseStatus_-    }+  CreateSqlInjectionMatchSetResponse'+  { _csimsrsSqlInjectionMatchSet = Nothing+  , _csimsrsChangeToken = Nothing+  , _csimsrsResponseStatus = pResponseStatus_+  } + -- | A 'SqlInjectionMatchSet' . csimsrsSqlInjectionMatchSet :: Lens' CreateSqlInjectionMatchSetResponse (Maybe SqlInjectionMatchSet) csimsrsSqlInjectionMatchSet = lens _csimsrsSqlInjectionMatchSet (\ s a -> s{_csimsrsSqlInjectionMatchSet = a});@@ -177,3 +179,4 @@ csimsrsResponseStatus = lens _csimsrsResponseStatus (\ s a -> s{_csimsrsResponseStatus = a});  instance NFData CreateSqlInjectionMatchSetResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateWebACL--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -61,21 +61,22 @@     , cwarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'createWebACL' smart constructor. data CreateWebACL = CreateWebACL'-    { _cwaName          :: !Text-    , _cwaMetricName    :: !Text-    , _cwaDefaultAction :: !WafAction-    , _cwaChangeToken   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cwaName          :: !Text+  , _cwaMetricName    :: !Text+  , _cwaDefaultAction :: !WafAction+  , _cwaChangeToken   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateWebACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,13 +95,14 @@     -> Text -- ^ 'cwaChangeToken'     -> CreateWebACL createWebACL pName_ pMetricName_ pDefaultAction_ pChangeToken_ =-    CreateWebACL'-    { _cwaName = pName_-    , _cwaMetricName = pMetricName_-    , _cwaDefaultAction = pDefaultAction_-    , _cwaChangeToken = pChangeToken_-    }+  CreateWebACL'+  { _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});@@ -127,9 +129,9 @@                    (x .?> "WebACL") <*> (x .?> "ChangeToken") <*>                      (pure (fromEnum s))) -instance Hashable CreateWebACL+instance Hashable CreateWebACL where -instance NFData CreateWebACL+instance NFData CreateWebACL where  instance ToHeaders CreateWebACL where         toHeaders@@ -157,11 +159,12 @@  -- | /See:/ 'createWebACLResponse' smart constructor. data CreateWebACLResponse = CreateWebACLResponse'-    { _cwarsWebACL         :: !(Maybe WebACL)-    , _cwarsChangeToken    :: !(Maybe Text)-    , _cwarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cwarsWebACL         :: !(Maybe WebACL)+  , _cwarsChangeToken    :: !(Maybe Text)+  , _cwarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateWebACLResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -175,12 +178,13 @@     :: Int -- ^ 'cwarsResponseStatus'     -> CreateWebACLResponse createWebACLResponse pResponseStatus_ =-    CreateWebACLResponse'-    { _cwarsWebACL = Nothing-    , _cwarsChangeToken = Nothing-    , _cwarsResponseStatus = pResponseStatus_-    }+  CreateWebACLResponse'+  { _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});@@ -193,4 +197,4 @@ cwarsResponseStatus :: Lens' CreateWebACLResponse Int cwarsResponseStatus = lens _cwarsResponseStatus (\ s a -> s{_cwarsResponseStatus = a}); -instance NFData CreateWebACLResponse+instance NFData CreateWebACLResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.CreateXSSMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -53,12 +53,12 @@     , cxmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | A request to create an 'XssMatchSet' . --@@ -66,10 +66,11 @@ -- -- /See:/ 'createXSSMatchSet' smart constructor. data CreateXSSMatchSet = CreateXSSMatchSet'-    { _cxmsName        :: !Text-    , _cxmsChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cxmsName        :: !Text+  , _cxmsChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateXSSMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,11 +83,9 @@     -> Text -- ^ 'cxmsChangeToken'     -> CreateXSSMatchSet createXSSMatchSet pName_ pChangeToken_ =-    CreateXSSMatchSet'-    { _cxmsName = pName_-    , _cxmsChangeToken = pChangeToken_-    }+  CreateXSSMatchSet' {_cxmsName = pName_, _cxmsChangeToken = pChangeToken_} + -- | 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});@@ -105,9 +104,9 @@                    (x .?> "XssMatchSet") <*> (x .?> "ChangeToken") <*>                      (pure (fromEnum s))) -instance Hashable CreateXSSMatchSet+instance Hashable CreateXSSMatchSet where -instance NFData CreateXSSMatchSet+instance NFData CreateXSSMatchSet where  instance ToHeaders CreateXSSMatchSet where         toHeaders@@ -137,11 +136,12 @@ -- -- /See:/ 'createXSSMatchSetResponse' smart constructor. data CreateXSSMatchSetResponse = CreateXSSMatchSetResponse'-    { _cxmsrsXSSMatchSet    :: !(Maybe XSSMatchSet)-    , _cxmsrsChangeToken    :: !(Maybe Text)-    , _cxmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cxmsrsXSSMatchSet    :: !(Maybe XSSMatchSet)+  , _cxmsrsChangeToken    :: !(Maybe Text)+  , _cxmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateXSSMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +155,13 @@     :: Int -- ^ 'cxmsrsResponseStatus'     -> CreateXSSMatchSetResponse createXSSMatchSetResponse pResponseStatus_ =-    CreateXSSMatchSetResponse'-    { _cxmsrsXSSMatchSet = Nothing-    , _cxmsrsChangeToken = Nothing-    , _cxmsrsResponseStatus = pResponseStatus_-    }+  CreateXSSMatchSetResponse'+  { _cxmsrsXSSMatchSet = Nothing+  , _cxmsrsChangeToken = Nothing+  , _cxmsrsResponseStatus = pResponseStatus_+  } + -- | An 'XssMatchSet' . cxmsrsXSSMatchSet :: Lens' CreateXSSMatchSetResponse (Maybe XSSMatchSet) cxmsrsXSSMatchSet = lens _cxmsrsXSSMatchSet (\ s a -> s{_cxmsrsXSSMatchSet = a});@@ -173,4 +174,4 @@ cxmsrsResponseStatus :: Lens' CreateXSSMatchSetResponse Int cxmsrsResponseStatus = lens _cxmsrsResponseStatus (\ s a -> s{_cxmsrsResponseStatus = a}); -instance NFData CreateXSSMatchSetResponse+instance NFData CreateXSSMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteByteMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,19 +50,20 @@     , dbmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'deleteByteMatchSet' smart constructor. data DeleteByteMatchSet = DeleteByteMatchSet'-    { _dbmsByteMatchSetId :: !Text-    , _dbmsChangeToken    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbmsByteMatchSetId :: !Text+  , _dbmsChangeToken    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteByteMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +76,10 @@     -> Text -- ^ 'dbmsChangeToken'     -> DeleteByteMatchSet deleteByteMatchSet pByteMatchSetId_ pChangeToken_ =-    DeleteByteMatchSet'-    { _dbmsByteMatchSetId = pByteMatchSetId_-    , _dbmsChangeToken = pChangeToken_-    }+  DeleteByteMatchSet'+  {_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});@@ -98,9 +98,9 @@                  DeleteByteMatchSetResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteByteMatchSet+instance Hashable DeleteByteMatchSet where -instance NFData DeleteByteMatchSet+instance NFData DeleteByteMatchSet where  instance ToHeaders DeleteByteMatchSet where         toHeaders@@ -126,10 +126,11 @@  -- | /See:/ 'deleteByteMatchSetResponse' smart constructor. data DeleteByteMatchSetResponse = DeleteByteMatchSetResponse'-    { _dbmsrsChangeToken    :: !(Maybe Text)-    , _dbmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbmsrsChangeToken    :: !(Maybe Text)+  , _dbmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteByteMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,11 +142,10 @@     :: Int -- ^ 'dbmsrsResponseStatus'     -> DeleteByteMatchSetResponse deleteByteMatchSetResponse pResponseStatus_ =-    DeleteByteMatchSetResponse'-    { _dbmsrsChangeToken = Nothing-    , _dbmsrsResponseStatus = pResponseStatus_-    }+  DeleteByteMatchSetResponse'+  {_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});@@ -154,4 +154,4 @@ dbmsrsResponseStatus :: Lens' DeleteByteMatchSetResponse Int dbmsrsResponseStatus = lens _dbmsrsResponseStatus (\ s a -> s{_dbmsrsResponseStatus = a}); -instance NFData DeleteByteMatchSetResponse+instance NFData DeleteByteMatchSetResponse where

@@ -0,0 +1,156 @@+{-# 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.WAF.DeleteGeoMatchSet+-- Copyright   : (c) 2013-2017 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 'GeoMatchSet' . You can't delete a @GeoMatchSet@ if it's still used in any @Rules@ or if it still includes any countries.+--+--+-- If you just want to remove a @GeoMatchSet@ from a @Rule@ , use 'UpdateRule' .+--+-- To permanently delete a @GeoMatchSet@ from AWS WAF, perform the following steps:+--+--     * Update the @GeoMatchSet@ to remove any countries. For more information, see 'UpdateGeoMatchSet' .+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @DeleteGeoMatchSet@ request.+--+--     * Submit a @DeleteGeoMatchSet@ request.+--+--+--+module Network.AWS.WAF.DeleteGeoMatchSet+    (+    -- * Creating a Request+      deleteGeoMatchSet+    , DeleteGeoMatchSet+    -- * Request Lenses+    , dgmsGeoMatchSetId+    , dgmsChangeToken++    -- * Destructuring the Response+    , deleteGeoMatchSetResponse+    , DeleteGeoMatchSetResponse+    -- * Response Lenses+    , dgmsrsChangeToken+    , dgmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'deleteGeoMatchSet' smart constructor.+data DeleteGeoMatchSet = DeleteGeoMatchSet'+  { _dgmsGeoMatchSetId :: !Text+  , _dgmsChangeToken   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteGeoMatchSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dgmsGeoMatchSetId' - The @GeoMatchSetID@ of the 'GeoMatchSet' that you want to delete. @GeoMatchSetId@ is returned by 'CreateGeoMatchSet' and by 'ListGeoMatchSets' .+--+-- * 'dgmsChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+deleteGeoMatchSet+    :: Text -- ^ 'dgmsGeoMatchSetId'+    -> Text -- ^ 'dgmsChangeToken'+    -> DeleteGeoMatchSet+deleteGeoMatchSet pGeoMatchSetId_ pChangeToken_ =+  DeleteGeoMatchSet'+  {_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});++-- | The value returned by the most recent call to 'GetChangeToken' .+dgmsChangeToken :: Lens' DeleteGeoMatchSet Text+dgmsChangeToken = lens _dgmsChangeToken (\ s a -> s{_dgmsChangeToken = a});++instance AWSRequest DeleteGeoMatchSet where+        type Rs DeleteGeoMatchSet = DeleteGeoMatchSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 DeleteGeoMatchSetResponse' <$>+                   (x .?> "ChangeToken") <*> (pure (fromEnum s)))++instance Hashable DeleteGeoMatchSet where++instance NFData DeleteGeoMatchSet where++instance ToHeaders DeleteGeoMatchSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.DeleteGeoMatchSet" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteGeoMatchSet where+        toJSON DeleteGeoMatchSet'{..}+          = object+              (catMaybes+                 [Just ("GeoMatchSetId" .= _dgmsGeoMatchSetId),+                  Just ("ChangeToken" .= _dgmsChangeToken)])++instance ToPath DeleteGeoMatchSet where+        toPath = const "/"++instance ToQuery DeleteGeoMatchSet where+        toQuery = const mempty++-- | /See:/ 'deleteGeoMatchSetResponse' smart constructor.+data DeleteGeoMatchSetResponse = DeleteGeoMatchSetResponse'+  { _dgmsrsChangeToken    :: !(Maybe Text)+  , _dgmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteGeoMatchSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dgmsrsChangeToken' - 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' .+--+-- * 'dgmsrsResponseStatus' - -- | The response status code.+deleteGeoMatchSetResponse+    :: Int -- ^ 'dgmsrsResponseStatus'+    -> DeleteGeoMatchSetResponse+deleteGeoMatchSetResponse pResponseStatus_ =+  DeleteGeoMatchSetResponse'+  {_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});++-- | -- | The response status code.+dgmsrsResponseStatus :: Lens' DeleteGeoMatchSetResponse Int+dgmsrsResponseStatus = lens _dgmsrsResponseStatus (\ s a -> s{_dgmsrsResponseStatus = a});++instance NFData DeleteGeoMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteIPSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,19 +50,20 @@     , disrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'deleteIPSet' smart constructor. data DeleteIPSet = DeleteIPSet'-    { _disIPSetId     :: !Text-    , _disChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _disIPSetId     :: !Text+  , _disChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIPSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +76,9 @@     -> Text -- ^ 'disChangeToken'     -> DeleteIPSet deleteIPSet pIPSetId_ pChangeToken_ =-    DeleteIPSet'-    { _disIPSetId = pIPSetId_-    , _disChangeToken = pChangeToken_-    }+  DeleteIPSet' {_disIPSetId = pIPSetId_, _disChangeToken = pChangeToken_} + -- | 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});@@ -97,9 +96,9 @@                  DeleteIPSetResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteIPSet+instance Hashable DeleteIPSet where -instance NFData DeleteIPSet+instance NFData DeleteIPSet where  instance ToHeaders DeleteIPSet where         toHeaders@@ -125,10 +124,11 @@  -- | /See:/ 'deleteIPSetResponse' smart constructor. data DeleteIPSetResponse = DeleteIPSetResponse'-    { _disrsChangeToken    :: !(Maybe Text)-    , _disrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _disrsChangeToken    :: !(Maybe Text)+  , _disrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIPSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,11 +140,10 @@     :: Int -- ^ 'disrsResponseStatus'     -> DeleteIPSetResponse deleteIPSetResponse pResponseStatus_ =-    DeleteIPSetResponse'-    { _disrsChangeToken = Nothing-    , _disrsResponseStatus = pResponseStatus_-    }+  DeleteIPSetResponse'+  {_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});@@ -153,4 +152,4 @@ disrsResponseStatus :: Lens' DeleteIPSetResponse Int disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a}); -instance NFData DeleteIPSetResponse+instance NFData DeleteIPSetResponse where

@@ -0,0 +1,158 @@+{-# 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.WAF.DeleteRateBasedRule+-- Copyright   : (c) 2013-2017 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 'RateBasedRule' . You can't delete a rule if it's still used in any @WebACL@ objects or if it still includes any predicates, such as @ByteMatchSet@ objects.+--+--+-- If you just want to remove a rule from a @WebACL@ , use 'UpdateWebACL' .+--+-- To permanently delete a @RateBasedRule@ from AWS WAF, perform the following steps:+--+--     * Update the @RateBasedRule@ to remove predicates, if any. For more information, see 'UpdateRateBasedRule' .+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @DeleteRateBasedRule@ request.+--+--     * Submit a @DeleteRateBasedRule@ request.+--+--+--+module Network.AWS.WAF.DeleteRateBasedRule+    (+    -- * Creating a Request+      deleteRateBasedRule+    , DeleteRateBasedRule+    -- * Request Lenses+    , drbrRuleId+    , drbrChangeToken++    -- * Destructuring the Response+    , deleteRateBasedRuleResponse+    , DeleteRateBasedRuleResponse+    -- * Response Lenses+    , drbrrsChangeToken+    , drbrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'deleteRateBasedRule' smart constructor.+data DeleteRateBasedRule = DeleteRateBasedRule'+  { _drbrRuleId      :: !Text+  , _drbrChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRateBasedRule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drbrRuleId' - The @RuleId@ of the 'RateBasedRule' that you want to delete. @RuleId@ is returned by 'CreateRateBasedRule' and by 'ListRateBasedRules' .+--+-- * 'drbrChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+deleteRateBasedRule+    :: Text -- ^ 'drbrRuleId'+    -> Text -- ^ 'drbrChangeToken'+    -> DeleteRateBasedRule+deleteRateBasedRule pRuleId_ pChangeToken_ =+  DeleteRateBasedRule'+  {_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});++-- | The value returned by the most recent call to 'GetChangeToken' .+drbrChangeToken :: Lens' DeleteRateBasedRule Text+drbrChangeToken = lens _drbrChangeToken (\ s a -> s{_drbrChangeToken = a});++instance AWSRequest DeleteRateBasedRule where+        type Rs DeleteRateBasedRule =+             DeleteRateBasedRuleResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 DeleteRateBasedRuleResponse' <$>+                   (x .?> "ChangeToken") <*> (pure (fromEnum s)))++instance Hashable DeleteRateBasedRule where++instance NFData DeleteRateBasedRule where++instance ToHeaders DeleteRateBasedRule where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.DeleteRateBasedRule" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteRateBasedRule where+        toJSON DeleteRateBasedRule'{..}+          = object+              (catMaybes+                 [Just ("RuleId" .= _drbrRuleId),+                  Just ("ChangeToken" .= _drbrChangeToken)])++instance ToPath DeleteRateBasedRule where+        toPath = const "/"++instance ToQuery DeleteRateBasedRule where+        toQuery = const mempty++-- | /See:/ 'deleteRateBasedRuleResponse' smart constructor.+data DeleteRateBasedRuleResponse = DeleteRateBasedRuleResponse'+  { _drbrrsChangeToken    :: !(Maybe Text)+  , _drbrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRateBasedRuleResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drbrrsChangeToken' - 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' .+--+-- * 'drbrrsResponseStatus' - -- | The response status code.+deleteRateBasedRuleResponse+    :: Int -- ^ 'drbrrsResponseStatus'+    -> DeleteRateBasedRuleResponse+deleteRateBasedRuleResponse pResponseStatus_ =+  DeleteRateBasedRuleResponse'+  {_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});++-- | -- | The response status code.+drbrrsResponseStatus :: Lens' DeleteRateBasedRuleResponse Int+drbrrsResponseStatus = lens _drbrrsResponseStatus (\ s a -> s{_drbrrsResponseStatus = a});++instance NFData DeleteRateBasedRuleResponse where

@@ -0,0 +1,158 @@+{-# 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.WAF.DeleteRegexMatchSet+-- Copyright   : (c) 2013-2017 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 'RegexMatchSet' . You can't delete a @RegexMatchSet@ if it's still used in any @Rules@ or if it still includes any @RegexMatchTuples@ objects (any filters).+--+--+-- If you just want to remove a @RegexMatchSet@ from a @Rule@ , use 'UpdateRule' .+--+-- To permanently delete a @RegexMatchSet@ , perform the following steps:+--+--     * Update the @RegexMatchSet@ to remove filters, if any. For more information, see 'UpdateRegexMatchSet' .+--+--     * Use 'GetChangeToken' to get the change token that you provide in the @ChangeToken@ parameter of a @DeleteRegexMatchSet@ request.+--+--     * Submit a @DeleteRegexMatchSet@ request.+--+--+--+module Network.AWS.WAF.DeleteRegexMatchSet+    (+    -- * Creating a Request+      deleteRegexMatchSet+    , DeleteRegexMatchSet+    -- * Request Lenses+    , drmsRegexMatchSetId+    , drmsChangeToken++    -- * Destructuring the Response+    , deleteRegexMatchSetResponse+    , DeleteRegexMatchSetResponse+    -- * Response Lenses+    , drmsrsChangeToken+    , drmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'deleteRegexMatchSet' smart constructor.+data DeleteRegexMatchSet = DeleteRegexMatchSet'+  { _drmsRegexMatchSetId :: !Text+  , _drmsChangeToken     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRegexMatchSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drmsRegexMatchSetId' - The @RegexMatchSetId@ of the 'RegexMatchSet' that you want to delete. @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' .+--+-- * 'drmsChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+deleteRegexMatchSet+    :: Text -- ^ 'drmsRegexMatchSetId'+    -> Text -- ^ 'drmsChangeToken'+    -> DeleteRegexMatchSet+deleteRegexMatchSet pRegexMatchSetId_ pChangeToken_ =+  DeleteRegexMatchSet'+  {_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});++-- | The value returned by the most recent call to 'GetChangeToken' .+drmsChangeToken :: Lens' DeleteRegexMatchSet Text+drmsChangeToken = lens _drmsChangeToken (\ s a -> s{_drmsChangeToken = a});++instance AWSRequest DeleteRegexMatchSet where+        type Rs DeleteRegexMatchSet =+             DeleteRegexMatchSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 DeleteRegexMatchSetResponse' <$>+                   (x .?> "ChangeToken") <*> (pure (fromEnum s)))++instance Hashable DeleteRegexMatchSet where++instance NFData DeleteRegexMatchSet where++instance ToHeaders DeleteRegexMatchSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.DeleteRegexMatchSet" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteRegexMatchSet where+        toJSON DeleteRegexMatchSet'{..}+          = object+              (catMaybes+                 [Just ("RegexMatchSetId" .= _drmsRegexMatchSetId),+                  Just ("ChangeToken" .= _drmsChangeToken)])++instance ToPath DeleteRegexMatchSet where+        toPath = const "/"++instance ToQuery DeleteRegexMatchSet where+        toQuery = const mempty++-- | /See:/ 'deleteRegexMatchSetResponse' smart constructor.+data DeleteRegexMatchSetResponse = DeleteRegexMatchSetResponse'+  { _drmsrsChangeToken    :: !(Maybe Text)+  , _drmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRegexMatchSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drmsrsChangeToken' - 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' .+--+-- * 'drmsrsResponseStatus' - -- | The response status code.+deleteRegexMatchSetResponse+    :: Int -- ^ 'drmsrsResponseStatus'+    -> DeleteRegexMatchSetResponse+deleteRegexMatchSetResponse pResponseStatus_ =+  DeleteRegexMatchSetResponse'+  {_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});++-- | -- | The response status code.+drmsrsResponseStatus :: Lens' DeleteRegexMatchSetResponse Int+drmsrsResponseStatus = lens _drmsrsResponseStatus (\ s a -> s{_drmsrsResponseStatus = a});++instance NFData DeleteRegexMatchSetResponse where

@@ -0,0 +1,149 @@+{-# 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.WAF.DeleteRegexPatternSet+-- Copyright   : (c) 2013-2017 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 'RegexPatternSet' . You can't delete a @RegexPatternSet@ if it's still used in any @RegexMatchSet@ or if the @RegexPatternSet@ is not empty.+--+--+module Network.AWS.WAF.DeleteRegexPatternSet+    (+    -- * Creating a Request+      deleteRegexPatternSet+    , DeleteRegexPatternSet+    -- * Request Lenses+    , drpsRegexPatternSetId+    , drpsChangeToken++    -- * Destructuring the Response+    , deleteRegexPatternSetResponse+    , DeleteRegexPatternSetResponse+    -- * Response Lenses+    , drpsrsChangeToken+    , drpsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'deleteRegexPatternSet' smart constructor.+data DeleteRegexPatternSet = DeleteRegexPatternSet'+  { _drpsRegexPatternSetId :: !Text+  , _drpsChangeToken       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRegexPatternSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drpsRegexPatternSetId' - The @RegexPatternSetId@ of the 'RegexPatternSet' that you want to delete. @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' .+--+-- * 'drpsChangeToken' - The value returned by the most recent call to 'GetChangeToken' .+deleteRegexPatternSet+    :: Text -- ^ 'drpsRegexPatternSetId'+    -> Text -- ^ 'drpsChangeToken'+    -> DeleteRegexPatternSet+deleteRegexPatternSet pRegexPatternSetId_ pChangeToken_ =+  DeleteRegexPatternSet'+  { _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});++-- | The value returned by the most recent call to 'GetChangeToken' .+drpsChangeToken :: Lens' DeleteRegexPatternSet Text+drpsChangeToken = lens _drpsChangeToken (\ s a -> s{_drpsChangeToken = a});++instance AWSRequest DeleteRegexPatternSet where+        type Rs DeleteRegexPatternSet =+             DeleteRegexPatternSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 DeleteRegexPatternSetResponse' <$>+                   (x .?> "ChangeToken") <*> (pure (fromEnum s)))++instance Hashable DeleteRegexPatternSet where++instance NFData DeleteRegexPatternSet where++instance ToHeaders DeleteRegexPatternSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.DeleteRegexPatternSet" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteRegexPatternSet where+        toJSON DeleteRegexPatternSet'{..}+          = object+              (catMaybes+                 [Just+                    ("RegexPatternSetId" .= _drpsRegexPatternSetId),+                  Just ("ChangeToken" .= _drpsChangeToken)])++instance ToPath DeleteRegexPatternSet where+        toPath = const "/"++instance ToQuery DeleteRegexPatternSet where+        toQuery = const mempty++-- | /See:/ 'deleteRegexPatternSetResponse' smart constructor.+data DeleteRegexPatternSetResponse = DeleteRegexPatternSetResponse'+  { _drpsrsChangeToken    :: !(Maybe Text)+  , _drpsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteRegexPatternSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drpsrsChangeToken' - 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' .+--+-- * 'drpsrsResponseStatus' - -- | The response status code.+deleteRegexPatternSetResponse+    :: Int -- ^ 'drpsrsResponseStatus'+    -> DeleteRegexPatternSetResponse+deleteRegexPatternSetResponse pResponseStatus_ =+  DeleteRegexPatternSetResponse'+  {_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});++-- | -- | The response status code.+drpsrsResponseStatus :: Lens' DeleteRegexPatternSetResponse Int+drpsrsResponseStatus = lens _drpsrsResponseStatus (\ s a -> s{_drpsrsResponseStatus = a});++instance NFData DeleteRegexPatternSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteRule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,19 +50,20 @@     , drrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'deleteRule' smart constructor. data DeleteRule = DeleteRule'-    { _drRuleId      :: !Text-    , _drChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drRuleId      :: !Text+  , _drChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +76,9 @@     -> Text -- ^ 'drChangeToken'     -> DeleteRule deleteRule pRuleId_ pChangeToken_ =-    DeleteRule'-    { _drRuleId = pRuleId_-    , _drChangeToken = pChangeToken_-    }+  DeleteRule' {_drRuleId = pRuleId_, _drChangeToken = pChangeToken_} + -- | 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});@@ -97,9 +96,9 @@                  DeleteRuleResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteRule+instance Hashable DeleteRule where -instance NFData DeleteRule+instance NFData DeleteRule where  instance ToHeaders DeleteRule where         toHeaders@@ -125,10 +124,11 @@  -- | /See:/ 'deleteRuleResponse' smart constructor. data DeleteRuleResponse = DeleteRuleResponse'-    { _drrsChangeToken    :: !(Maybe Text)-    , _drrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drrsChangeToken    :: !(Maybe Text)+  , _drrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,11 +140,10 @@     :: Int -- ^ 'drrsResponseStatus'     -> DeleteRuleResponse deleteRuleResponse pResponseStatus_ =-    DeleteRuleResponse'-    { _drrsChangeToken = Nothing-    , _drrsResponseStatus = pResponseStatus_-    }+  DeleteRuleResponse'+  {_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});@@ -153,4 +152,4 @@ drrsResponseStatus :: Lens' DeleteRuleResponse Int drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a}); -instance NFData DeleteRuleResponse+instance NFData DeleteRuleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteSizeConstraintSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,19 +50,20 @@     , dscsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'deleteSizeConstraintSet' smart constructor. data DeleteSizeConstraintSet = DeleteSizeConstraintSet'-    { _dscsSizeConstraintSetId :: !Text-    , _dscsChangeToken         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dscsSizeConstraintSetId :: !Text+  , _dscsChangeToken         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSizeConstraintSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +76,12 @@     -> Text -- ^ 'dscsChangeToken'     -> DeleteSizeConstraintSet deleteSizeConstraintSet pSizeConstraintSetId_ pChangeToken_ =-    DeleteSizeConstraintSet'-    { _dscsSizeConstraintSetId = pSizeConstraintSetId_-    , _dscsChangeToken = pChangeToken_-    }+  DeleteSizeConstraintSet'+  { _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});@@ -98,9 +100,9 @@                  DeleteSizeConstraintSetResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteSizeConstraintSet+instance Hashable DeleteSizeConstraintSet where -instance NFData DeleteSizeConstraintSet+instance NFData DeleteSizeConstraintSet where  instance ToHeaders DeleteSizeConstraintSet where         toHeaders@@ -128,10 +130,11 @@  -- | /See:/ 'deleteSizeConstraintSetResponse' smart constructor. data DeleteSizeConstraintSetResponse = DeleteSizeConstraintSetResponse'-    { _dscsrsChangeToken    :: !(Maybe Text)-    , _dscsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dscsrsChangeToken    :: !(Maybe Text)+  , _dscsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSizeConstraintSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,11 +146,10 @@     :: Int -- ^ 'dscsrsResponseStatus'     -> DeleteSizeConstraintSetResponse deleteSizeConstraintSetResponse pResponseStatus_ =-    DeleteSizeConstraintSetResponse'-    { _dscsrsChangeToken = Nothing-    , _dscsrsResponseStatus = pResponseStatus_-    }+  DeleteSizeConstraintSetResponse'+  {_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});@@ -156,4 +158,4 @@ dscsrsResponseStatus :: Lens' DeleteSizeConstraintSetResponse Int dscsrsResponseStatus = lens _dscsrsResponseStatus (\ s a -> s{_dscsrsResponseStatus = a}); -instance NFData DeleteSizeConstraintSetResponse+instance NFData DeleteSizeConstraintSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteSqlInjectionMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,12 +50,12 @@     , dsimsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | A request to delete a 'SqlInjectionMatchSet' from AWS WAF. --@@ -63,10 +63,11 @@ -- -- /See:/ 'deleteSqlInjectionMatchSet' smart constructor. data DeleteSqlInjectionMatchSet = DeleteSqlInjectionMatchSet'-    { _dsimsSqlInjectionMatchSetId :: !Text-    , _dsimsChangeToken            :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsimsSqlInjectionMatchSetId :: !Text+  , _dsimsChangeToken            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSqlInjectionMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +80,12 @@     -> Text -- ^ 'dsimsChangeToken'     -> DeleteSqlInjectionMatchSet deleteSqlInjectionMatchSet pSqlInjectionMatchSetId_ pChangeToken_ =-    DeleteSqlInjectionMatchSet'-    { _dsimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_-    , _dsimsChangeToken = pChangeToken_-    }+  DeleteSqlInjectionMatchSet'+  { _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});@@ -102,9 +104,9 @@                  DeleteSqlInjectionMatchSetResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteSqlInjectionMatchSet+instance Hashable DeleteSqlInjectionMatchSet where -instance NFData DeleteSqlInjectionMatchSet+instance NFData DeleteSqlInjectionMatchSet where  instance ToHeaders DeleteSqlInjectionMatchSet where         toHeaders@@ -137,10 +139,11 @@ -- -- /See:/ 'deleteSqlInjectionMatchSetResponse' smart constructor. data DeleteSqlInjectionMatchSetResponse = DeleteSqlInjectionMatchSetResponse'-    { _dsimsrsChangeToken    :: !(Maybe Text)-    , _dsimsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsimsrsChangeToken    :: !(Maybe Text)+  , _dsimsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSqlInjectionMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,11 +155,10 @@     :: Int -- ^ 'dsimsrsResponseStatus'     -> DeleteSqlInjectionMatchSetResponse deleteSqlInjectionMatchSetResponse pResponseStatus_ =-    DeleteSqlInjectionMatchSetResponse'-    { _dsimsrsChangeToken = Nothing-    , _dsimsrsResponseStatus = pResponseStatus_-    }+  DeleteSqlInjectionMatchSetResponse'+  {_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});@@ -166,3 +168,4 @@ dsimsrsResponseStatus = lens _dsimsrsResponseStatus (\ s a -> s{_dsimsrsResponseStatus = a});  instance NFData DeleteSqlInjectionMatchSetResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteWebACL--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,19 +48,20 @@     , dwarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'deleteWebACL' smart constructor. data DeleteWebACL = DeleteWebACL'-    { _dwaWebACLId    :: !Text-    , _dwaChangeToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwaWebACLId    :: !Text+  , _dwaChangeToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteWebACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,11 +74,9 @@     -> Text -- ^ 'dwaChangeToken'     -> DeleteWebACL deleteWebACL pWebACLId_ pChangeToken_ =-    DeleteWebACL'-    { _dwaWebACLId = pWebACLId_-    , _dwaChangeToken = pChangeToken_-    }+  DeleteWebACL' {_dwaWebACLId = pWebACLId_, _dwaChangeToken = pChangeToken_} + -- | 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});@@ -95,9 +94,9 @@                  DeleteWebACLResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteWebACL+instance Hashable DeleteWebACL where -instance NFData DeleteWebACL+instance NFData DeleteWebACL where  instance ToHeaders DeleteWebACL where         toHeaders@@ -123,10 +122,11 @@  -- | /See:/ 'deleteWebACLResponse' smart constructor. data DeleteWebACLResponse = DeleteWebACLResponse'-    { _dwarsChangeToken    :: !(Maybe Text)-    , _dwarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwarsChangeToken    :: !(Maybe Text)+  , _dwarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteWebACLResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,11 +138,10 @@     :: Int -- ^ 'dwarsResponseStatus'     -> DeleteWebACLResponse deleteWebACLResponse pResponseStatus_ =-    DeleteWebACLResponse'-    { _dwarsChangeToken = Nothing-    , _dwarsResponseStatus = pResponseStatus_-    }+  DeleteWebACLResponse'+  {_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});@@ -151,4 +150,4 @@ dwarsResponseStatus :: Lens' DeleteWebACLResponse Int dwarsResponseStatus = lens _dwarsResponseStatus (\ s a -> s{_dwarsResponseStatus = a}); -instance NFData DeleteWebACLResponse+instance NFData DeleteWebACLResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.DeleteXSSMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,12 +50,12 @@     , dxmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | A request to delete an 'XssMatchSet' from AWS WAF. --@@ -63,10 +63,11 @@ -- -- /See:/ 'deleteXSSMatchSet' smart constructor. data DeleteXSSMatchSet = DeleteXSSMatchSet'-    { _dxmsXSSMatchSetId :: !Text-    , _dxmsChangeToken   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dxmsXSSMatchSetId :: !Text+  , _dxmsChangeToken   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteXSSMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +80,10 @@     -> Text -- ^ 'dxmsChangeToken'     -> DeleteXSSMatchSet deleteXSSMatchSet pXSSMatchSetId_ pChangeToken_ =-    DeleteXSSMatchSet'-    { _dxmsXSSMatchSetId = pXSSMatchSetId_-    , _dxmsChangeToken = pChangeToken_-    }+  DeleteXSSMatchSet'+  {_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});@@ -101,9 +101,9 @@                  DeleteXSSMatchSetResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable DeleteXSSMatchSet+instance Hashable DeleteXSSMatchSet where -instance NFData DeleteXSSMatchSet+instance NFData DeleteXSSMatchSet where  instance ToHeaders DeleteXSSMatchSet where         toHeaders@@ -133,10 +133,11 @@ -- -- /See:/ 'deleteXSSMatchSetResponse' smart constructor. data DeleteXSSMatchSetResponse = DeleteXSSMatchSetResponse'-    { _dxmsrsChangeToken    :: !(Maybe Text)-    , _dxmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dxmsrsChangeToken    :: !(Maybe Text)+  , _dxmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteXSSMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,11 +149,10 @@     :: Int -- ^ 'dxmsrsResponseStatus'     -> DeleteXSSMatchSetResponse deleteXSSMatchSetResponse pResponseStatus_ =-    DeleteXSSMatchSetResponse'-    { _dxmsrsChangeToken = Nothing-    , _dxmsrsResponseStatus = pResponseStatus_-    }+  DeleteXSSMatchSetResponse'+  {_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});@@ -161,4 +161,4 @@ dxmsrsResponseStatus :: Lens' DeleteXSSMatchSetResponse Int dxmsrsResponseStatus = lens _dxmsrsResponseStatus (\ s a -> s{_dxmsrsResponseStatus = a}); -instance NFData DeleteXSSMatchSetResponse+instance NFData DeleteXSSMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetByteMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,18 +37,19 @@     , gbmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getByteMatchSet' smart constructor. newtype GetByteMatchSet = GetByteMatchSet'-    { _gbmsByteMatchSetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbmsByteMatchSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetByteMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,10 +59,9 @@     :: Text -- ^ 'gbmsByteMatchSetId'     -> GetByteMatchSet getByteMatchSet pByteMatchSetId_ =-    GetByteMatchSet'-    { _gbmsByteMatchSetId = pByteMatchSetId_-    }+  GetByteMatchSet' {_gbmsByteMatchSetId = pByteMatchSetId_} + -- | 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});@@ -75,9 +75,9 @@                  GetByteMatchSetResponse' <$>                    (x .?> "ByteMatchSet") <*> (pure (fromEnum s))) -instance Hashable GetByteMatchSet+instance Hashable GetByteMatchSet where -instance NFData GetByteMatchSet+instance NFData GetByteMatchSet where  instance ToHeaders GetByteMatchSet where         toHeaders@@ -102,10 +102,11 @@  -- | /See:/ 'getByteMatchSetResponse' smart constructor. data GetByteMatchSetResponse = GetByteMatchSetResponse'-    { _gbmsrsByteMatchSet   :: !(Maybe ByteMatchSet)-    , _gbmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbmsrsByteMatchSet   :: !(Maybe ByteMatchSet)+  , _gbmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetByteMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -117,11 +118,10 @@     :: Int -- ^ 'gbmsrsResponseStatus'     -> GetByteMatchSetResponse getByteMatchSetResponse pResponseStatus_ =-    GetByteMatchSetResponse'-    { _gbmsrsByteMatchSet = Nothing-    , _gbmsrsResponseStatus = pResponseStatus_-    }+  GetByteMatchSetResponse'+  {_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});@@ -130,4 +130,4 @@ gbmsrsResponseStatus :: Lens' GetByteMatchSetResponse Int gbmsrsResponseStatus = lens _gbmsrsResponseStatus (\ s a -> s{_gbmsrsResponseStatus = a}); -instance NFData GetByteMatchSetResponse+instance NFData GetByteMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetChangeToken--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,24 +39,26 @@     , gctrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getChangeToken' smart constructor. data GetChangeToken =-    GetChangeToken'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetChangeToken'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetChangeToken' with the minimum fields required to make a request. -- getChangeToken     :: GetChangeToken getChangeToken = GetChangeToken' + instance AWSRequest GetChangeToken where         type Rs GetChangeToken = GetChangeTokenResponse         request = postJSON waf@@ -66,9 +68,9 @@                  GetChangeTokenResponse' <$>                    (x .?> "ChangeToken") <*> (pure (fromEnum s))) -instance Hashable GetChangeToken+instance Hashable GetChangeToken where -instance NFData GetChangeToken+instance NFData GetChangeToken where  instance ToHeaders GetChangeToken where         toHeaders@@ -90,10 +92,11 @@  -- | /See:/ 'getChangeTokenResponse' smart constructor. data GetChangeTokenResponse = GetChangeTokenResponse'-    { _gctrsChangeToken    :: !(Maybe Text)-    , _gctrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gctrsChangeToken    :: !(Maybe Text)+  , _gctrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetChangeTokenResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +108,10 @@     :: Int -- ^ 'gctrsResponseStatus'     -> GetChangeTokenResponse getChangeTokenResponse pResponseStatus_ =-    GetChangeTokenResponse'-    { _gctrsChangeToken = Nothing-    , _gctrsResponseStatus = pResponseStatus_-    }+  GetChangeTokenResponse'+  {_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});@@ -118,4 +120,4 @@ gctrsResponseStatus :: Lens' GetChangeTokenResponse Int gctrsResponseStatus = lens _gctrsResponseStatus (\ s a -> s{_gctrsResponseStatus = a}); -instance NFData GetChangeTokenResponse+instance NFData GetChangeTokenResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetChangeTokenStatus--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,18 +45,19 @@     , gctsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getChangeTokenStatus' smart constructor. newtype GetChangeTokenStatus = GetChangeTokenStatus'-    { _gctsChangeToken :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gctsChangeToken :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetChangeTokenStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@     :: Text -- ^ 'gctsChangeToken'     -> GetChangeTokenStatus getChangeTokenStatus pChangeToken_ =-    GetChangeTokenStatus'-    { _gctsChangeToken = pChangeToken_-    }+  GetChangeTokenStatus' {_gctsChangeToken = pChangeToken_} + -- | 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});@@ -84,9 +84,9 @@                  GetChangeTokenStatusResponse' <$>                    (x .?> "ChangeTokenStatus") <*> (pure (fromEnum s))) -instance Hashable GetChangeTokenStatus+instance Hashable GetChangeTokenStatus where -instance NFData GetChangeTokenStatus+instance NFData GetChangeTokenStatus where  instance ToHeaders GetChangeTokenStatus where         toHeaders@@ -112,10 +112,11 @@  -- | /See:/ 'getChangeTokenStatusResponse' smart constructor. data GetChangeTokenStatusResponse = GetChangeTokenStatusResponse'-    { _gctsrsChangeTokenStatus :: !(Maybe ChangeTokenStatus)-    , _gctsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gctsrsChangeTokenStatus :: !(Maybe ChangeTokenStatus)+  , _gctsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetChangeTokenStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +128,10 @@     :: Int -- ^ 'gctsrsResponseStatus'     -> GetChangeTokenStatusResponse getChangeTokenStatusResponse pResponseStatus_ =-    GetChangeTokenStatusResponse'-    { _gctsrsChangeTokenStatus = Nothing-    , _gctsrsResponseStatus = pResponseStatus_-    }+  GetChangeTokenStatusResponse'+  {_gctsrsChangeTokenStatus = Nothing, _gctsrsResponseStatus = pResponseStatus_} + -- | The status of the change token. gctsrsChangeTokenStatus :: Lens' GetChangeTokenStatusResponse (Maybe ChangeTokenStatus) gctsrsChangeTokenStatus = lens _gctsrsChangeTokenStatus (\ s a -> s{_gctsrsChangeTokenStatus = a});@@ -140,4 +140,4 @@ gctsrsResponseStatus :: Lens' GetChangeTokenStatusResponse Int gctsrsResponseStatus = lens _gctsrsResponseStatus (\ s a -> s{_gctsrsResponseStatus = a}); -instance NFData GetChangeTokenStatusResponse+instance NFData GetChangeTokenStatusResponse where

@@ -0,0 +1,133 @@+{-# 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.WAF.GetGeoMatchSet+-- Copyright   : (c) 2013-2017 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 'GeoMatchSet' that is specified by @GeoMatchSetId@ .+--+--+module Network.AWS.WAF.GetGeoMatchSet+    (+    -- * Creating a Request+      getGeoMatchSet+    , GetGeoMatchSet+    -- * Request Lenses+    , ggmsGeoMatchSetId++    -- * Destructuring the Response+    , getGeoMatchSetResponse+    , GetGeoMatchSetResponse+    -- * Response Lenses+    , ggmsrsGeoMatchSet+    , ggmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'getGeoMatchSet' smart constructor.+newtype GetGeoMatchSet = GetGeoMatchSet'+  { _ggmsGeoMatchSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetGeoMatchSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ggmsGeoMatchSetId' - The @GeoMatchSetId@ of the 'GeoMatchSet' that you want to get. @GeoMatchSetId@ is returned by 'CreateGeoMatchSet' and by 'ListGeoMatchSets' .+getGeoMatchSet+    :: Text -- ^ 'ggmsGeoMatchSetId'+    -> GetGeoMatchSet+getGeoMatchSet pGeoMatchSetId_ =+  GetGeoMatchSet' {_ggmsGeoMatchSetId = pGeoMatchSetId_}+++-- | 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});++instance AWSRequest GetGeoMatchSet where+        type Rs GetGeoMatchSet = GetGeoMatchSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 GetGeoMatchSetResponse' <$>+                   (x .?> "GeoMatchSet") <*> (pure (fromEnum s)))++instance Hashable GetGeoMatchSet where++instance NFData GetGeoMatchSet where++instance ToHeaders GetGeoMatchSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.GetGeoMatchSet" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetGeoMatchSet where+        toJSON GetGeoMatchSet'{..}+          = object+              (catMaybes+                 [Just ("GeoMatchSetId" .= _ggmsGeoMatchSetId)])++instance ToPath GetGeoMatchSet where+        toPath = const "/"++instance ToQuery GetGeoMatchSet where+        toQuery = const mempty++-- | /See:/ 'getGeoMatchSetResponse' smart constructor.+data GetGeoMatchSetResponse = GetGeoMatchSetResponse'+  { _ggmsrsGeoMatchSet    :: !(Maybe GeoMatchSet)+  , _ggmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetGeoMatchSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ggmsrsGeoMatchSet' - 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.+--+-- * 'ggmsrsResponseStatus' - -- | The response status code.+getGeoMatchSetResponse+    :: Int -- ^ 'ggmsrsResponseStatus'+    -> GetGeoMatchSetResponse+getGeoMatchSetResponse pResponseStatus_ =+  GetGeoMatchSetResponse'+  {_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});++-- | -- | The response status code.+ggmsrsResponseStatus :: Lens' GetGeoMatchSetResponse Int+ggmsrsResponseStatus = lens _ggmsrsResponseStatus (\ s a -> s{_ggmsrsResponseStatus = a});++instance NFData GetGeoMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetIPSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,18 +37,19 @@     , gisrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getIPSet' smart constructor. newtype GetIPSet = GetIPSet'-    { _gisIPSetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gisIPSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIPSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -57,11 +58,9 @@ getIPSet     :: Text -- ^ 'gisIPSetId'     -> GetIPSet-getIPSet pIPSetId_ =-    GetIPSet'-    { _gisIPSetId = pIPSetId_-    }+getIPSet pIPSetId_ = GetIPSet' {_gisIPSetId = pIPSetId_} + -- | 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});@@ -75,9 +74,9 @@                  GetIPSetResponse' <$>                    (x .?> "IPSet") <*> (pure (fromEnum s))) -instance Hashable GetIPSet+instance Hashable GetIPSet where -instance NFData GetIPSet+instance NFData GetIPSet where  instance ToHeaders GetIPSet where         toHeaders@@ -101,10 +100,11 @@  -- | /See:/ 'getIPSetResponse' smart constructor. data GetIPSetResponse = GetIPSetResponse'-    { _gisrsIPSet          :: !(Maybe IPSet)-    , _gisrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gisrsIPSet          :: !(Maybe IPSet)+  , _gisrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIPSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,11 +116,10 @@     :: Int -- ^ 'gisrsResponseStatus'     -> GetIPSetResponse getIPSetResponse pResponseStatus_ =-    GetIPSetResponse'-    { _gisrsIPSet = Nothing-    , _gisrsResponseStatus = pResponseStatus_-    }+  GetIPSetResponse'+  {_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});@@ -129,4 +128,4 @@ gisrsResponseStatus :: Lens' GetIPSetResponse Int gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a}); -instance NFData GetIPSetResponse+instance NFData GetIPSetResponse where

@@ -0,0 +1,130 @@+{-# 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.WAF.GetRateBasedRule+-- Copyright   : (c) 2013-2017 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 'RateBasedRule' that is specified by the @RuleId@ that you included in the @GetRateBasedRule@ request.+--+--+module Network.AWS.WAF.GetRateBasedRule+    (+    -- * Creating a Request+      getRateBasedRule+    , GetRateBasedRule+    -- * Request Lenses+    , grbrRuleId++    -- * Destructuring the Response+    , getRateBasedRuleResponse+    , GetRateBasedRuleResponse+    -- * Response Lenses+    , grbrrsRule+    , grbrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'getRateBasedRule' smart constructor.+newtype GetRateBasedRule = GetRateBasedRule'+  { _grbrRuleId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRateBasedRule' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grbrRuleId' - The @RuleId@ of the 'RateBasedRule' that you want to get. @RuleId@ is returned by 'CreateRateBasedRule' and by 'ListRateBasedRules' .+getRateBasedRule+    :: Text -- ^ 'grbrRuleId'+    -> GetRateBasedRule+getRateBasedRule pRuleId_ = GetRateBasedRule' {_grbrRuleId = pRuleId_}+++-- | 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});++instance AWSRequest GetRateBasedRule where+        type Rs GetRateBasedRule = GetRateBasedRuleResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 GetRateBasedRuleResponse' <$>+                   (x .?> "Rule") <*> (pure (fromEnum s)))++instance Hashable GetRateBasedRule where++instance NFData GetRateBasedRule where++instance ToHeaders GetRateBasedRule where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.GetRateBasedRule" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetRateBasedRule where+        toJSON GetRateBasedRule'{..}+          = object (catMaybes [Just ("RuleId" .= _grbrRuleId)])++instance ToPath GetRateBasedRule where+        toPath = const "/"++instance ToQuery GetRateBasedRule where+        toQuery = const mempty++-- | /See:/ 'getRateBasedRuleResponse' smart constructor.+data GetRateBasedRuleResponse = GetRateBasedRuleResponse'+  { _grbrrsRule           :: !(Maybe RateBasedRule)+  , _grbrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRateBasedRuleResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grbrrsRule' - Information about the 'RateBasedRule' that you specified in the @GetRateBasedRule@ request.+--+-- * 'grbrrsResponseStatus' - -- | The response status code.+getRateBasedRuleResponse+    :: Int -- ^ 'grbrrsResponseStatus'+    -> GetRateBasedRuleResponse+getRateBasedRuleResponse pResponseStatus_ =+  GetRateBasedRuleResponse'+  {_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});++-- | -- | The response status code.+grbrrsResponseStatus :: Lens' GetRateBasedRuleResponse Int+grbrrsResponseStatus = lens _grbrrsResponseStatus (\ s a -> s{_grbrrsResponseStatus = a});++instance NFData GetRateBasedRuleResponse 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.WAF.GetRateBasedRuleManagedKeys+-- Copyright   : (c) 2013-2017 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 IP addresses currently being blocked by the 'RateBasedRule' that is specified by the @RuleId@ . The maximum number of managed keys that will be blocked is 10,000. If more than 10,000 addresses exceed the rate limit, the 10,000 addresses with the highest rates will be blocked.+--+--+module Network.AWS.WAF.GetRateBasedRuleManagedKeys+    (+    -- * Creating a Request+      getRateBasedRuleManagedKeys+    , GetRateBasedRuleManagedKeys+    -- * Request Lenses+    , grbrmkNextMarker+    , grbrmkRuleId++    -- * Destructuring the Response+    , getRateBasedRuleManagedKeysResponse+    , GetRateBasedRuleManagedKeysResponse+    -- * Response Lenses+    , grbrmkrsNextMarker+    , grbrmkrsManagedKeys+    , grbrmkrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'getRateBasedRuleManagedKeys' smart constructor.+data GetRateBasedRuleManagedKeys = GetRateBasedRuleManagedKeys'+  { _grbrmkNextMarker :: !(Maybe Text)+  , _grbrmkRuleId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRateBasedRuleManagedKeys' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grbrmkNextMarker' - A null value and not currently used. Do not include this in your request.+--+-- * 'grbrmkRuleId' - The @RuleId@ of the 'RateBasedRule' for which you want to get a list of @ManagedKeys@ . @RuleId@ is returned by 'CreateRateBasedRule' and by 'ListRateBasedRules' .+getRateBasedRuleManagedKeys+    :: Text -- ^ 'grbrmkRuleId'+    -> GetRateBasedRuleManagedKeys+getRateBasedRuleManagedKeys pRuleId_ =+  GetRateBasedRuleManagedKeys'+  {_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});++-- | 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});++instance AWSRequest GetRateBasedRuleManagedKeys where+        type Rs GetRateBasedRuleManagedKeys =+             GetRateBasedRuleManagedKeysResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 GetRateBasedRuleManagedKeysResponse' <$>+                   (x .?> "NextMarker") <*>+                     (x .?> "ManagedKeys" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetRateBasedRuleManagedKeys where++instance NFData GetRateBasedRuleManagedKeys where++instance ToHeaders GetRateBasedRuleManagedKeys where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.GetRateBasedRuleManagedKeys" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetRateBasedRuleManagedKeys where+        toJSON GetRateBasedRuleManagedKeys'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _grbrmkNextMarker,+                  Just ("RuleId" .= _grbrmkRuleId)])++instance ToPath GetRateBasedRuleManagedKeys where+        toPath = const "/"++instance ToQuery GetRateBasedRuleManagedKeys where+        toQuery = const mempty++-- | /See:/ 'getRateBasedRuleManagedKeysResponse' smart constructor.+data GetRateBasedRuleManagedKeysResponse = GetRateBasedRuleManagedKeysResponse'+  { _grbrmkrsNextMarker     :: !(Maybe Text)+  , _grbrmkrsManagedKeys    :: !(Maybe [Text])+  , _grbrmkrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRateBasedRuleManagedKeysResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grbrmkrsNextMarker' - A null value and not currently used.+--+-- * 'grbrmkrsManagedKeys' - An array of IP addresses that currently are blocked by the specified 'RateBasedRule' .+--+-- * 'grbrmkrsResponseStatus' - -- | The response status code.+getRateBasedRuleManagedKeysResponse+    :: Int -- ^ 'grbrmkrsResponseStatus'+    -> GetRateBasedRuleManagedKeysResponse+getRateBasedRuleManagedKeysResponse pResponseStatus_ =+  GetRateBasedRuleManagedKeysResponse'+  { _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});++-- | 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;++-- | -- | The response status code.+grbrmkrsResponseStatus :: Lens' GetRateBasedRuleManagedKeysResponse Int+grbrmkrsResponseStatus = lens _grbrmkrsResponseStatus (\ s a -> s{_grbrmkrsResponseStatus = a});++instance NFData GetRateBasedRuleManagedKeysResponse+         where

@@ -0,0 +1,133 @@+{-# 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.WAF.GetRegexMatchSet+-- Copyright   : (c) 2013-2017 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 'RegexMatchSet' specified by @RegexMatchSetId@ .+--+--+module Network.AWS.WAF.GetRegexMatchSet+    (+    -- * Creating a Request+      getRegexMatchSet+    , GetRegexMatchSet+    -- * Request Lenses+    , grmsRegexMatchSetId++    -- * Destructuring the Response+    , getRegexMatchSetResponse+    , GetRegexMatchSetResponse+    -- * Response Lenses+    , grmsrsRegexMatchSet+    , grmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'getRegexMatchSet' smart constructor.+newtype GetRegexMatchSet = GetRegexMatchSet'+  { _grmsRegexMatchSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRegexMatchSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grmsRegexMatchSetId' - The @RegexMatchSetId@ of the 'RegexMatchSet' that you want to get. @RegexMatchSetId@ is returned by 'CreateRegexMatchSet' and by 'ListRegexMatchSets' .+getRegexMatchSet+    :: Text -- ^ 'grmsRegexMatchSetId'+    -> GetRegexMatchSet+getRegexMatchSet pRegexMatchSetId_ =+  GetRegexMatchSet' {_grmsRegexMatchSetId = pRegexMatchSetId_}+++-- | 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});++instance AWSRequest GetRegexMatchSet where+        type Rs GetRegexMatchSet = GetRegexMatchSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 GetRegexMatchSetResponse' <$>+                   (x .?> "RegexMatchSet") <*> (pure (fromEnum s)))++instance Hashable GetRegexMatchSet where++instance NFData GetRegexMatchSet where++instance ToHeaders GetRegexMatchSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.GetRegexMatchSet" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetRegexMatchSet where+        toJSON GetRegexMatchSet'{..}+          = object+              (catMaybes+                 [Just ("RegexMatchSetId" .= _grmsRegexMatchSetId)])++instance ToPath GetRegexMatchSet where+        toPath = const "/"++instance ToQuery GetRegexMatchSet where+        toQuery = const mempty++-- | /See:/ 'getRegexMatchSetResponse' smart constructor.+data GetRegexMatchSetResponse = GetRegexMatchSetResponse'+  { _grmsrsRegexMatchSet  :: !(Maybe RegexMatchSet)+  , _grmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRegexMatchSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grmsrsRegexMatchSet' - Information about the 'RegexMatchSet' that you specified in the @GetRegexMatchSet@ request. For more information, see 'RegexMatchTuple' .+--+-- * 'grmsrsResponseStatus' - -- | The response status code.+getRegexMatchSetResponse+    :: Int -- ^ 'grmsrsResponseStatus'+    -> GetRegexMatchSetResponse+getRegexMatchSetResponse pResponseStatus_ =+  GetRegexMatchSetResponse'+  {_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});++-- | -- | The response status code.+grmsrsResponseStatus :: Lens' GetRegexMatchSetResponse Int+grmsrsResponseStatus = lens _grmsrsResponseStatus (\ s a -> s{_grmsrsResponseStatus = a});++instance NFData GetRegexMatchSetResponse where

@@ -0,0 +1,135 @@+{-# 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.WAF.GetRegexPatternSet+-- Copyright   : (c) 2013-2017 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 'RegexPatternSet' specified by @RegexPatternSetId@ .+--+--+module Network.AWS.WAF.GetRegexPatternSet+    (+    -- * Creating a Request+      getRegexPatternSet+    , GetRegexPatternSet+    -- * Request Lenses+    , grpsRegexPatternSetId++    -- * Destructuring the Response+    , getRegexPatternSetResponse+    , GetRegexPatternSetResponse+    -- * Response Lenses+    , grpsrsRegexPatternSet+    , grpsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'getRegexPatternSet' smart constructor.+newtype GetRegexPatternSet = GetRegexPatternSet'+  { _grpsRegexPatternSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRegexPatternSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grpsRegexPatternSetId' - The @RegexPatternSetId@ of the 'RegexPatternSet' that you want to get. @RegexPatternSetId@ is returned by 'CreateRegexPatternSet' and by 'ListRegexPatternSets' .+getRegexPatternSet+    :: Text -- ^ 'grpsRegexPatternSetId'+    -> GetRegexPatternSet+getRegexPatternSet pRegexPatternSetId_ =+  GetRegexPatternSet' {_grpsRegexPatternSetId = pRegexPatternSetId_}+++-- | 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});++instance AWSRequest GetRegexPatternSet where+        type Rs GetRegexPatternSet =+             GetRegexPatternSetResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 GetRegexPatternSetResponse' <$>+                   (x .?> "RegexPatternSet") <*> (pure (fromEnum s)))++instance Hashable GetRegexPatternSet where++instance NFData GetRegexPatternSet where++instance ToHeaders GetRegexPatternSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.GetRegexPatternSet" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetRegexPatternSet where+        toJSON GetRegexPatternSet'{..}+          = object+              (catMaybes+                 [Just+                    ("RegexPatternSetId" .= _grpsRegexPatternSetId)])++instance ToPath GetRegexPatternSet where+        toPath = const "/"++instance ToQuery GetRegexPatternSet where+        toQuery = const mempty++-- | /See:/ 'getRegexPatternSetResponse' smart constructor.+data GetRegexPatternSetResponse = GetRegexPatternSetResponse'+  { _grpsrsRegexPatternSet :: !(Maybe RegexPatternSet)+  , _grpsrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetRegexPatternSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grpsrsRegexPatternSet' - 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.+--+-- * 'grpsrsResponseStatus' - -- | The response status code.+getRegexPatternSetResponse+    :: Int -- ^ 'grpsrsResponseStatus'+    -> GetRegexPatternSetResponse+getRegexPatternSetResponse pResponseStatus_ =+  GetRegexPatternSetResponse'+  {_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});++-- | -- | The response status code.+grpsrsResponseStatus :: Lens' GetRegexPatternSetResponse Int+grpsrsResponseStatus = lens _grpsrsResponseStatus (\ s a -> s{_grpsrsResponseStatus = a});++instance NFData GetRegexPatternSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetRule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,18 +37,19 @@     , grrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getRule' smart constructor. newtype GetRule = GetRule'-    { _grRuleId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _grRuleId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -57,11 +58,9 @@ getRule     :: Text -- ^ 'grRuleId'     -> GetRule-getRule pRuleId_ =-    GetRule'-    { _grRuleId = pRuleId_-    }+getRule pRuleId_ = GetRule' {_grRuleId = pRuleId_} + -- | 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});@@ -75,9 +74,9 @@                  GetRuleResponse' <$>                    (x .?> "Rule") <*> (pure (fromEnum s))) -instance Hashable GetRule+instance Hashable GetRule where -instance NFData GetRule+instance NFData GetRule where  instance ToHeaders GetRule where         toHeaders@@ -100,10 +99,11 @@  -- | /See:/ 'getRuleResponse' smart constructor. data GetRuleResponse = GetRuleResponse'-    { _grrsRule           :: !(Maybe Rule)-    , _grrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _grrsRule           :: !(Maybe Rule)+  , _grrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetRuleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -115,11 +115,9 @@     :: Int -- ^ 'grrsResponseStatus'     -> GetRuleResponse getRuleResponse pResponseStatus_ =-    GetRuleResponse'-    { _grrsRule = Nothing-    , _grrsResponseStatus = pResponseStatus_-    }+  GetRuleResponse' {_grrsRule = Nothing, _grrsResponseStatus = pResponseStatus_} + -- | 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});@@ -128,4 +126,4 @@ grrsResponseStatus :: Lens' GetRuleResponse Int grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a}); -instance NFData GetRuleResponse+instance NFData GetRuleResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.WAF.GetSampledRequests--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets detailed information about a specified number of requests--a sample--that AWS WAF randomly selects from among the first 5,000 requests that your AWS resource received during a time range that you choose. You can specify a sample size of up to 100 requests, and you can specify any time range in the previous three hours.+-- Gets detailed information about a specified number of requests--a sample--that AWS WAF randomly selects from among the first 5,000 requests that your AWS resource received during a time range that you choose. You can specify a sample size of up to 500 requests, and you can specify any time range in the previous three hours. -- -- -- @GetSampledRequests@ returns a time range, which is usually the time range that you specified. However, if your resource (such as a CloudFront distribution) received 5,000 requests before the specified time range elapsed, @GetSampledRequests@ returns an updated time range. This new time range indicates the actual period during which AWS WAF selected the requests in the sample.@@ -44,21 +44,22 @@     , gsrrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getSampledRequests' smart constructor. data GetSampledRequests = GetSampledRequests'-    { _gsrWebACLId   :: !Text-    , _gsrRuleId     :: !Text-    , _gsrTimeWindow :: !TimeWindow-    , _gsrMaxItems   :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsrWebACLId   :: !Text+  , _gsrRuleId     :: !Text+  , _gsrTimeWindow :: !TimeWindow+  , _gsrMaxItems   :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSampledRequests' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,7 +68,7 @@ -- -- * '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@ . ----- * '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 Unix time format (in seconds). You can specify any time range in the previous three hours.+-- * '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. -- -- * 'gsrMaxItems' - 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. getSampledRequests@@ -77,13 +78,14 @@     -> Natural -- ^ 'gsrMaxItems'     -> GetSampledRequests getSampledRequests pWebACLId_ pRuleId_ pTimeWindow_ pMaxItems_ =-    GetSampledRequests'-    { _gsrWebACLId = pWebACLId_-    , _gsrRuleId = pRuleId_-    , _gsrTimeWindow = pTimeWindow_-    , _gsrMaxItems = _Nat # pMaxItems_-    }+  GetSampledRequests'+  { _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});@@ -92,7 +94,7 @@ gsrRuleId :: Lens' GetSampledRequests Text 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 Unix time format (in seconds). You can specify any time range in the previous three hours.+-- | 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}); @@ -113,9 +115,9 @@                      <*> (x .?> "TimeWindow")                      <*> (pure (fromEnum s))) -instance Hashable GetSampledRequests+instance Hashable GetSampledRequests where -instance NFData GetSampledRequests+instance NFData GetSampledRequests where  instance ToHeaders GetSampledRequests where         toHeaders@@ -143,12 +145,13 @@  -- | /See:/ 'getSampledRequestsResponse' smart constructor. data GetSampledRequestsResponse = GetSampledRequestsResponse'-    { _gsrrsSampledRequests :: !(Maybe [SampledHTTPRequest])-    , _gsrrsPopulationSize  :: !(Maybe Integer)-    , _gsrrsTimeWindow      :: !(Maybe TimeWindow)-    , _gsrrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsrrsSampledRequests :: !(Maybe [SampledHTTPRequest])+  , _gsrrsPopulationSize  :: !(Maybe Integer)+  , _gsrrsTimeWindow      :: !(Maybe TimeWindow)+  , _gsrrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSampledRequestsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -164,13 +167,14 @@     :: Int -- ^ 'gsrrsResponseStatus'     -> GetSampledRequestsResponse getSampledRequestsResponse pResponseStatus_ =-    GetSampledRequestsResponse'-    { _gsrrsSampledRequests = Nothing-    , _gsrrsPopulationSize = Nothing-    , _gsrrsTimeWindow = Nothing-    , _gsrrsResponseStatus = pResponseStatus_-    }+  GetSampledRequestsResponse'+  { _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;@@ -187,4 +191,4 @@ gsrrsResponseStatus :: Lens' GetSampledRequestsResponse Int gsrrsResponseStatus = lens _gsrrsResponseStatus (\ s a -> s{_gsrrsResponseStatus = a}); -instance NFData GetSampledRequestsResponse+instance NFData GetSampledRequestsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetSizeConstraintSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,18 +37,19 @@     , gscsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getSizeConstraintSet' smart constructor. newtype GetSizeConstraintSet = GetSizeConstraintSet'-    { _gscsSizeConstraintSetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gscsSizeConstraintSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSizeConstraintSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,10 +59,9 @@     :: Text -- ^ 'gscsSizeConstraintSetId'     -> GetSizeConstraintSet getSizeConstraintSet pSizeConstraintSetId_ =-    GetSizeConstraintSet'-    { _gscsSizeConstraintSetId = pSizeConstraintSetId_-    }+  GetSizeConstraintSet' {_gscsSizeConstraintSetId = pSizeConstraintSetId_} + -- | 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});@@ -76,9 +76,9 @@                  GetSizeConstraintSetResponse' <$>                    (x .?> "SizeConstraintSet") <*> (pure (fromEnum s))) -instance Hashable GetSizeConstraintSet+instance Hashable GetSizeConstraintSet where -instance NFData GetSizeConstraintSet+instance NFData GetSizeConstraintSet where  instance ToHeaders GetSizeConstraintSet where         toHeaders@@ -105,10 +105,11 @@  -- | /See:/ 'getSizeConstraintSetResponse' smart constructor. data GetSizeConstraintSetResponse = GetSizeConstraintSetResponse'-    { _gscsrsSizeConstraintSet :: !(Maybe SizeConstraintSet)-    , _gscsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gscsrsSizeConstraintSet :: !(Maybe SizeConstraintSet)+  , _gscsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSizeConstraintSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -120,11 +121,10 @@     :: Int -- ^ 'gscsrsResponseStatus'     -> GetSizeConstraintSetResponse getSizeConstraintSetResponse pResponseStatus_ =-    GetSizeConstraintSetResponse'-    { _gscsrsSizeConstraintSet = Nothing-    , _gscsrsResponseStatus = pResponseStatus_-    }+  GetSizeConstraintSetResponse'+  {_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});@@ -133,4 +133,4 @@ gscsrsResponseStatus :: Lens' GetSizeConstraintSetResponse Int gscsrsResponseStatus = lens _gscsrsResponseStatus (\ s a -> s{_gscsrsResponseStatus = a}); -instance NFData GetSizeConstraintSetResponse+instance NFData GetSizeConstraintSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetSqlInjectionMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , gsimsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | A request to get a 'SqlInjectionMatchSet' . --@@ -50,9 +50,10 @@ -- -- /See:/ 'getSqlInjectionMatchSet' smart constructor. newtype GetSqlInjectionMatchSet = GetSqlInjectionMatchSet'-    { _gsimsSqlInjectionMatchSetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsimsSqlInjectionMatchSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSqlInjectionMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,10 @@     :: Text -- ^ 'gsimsSqlInjectionMatchSetId'     -> GetSqlInjectionMatchSet getSqlInjectionMatchSet pSqlInjectionMatchSetId_ =-    GetSqlInjectionMatchSet'-    { _gsimsSqlInjectionMatchSetId = pSqlInjectionMatchSetId_-    }+  GetSqlInjectionMatchSet'+  {_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});@@ -81,9 +82,9 @@                    (x .?> "SqlInjectionMatchSet") <*>                      (pure (fromEnum s))) -instance Hashable GetSqlInjectionMatchSet+instance Hashable GetSqlInjectionMatchSet where -instance NFData GetSqlInjectionMatchSet+instance NFData GetSqlInjectionMatchSet where  instance ToHeaders GetSqlInjectionMatchSet where         toHeaders@@ -115,10 +116,11 @@ -- -- /See:/ 'getSqlInjectionMatchSetResponse' smart constructor. data GetSqlInjectionMatchSetResponse = GetSqlInjectionMatchSetResponse'-    { _gsimsrsSqlInjectionMatchSet :: !(Maybe SqlInjectionMatchSet)-    , _gsimsrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsimsrsSqlInjectionMatchSet :: !(Maybe SqlInjectionMatchSet)+  , _gsimsrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetSqlInjectionMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +132,12 @@     :: Int -- ^ 'gsimsrsResponseStatus'     -> GetSqlInjectionMatchSetResponse getSqlInjectionMatchSetResponse pResponseStatus_ =-    GetSqlInjectionMatchSetResponse'-    { _gsimsrsSqlInjectionMatchSet = Nothing-    , _gsimsrsResponseStatus = pResponseStatus_-    }+  GetSqlInjectionMatchSetResponse'+  { _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});@@ -143,4 +146,4 @@ gsimsrsResponseStatus :: Lens' GetSqlInjectionMatchSetResponse Int gsimsrsResponseStatus = lens _gsimsrsResponseStatus (\ s a -> s{_gsimsrsResponseStatus = a}); -instance NFData GetSqlInjectionMatchSetResponse+instance NFData GetSqlInjectionMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetWebACL--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,18 +37,19 @@     , gwarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'getWebACL' smart constructor. newtype GetWebACL = GetWebACL'-    { _gwaWebACLId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gwaWebACLId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetWebACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -57,11 +58,9 @@ getWebACL     :: Text -- ^ 'gwaWebACLId'     -> GetWebACL-getWebACL pWebACLId_ =-    GetWebACL'-    { _gwaWebACLId = pWebACLId_-    }+getWebACL pWebACLId_ = GetWebACL' {_gwaWebACLId = pWebACLId_} + -- | 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});@@ -75,9 +74,9 @@                  GetWebACLResponse' <$>                    (x .?> "WebACL") <*> (pure (fromEnum s))) -instance Hashable GetWebACL+instance Hashable GetWebACL where -instance NFData GetWebACL+instance NFData GetWebACL where  instance ToHeaders GetWebACL where         toHeaders@@ -101,10 +100,11 @@  -- | /See:/ 'getWebACLResponse' smart constructor. data GetWebACLResponse = GetWebACLResponse'-    { _gwarsWebACL         :: !(Maybe WebACL)-    , _gwarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gwarsWebACL         :: !(Maybe WebACL)+  , _gwarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetWebACLResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,11 +116,10 @@     :: Int -- ^ 'gwarsResponseStatus'     -> GetWebACLResponse getWebACLResponse pResponseStatus_ =-    GetWebACLResponse'-    { _gwarsWebACL = Nothing-    , _gwarsResponseStatus = pResponseStatus_-    }+  GetWebACLResponse'+  {_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});@@ -129,4 +128,4 @@ gwarsResponseStatus :: Lens' GetWebACLResponse Int gwarsResponseStatus = lens _gwarsResponseStatus (\ s a -> s{_gwarsResponseStatus = a}); -instance NFData GetWebACLResponse+instance NFData GetWebACLResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.GetXSSMatchSet--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , gxmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | A request to get an 'XssMatchSet' . --@@ -50,9 +50,10 @@ -- -- /See:/ 'getXSSMatchSet' smart constructor. newtype GetXSSMatchSet = GetXSSMatchSet'-    { _gxmsXSSMatchSetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gxmsXSSMatchSetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetXSSMatchSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@     :: Text -- ^ 'gxmsXSSMatchSetId'     -> GetXSSMatchSet getXSSMatchSet pXSSMatchSetId_ =-    GetXSSMatchSet'-    { _gxmsXSSMatchSetId = pXSSMatchSetId_-    }+  GetXSSMatchSet' {_gxmsXSSMatchSetId = pXSSMatchSetId_} + -- | 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});@@ -79,9 +79,9 @@                  GetXSSMatchSetResponse' <$>                    (x .?> "XssMatchSet") <*> (pure (fromEnum s))) -instance Hashable GetXSSMatchSet+instance Hashable GetXSSMatchSet where -instance NFData GetXSSMatchSet+instance NFData GetXSSMatchSet where  instance ToHeaders GetXSSMatchSet where         toHeaders@@ -110,10 +110,11 @@ -- -- /See:/ 'getXSSMatchSetResponse' smart constructor. data GetXSSMatchSetResponse = GetXSSMatchSetResponse'-    { _gxmsrsXSSMatchSet    :: !(Maybe XSSMatchSet)-    , _gxmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gxmsrsXSSMatchSet    :: !(Maybe XSSMatchSet)+  , _gxmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetXSSMatchSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +126,10 @@     :: Int -- ^ 'gxmsrsResponseStatus'     -> GetXSSMatchSetResponse getXSSMatchSetResponse pResponseStatus_ =-    GetXSSMatchSetResponse'-    { _gxmsrsXSSMatchSet = Nothing-    , _gxmsrsResponseStatus = pResponseStatus_-    }+  GetXSSMatchSetResponse'+  {_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});@@ -138,4 +138,4 @@ gxmsrsResponseStatus :: Lens' GetXSSMatchSetResponse Int gxmsrsResponseStatus = lens _gxmsrsResponseStatus (\ s a -> s{_gxmsrsResponseStatus = a}); -instance NFData GetXSSMatchSetResponse+instance NFData GetXSSMatchSetResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.ListByteMatchSets--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,20 +41,21 @@     , lbmsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'listByteMatchSets' smart constructor. data ListByteMatchSets = ListByteMatchSets'-    { _lbmsNextMarker :: !(Maybe Text)-    , _lbmsLimit      :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbmsNextMarker :: !(Maybe Text)+  , _lbmsLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListByteMatchSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ listByteMatchSets     :: ListByteMatchSets listByteMatchSets =-    ListByteMatchSets'-    { _lbmsNextMarker = Nothing-    , _lbmsLimit = Nothing-    }+  ListByteMatchSets' {_lbmsNextMarker = Nothing, _lbmsLimit = Nothing} + -- | 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});@@ -96,9 +95,9 @@                      (x .?> "NextMarker")                      <*> (pure (fromEnum s))) -instance Hashable ListByteMatchSets+instance Hashable ListByteMatchSets where -instance NFData ListByteMatchSets+instance NFData ListByteMatchSets where  instance ToHeaders ListByteMatchSets where         toHeaders@@ -124,11 +123,12 @@  -- | /See:/ 'listByteMatchSetsResponse' smart constructor. data ListByteMatchSetsResponse = ListByteMatchSetsResponse'-    { _lbmsrsByteMatchSets  :: !(Maybe [ByteMatchSetSummary])-    , _lbmsrsNextMarker     :: !(Maybe Text)-    , _lbmsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbmsrsByteMatchSets  :: !(Maybe [ByteMatchSetSummary])+  , _lbmsrsNextMarker     :: !(Maybe Text)+  , _lbmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListByteMatchSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,12 +142,13 @@     :: Int -- ^ 'lbmsrsResponseStatus'     -> ListByteMatchSetsResponse listByteMatchSetsResponse pResponseStatus_ =-    ListByteMatchSetsResponse'-    { _lbmsrsByteMatchSets = Nothing-    , _lbmsrsNextMarker = Nothing-    , _lbmsrsResponseStatus = pResponseStatus_-    }+  ListByteMatchSetsResponse'+  { _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;@@ -160,4 +161,4 @@ lbmsrsResponseStatus :: Lens' ListByteMatchSetsResponse Int lbmsrsResponseStatus = lens _lbmsrsResponseStatus (\ s a -> s{_lbmsrsResponseStatus = a}); -instance NFData ListByteMatchSetsResponse+instance NFData ListByteMatchSetsResponse 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.WAF.ListGeoMatchSets+-- Copyright   : (c) 2013-2017 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 'GeoMatchSetSummary' objects in the response.+--+--+module Network.AWS.WAF.ListGeoMatchSets+    (+    -- * Creating a Request+      listGeoMatchSets+    , ListGeoMatchSets+    -- * Request Lenses+    , lgmsNextMarker+    , lgmsLimit++    -- * Destructuring the Response+    , listGeoMatchSetsResponse+    , ListGeoMatchSetsResponse+    -- * Response Lenses+    , lgmsrsGeoMatchSets+    , lgmsrsNextMarker+    , lgmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'listGeoMatchSets' smart constructor.+data ListGeoMatchSets = ListGeoMatchSets'+  { _lgmsNextMarker :: !(Maybe Text)+  , _lgmsLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListGeoMatchSets' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lgmsNextMarker' - 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.+--+-- * 'lgmsLimit' - 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.+listGeoMatchSets+    :: ListGeoMatchSets+listGeoMatchSets =+  ListGeoMatchSets' {_lgmsNextMarker = Nothing, _lgmsLimit = Nothing}+++-- | 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});++-- | 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;++instance AWSRequest ListGeoMatchSets where+        type Rs ListGeoMatchSets = ListGeoMatchSetsResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 ListGeoMatchSetsResponse' <$>+                   (x .?> "GeoMatchSets" .!@ mempty) <*>+                     (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListGeoMatchSets where++instance NFData ListGeoMatchSets where++instance ToHeaders ListGeoMatchSets where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.ListGeoMatchSets" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListGeoMatchSets where+        toJSON ListGeoMatchSets'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _lgmsNextMarker,+                  ("Limit" .=) <$> _lgmsLimit])++instance ToPath ListGeoMatchSets where+        toPath = const "/"++instance ToQuery ListGeoMatchSets where+        toQuery = const mempty++-- | /See:/ 'listGeoMatchSetsResponse' smart constructor.+data ListGeoMatchSetsResponse = ListGeoMatchSetsResponse'+  { _lgmsrsGeoMatchSets   :: !(Maybe [GeoMatchSetSummary])+  , _lgmsrsNextMarker     :: !(Maybe Text)+  , _lgmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListGeoMatchSetsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lgmsrsGeoMatchSets' - An array of 'GeoMatchSetSummary' objects.+--+-- * 'lgmsrsNextMarker' - 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.+--+-- * 'lgmsrsResponseStatus' - -- | The response status code.+listGeoMatchSetsResponse+    :: Int -- ^ 'lgmsrsResponseStatus'+    -> ListGeoMatchSetsResponse+listGeoMatchSetsResponse pResponseStatus_ =+  ListGeoMatchSetsResponse'+  { _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;++-- | 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});++-- | -- | The response status code.+lgmsrsResponseStatus :: Lens' ListGeoMatchSetsResponse Int+lgmsrsResponseStatus = lens _lgmsrsResponseStatus (\ s a -> s{_lgmsrsResponseStatus = a});++instance NFData ListGeoMatchSetsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.WAF.ListIPSets--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,36 +41,34 @@     , lisrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.WAF.Types-import           Network.AWS.WAF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product  -- | /See:/ 'listIPSets' smart constructor. data ListIPSets = ListIPSets'-    { _lisNextMarker :: !(Maybe Text)-    , _lisLimit      :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lisNextMarker :: !(Maybe Text)+  , _lisLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIPSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lisNextMarker' - 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 @ByteMatchSets@ .+-- * 'lisNextMarker' - 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@ . -- -- * 'lisLimit' - 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. listIPSets     :: ListIPSets-listIPSets =-    ListIPSets'-    { _lisNextMarker = Nothing-    , _lisLimit = Nothing-    }+listIPSets = ListIPSets' {_lisNextMarker = Nothing, _lisLimit = Nothing} --- | 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 @ByteMatchSets@ .++-- | 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}); @@ -95,9 +93,9 @@                    (x .?> "NextMarker") <*> (x .?> "IPSets" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListIPSets+instance Hashable ListIPSets where -instance NFData ListIPSets+instance NFData ListIPSets where  instance ToHeaders ListIPSets where         toHeaders@@ -123,11 +121,12 @@  -- | /See:/ 'listIPSetsResponse' smart constructor. data ListIPSetsResponse = ListIPSetsResponse'-    { _lisrsNextMarker     :: !(Maybe Text)-    , _lisrsIPSets         :: !(Maybe [IPSetSummary])-    , _lisrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lisrsNextMarker     :: !(Maybe Text)+  , _lisrsIPSets         :: !(Maybe [IPSetSummary])+  , _lisrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIPSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,12 +140,13 @@     :: Int -- ^ 'lisrsResponseStatus'     -> ListIPSetsResponse listIPSetsResponse pResponseStatus_ =-    ListIPSetsResponse'-    { _lisrsNextMarker = Nothing-    , _lisrsIPSets = Nothing-    , _lisrsResponseStatus = pResponseStatus_-    }+  ListIPSetsResponse'+  { _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});@@ -159,4 +159,4 @@ lisrsResponseStatus :: Lens' ListIPSetsResponse Int lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a}); -instance NFData ListIPSetsResponse+instance NFData ListIPSetsResponse 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.WAF.ListRateBasedRules+-- Copyright   : (c) 2013-2017 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 'RuleSummary' objects.+--+--+module Network.AWS.WAF.ListRateBasedRules+    (+    -- * Creating a Request+      listRateBasedRules+    , ListRateBasedRules+    -- * Request Lenses+    , lrbrNextMarker+    , lrbrLimit++    -- * Destructuring the Response+    , listRateBasedRulesResponse+    , ListRateBasedRulesResponse+    -- * Response Lenses+    , lrbrrsRules+    , lrbrrsNextMarker+    , lrbrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'listRateBasedRules' smart constructor.+data ListRateBasedRules = ListRateBasedRules'+  { _lrbrNextMarker :: !(Maybe Text)+  , _lrbrLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRateBasedRules' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrbrNextMarker' - 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@ .+--+-- * 'lrbrLimit' - 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@ .+listRateBasedRules+    :: ListRateBasedRules+listRateBasedRules =+  ListRateBasedRules' {_lrbrNextMarker = Nothing, _lrbrLimit = Nothing}+++-- | 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});++-- | 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;++instance AWSRequest ListRateBasedRules where+        type Rs ListRateBasedRules =+             ListRateBasedRulesResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 ListRateBasedRulesResponse' <$>+                   (x .?> "Rules" .!@ mempty) <*> (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListRateBasedRules where++instance NFData ListRateBasedRules where++instance ToHeaders ListRateBasedRules where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.ListRateBasedRules" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListRateBasedRules where+        toJSON ListRateBasedRules'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _lrbrNextMarker,+                  ("Limit" .=) <$> _lrbrLimit])++instance ToPath ListRateBasedRules where+        toPath = const "/"++instance ToQuery ListRateBasedRules where+        toQuery = const mempty++-- | /See:/ 'listRateBasedRulesResponse' smart constructor.+data ListRateBasedRulesResponse = ListRateBasedRulesResponse'+  { _lrbrrsRules          :: !(Maybe [RuleSummary])+  , _lrbrrsNextMarker     :: !(Maybe Text)+  , _lrbrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRateBasedRulesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrbrrsRules' - An array of 'RuleSummary' objects.+--+-- * 'lrbrrsNextMarker' - 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.+--+-- * 'lrbrrsResponseStatus' - -- | The response status code.+listRateBasedRulesResponse+    :: Int -- ^ 'lrbrrsResponseStatus'+    -> ListRateBasedRulesResponse+listRateBasedRulesResponse pResponseStatus_ =+  ListRateBasedRulesResponse'+  { _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;++-- | 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});++-- | -- | The response status code.+lrbrrsResponseStatus :: Lens' ListRateBasedRulesResponse Int+lrbrrsResponseStatus = lens _lrbrrsResponseStatus (\ s a -> s{_lrbrrsResponseStatus = a});++instance NFData ListRateBasedRulesResponse where

@@ -0,0 +1,155 @@+{-# 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.WAF.ListRegexMatchSets+-- Copyright   : (c) 2013-2017 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 'RegexMatchSetSummary' objects.+--+--+module Network.AWS.WAF.ListRegexMatchSets+    (+    -- * Creating a Request+      listRegexMatchSets+    , ListRegexMatchSets+    -- * Request Lenses+    , lrmsNextMarker+    , lrmsLimit++    -- * Destructuring the Response+    , listRegexMatchSetsResponse+    , ListRegexMatchSetsResponse+    -- * Response Lenses+    , lrmsrsRegexMatchSets+    , lrmsrsNextMarker+    , lrmsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'listRegexMatchSets' smart constructor.+data ListRegexMatchSets = ListRegexMatchSets'+  { _lrmsNextMarker :: !(Maybe Text)+  , _lrmsLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRegexMatchSets' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrmsNextMarker' - 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.+--+-- * 'lrmsLimit' - 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.+listRegexMatchSets+    :: ListRegexMatchSets+listRegexMatchSets =+  ListRegexMatchSets' {_lrmsNextMarker = Nothing, _lrmsLimit = Nothing}+++-- | 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});++-- | 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;++instance AWSRequest ListRegexMatchSets where+        type Rs ListRegexMatchSets =+             ListRegexMatchSetsResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 ListRegexMatchSetsResponse' <$>+                   (x .?> "RegexMatchSets" .!@ mempty) <*>+                     (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListRegexMatchSets where++instance NFData ListRegexMatchSets where++instance ToHeaders ListRegexMatchSets where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.ListRegexMatchSets" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListRegexMatchSets where+        toJSON ListRegexMatchSets'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _lrmsNextMarker,+                  ("Limit" .=) <$> _lrmsLimit])++instance ToPath ListRegexMatchSets where+        toPath = const "/"++instance ToQuery ListRegexMatchSets where+        toQuery = const mempty++-- | /See:/ 'listRegexMatchSetsResponse' smart constructor.+data ListRegexMatchSetsResponse = ListRegexMatchSetsResponse'+  { _lrmsrsRegexMatchSets :: !(Maybe [RegexMatchSetSummary])+  , _lrmsrsNextMarker     :: !(Maybe Text)+  , _lrmsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRegexMatchSetsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrmsrsRegexMatchSets' - An array of 'RegexMatchSetSummary' objects.+--+-- * 'lrmsrsNextMarker' - 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.+--+-- * 'lrmsrsResponseStatus' - -- | The response status code.+listRegexMatchSetsResponse+    :: Int -- ^ 'lrmsrsResponseStatus'+    -> ListRegexMatchSetsResponse+listRegexMatchSetsResponse pResponseStatus_ =+  ListRegexMatchSetsResponse'+  { _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;++-- | 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});++-- | -- | The response status code.+lrmsrsResponseStatus :: Lens' ListRegexMatchSetsResponse Int+lrmsrsResponseStatus = lens _lrmsrsResponseStatus (\ s a -> s{_lrmsrsResponseStatus = a});++instance NFData ListRegexMatchSetsResponse where

@@ -0,0 +1,156 @@+{-# 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.WAF.ListRegexPatternSets+-- Copyright   : (c) 2013-2017 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 'RegexPatternSetSummary' objects.+--+--+module Network.AWS.WAF.ListRegexPatternSets+    (+    -- * Creating a Request+      listRegexPatternSets+    , ListRegexPatternSets+    -- * Request Lenses+    , lrpsNextMarker+    , lrpsLimit++    -- * Destructuring the Response+    , listRegexPatternSetsResponse+    , ListRegexPatternSetsResponse+    -- * Response Lenses+    , lrpsrsRegexPatternSets+    , lrpsrsNextMarker+    , lrpsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WAF.Types+import Network.AWS.WAF.Types.Product++-- | /See:/ 'listRegexPatternSets' smart constructor.+data ListRegexPatternSets = ListRegexPatternSets'+  { _lrpsNextMarker :: !(Maybe Text)+  , _lrpsLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRegexPatternSets' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrpsNextMarker' - 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.+--+-- * 'lrpsLimit' - 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.+listRegexPatternSets+    :: ListRegexPatternSets+listRegexPatternSets =+  ListRegexPatternSets' {_lrpsNextMarker = Nothing, _lrpsLimit = Nothing}+++-- | 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});++-- | 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;++instance AWSRequest ListRegexPatternSets where+        type Rs ListRegexPatternSets =+             ListRegexPatternSetsResponse+        request = postJSON waf+        response+          = receiveJSON+              (\ s h x ->+                 ListRegexPatternSetsResponse' <$>+                   (x .?> "RegexPatternSets" .!@ mempty) <*>+                     (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListRegexPatternSets where++instance NFData ListRegexPatternSets where++instance ToHeaders ListRegexPatternSets where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSWAF_20150824.ListRegexPatternSets" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListRegexPatternSets where+        toJSON ListRegexPatternSets'{..}+          = object+              (catMaybes+                 [("NextMarker" .=) <$> _lrpsNextMarker,+                  ("Limit" .=) <$> _lrpsLimit])++instance ToPath ListRegexPatternSets where+        toPath = const "/"++instance ToQuery ListRegexPatternSets where+        toQuery = const mempty++-- | /See:/ 'listRegexPatternSetsResponse' smart constructor.+data ListRegexPatternSetsResponse = ListRegexPatternSetsResponse'+  { _lrpsrsRegexPatternSets :: !(Maybe [RegexPatternSetSummary])+  , _lrpsrsNextMarker       :: !(Maybe Text)+  , _lrpsrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListRegexPatternSetsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrpsrsRegexPatternSets' - An array of 'RegexPatternSetSummary' objects.+--+-- * 'lrpsrsNextMarker' - 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.+--+-- * 'lrpsrsResponseStatus' - -- | The response status code.+listRegexPatternSetsResponse+    :: Int -- ^ 'lrpsrsResponseStatus'+    -> ListRegexPatternSetsResponse+listRegexPatternSetsResponse pResponseStatus_ =+  ListRegexPatternSetsResponse'+  { _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;++-- | 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});++-- | -- | The response status code.+lrpsrsResponseStatus :: Lens' ListRegexPatternSetsResponse Int+lrpsrsResponseStatus = lens _lrpsrsResponseStatus (\ s a -> s{_lrpsrsResponseStatus = a});++instance NFData ListRegexPatternSetsResponse where