amazonka-route53 1.4.5 → 1.5.0

raw patch · 71 files changed

+3552/−2593 lines, 71 filesdep ~amazonka-coredep ~amazonka-route53dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53.cabal +20/−11
• fixture/CreateQueryLoggingConfig.yaml +10/−0
• fixture/CreateQueryLoggingConfigResponse.proto +0/−0
• fixture/DeleteQueryLoggingConfig.yaml +10/−0
• fixture/DeleteQueryLoggingConfigResponse.proto +0/−0
• fixture/GetQueryLoggingConfig.yaml +10/−0
• fixture/GetQueryLoggingConfigResponse.proto +0/−0
• fixture/ListQueryLoggingConfigs.yaml +10/−0
• fixture/ListQueryLoggingConfigsResponse.proto +0/−0
• gen/Network/AWS/Route53.hs +93/−54
• gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +29/−28
• gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +40/−57
• gen/Network/AWS/Route53/ChangeTagsForResource.hs +31/−29
• gen/Network/AWS/Route53/CreateHealthCheck.hs +39/−31
• gen/Network/AWS/Route53/CreateHostedZone.hs +62/−60
• gen/Network/AWS/Route53/CreateQueryLoggingConfig.hs +219/−0
• gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +30/−29
• gen/Network/AWS/Route53/CreateTrafficPolicy.hs +30/−31
• gen/Network/AWS/Route53/CreateTrafficPolicyInstance.hs +37/−34
• gen/Network/AWS/Route53/CreateTrafficPolicyVersion.hs +31/−31
• gen/Network/AWS/Route53/CreateVPCAssociationAuthorization.hs +31/−28
• gen/Network/AWS/Route53/DeleteHealthCheck.hs +24/−24
• gen/Network/AWS/Route53/DeleteHostedZone.hs +41/−30
• gen/Network/AWS/Route53/DeleteQueryLoggingConfig.hs +117/−0
• gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +28/−27
• gen/Network/AWS/Route53/DeleteTrafficPolicy.hs +22/−25
• gen/Network/AWS/Route53/DeleteTrafficPolicyInstance.hs +23/−24
• gen/Network/AWS/Route53/DeleteVPCAssociationAuthorization.hs +25/−23
• gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +29/−28
• gen/Network/AWS/Route53/GetChange.hs +27/−28
• gen/Network/AWS/Route53/GetCheckerIPRanges.hs +27/−33
• gen/Network/AWS/Route53/GetGeoLocation.hs +45/−29
• gen/Network/AWS/Route53/GetHealthCheck.hs +25/−29
• gen/Network/AWS/Route53/GetHealthCheckCount.hs +27/−23
• gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +28/−28
• gen/Network/AWS/Route53/GetHealthCheckStatus.hs +29/−27
• gen/Network/AWS/Route53/GetHostedZone.hs +40/−39
• gen/Network/AWS/Route53/GetHostedZoneCount.hs +29/−25
• gen/Network/AWS/Route53/GetQueryLoggingConfig.hs +128/−0
• gen/Network/AWS/Route53/GetReusableDelegationSet.hs +29/−27
• gen/Network/AWS/Route53/GetTrafficPolicy.hs +27/−28
• gen/Network/AWS/Route53/GetTrafficPolicyInstance.hs +25/−27
• gen/Network/AWS/Route53/GetTrafficPolicyInstanceCount.hs +25/−22
• gen/Network/AWS/Route53/ListGeoLocations.hs +51/−49
• gen/Network/AWS/Route53/ListHealthChecks.hs +47/−48
• gen/Network/AWS/Route53/ListHostedZones.hs +50/−77
• gen/Network/AWS/Route53/ListHostedZonesByName.hs +49/−69
• gen/Network/AWS/Route53/ListQueryLoggingConfigs.hs +160/−0
• gen/Network/AWS/Route53/ListResourceRecordSets.hs +53/−49
• gen/Network/AWS/Route53/ListReusableDelegationSets.hs +46/−44
• gen/Network/AWS/Route53/ListTagsForResource.hs +27/−25
• gen/Network/AWS/Route53/ListTagsForResources.hs +25/−25
• gen/Network/AWS/Route53/ListTrafficPolicies.hs +42/−62
• gen/Network/AWS/Route53/ListTrafficPolicyInstances.hs +60/−77
• gen/Network/AWS/Route53/ListTrafficPolicyInstancesByHostedZone.hs +68/−79
• gen/Network/AWS/Route53/ListTrafficPolicyInstancesByPolicy.hs +62/−76
• gen/Network/AWS/Route53/ListTrafficPolicyVersions.hs +48/−65
• gen/Network/AWS/Route53/ListVPCAssociationAuthorizations.hs +43/−44
• gen/Network/AWS/Route53/TestDNSAnswer.hs +53/−65
• gen/Network/AWS/Route53/Types.hs +207/−87
• gen/Network/AWS/Route53/Types/Product.hs +483/−406
• gen/Network/AWS/Route53/Types/Sum.hs +151/−94
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +79/−64
• gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +29/−30
• gen/Network/AWS/Route53/UpdateTrafficPolicyComment.hs +33/−35
• gen/Network/AWS/Route53/UpdateTrafficPolicyInstance.hs +34/−31
• gen/Network/AWS/Route53/Waiters.hs +19/−16
• src/Network/AWS/Route53/Internal.hs +2/−0
• test/Main.hs +2/−2
• test/Test/AWS/Gen/Route53.hs +76/−4

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

@@ -1,13 +1,13 @@ name:                  amazonka-route53-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Route 53 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,14 +29,19 @@     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-route53  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.Route53@@ -45,6 +50,7 @@         , Network.AWS.Route53.ChangeTagsForResource         , Network.AWS.Route53.CreateHealthCheck         , Network.AWS.Route53.CreateHostedZone+        , Network.AWS.Route53.CreateQueryLoggingConfig         , Network.AWS.Route53.CreateReusableDelegationSet         , Network.AWS.Route53.CreateTrafficPolicy         , Network.AWS.Route53.CreateTrafficPolicyInstance@@ -52,6 +58,7 @@         , Network.AWS.Route53.CreateVPCAssociationAuthorization         , Network.AWS.Route53.DeleteHealthCheck         , Network.AWS.Route53.DeleteHostedZone+        , Network.AWS.Route53.DeleteQueryLoggingConfig         , Network.AWS.Route53.DeleteReusableDelegationSet         , Network.AWS.Route53.DeleteTrafficPolicy         , Network.AWS.Route53.DeleteTrafficPolicyInstance@@ -66,6 +73,7 @@         , Network.AWS.Route53.GetHealthCheckStatus         , Network.AWS.Route53.GetHostedZone         , Network.AWS.Route53.GetHostedZoneCount+        , Network.AWS.Route53.GetQueryLoggingConfig         , Network.AWS.Route53.GetReusableDelegationSet         , Network.AWS.Route53.GetTrafficPolicy         , Network.AWS.Route53.GetTrafficPolicyInstance@@ -74,6 +82,7 @@         , Network.AWS.Route53.ListHealthChecks         , Network.AWS.Route53.ListHostedZones         , Network.AWS.Route53.ListHostedZonesByName+        , Network.AWS.Route53.ListQueryLoggingConfigs         , Network.AWS.Route53.ListResourceRecordSets         , Network.AWS.Route53.ListReusableDelegationSets         , Network.AWS.Route53.ListTagsForResource@@ -98,7 +107,7 @@         , Network.AWS.Route53.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5         , text >= 1.1 @@ -119,9 +128,9 @@         , Test.AWS.Route53.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-route53 == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-route53         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/route53/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  route53.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: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/route53/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  route53.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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/route53/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  route53.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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/route53/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  route53.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,9 +5,9 @@  -- | -- Module      : Network.AWS.Route53--- 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) --@@ -23,6 +23,9 @@     -- ** HealthCheckVersionMismatch     , _HealthCheckVersionMismatch +    -- ** NoSuchQueryLoggingConfig+    , _NoSuchQueryLoggingConfig+     -- ** InvalidInput     , _InvalidInput @@ -38,6 +41,9 @@     -- ** ConflictingTypes     , _ConflictingTypes +    -- ** QueryLoggingConfigAlreadyExists+    , _QueryLoggingConfigAlreadyExists+     -- ** ConcurrentModification     , _ConcurrentModification @@ -47,6 +53,12 @@     -- ** NotAuthorizedException     , _NotAuthorizedException +    -- ** InsufficientCloudWatchLogsResourcePolicy+    , _InsufficientCloudWatchLogsResourcePolicy++    -- ** NoSuchCloudWatchLogsLogGroup+    , _NoSuchCloudWatchLogsLogGroup+     -- ** PriorRequestNotComplete     , _PriorRequestNotComplete @@ -191,6 +203,9 @@     -- ** ListTagsForResource     , module Network.AWS.Route53.ListTagsForResource +    -- ** ListQueryLoggingConfigs+    , module Network.AWS.Route53.ListQueryLoggingConfigs+     -- ** ListTrafficPolicyInstances     , module Network.AWS.Route53.ListTrafficPolicyInstances @@ -254,6 +269,9 @@     -- ** CreateReusableDelegationSet     , module Network.AWS.Route53.CreateReusableDelegationSet +    -- ** CreateQueryLoggingConfig+    , module Network.AWS.Route53.CreateQueryLoggingConfig+     -- ** GetHealthCheckCount     , module Network.AWS.Route53.GetHealthCheckCount @@ -263,6 +281,12 @@     -- ** GetHostedZoneCount     , module Network.AWS.Route53.GetHostedZoneCount +    -- ** DeleteQueryLoggingConfig+    , module Network.AWS.Route53.DeleteQueryLoggingConfig++    -- ** GetQueryLoggingConfig+    , module Network.AWS.Route53.GetQueryLoggingConfig+     -- ** GetReusableDelegationSet     , module Network.AWS.Route53.GetReusableDelegationSet @@ -343,6 +367,9 @@     -- ** RecordType     , RecordType (..) +    -- ** ResettableElementName+    , ResettableElementName (..)+     -- ** Statistic     , Statistic (..) @@ -478,6 +505,13 @@     , hzcPrivateZone     , hzcComment +    -- ** QueryLoggingConfig+    , QueryLoggingConfig+    , queryLoggingConfig+    , qlcId+    , qlcHostedZoneId+    , qlcCloudWatchLogsLogGroupARN+     -- ** ResourceRecord     , ResourceRecord     , resourceRecord@@ -496,6 +530,7 @@     , rrsHealthCheckId     , rrsRegion     , rrsGeoLocation+    , rrsMultiValueAnswer     , rrsName     , rrsType @@ -557,58 +592,62 @@     , vpcVPCId     ) where -import           Network.AWS.Route53.AssociateVPCWithHostedZone-import           Network.AWS.Route53.ChangeResourceRecordSets-import           Network.AWS.Route53.ChangeTagsForResource-import           Network.AWS.Route53.CreateHealthCheck-import           Network.AWS.Route53.CreateHostedZone-import           Network.AWS.Route53.CreateReusableDelegationSet-import           Network.AWS.Route53.CreateTrafficPolicy-import           Network.AWS.Route53.CreateTrafficPolicyInstance-import           Network.AWS.Route53.CreateTrafficPolicyVersion-import           Network.AWS.Route53.CreateVPCAssociationAuthorization-import           Network.AWS.Route53.DeleteHealthCheck-import           Network.AWS.Route53.DeleteHostedZone-import           Network.AWS.Route53.DeleteReusableDelegationSet-import           Network.AWS.Route53.DeleteTrafficPolicy-import           Network.AWS.Route53.DeleteTrafficPolicyInstance-import           Network.AWS.Route53.DeleteVPCAssociationAuthorization-import           Network.AWS.Route53.DisassociateVPCFromHostedZone-import           Network.AWS.Route53.GetChange-import           Network.AWS.Route53.GetCheckerIPRanges-import           Network.AWS.Route53.GetGeoLocation-import           Network.AWS.Route53.GetHealthCheck-import           Network.AWS.Route53.GetHealthCheckCount-import           Network.AWS.Route53.GetHealthCheckLastFailureReason-import           Network.AWS.Route53.GetHealthCheckStatus-import           Network.AWS.Route53.GetHostedZone-import           Network.AWS.Route53.GetHostedZoneCount-import           Network.AWS.Route53.GetReusableDelegationSet-import           Network.AWS.Route53.GetTrafficPolicy-import           Network.AWS.Route53.GetTrafficPolicyInstance-import           Network.AWS.Route53.GetTrafficPolicyInstanceCount-import           Network.AWS.Route53.Internal-import           Network.AWS.Route53.ListGeoLocations-import           Network.AWS.Route53.ListHealthChecks-import           Network.AWS.Route53.ListHostedZones-import           Network.AWS.Route53.ListHostedZonesByName-import           Network.AWS.Route53.ListResourceRecordSets-import           Network.AWS.Route53.ListReusableDelegationSets-import           Network.AWS.Route53.ListTagsForResource-import           Network.AWS.Route53.ListTagsForResources-import           Network.AWS.Route53.ListTrafficPolicies-import           Network.AWS.Route53.ListTrafficPolicyInstances-import           Network.AWS.Route53.ListTrafficPolicyInstancesByHostedZone-import           Network.AWS.Route53.ListTrafficPolicyInstancesByPolicy-import           Network.AWS.Route53.ListTrafficPolicyVersions-import           Network.AWS.Route53.ListVPCAssociationAuthorizations-import           Network.AWS.Route53.TestDNSAnswer-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.UpdateHealthCheck-import           Network.AWS.Route53.UpdateHostedZoneComment-import           Network.AWS.Route53.UpdateTrafficPolicyComment-import           Network.AWS.Route53.UpdateTrafficPolicyInstance-import           Network.AWS.Route53.Waiters+import Network.AWS.Route53.AssociateVPCWithHostedZone+import Network.AWS.Route53.ChangeResourceRecordSets+import Network.AWS.Route53.ChangeTagsForResource+import Network.AWS.Route53.CreateHealthCheck+import Network.AWS.Route53.CreateHostedZone+import Network.AWS.Route53.CreateQueryLoggingConfig+import Network.AWS.Route53.CreateReusableDelegationSet+import Network.AWS.Route53.CreateTrafficPolicy+import Network.AWS.Route53.CreateTrafficPolicyInstance+import Network.AWS.Route53.CreateTrafficPolicyVersion+import Network.AWS.Route53.CreateVPCAssociationAuthorization+import Network.AWS.Route53.DeleteHealthCheck+import Network.AWS.Route53.DeleteHostedZone+import Network.AWS.Route53.DeleteQueryLoggingConfig+import Network.AWS.Route53.DeleteReusableDelegationSet+import Network.AWS.Route53.DeleteTrafficPolicy+import Network.AWS.Route53.DeleteTrafficPolicyInstance+import Network.AWS.Route53.DeleteVPCAssociationAuthorization+import Network.AWS.Route53.DisassociateVPCFromHostedZone+import Network.AWS.Route53.GetChange+import Network.AWS.Route53.GetCheckerIPRanges+import Network.AWS.Route53.GetGeoLocation+import Network.AWS.Route53.GetHealthCheck+import Network.AWS.Route53.GetHealthCheckCount+import Network.AWS.Route53.GetHealthCheckLastFailureReason+import Network.AWS.Route53.GetHealthCheckStatus+import Network.AWS.Route53.GetHostedZone+import Network.AWS.Route53.GetHostedZoneCount+import Network.AWS.Route53.GetQueryLoggingConfig+import Network.AWS.Route53.GetReusableDelegationSet+import Network.AWS.Route53.GetTrafficPolicy+import Network.AWS.Route53.GetTrafficPolicyInstance+import Network.AWS.Route53.GetTrafficPolicyInstanceCount+import Network.AWS.Route53.Internal+import Network.AWS.Route53.ListGeoLocations+import Network.AWS.Route53.ListHealthChecks+import Network.AWS.Route53.ListHostedZones+import Network.AWS.Route53.ListHostedZonesByName+import Network.AWS.Route53.ListQueryLoggingConfigs+import Network.AWS.Route53.ListResourceRecordSets+import Network.AWS.Route53.ListReusableDelegationSets+import Network.AWS.Route53.ListTagsForResource+import Network.AWS.Route53.ListTagsForResources+import Network.AWS.Route53.ListTrafficPolicies+import Network.AWS.Route53.ListTrafficPolicyInstances+import Network.AWS.Route53.ListTrafficPolicyInstancesByHostedZone+import Network.AWS.Route53.ListTrafficPolicyInstancesByPolicy+import Network.AWS.Route53.ListTrafficPolicyVersions+import Network.AWS.Route53.ListVPCAssociationAuthorizations+import Network.AWS.Route53.TestDNSAnswer+import Network.AWS.Route53.Types+import Network.AWS.Route53.UpdateHealthCheck+import Network.AWS.Route53.UpdateHostedZoneComment+import Network.AWS.Route53.UpdateTrafficPolicyComment+import Network.AWS.Route53.UpdateTrafficPolicyInstance+import Network.AWS.Route53.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53.AssociateVPCWithHostedZone--- 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) --@@ -23,8 +23,6 @@ -- -- /Important:/ To perform the association, the VPC and the private hosted zone must already exist. You can't convert a public hosted zone into a private hosted zone. ----- Send a @POST@ request to the @/2013-04-01/hostedzone//hosted zone ID/ /associatevpc@ resource. The request body must include a document with an @AssociateVPCWithHostedZoneRequest@ element. The response contains a @ChangeInfo@ data type that you can use to track the progress of the request.--- module Network.AWS.Route53.AssociateVPCWithHostedZone     (     -- * Creating a Request@@ -43,12 +41,12 @@     , avwhzrsChangeInfo     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the request to associate a VPC with a private hosted zone. --@@ -56,11 +54,12 @@ -- -- /See:/ 'associateVPCWithHostedZone' smart constructor. data AssociateVPCWithHostedZone = AssociateVPCWithHostedZone'-    { _avwhzComment      :: !(Maybe Text)-    , _avwhzHostedZoneId :: !ResourceId-    , _avwhzVPC          :: !VPC-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _avwhzComment      :: !(Maybe Text)+  , _avwhzHostedZoneId :: !ResourceId+  , _avwhzVPC          :: !VPC+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateVPCWithHostedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,12 +74,13 @@     -> VPC -- ^ 'avwhzVPC'     -> AssociateVPCWithHostedZone associateVPCWithHostedZone pHostedZoneId_ pVPC_ =-    AssociateVPCWithHostedZone'-    { _avwhzComment = Nothing-    , _avwhzHostedZoneId = pHostedZoneId_-    , _avwhzVPC = pVPC_-    }+  AssociateVPCWithHostedZone'+  { _avwhzComment = Nothing+  , _avwhzHostedZoneId = pHostedZoneId_+  , _avwhzVPC = pVPC_+  } + -- | /Optional:/ A comment about the association request. avwhzComment :: Lens' AssociateVPCWithHostedZone (Maybe Text) avwhzComment = lens _avwhzComment (\ s a -> s{_avwhzComment = a});@@ -103,9 +103,9 @@                  AssociateVPCWithHostedZoneResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) -instance Hashable AssociateVPCWithHostedZone+instance Hashable AssociateVPCWithHostedZone where -instance NFData AssociateVPCWithHostedZone+instance NFData AssociateVPCWithHostedZone where  instance ToElement AssociateVPCWithHostedZone where         toElement@@ -135,10 +135,11 @@ -- -- /See:/ 'associateVPCWithHostedZoneResponse' smart constructor. data AssociateVPCWithHostedZoneResponse = AssociateVPCWithHostedZoneResponse'-    { _avwhzrsResponseStatus :: !Int-    , _avwhzrsChangeInfo     :: !ChangeInfo-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _avwhzrsResponseStatus :: !Int+  , _avwhzrsChangeInfo     :: !ChangeInfo+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateVPCWithHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -151,11 +152,10 @@     -> ChangeInfo -- ^ 'avwhzrsChangeInfo'     -> AssociateVPCWithHostedZoneResponse associateVPCWithHostedZoneResponse pResponseStatus_ pChangeInfo_ =-    AssociateVPCWithHostedZoneResponse'-    { _avwhzrsResponseStatus = pResponseStatus_-    , _avwhzrsChangeInfo = pChangeInfo_-    }+  AssociateVPCWithHostedZoneResponse'+  {_avwhzrsResponseStatus = pResponseStatus_, _avwhzrsChangeInfo = pChangeInfo_} + -- | -- | The response status code. avwhzrsResponseStatus :: Lens' AssociateVPCWithHostedZoneResponse Int avwhzrsResponseStatus = lens _avwhzrsResponseStatus (\ s a -> s{_avwhzrsResponseStatus = a});@@ -165,3 +165,4 @@ avwhzrsChangeInfo = lens _avwhzrsChangeInfo (\ s a -> s{_avwhzrsChangeInfo = a});  instance NFData AssociateVPCWithHostedZoneResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53.ChangeResourceRecordSets--- 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) ----- Create, change, update, or delete authoritative DNS information on all Amazon Route 53 servers. Send a @POST@ request to:+-- Creates, changes, or deletes a resource record set, which contains authoritative DNS information for a specified domain name or subdomain name. For example, you can use @ChangeResourceRecordSets@ to create a resource record set that routes traffic for test.example.com to a web server that has an IP address of 192.0.2.44. -- ----- @/2013-04-01/hostedzone//Amazon Route 53 hosted Zone ID/ /rrset@ resource.+-- __Change Batches and Transactional Changes__ -- -- The request body must include a document with a @ChangeResourceRecordSetsRequest@ element. The request body contains a list of change items, known as a change batch. Change batches are considered transactional changes. When using the Amazon Route 53 API to change resource record sets, Amazon Route 53 either makes all or none of the changes in a change batch request. This ensures that Amazon Route 53 never partially implements the intended changes to the resource record sets in a hosted zone. --@@ -29,6 +29,12 @@ -- -- /Important:/ Due to the nature of transactional changes, you can't delete the same resource record set more than once in a single change batch. If you attempt to delete the same change batch more than once, Amazon Route 53 returns an @InvalidChangeBatch@ error. --+-- __Traffic Flow__+--+-- To create resource record sets for complex routing configurations, use either the traffic flow visual editor in the Amazon Route 53 console or the API actions for traffic policies and traffic policy instances. Save the configuration as a traffic policy, then associate the traffic policy with one or more domain names (such as example.com) or subdomain names (such as www.example.com), in the same hosted zone or in multiple hosted zones. You can roll back the updates if the new configuration isn't performing as expected. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/traffic-flow.html Using Traffic Flow to Route DNS Traffic> in the /Amazon Route 53 Developer Guide/ .+--+-- __Create, Delete, and Upsert__+-- -- Use @ChangeResourceRecordsSetsRequest@ to perform the following actions: -- --     * @CREATE@ : Creates a resource record set that has the specified values.@@ -39,43 +45,19 @@ -- -- ----- The values that you need to include in the request depend on the type of resource record set that you're creating, deleting, or updating:------ __Basic resource record sets (excluding alias, failover, geolocation, latency, and weighted resource record sets)__------     * @Name@------     * @Type@------     * @TTL@------------ __Failover, geolocation, latency, or weighted resource record sets (excluding alias resource record sets)__------     * @Name@------     * @Type@------     * @TTL@------     * @SetIdentifier@------------ __Alias resource record sets (including failover alias, geolocation alias, latency alias, and weighted alias resource record sets)__------     * @Name@+-- __Syntaxes for Creating, Updating, and Deleting Resource Record Sets__ -----     * @Type@+-- The syntax for a request depends on the type of resource record set that you want to create, delete, or update, such as weighted, alias, or failover. The XML elements in your request must appear in the order listed in the syntax. -----     * @AliasTarget@ (includes @DNSName@ , @EvaluateTargetHealth@ , and @HostedZoneId@ )+-- For an example for each type of resource record set, see "Examples." -----     * @SetIdentifier@ (for failover, geolocation, latency, and weighted resource record sets)+-- Don't refer to the syntax in the "Parameter Syntax" section, which includes all of the elements for every kind of resource record set that you can create, delete, or update by using @ChangeResourceRecordSets@ . --+-- __Change Propagation to Amazon Route 53 DNS Servers__ --+-- When you submit a @ChangeResourceRecordSets@ request, Amazon Route 53 propagates your changes to all of the Amazon Route 53 authoritative DNS servers. While your changes are propagating, @GetChange@ returns a status of @PENDING@ . When propagation is complete, @GetChange@ returns a status of @INSYNC@ . Changes generally propagate to all Amazon Route 53 name servers within 60 seconds. For more information, see 'GetChange' . ----- When you submit a @ChangeResourceRecordSets@ request, Amazon Route 53 propagates your changes to all of the Amazon Route 53 authoritative DNS servers. While your changes are propagating, @GetChange@ returns a status of @PENDING@ . When propagation is complete, @GetChange@ returns a status of @INSYNC@ . Changes generally propagate to all Amazon Route 53 name servers in a few minutes. In rare circumstances, propagation can take up to 30 minutes. For more information, see 'GetChange'+-- __Limits on ChangeResourceRecordSets Requests__ -- -- For information about the limits on a @ChangeResourceRecordSets@ request, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ . --@@ -96,12 +78,12 @@     , crrsrsChangeInfo     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains change information for the resource record set. --@@ -109,10 +91,11 @@ -- -- /See:/ 'changeResourceRecordSets' smart constructor. data ChangeResourceRecordSets = ChangeResourceRecordSets'-    { _crrsHostedZoneId :: !ResourceId-    , _crrsChangeBatch  :: !ChangeBatch-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrsHostedZoneId :: !ResourceId+  , _crrsChangeBatch  :: !ChangeBatch+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangeResourceRecordSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +108,10 @@     -> ChangeBatch -- ^ 'crrsChangeBatch'     -> ChangeResourceRecordSets changeResourceRecordSets pHostedZoneId_ pChangeBatch_ =-    ChangeResourceRecordSets'-    { _crrsHostedZoneId = pHostedZoneId_-    , _crrsChangeBatch = pChangeBatch_-    }+  ChangeResourceRecordSets'+  {_crrsHostedZoneId = pHostedZoneId_, _crrsChangeBatch = pChangeBatch_} + -- | The ID of the hosted zone that contains the resource record sets that you want to change. crrsHostedZoneId :: Lens' ChangeResourceRecordSets ResourceId crrsHostedZoneId = lens _crrsHostedZoneId (\ s a -> s{_crrsHostedZoneId = a});@@ -148,9 +130,9 @@                  ChangeResourceRecordSetsResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) -instance Hashable ChangeResourceRecordSets+instance Hashable ChangeResourceRecordSets where -instance NFData ChangeResourceRecordSets+instance NFData ChangeResourceRecordSets where  instance ToElement ChangeResourceRecordSets where         toElement@@ -179,10 +161,11 @@ -- -- /See:/ 'changeResourceRecordSetsResponse' smart constructor. data ChangeResourceRecordSetsResponse = ChangeResourceRecordSetsResponse'-    { _crrsrsResponseStatus :: !Int-    , _crrsrsChangeInfo     :: !ChangeInfo-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrsrsResponseStatus :: !Int+  , _crrsrsChangeInfo     :: !ChangeInfo+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangeResourceRecordSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -195,11 +178,10 @@     -> ChangeInfo -- ^ 'crrsrsChangeInfo'     -> ChangeResourceRecordSetsResponse changeResourceRecordSetsResponse pResponseStatus_ pChangeInfo_ =-    ChangeResourceRecordSetsResponse'-    { _crrsrsResponseStatus = pResponseStatus_-    , _crrsrsChangeInfo = pChangeInfo_-    }+  ChangeResourceRecordSetsResponse'+  {_crrsrsResponseStatus = pResponseStatus_, _crrsrsChangeInfo = pChangeInfo_} + -- | -- | The response status code. crrsrsResponseStatus :: Lens' ChangeResourceRecordSetsResponse Int crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a});@@ -209,3 +191,4 @@ crrsrsChangeInfo = lens _crrsrsChangeInfo (\ s a -> s{_crrsrsChangeInfo = a});  instance NFData ChangeResourceRecordSetsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53.ChangeTagsForResource--- 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,12 +41,12 @@     , ctfrrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the tags that you want to add, edit, or delete. --@@ -54,19 +54,20 @@ -- -- /See:/ 'changeTagsForResource' smart constructor. data ChangeTagsForResource = ChangeTagsForResource'-    { _ctfrRemoveTagKeys :: !(Maybe (List1 Text))-    , _ctfrAddTags       :: !(Maybe (List1 Tag))-    , _ctfrResourceType  :: !TagResourceType-    , _ctfrResourceId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctfrRemoveTagKeys :: !(Maybe (List1 Text))+  , _ctfrAddTags       :: !(Maybe (List1 Tag))+  , _ctfrResourceType  :: !TagResourceType+  , _ctfrResourceId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangeTagsForResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ctfrRemoveTagKeys' - A complex type that contains a list of the tags that you want to delete from the specified health check or hosted zone. You can specify up to 10 keys. ----- * 'ctfrAddTags' - A complex type that contains a list of the tags that you want to add to the specified health check or hosted zone and/or the tags for which you want to edit the @Value@ element. You can add a maximum of 10 tags to a health check or a hosted zone.+-- * 'ctfrAddTags' - A complex type that contains a list of the tags that you want to add to the specified health check or hosted zone and/or the tags that you want to edit @Value@ for. You can add a maximum of 10 tags to a health check or a hosted zone. -- -- * 'ctfrResourceType' - The type of the resource.     * The resource type for health checks is @healthcheck@ .     * The resource type for hosted zones is @hostedzone@ . --@@ -76,18 +77,19 @@     -> Text -- ^ 'ctfrResourceId'     -> ChangeTagsForResource changeTagsForResource pResourceType_ pResourceId_ =-    ChangeTagsForResource'-    { _ctfrRemoveTagKeys = Nothing-    , _ctfrAddTags = Nothing-    , _ctfrResourceType = pResourceType_-    , _ctfrResourceId = pResourceId_-    }+  ChangeTagsForResource'+  { _ctfrRemoveTagKeys = Nothing+  , _ctfrAddTags = Nothing+  , _ctfrResourceType = pResourceType_+  , _ctfrResourceId = pResourceId_+  } + -- | A complex type that contains a list of the tags that you want to delete from the specified health check or hosted zone. You can specify up to 10 keys. ctfrRemoveTagKeys :: Lens' ChangeTagsForResource (Maybe (NonEmpty Text)) ctfrRemoveTagKeys = lens _ctfrRemoveTagKeys (\ s a -> s{_ctfrRemoveTagKeys = a}) . mapping _List1; --- | A complex type that contains a list of the tags that you want to add to the specified health check or hosted zone and/or the tags for which you want to edit the @Value@ element. You can add a maximum of 10 tags to a health check or a hosted zone.+-- | A complex type that contains a list of the tags that you want to add to the specified health check or hosted zone and/or the tags that you want to edit @Value@ for. You can add a maximum of 10 tags to a health check or a hosted zone. ctfrAddTags :: Lens' ChangeTagsForResource (Maybe (NonEmpty Tag)) ctfrAddTags = lens _ctfrAddTags (\ s a -> s{_ctfrAddTags = a}) . mapping _List1; @@ -109,9 +111,9 @@                  ChangeTagsForResourceResponse' <$>                    (pure (fromEnum s))) -instance Hashable ChangeTagsForResource+instance Hashable ChangeTagsForResource where -instance NFData ChangeTagsForResource+instance NFData ChangeTagsForResource where  instance ToElement ChangeTagsForResource where         toElement@@ -144,9 +146,10 @@ -- -- /See:/ 'changeTagsForResourceResponse' smart constructor. newtype ChangeTagsForResourceResponse = ChangeTagsForResourceResponse'-    { _ctfrrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctfrrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangeTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,12 +159,11 @@     :: Int -- ^ 'ctfrrsResponseStatus'     -> ChangeTagsForResourceResponse changeTagsForResourceResponse pResponseStatus_ =-    ChangeTagsForResourceResponse'-    { _ctfrrsResponseStatus = pResponseStatus_-    }+  ChangeTagsForResourceResponse' {_ctfrrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. ctfrrsResponseStatus :: Lens' ChangeTagsForResourceResponse Int ctfrrsResponseStatus = lens _ctfrrsResponseStatus (\ s a -> s{_ctfrrsResponseStatus = a}); -instance NFData ChangeTagsForResourceResponse+instance NFData ChangeTagsForResourceResponse where

@@ -12,19 +12,23 @@  -- | -- Module      : Network.AWS.Route53.CreateHealthCheck--- 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) -- -- Creates a new health check. -- ----- To create a new health check, send a @POST@ request to the @/2013-04-01/healthcheck@ resource. The request body must include a document with a @CreateHealthCheckRequest@ element. The response returns the @CreateHealthCheckResponse@ element, containing the health check ID specified when adding health check to a resource record set. For information about adding health checks to resource record sets, see 'ResourceRecordSet$HealthCheckId' in 'ChangeResourceRecordSets' .+-- For information about adding health checks to resource record sets, see 'ResourceRecordSet$HealthCheckId' in 'ChangeResourceRecordSets' . ----- If you are registering EC2 instances with an Elastic Load Balancing (ELB) load balancer, do not create Amazon Route 53 health checks for the EC2 instances. When you register an EC2 instance with a load balancer, you configure settings for an ELB health check, which performs a similar function to an Amazon Route 53 health check.+-- __ELB Load Balancers__ --+-- If you're registering EC2 instances with an Elastic Load Balancing (ELB) load balancer, do not create Amazon Route 53 health checks for the EC2 instances. When you register an EC2 instance with a load balancer, you configure settings for an ELB health check, which performs a similar function to an Amazon Route 53 health check.+--+-- __Private Hosted Zones__+-- -- You can associate health checks with failover resource record sets in a private hosted zone. Note the following: -- --     * Amazon Route 53 health checkers are outside the VPC. To check the health of an endpoint within a VPC by IP address, you must assign a public IP address to the instance in the VPC.@@ -53,12 +57,12 @@     , chcrsLocation     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains the health check request information. --@@ -66,15 +70,16 @@ -- -- /See:/ 'createHealthCheck' smart constructor. data CreateHealthCheck = CreateHealthCheck'-    { _chcCallerReference   :: !Text-    , _chcHealthCheckConfig :: !HealthCheckConfig-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _chcCallerReference   :: !Text+  , _chcHealthCheckConfig :: !HealthCheckConfig+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateHealthCheck' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chcCallerReference' - A unique string that identifies the request and that allows failed @CreateHealthCheck@ requests to be retried without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you create a health check.+-- * 'chcCallerReference' - A unique string that identifies the request and that allows you to retry a failed @CreateHealthCheck@ request without the risk of creating two identical health checks:     * If you send a @CreateHealthCheck@ request with the same @CallerReference@ and settings as a previous request, and if the health check doesn't exist, Amazon Route 53 creates the health check. If the health check does exist, Amazon Route 53 returns the settings for the existing health check.     * If you send a @CreateHealthCheck@ request with the same @CallerReference@ as a deleted health check, regardless of the settings, Amazon Route 53 returns a @HealthCheckAlreadyExists@ error.     * If you send a @CreateHealthCheck@ request with the same @CallerReference@ as an existing health check but with different settings, Amazon Route 53 returns a @HealthCheckAlreadyExists@ error.     * If you send a @CreateHealthCheck@ request with a unique @CallerReference@ but settings identical to an existing health check, Amazon Route 53 creates the health check. -- -- * 'chcHealthCheckConfig' - A complex type that contains the response to a @CreateHealthCheck@ request. createHealthCheck@@ -82,12 +87,13 @@     -> HealthCheckConfig -- ^ 'chcHealthCheckConfig'     -> CreateHealthCheck createHealthCheck pCallerReference_ pHealthCheckConfig_ =-    CreateHealthCheck'-    { _chcCallerReference = pCallerReference_-    , _chcHealthCheckConfig = pHealthCheckConfig_-    }+  CreateHealthCheck'+  { _chcCallerReference = pCallerReference_+  , _chcHealthCheckConfig = pHealthCheckConfig_+  } --- | A unique string that identifies the request and that allows failed @CreateHealthCheck@ requests to be retried without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you create a health check.++-- | A unique string that identifies the request and that allows you to retry a failed @CreateHealthCheck@ request without the risk of creating two identical health checks:     * If you send a @CreateHealthCheck@ request with the same @CallerReference@ and settings as a previous request, and if the health check doesn't exist, Amazon Route 53 creates the health check. If the health check does exist, Amazon Route 53 returns the settings for the existing health check.     * If you send a @CreateHealthCheck@ request with the same @CallerReference@ as a deleted health check, regardless of the settings, Amazon Route 53 returns a @HealthCheckAlreadyExists@ error.     * If you send a @CreateHealthCheck@ request with the same @CallerReference@ as an existing health check but with different settings, Amazon Route 53 returns a @HealthCheckAlreadyExists@ error.     * If you send a @CreateHealthCheck@ request with a unique @CallerReference@ but settings identical to an existing health check, Amazon Route 53 creates the health check. chcCallerReference :: Lens' CreateHealthCheck Text chcCallerReference = lens _chcCallerReference (\ s a -> s{_chcCallerReference = a}); @@ -105,9 +111,9 @@                    (pure (fromEnum s)) <*> (x .@ "HealthCheck") <*>                      (h .# "Location")) -instance Hashable CreateHealthCheck+instance Hashable CreateHealthCheck where -instance NFData CreateHealthCheck+instance NFData CreateHealthCheck where  instance ToElement CreateHealthCheck where         toElement@@ -135,11 +141,12 @@ -- -- /See:/ 'createHealthCheckResponse' smart constructor. data CreateHealthCheckResponse = CreateHealthCheckResponse'-    { _chcrsResponseStatus :: !Int-    , _chcrsHealthCheck    :: !HealthCheck-    , _chcrsLocation       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _chcrsResponseStatus :: !Int+  , _chcrsHealthCheck    :: !HealthCheck+  , _chcrsLocation       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +162,13 @@     -> Text -- ^ 'chcrsLocation'     -> CreateHealthCheckResponse createHealthCheckResponse pResponseStatus_ pHealthCheck_ pLocation_ =-    CreateHealthCheckResponse'-    { _chcrsResponseStatus = pResponseStatus_-    , _chcrsHealthCheck = pHealthCheck_-    , _chcrsLocation = pLocation_-    }+  CreateHealthCheckResponse'+  { _chcrsResponseStatus = pResponseStatus_+  , _chcrsHealthCheck = pHealthCheck_+  , _chcrsLocation = pLocation_+  } + -- | -- | The response status code. chcrsResponseStatus :: Lens' CreateHealthCheckResponse Int chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});@@ -173,4 +181,4 @@ chcrsLocation :: Lens' CreateHealthCheckResponse Text chcrsLocation = lens _chcrsLocation (\ s a -> s{_chcrsLocation = a}); -instance NFData CreateHealthCheckResponse+instance NFData CreateHealthCheckResponse where

@@ -12,20 +12,18 @@  -- | -- Module      : Network.AWS.Route53.CreateHostedZone--- 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) ----- Creates a new public hosted zone, used to specify how the Domain Name System (DNS) routes traffic on the Internet for a domain, such as example.com, and its subdomains.+-- Creates a new public hosted zone, which you use to specify how the Domain Name System (DNS) routes traffic on the Internet for a domain, such as example.com, and its subdomains. -- ----- /Important:/ Public hosted zones can't be converted to a private hosted zone or vice versa. Instead, create a new hosted zone with the same name and create new resource record sets.------ Send a @POST@ request to the @/2013-04-01/hostedzone@ resource. The request body must include a document with a @CreateHostedZoneRequest@ element. The response returns the @CreateHostedZoneResponse@ element containing metadata about the hosted zone.+-- /Important:/ You can't convert a public hosted zones to a private hosted zone or vice versa. Instead, you must create a new hosted zone with the same name and create new resource record sets. ----- Fore more information about charges for hosted zones, see <http://aws.amazon.com/route53/pricing/ Amazon Route 53 Pricing> .+-- For more information about charges for hosted zones, see <http://aws.amazon.com/route53/pricing/ Amazon Route 53 Pricing> . -- -- Note the following: --@@ -33,13 +31,13 @@ -- --     * Amazon Route 53 automatically creates a default SOA record and four NS records for the zone. For more information about SOA and NS records, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/SOA-NSrecords.html NS and SOA Records that Amazon Route 53 Creates for a Hosted Zone> in the /Amazon Route 53 Developer Guide/ . -----     * If your domain is registered with a registrar other than Amazon Route 53, you must update the name servers with your registrar to make Amazon Route 53 your DNS service. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/creating-migrating.html Configuring Amazon Route 53 as your DNS Service> in the /Amazon Route 53 Developer's Guide/ .+-- If you want to use the same name servers for multiple hosted zones, you can optionally associate a reusable delegation set with the hosted zone. See the @DelegationSetId@ element. --+--     * If your domain is registered with a registrar other than Amazon Route 53, you must update the name servers with your registrar to make Amazon Route 53 your DNS service. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/creating-migrating.html Configuring Amazon Route 53 as your DNS Service> in the /Amazon Route 53 Developer Guide/ . -- ----- After creating a zone, its initial status is @PENDING@ . This means that it is not yet available on all DNS servers. The status of the zone changes to @INSYNC@ when the NS and SOA records are available on all Amazon Route 53 DNS servers. ----- When trying to create a hosted zone using a reusable delegation set, specify an optional DelegationSetId, and Amazon Route 53 would assign those 4 NS records for the zone, instead of allotting a new one.+-- When you submit a @CreateHostedZone@ request, the initial status of the hosted zone is @PENDING@ . This means that the NS and SOA records are not yet available on all Amazon Route 53 DNS servers. When the NS and SOA records are available, the status of the zone changes to @INSYNC@ . -- module Network.AWS.Route53.CreateHostedZone     (@@ -65,69 +63,71 @@     , chzrsLocation     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type containing the hosted zone request information.+-- | A complex type that contains information about the request to create a hosted zone. -- -- -- -- /See:/ 'createHostedZone' smart constructor. data CreateHostedZone = CreateHostedZone'-    { _chzDelegationSetId  :: !(Maybe ResourceId)-    , _chzVPC              :: !(Maybe VPC)-    , _chzHostedZoneConfig :: !(Maybe HostedZoneConfig)-    , _chzName             :: !Text-    , _chzCallerReference  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _chzDelegationSetId  :: !(Maybe ResourceId)+  , _chzVPC              :: !(Maybe VPC)+  , _chzHostedZoneConfig :: !(Maybe HostedZoneConfig)+  , _chzName             :: !Text+  , _chzCallerReference  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateHostedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chzDelegationSetId' - If you want to associate a reusable delegation set with this hosted zone, the ID that Amazon Route 53 assigned to the reusable delegation set when you created it. For more information about reusable delegation sets, see 'CreateReusableDelegationSet' .     * Type    * String     * Default    * None     * Parent    * @CreatedHostedZoneRequest@+-- * 'chzDelegationSetId' - If you want to associate a reusable delegation set with this hosted zone, the ID that Amazon Route 53 assigned to the reusable delegation set when you created it. For more information about reusable delegation sets, see 'CreateReusableDelegationSet' . ----- * 'chzVPC' - The VPC that you want your hosted zone to be associated with. By providing this parameter, your newly created hosted can't be resolved anywhere other than the given VPC.+-- * 'chzVPC' - (Private hosted zones only) A complex type that contains information about the Amazon VPC that you're associating with this hosted zone. You can specify only one Amazon VPC when you create a private hosted zone. To associate additional Amazon VPCs with the hosted zone, use 'AssociateVPCWithHostedZone' after you create a hosted zone. ----- * 'chzHostedZoneConfig' - (Optional) A complex type that contains an optional comment about your hosted zone. If you don't want to specify a comment, omit both the @HostedZoneConfig@ and @Comment@ elements.+-- * 'chzHostedZoneConfig' - (Optional) A complex type that contains the following optional values:     * For public and private hosted zones, an optional comment     * For private hosted zones, an optional @PrivateZone@ element If you don't specify a comment or the @PrivateZone@ element, omit @HostedZoneConfig@ and the other elements. ----- * 'chzName' - The name of the domain. For resource record types that include a domain name, specify a fully qualified domain name, for example, /www.example.com/ . The trailing dot is optional; Amazon Route 53 assumes that the domain name is fully qualified. This means that Amazon Route 53 treats /www.example.com/ (without a trailing dot) and /www.example.com./ (with a trailing dot) as identical. If you're creating a public hosted zone, this is the name you have registered with your DNS registrar. If your domain name is registered with a registrar other than Amazon Route 53, change the name servers for your domain to the set of @NameServers@ that @CreateHostedZone@ returns in the DelegationSet element.+-- * 'chzName' - The name of the domain. For resource record types that include a domain name, specify a fully qualified domain name, for example, /www.example.com/ . The trailing dot is optional; Amazon Route 53 assumes that the domain name is fully qualified. This means that Amazon Route 53 treats /www.example.com/ (without a trailing dot) and /www.example.com./ (with a trailing dot) as identical. If you're creating a public hosted zone, this is the name you have registered with your DNS registrar. If your domain name is registered with a registrar other than Amazon Route 53, change the name servers for your domain to the set of @NameServers@ that @CreateHostedZone@ returns in @DelegationSet@ . ----- * 'chzCallerReference' - A unique string that identifies the request and that allows failed @CreateHostedZone@ requests to be retried without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you create a hosted zone. @CallerReference@ can be any unique string, for example, a date/time stamp.+-- * 'chzCallerReference' - A unique string that identifies the request and that allows failed @CreateHostedZone@ requests to be retried without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you submit a @CreateHostedZone@ request. @CallerReference@ can be any unique string, for example, a date/time stamp. createHostedZone     :: Text -- ^ 'chzName'     -> Text -- ^ 'chzCallerReference'     -> CreateHostedZone createHostedZone pName_ pCallerReference_ =-    CreateHostedZone'-    { _chzDelegationSetId = Nothing-    , _chzVPC = Nothing-    , _chzHostedZoneConfig = Nothing-    , _chzName = pName_-    , _chzCallerReference = pCallerReference_-    }+  CreateHostedZone'+  { _chzDelegationSetId = Nothing+  , _chzVPC = Nothing+  , _chzHostedZoneConfig = Nothing+  , _chzName = pName_+  , _chzCallerReference = pCallerReference_+  } --- | If you want to associate a reusable delegation set with this hosted zone, the ID that Amazon Route 53 assigned to the reusable delegation set when you created it. For more information about reusable delegation sets, see 'CreateReusableDelegationSet' .     * Type    * String     * Default    * None     * Parent    * @CreatedHostedZoneRequest@++-- | If you want to associate a reusable delegation set with this hosted zone, the ID that Amazon Route 53 assigned to the reusable delegation set when you created it. For more information about reusable delegation sets, see 'CreateReusableDelegationSet' . chzDelegationSetId :: Lens' CreateHostedZone (Maybe ResourceId) chzDelegationSetId = lens _chzDelegationSetId (\ s a -> s{_chzDelegationSetId = a}); --- | The VPC that you want your hosted zone to be associated with. By providing this parameter, your newly created hosted can't be resolved anywhere other than the given VPC.+-- | (Private hosted zones only) A complex type that contains information about the Amazon VPC that you're associating with this hosted zone. You can specify only one Amazon VPC when you create a private hosted zone. To associate additional Amazon VPCs with the hosted zone, use 'AssociateVPCWithHostedZone' after you create a hosted zone. chzVPC :: Lens' CreateHostedZone (Maybe VPC) chzVPC = lens _chzVPC (\ s a -> s{_chzVPC = a}); --- | (Optional) A complex type that contains an optional comment about your hosted zone. If you don't want to specify a comment, omit both the @HostedZoneConfig@ and @Comment@ elements.+-- | (Optional) A complex type that contains the following optional values:     * For public and private hosted zones, an optional comment     * For private hosted zones, an optional @PrivateZone@ element If you don't specify a comment or the @PrivateZone@ element, omit @HostedZoneConfig@ and the other elements. chzHostedZoneConfig :: Lens' CreateHostedZone (Maybe HostedZoneConfig) chzHostedZoneConfig = lens _chzHostedZoneConfig (\ s a -> s{_chzHostedZoneConfig = a}); --- | The name of the domain. For resource record types that include a domain name, specify a fully qualified domain name, for example, /www.example.com/ . The trailing dot is optional; Amazon Route 53 assumes that the domain name is fully qualified. This means that Amazon Route 53 treats /www.example.com/ (without a trailing dot) and /www.example.com./ (with a trailing dot) as identical. If you're creating a public hosted zone, this is the name you have registered with your DNS registrar. If your domain name is registered with a registrar other than Amazon Route 53, change the name servers for your domain to the set of @NameServers@ that @CreateHostedZone@ returns in the DelegationSet element.+-- | The name of the domain. For resource record types that include a domain name, specify a fully qualified domain name, for example, /www.example.com/ . The trailing dot is optional; Amazon Route 53 assumes that the domain name is fully qualified. This means that Amazon Route 53 treats /www.example.com/ (without a trailing dot) and /www.example.com./ (with a trailing dot) as identical. If you're creating a public hosted zone, this is the name you have registered with your DNS registrar. If your domain name is registered with a registrar other than Amazon Route 53, change the name servers for your domain to the set of @NameServers@ that @CreateHostedZone@ returns in @DelegationSet@ . chzName :: Lens' CreateHostedZone Text chzName = lens _chzName (\ s a -> s{_chzName = a}); --- | A unique string that identifies the request and that allows failed @CreateHostedZone@ requests to be retried without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you create a hosted zone. @CallerReference@ can be any unique string, for example, a date/time stamp.+-- | A unique string that identifies the request and that allows failed @CreateHostedZone@ requests to be retried without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you submit a @CreateHostedZone@ request. @CallerReference@ can be any unique string, for example, a date/time stamp. chzCallerReference :: Lens' CreateHostedZone Text chzCallerReference = lens _chzCallerReference (\ s a -> s{_chzCallerReference = a}); @@ -144,9 +144,9 @@                      <*> (x .@ "DelegationSet")                      <*> (h .# "Location")) -instance Hashable CreateHostedZone+instance Hashable CreateHostedZone where -instance NFData CreateHostedZone+instance NFData CreateHostedZone where  instance ToElement CreateHostedZone where         toElement@@ -177,14 +177,15 @@ -- -- /See:/ 'createHostedZoneResponse' smart constructor. data CreateHostedZoneResponse = CreateHostedZoneResponse'-    { _chzrsVPC            :: !(Maybe VPC)-    , _chzrsResponseStatus :: !Int-    , _chzrsHostedZone     :: !HostedZone-    , _chzrsChangeInfo     :: !ChangeInfo-    , _chzrsDelegationSet  :: !DelegationSet-    , _chzrsLocation       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _chzrsVPC            :: !(Maybe VPC)+  , _chzrsResponseStatus :: !Int+  , _chzrsHostedZone     :: !HostedZone+  , _chzrsChangeInfo     :: !ChangeInfo+  , _chzrsDelegationSet  :: !DelegationSet+  , _chzrsLocation       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -195,7 +196,7 @@ -- -- * 'chzrsHostedZone' - A complex type that contains general information about the hosted zone. ----- * 'chzrsChangeInfo' - A complex type that describes the changes made to your hosted zone.+-- * 'chzrsChangeInfo' - A complex type that contains information about the @CreateHostedZone@ request. -- -- * 'chzrsDelegationSet' - A complex type that describes the name servers for this hosted zone. --@@ -208,15 +209,16 @@     -> Text -- ^ 'chzrsLocation'     -> CreateHostedZoneResponse createHostedZoneResponse pResponseStatus_ pHostedZone_ pChangeInfo_ pDelegationSet_ pLocation_ =-    CreateHostedZoneResponse'-    { _chzrsVPC = Nothing-    , _chzrsResponseStatus = pResponseStatus_-    , _chzrsHostedZone = pHostedZone_-    , _chzrsChangeInfo = pChangeInfo_-    , _chzrsDelegationSet = pDelegationSet_-    , _chzrsLocation = pLocation_-    }+  CreateHostedZoneResponse'+  { _chzrsVPC = Nothing+  , _chzrsResponseStatus = pResponseStatus_+  , _chzrsHostedZone = pHostedZone_+  , _chzrsChangeInfo = pChangeInfo_+  , _chzrsDelegationSet = pDelegationSet_+  , _chzrsLocation = pLocation_+  } + -- | A complex type that contains information about an Amazon VPC that you associated with this hosted zone. chzrsVPC :: Lens' CreateHostedZoneResponse (Maybe VPC) chzrsVPC = lens _chzrsVPC (\ s a -> s{_chzrsVPC = a});@@ -229,7 +231,7 @@ chzrsHostedZone :: Lens' CreateHostedZoneResponse HostedZone chzrsHostedZone = lens _chzrsHostedZone (\ s a -> s{_chzrsHostedZone = a}); --- | A complex type that describes the changes made to your hosted zone.+-- | A complex type that contains information about the @CreateHostedZone@ request. chzrsChangeInfo :: Lens' CreateHostedZoneResponse ChangeInfo chzrsChangeInfo = lens _chzrsChangeInfo (\ s a -> s{_chzrsChangeInfo = a}); @@ -241,4 +243,4 @@ chzrsLocation :: Lens' CreateHostedZoneResponse Text chzrsLocation = lens _chzrsLocation (\ s a -> s{_chzrsLocation = a}); -instance NFData CreateHostedZoneResponse+instance NFData CreateHostedZoneResponse where

@@ -0,0 +1,219 @@+{-# 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.Route53.CreateQueryLoggingConfig+-- 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 configuration for DNS query logging. After you create a query logging configuration, Amazon Route 53 begins to publish log data to an Amazon CloudWatch Logs log group.+--+--+-- DNS query logs contain information about the queries that Amazon Route 53 receives for a specified public hosted zone, such as the following:+--+--     * Amazon Route 53 edge location that responded to the DNS query+--+--     * Domain or subdomain that was requested+--+--     * DNS record type, such as A or AAAA+--+--     * DNS response code, such as @NoError@ or @ServFail@+--+--+--+--     * Log Group and Resource Policy    * Before you create a query logging configuration, perform the following operations.+--+--     * Create a CloudWatch Logs log group, and make note of the ARN, which you specify when you create a query logging configuration. Note the following:+--+--     * You must create the log group in the us-east-1 region.+--+--     * You must use the same AWS account to create the log group and the hosted zone that you want to configure query logging for.+--+--     * When you create log groups for query logging, we recommend that you use a consistent prefix, for example:+--+-- @/aws/route53//hosted zone name/ @+--+-- In the next step, you'll create a resource policy, which controls access to one or more log groups and the associated AWS resources, such as Amazon Route 53 hosted zones. There's a limit on the number of resource policies that you can create, so we recommend that you use a consistent prefix so you can use the same resource policy for all the log groups that you create for query logging.+--+--+--+--     * Create a CloudWatch Logs resource policy, and give it the permissions that Amazon Route 53 needs to create log streams and to to send query logs to log streams. For the value of @Resource@ , specify the ARN for the log group that you created in the previous step. To use the same resource policy for all the CloudWatch Logs log groups that you created for query logging configurations, replace the hosted zone name with @*@ , for example:+--+-- @arn:aws:logs:us-east-1:123412341234:log-group:/aws/route53/*@+--+--+--+--     * Log Streams and Edge Locations    * When Amazon Route 53 finishes creating the configuration for DNS query logging, it does the following:+--+--     * Creates a log stream for an edge location the first time that the edge location responds to DNS queries for the specified hosted zone. That log stream is used to log all queries that Amazon Route 53 responds to for that edge location.+--+--     * Begins to send query logs to the applicable log stream.+--+--+--+-- The name of each log stream is in the following format:+--+-- @/hosted zone ID/ //edge location code/ @+--+-- The edge location code is a three-letter code and an arbitrarily assigned number, for example, DFW3. The three-letter code typically corresponds with the International Air Transport Association airport code for an airport near the edge location. (These abbreviations might change in the future.) For a list of edge locations, see "The Amazon Route 53 Global Network" on the <http://aws.amazon.com/route53/details/ Amazon Route 53 Product Details> page.+--+--     * Queries That Are Logged    * Query logs contain only the queries that DNS resolvers forward to Amazon Route 53. If a DNS resolver has already cached the response to a query (such as the IP address for a load balancer for example.com), the resolver will continue to return the cached response. It doesn't forward another query to Amazon Route 53 until the TTL for the corresponding resource record set expires. Depending on how many DNS queries are submitted for a resource record set, and depending on the TTL for that resource record set, query logs might contain information about only one query out of every several thousand queries that are submitted to DNS. For more information about how DNS works, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/welcome-dns-service.html Routing Internet Traffic to Your Website or Web Application> in the /Amazon Route 53 Developer Guide/ .+--+--     * Log File Format    * For a list of the values in each query log and the format of each value, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/query-logs.html Logging DNS Queries> in the /Amazon Route 53 Developer Guide/ .+--+--     * Pricing    * For information about charges for query logs, see <http://aws.amazon.com/cloudwatch/pricing/ Amazon CloudWatch Pricing> .+--+--     * How to Stop Logging    * If you want Amazon Route 53 to stop sending query logs to CloudWatch Logs, delete the query logging configuration. For more information, see 'DeleteQueryLoggingConfig' .+--+--+--+module Network.AWS.Route53.CreateQueryLoggingConfig+    (+    -- * Creating a Request+      createQueryLoggingConfig+    , CreateQueryLoggingConfig+    -- * Request Lenses+    , cqlcHostedZoneId+    , cqlcCloudWatchLogsLogGroupARN++    -- * Destructuring the Response+    , createQueryLoggingConfigResponse+    , CreateQueryLoggingConfigResponse+    -- * Response Lenses+    , cqlcrsResponseStatus+    , cqlcrsQueryLoggingConfig+    , cqlcrsLocation+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product++-- | /See:/ 'createQueryLoggingConfig' smart constructor.+data CreateQueryLoggingConfig = CreateQueryLoggingConfig'+  { _cqlcHostedZoneId              :: !ResourceId+  , _cqlcCloudWatchLogsLogGroupARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateQueryLoggingConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cqlcHostedZoneId' - The ID of the hosted zone that you want to log queries for. You can log queries only for public hosted zones.+--+-- * 'cqlcCloudWatchLogsLogGroupARN' - The Amazon Resource Name (ARN) for the log group that you want to Amazon Route 53 to send query logs to. This is the format of the ARN: arn:aws:logs:/region/ :/account-id/ :log-group:/log_group_name/  To get the ARN for a log group, you can use the CloudWatch console, the <http://docs.aws.amazon.com/AmazonCloudWatchLogs/latest/APIReference/API_DescribeLogGroups.html DescribeLogGroups> API action, the <http://docs.aws.amazon.com/cli/latest/reference/logs/describe-log-groups.html describe-log-groups> command, or the applicable command in one of the AWS SDKs.+createQueryLoggingConfig+    :: ResourceId -- ^ 'cqlcHostedZoneId'+    -> Text -- ^ 'cqlcCloudWatchLogsLogGroupARN'+    -> CreateQueryLoggingConfig+createQueryLoggingConfig pHostedZoneId_ pCloudWatchLogsLogGroupARN_ =+  CreateQueryLoggingConfig'+  { _cqlcHostedZoneId = pHostedZoneId_+  , _cqlcCloudWatchLogsLogGroupARN = pCloudWatchLogsLogGroupARN_+  }+++-- | The ID of the hosted zone that you want to log queries for. You can log queries only for public hosted zones.+cqlcHostedZoneId :: Lens' CreateQueryLoggingConfig ResourceId+cqlcHostedZoneId = lens _cqlcHostedZoneId (\ s a -> s{_cqlcHostedZoneId = a});++-- | The Amazon Resource Name (ARN) for the log group that you want to Amazon Route 53 to send query logs to. This is the format of the ARN: arn:aws:logs:/region/ :/account-id/ :log-group:/log_group_name/  To get the ARN for a log group, you can use the CloudWatch console, the <http://docs.aws.amazon.com/AmazonCloudWatchLogs/latest/APIReference/API_DescribeLogGroups.html DescribeLogGroups> API action, the <http://docs.aws.amazon.com/cli/latest/reference/logs/describe-log-groups.html describe-log-groups> command, or the applicable command in one of the AWS SDKs.+cqlcCloudWatchLogsLogGroupARN :: Lens' CreateQueryLoggingConfig Text+cqlcCloudWatchLogsLogGroupARN = lens _cqlcCloudWatchLogsLogGroupARN (\ s a -> s{_cqlcCloudWatchLogsLogGroupARN = a});++instance AWSRequest CreateQueryLoggingConfig where+        type Rs CreateQueryLoggingConfig =+             CreateQueryLoggingConfigResponse+        request = postXML route53+        response+          = receiveXML+              (\ s h x ->+                 CreateQueryLoggingConfigResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "QueryLoggingConfig")+                     <*> (h .# "Location"))++instance Hashable CreateQueryLoggingConfig where++instance NFData CreateQueryLoggingConfig where++instance ToElement CreateQueryLoggingConfig where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}CreateQueryLoggingConfigRequest"++instance ToHeaders CreateQueryLoggingConfig where+        toHeaders = const mempty++instance ToPath CreateQueryLoggingConfig where+        toPath = const "/2013-04-01/queryloggingconfig"++instance ToQuery CreateQueryLoggingConfig where+        toQuery = const mempty++instance ToXML CreateQueryLoggingConfig where+        toXML CreateQueryLoggingConfig'{..}+          = mconcat+              ["HostedZoneId" @= _cqlcHostedZoneId,+               "CloudWatchLogsLogGroupArn" @=+                 _cqlcCloudWatchLogsLogGroupARN]++-- | /See:/ 'createQueryLoggingConfigResponse' smart constructor.+data CreateQueryLoggingConfigResponse = CreateQueryLoggingConfigResponse'+  { _cqlcrsResponseStatus     :: !Int+  , _cqlcrsQueryLoggingConfig :: !QueryLoggingConfig+  , _cqlcrsLocation           :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateQueryLoggingConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cqlcrsResponseStatus' - -- | The response status code.+--+-- * 'cqlcrsQueryLoggingConfig' - A complex type that contains the ID for a query logging configuration, the ID of the hosted zone that you want to log queries for, and the ARN for the log group that you want Amazon Route 53 to send query logs to.+--+-- * 'cqlcrsLocation' - The unique URL representing the new query logging configuration.+createQueryLoggingConfigResponse+    :: Int -- ^ 'cqlcrsResponseStatus'+    -> QueryLoggingConfig -- ^ 'cqlcrsQueryLoggingConfig'+    -> Text -- ^ 'cqlcrsLocation'+    -> CreateQueryLoggingConfigResponse+createQueryLoggingConfigResponse pResponseStatus_ pQueryLoggingConfig_ pLocation_ =+  CreateQueryLoggingConfigResponse'+  { _cqlcrsResponseStatus = pResponseStatus_+  , _cqlcrsQueryLoggingConfig = pQueryLoggingConfig_+  , _cqlcrsLocation = pLocation_+  }+++-- | -- | The response status code.+cqlcrsResponseStatus :: Lens' CreateQueryLoggingConfigResponse Int+cqlcrsResponseStatus = lens _cqlcrsResponseStatus (\ s a -> s{_cqlcrsResponseStatus = a});++-- | A complex type that contains the ID for a query logging configuration, the ID of the hosted zone that you want to log queries for, and the ARN for the log group that you want Amazon Route 53 to send query logs to.+cqlcrsQueryLoggingConfig :: Lens' CreateQueryLoggingConfigResponse QueryLoggingConfig+cqlcrsQueryLoggingConfig = lens _cqlcrsQueryLoggingConfig (\ s a -> s{_cqlcrsQueryLoggingConfig = a});++-- | The unique URL representing the new query logging configuration.+cqlcrsLocation :: Lens' CreateQueryLoggingConfigResponse Text+cqlcrsLocation = lens _cqlcrsLocation (\ s a -> s{_cqlcrsLocation = a});++instance NFData CreateQueryLoggingConfigResponse+         where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.Route53.CreateReusableDelegationSet--- 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) -- -- Creates a delegation set (a group of four name servers) that can be reused by multiple hosted zones. If a hosted zoned ID is specified, @CreateReusableDelegationSet@ marks the delegation set associated with that zone as reusable -- ----- Send a @POST@ request to the @/2013-04-01/delegationset@ resource. The request body must include a document with a @CreateReusableDelegationSetRequest@ element.------ For more information, including a procedure on how to create and configure a reusable delegation set (also known as white label name servers), see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/white-label-name-servers.html Configuring White Label Name Servers> .+-- For information on how to use a reusable delegation set to configure white label name servers, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/white-label-name-servers.html Configuring White Label Name Servers> . -- module Network.AWS.Route53.CreateReusableDelegationSet     (@@ -43,19 +41,20 @@     , crdsrsLocation     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | /See:/ 'createReusableDelegationSet' smart constructor. data CreateReusableDelegationSet = CreateReusableDelegationSet'-    { _crdsHostedZoneId    :: !(Maybe ResourceId)-    , _crdsCallerReference :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crdsHostedZoneId    :: !(Maybe ResourceId)+  , _crdsCallerReference :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReusableDelegationSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +66,10 @@     :: Text -- ^ 'crdsCallerReference'     -> CreateReusableDelegationSet createReusableDelegationSet pCallerReference_ =-    CreateReusableDelegationSet'-    { _crdsHostedZoneId = Nothing-    , _crdsCallerReference = pCallerReference_-    }+  CreateReusableDelegationSet'+  {_crdsHostedZoneId = Nothing, _crdsCallerReference = pCallerReference_} + -- | If you want to mark the delegation set for an existing hosted zone as reusable, the ID for that hosted zone. crdsHostedZoneId :: Lens' CreateReusableDelegationSet (Maybe ResourceId) crdsHostedZoneId = lens _crdsHostedZoneId (\ s a -> s{_crdsHostedZoneId = a});@@ -91,9 +89,9 @@                    (pure (fromEnum s)) <*> (x .@ "DelegationSet") <*>                      (h .# "Location")) -instance Hashable CreateReusableDelegationSet+instance Hashable CreateReusableDelegationSet where -instance NFData CreateReusableDelegationSet+instance NFData CreateReusableDelegationSet where  instance ToElement CreateReusableDelegationSet where         toElement@@ -117,11 +115,12 @@  -- | /See:/ 'createReusableDelegationSetResponse' smart constructor. data CreateReusableDelegationSetResponse = CreateReusableDelegationSetResponse'-    { _crdsrsResponseStatus :: !Int-    , _crdsrsDelegationSet  :: !DelegationSet-    , _crdsrsLocation       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crdsrsResponseStatus :: !Int+  , _crdsrsDelegationSet  :: !DelegationSet+  , _crdsrsLocation       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateReusableDelegationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,12 +136,13 @@     -> Text -- ^ 'crdsrsLocation'     -> CreateReusableDelegationSetResponse createReusableDelegationSetResponse pResponseStatus_ pDelegationSet_ pLocation_ =-    CreateReusableDelegationSetResponse'-    { _crdsrsResponseStatus = pResponseStatus_-    , _crdsrsDelegationSet = pDelegationSet_-    , _crdsrsLocation = pLocation_-    }+  CreateReusableDelegationSetResponse'+  { _crdsrsResponseStatus = pResponseStatus_+  , _crdsrsDelegationSet = pDelegationSet_+  , _crdsrsLocation = pLocation_+  } + -- | -- | The response status code. crdsrsResponseStatus :: Lens' CreateReusableDelegationSetResponse Int crdsrsResponseStatus = lens _crdsrsResponseStatus (\ s a -> s{_crdsrsResponseStatus = a});@@ -156,3 +156,4 @@ crdsrsLocation = lens _crdsrsLocation (\ s a -> s{_crdsrsLocation = a});  instance NFData CreateReusableDelegationSetResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.CreateTrafficPolicy--- 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) -- -- Creates a traffic policy, which you use to create multiple DNS resource record sets for one domain name (such as example.com) or one subdomain name (such as www.example.com). -- ----- Send a @POST@ request to the @/2013-04-01/trafficpolicy@ resource. The request body must include a document with a @CreateTrafficPolicyRequest@ element. The response includes the @CreateTrafficPolicyResponse@ element, which contains information about the new traffic policy.--- module Network.AWS.Route53.CreateTrafficPolicy     (     -- * Creating a Request@@ -42,12 +40,12 @@     , ctprsLocation     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the traffic policy that you want to create. --@@ -55,11 +53,12 @@ -- -- /See:/ 'createTrafficPolicy' smart constructor. data CreateTrafficPolicy = CreateTrafficPolicy'-    { _ctpComment  :: !(Maybe Text)-    , _ctpName     :: !Text-    , _ctpDocument :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctpComment  :: !(Maybe Text)+  , _ctpName     :: !Text+  , _ctpDocument :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTrafficPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,12 +73,10 @@     -> Text -- ^ 'ctpDocument'     -> CreateTrafficPolicy createTrafficPolicy pName_ pDocument_ =-    CreateTrafficPolicy'-    { _ctpComment = Nothing-    , _ctpName = pName_-    , _ctpDocument = pDocument_-    }+  CreateTrafficPolicy'+  {_ctpComment = Nothing, _ctpName = pName_, _ctpDocument = pDocument_} + -- | (Optional) Any comments that you want to include about the traffic policy. ctpComment :: Lens' CreateTrafficPolicy (Maybe Text) ctpComment = lens _ctpComment (\ s a -> s{_ctpComment = a});@@ -103,9 +100,9 @@                    (pure (fromEnum s)) <*> (x .@ "TrafficPolicy") <*>                      (h .# "Location")) -instance Hashable CreateTrafficPolicy+instance Hashable CreateTrafficPolicy where -instance NFData CreateTrafficPolicy+instance NFData CreateTrafficPolicy where  instance ToElement CreateTrafficPolicy where         toElement@@ -133,11 +130,12 @@ -- -- /See:/ 'createTrafficPolicyResponse' smart constructor. data CreateTrafficPolicyResponse = CreateTrafficPolicyResponse'-    { _ctprsResponseStatus :: !Int-    , _ctprsTrafficPolicy  :: !TrafficPolicy-    , _ctprsLocation       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctprsResponseStatus :: !Int+  , _ctprsTrafficPolicy  :: !TrafficPolicy+  , _ctprsLocation       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTrafficPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,12 +151,13 @@     -> Text -- ^ 'ctprsLocation'     -> CreateTrafficPolicyResponse createTrafficPolicyResponse pResponseStatus_ pTrafficPolicy_ pLocation_ =-    CreateTrafficPolicyResponse'-    { _ctprsResponseStatus = pResponseStatus_-    , _ctprsTrafficPolicy = pTrafficPolicy_-    , _ctprsLocation = pLocation_-    }+  CreateTrafficPolicyResponse'+  { _ctprsResponseStatus = pResponseStatus_+  , _ctprsTrafficPolicy = pTrafficPolicy_+  , _ctprsLocation = pLocation_+  } + -- | -- | The response status code. ctprsResponseStatus :: Lens' CreateTrafficPolicyResponse Int ctprsResponseStatus = lens _ctprsResponseStatus (\ s a -> s{_ctprsResponseStatus = a});@@ -171,4 +170,4 @@ ctprsLocation :: Lens' CreateTrafficPolicyResponse Text ctprsLocation = lens _ctprsLocation (\ s a -> s{_ctprsLocation = a}); -instance NFData CreateTrafficPolicyResponse+instance NFData CreateTrafficPolicyResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.CreateTrafficPolicyInstance--- 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) -- -- Creates resource record sets in a specified hosted zone based on the settings in a specified traffic policy version. In addition, @CreateTrafficPolicyInstance@ associates the resource record sets with a specified domain name (such as example.com) or subdomain name (such as www.example.com). Amazon Route 53 responds to DNS queries for the domain or subdomain name by using the resource record sets that @CreateTrafficPolicyInstance@ created. -- ----- Send a @POST@ request to the @/2013-04-01/trafficpolicyinstance@ resource. The request body must include a document with a @CreateTrafficPolicyRequest@ element. The response returns the @CreateTrafficPolicyInstanceResponse@ element, which contains information about the traffic policy instance.--- module Network.AWS.Route53.CreateTrafficPolicyInstance     (     -- * Creating a Request@@ -44,12 +42,12 @@     , ctpirsLocation     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the resource record sets that you want to create based on a specified traffic policy. --@@ -57,13 +55,14 @@ -- -- /See:/ 'createTrafficPolicyInstance' smart constructor. data CreateTrafficPolicyInstance = CreateTrafficPolicyInstance'-    { _ctpiHostedZoneId         :: !ResourceId-    , _ctpiName                 :: !Text-    , _ctpiTTL                  :: !Nat-    , _ctpiTrafficPolicyId      :: !Text-    , _ctpiTrafficPolicyVersion :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctpiHostedZoneId         :: !ResourceId+  , _ctpiName                 :: !Text+  , _ctpiTTL                  :: !Nat+  , _ctpiTrafficPolicyId      :: !Text+  , _ctpiTrafficPolicyVersion :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTrafficPolicyInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,14 +84,15 @@     -> Natural -- ^ 'ctpiTrafficPolicyVersion'     -> CreateTrafficPolicyInstance createTrafficPolicyInstance pHostedZoneId_ pName_ pTTL_ pTrafficPolicyId_ pTrafficPolicyVersion_ =-    CreateTrafficPolicyInstance'-    { _ctpiHostedZoneId = pHostedZoneId_-    , _ctpiName = pName_-    , _ctpiTTL = _Nat # pTTL_-    , _ctpiTrafficPolicyId = pTrafficPolicyId_-    , _ctpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_-    }+  CreateTrafficPolicyInstance'+  { _ctpiHostedZoneId = pHostedZoneId_+  , _ctpiName = pName_+  , _ctpiTTL = _Nat # pTTL_+  , _ctpiTrafficPolicyId = pTrafficPolicyId_+  , _ctpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_+  } + -- | The ID of the hosted zone in which you want Amazon Route 53 to create resource record sets by using the configuration in a traffic policy. ctpiHostedZoneId :: Lens' CreateTrafficPolicyInstance ResourceId ctpiHostedZoneId = lens _ctpiHostedZoneId (\ s a -> s{_ctpiHostedZoneId = a});@@ -125,9 +125,9 @@                      (x .@ "TrafficPolicyInstance")                      <*> (h .# "Location")) -instance Hashable CreateTrafficPolicyInstance+instance Hashable CreateTrafficPolicyInstance where -instance NFData CreateTrafficPolicyInstance+instance NFData CreateTrafficPolicyInstance where  instance ToElement CreateTrafficPolicyInstance where         toElement@@ -157,11 +157,12 @@ -- -- /See:/ 'createTrafficPolicyInstanceResponse' smart constructor. data CreateTrafficPolicyInstanceResponse = CreateTrafficPolicyInstanceResponse'-    { _ctpirsResponseStatus        :: !Int-    , _ctpirsTrafficPolicyInstance :: !TrafficPolicyInstance-    , _ctpirsLocation              :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctpirsResponseStatus        :: !Int+  , _ctpirsTrafficPolicyInstance :: !TrafficPolicyInstance+  , _ctpirsLocation              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTrafficPolicyInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -177,12 +178,13 @@     -> Text -- ^ 'ctpirsLocation'     -> CreateTrafficPolicyInstanceResponse createTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ pLocation_ =-    CreateTrafficPolicyInstanceResponse'-    { _ctpirsResponseStatus = pResponseStatus_-    , _ctpirsTrafficPolicyInstance = pTrafficPolicyInstance_-    , _ctpirsLocation = pLocation_-    }+  CreateTrafficPolicyInstanceResponse'+  { _ctpirsResponseStatus = pResponseStatus_+  , _ctpirsTrafficPolicyInstance = pTrafficPolicyInstance_+  , _ctpirsLocation = pLocation_+  } + -- | -- | The response status code. ctpirsResponseStatus :: Lens' CreateTrafficPolicyInstanceResponse Int ctpirsResponseStatus = lens _ctpirsResponseStatus (\ s a -> s{_ctpirsResponseStatus = a});@@ -196,3 +198,4 @@ ctpirsLocation = lens _ctpirsLocation (\ s a -> s{_ctpirsLocation = a});  instance NFData CreateTrafficPolicyInstanceResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.CreateTrafficPolicyVersion--- 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) -- -- Creates a new version of an existing traffic policy. When you create a new version of a traffic policy, you specify the ID of the traffic policy that you want to update and a JSON-formatted document that describes the new version. You use traffic policies to create multiple DNS resource record sets for one domain name (such as example.com) or one subdomain name (such as www.example.com). You can create a maximum of 1000 versions of a traffic policy. If you reach the limit and need to create another version, you'll need to start a new traffic policy. -- ----- Send a @POST@ request to the @/2013-04-01/trafficpolicy/@ resource. The request body includes a document with a @CreateTrafficPolicyVersionRequest@ element. The response returns the @CreateTrafficPolicyVersionResponse@ element, which contains information about the new version of the traffic policy.--- module Network.AWS.Route53.CreateTrafficPolicyVersion     (     -- * Creating a Request@@ -42,24 +40,25 @@     , ctpvrsLocation     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type that contains information about the traffic policy for which you want to create a new version.+-- | A complex type that contains information about the traffic policy that you want to create a new version for. -- -- -- -- /See:/ 'createTrafficPolicyVersion' smart constructor. data CreateTrafficPolicyVersion = CreateTrafficPolicyVersion'-    { _ctpvComment  :: !(Maybe Text)-    , _ctpvId       :: !Text-    , _ctpvDocument :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctpvComment  :: !(Maybe Text)+  , _ctpvId       :: !Text+  , _ctpvDocument :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTrafficPolicyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,12 +73,10 @@     -> Text -- ^ 'ctpvDocument'     -> CreateTrafficPolicyVersion createTrafficPolicyVersion pId_ pDocument_ =-    CreateTrafficPolicyVersion'-    { _ctpvComment = Nothing-    , _ctpvId = pId_-    , _ctpvDocument = pDocument_-    }+  CreateTrafficPolicyVersion'+  {_ctpvComment = Nothing, _ctpvId = pId_, _ctpvDocument = pDocument_} + -- | The comment that you specified in the @CreateTrafficPolicyVersion@ request, if any. ctpvComment :: Lens' CreateTrafficPolicyVersion (Maybe Text) ctpvComment = lens _ctpvComment (\ s a -> s{_ctpvComment = a});@@ -103,9 +100,9 @@                    (pure (fromEnum s)) <*> (x .@ "TrafficPolicy") <*>                      (h .# "Location")) -instance Hashable CreateTrafficPolicyVersion+instance Hashable CreateTrafficPolicyVersion where -instance NFData CreateTrafficPolicyVersion+instance NFData CreateTrafficPolicyVersion where  instance ToElement CreateTrafficPolicyVersion where         toElement@@ -135,11 +132,12 @@ -- -- /See:/ 'createTrafficPolicyVersionResponse' smart constructor. data CreateTrafficPolicyVersionResponse = CreateTrafficPolicyVersionResponse'-    { _ctpvrsResponseStatus :: !Int-    , _ctpvrsTrafficPolicy  :: !TrafficPolicy-    , _ctpvrsLocation       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctpvrsResponseStatus :: !Int+  , _ctpvrsTrafficPolicy  :: !TrafficPolicy+  , _ctpvrsLocation       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTrafficPolicyVersionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +153,13 @@     -> Text -- ^ 'ctpvrsLocation'     -> CreateTrafficPolicyVersionResponse createTrafficPolicyVersionResponse pResponseStatus_ pTrafficPolicy_ pLocation_ =-    CreateTrafficPolicyVersionResponse'-    { _ctpvrsResponseStatus = pResponseStatus_-    , _ctpvrsTrafficPolicy = pTrafficPolicy_-    , _ctpvrsLocation = pLocation_-    }+  CreateTrafficPolicyVersionResponse'+  { _ctpvrsResponseStatus = pResponseStatus_+  , _ctpvrsTrafficPolicy = pTrafficPolicy_+  , _ctpvrsLocation = pLocation_+  } + -- | -- | The response status code. ctpvrsResponseStatus :: Lens' CreateTrafficPolicyVersionResponse Int ctpvrsResponseStatus = lens _ctpvrsResponseStatus (\ s a -> s{_ctpvrsResponseStatus = a});@@ -174,3 +173,4 @@ ctpvrsLocation = lens _ctpvrsLocation (\ s a -> s{_ctpvrsLocation = a});  instance NFData CreateTrafficPolicyVersionResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.CreateVPCAssociationAuthorization--- 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) -- -- Authorizes the AWS account that created a specified VPC to submit an @AssociateVPCWithHostedZone@ request to associate the VPC with a specified hosted zone that was created by a different account. To submit a @CreateVPCAssociationAuthorization@ request, you must use the account that created the hosted zone. After you authorize the association, use the account that created the VPC to submit an @AssociateVPCWithHostedZone@ request. -- ----- Send a @POST@ request to the @/2013-04-01/hostedzone//hosted zone ID/ /authorizevpcassociation@ resource. The request body must include a document with a @CreateVPCAssociationAuthorizationRequest@ element. The response contains information about the authorization.--- module Network.AWS.Route53.CreateVPCAssociationAuthorization     (     -- * Creating a Request@@ -41,12 +39,12 @@     , cvaarsVPC     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the request to authorize associating a VPC with your private hosted zone. Authorization is only required when a private hosted zone and a VPC were created by using different accounts. --@@ -54,10 +52,11 @@ -- -- /See:/ 'createVPCAssociationAuthorization' smart constructor. data CreateVPCAssociationAuthorization = CreateVPCAssociationAuthorization'-    { _cvaaHostedZoneId :: !ResourceId-    , _cvaaVPC          :: !VPC-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cvaaHostedZoneId :: !ResourceId+  , _cvaaVPC          :: !VPC+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateVPCAssociationAuthorization' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +69,10 @@     -> VPC -- ^ 'cvaaVPC'     -> CreateVPCAssociationAuthorization createVPCAssociationAuthorization pHostedZoneId_ pVPC_ =-    CreateVPCAssociationAuthorization'-    { _cvaaHostedZoneId = pHostedZoneId_-    , _cvaaVPC = pVPC_-    }+  CreateVPCAssociationAuthorization'+  {_cvaaHostedZoneId = pHostedZoneId_, _cvaaVPC = pVPC_} + -- | The ID of the private hosted zone that you want to authorize associating a VPC with. cvaaHostedZoneId :: Lens' CreateVPCAssociationAuthorization ResourceId cvaaHostedZoneId = lens _cvaaHostedZoneId (\ s a -> s{_cvaaHostedZoneId = a});@@ -96,8 +94,10 @@                      (x .@ "VPC"))  instance Hashable CreateVPCAssociationAuthorization+         where  instance NFData CreateVPCAssociationAuthorization+         where  instance ToElement CreateVPCAssociationAuthorization          where@@ -125,17 +125,18 @@         toXML CreateVPCAssociationAuthorization'{..}           = mconcat ["VPC" @= _cvaaVPC] --- | A complex type that contains the response information from a CreateVPCAssociationAuthorization request.+-- | A complex type that contains the response information from a @CreateVPCAssociationAuthorization@ request. -- -- -- -- /See:/ 'createVPCAssociationAuthorizationResponse' smart constructor. data CreateVPCAssociationAuthorizationResponse = CreateVPCAssociationAuthorizationResponse'-    { _cvaarsResponseStatus :: !Int-    , _cvaarsHostedZoneId   :: !ResourceId-    , _cvaarsVPC            :: !VPC-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cvaarsResponseStatus :: !Int+  , _cvaarsHostedZoneId   :: !ResourceId+  , _cvaarsVPC            :: !VPC+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateVPCAssociationAuthorizationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -151,12 +152,13 @@     -> VPC -- ^ 'cvaarsVPC'     -> CreateVPCAssociationAuthorizationResponse createVPCAssociationAuthorizationResponse pResponseStatus_ pHostedZoneId_ pVPC_ =-    CreateVPCAssociationAuthorizationResponse'-    { _cvaarsResponseStatus = pResponseStatus_-    , _cvaarsHostedZoneId = pHostedZoneId_-    , _cvaarsVPC = pVPC_-    }+  CreateVPCAssociationAuthorizationResponse'+  { _cvaarsResponseStatus = pResponseStatus_+  , _cvaarsHostedZoneId = pHostedZoneId_+  , _cvaarsVPC = pVPC_+  } + -- | -- | The response status code. cvaarsResponseStatus :: Lens' CreateVPCAssociationAuthorizationResponse Int cvaarsResponseStatus = lens _cvaarsResponseStatus (\ s a -> s{_cvaarsResponseStatus = a});@@ -170,4 +172,5 @@ cvaarsVPC = lens _cvaarsVPC (\ s a -> s{_cvaarsVPC = a});  instance NFData-         CreateVPCAssociationAuthorizationResponse+           CreateVPCAssociationAuthorizationResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53.DeleteHealthCheck--- 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) ----- Deletes a health check. Send a @DELETE@ request to the @/2013-04-01/healthcheck//health check ID/ @ resource.+-- Deletes a health check. -- ----- /Important:/ Amazon Route 53 does not prevent you from deleting a health check even if the health check is associated with one or more resource record sets. If you delete a health check and you don't update the associated resource record sets, the future status of the health check can't be predicted and may change. This will affect the routing of DNS queries for your DNS failover configuration. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/health-checks-creating-deleting.html#health-checks-deleting.html Replacing and Deleting Health Checks> in the Amazon Route 53 Developer Guide.+-- /Important:/ Amazon Route 53 does not prevent you from deleting a health check even if the health check is associated with one or more resource record sets. If you delete a health check and you don't update the associated resource record sets, the future status of the health check can't be predicted and may change. This will affect the routing of DNS queries for your DNS failover configuration. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/health-checks-creating-deleting.html#health-checks-deleting.html Replacing and Deleting Health Checks> in the /Amazon Route 53 Developer Guide/ . -- module Network.AWS.Route53.DeleteHealthCheck     (@@ -38,22 +38,23 @@     , dhcrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | This action deletes a health check. Send a @DELETE@ request to the @/2013-04-01/DeleteHealthCheckRequest@ resource.+-- | This action deletes a health check. -- -- -- -- /See:/ 'deleteHealthCheck' smart constructor. newtype DeleteHealthCheck = DeleteHealthCheck'-    { _dhcHealthCheckId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dhcHealthCheckId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteHealthCheck' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@     :: Text -- ^ 'dhcHealthCheckId'     -> DeleteHealthCheck deleteHealthCheck pHealthCheckId_ =-    DeleteHealthCheck'-    { _dhcHealthCheckId = pHealthCheckId_-    }+  DeleteHealthCheck' {_dhcHealthCheckId = pHealthCheckId_} + -- | The ID of the health check that you want to delete. dhcHealthCheckId :: Lens' DeleteHealthCheck Text dhcHealthCheckId = lens _dhcHealthCheckId (\ s a -> s{_dhcHealthCheckId = a});@@ -79,9 +79,9 @@               (\ s h x ->                  DeleteHealthCheckResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteHealthCheck+instance Hashable DeleteHealthCheck where -instance NFData DeleteHealthCheck+instance NFData DeleteHealthCheck where  instance ToHeaders DeleteHealthCheck where         toHeaders = const mempty@@ -100,9 +100,10 @@ -- -- /See:/ 'deleteHealthCheckResponse' smart constructor. newtype DeleteHealthCheckResponse = DeleteHealthCheckResponse'-    { _dhcrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dhcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -112,12 +113,11 @@     :: Int -- ^ 'dhcrsResponseStatus'     -> DeleteHealthCheckResponse deleteHealthCheckResponse pResponseStatus_ =-    DeleteHealthCheckResponse'-    { _dhcrsResponseStatus = pResponseStatus_-    }+  DeleteHealthCheckResponse' {_dhcrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dhcrsResponseStatus :: Lens' DeleteHealthCheckResponse Int dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a}); -instance NFData DeleteHealthCheckResponse+instance NFData DeleteHealthCheckResponse where

@@ -12,17 +12,29 @@  -- | -- Module      : Network.AWS.Route53.DeleteHostedZone--- 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) ----- Deletes a hosted zone. Send a @DELETE@ request to the @//Amazon Route 53 API version/ /hostedzone//hosted zone ID/ @ resource.+-- Deletes a hosted zone. -- ----- /Important:/ Delete a hosted zone only if there are no resource record sets other than the default SOA record and NS resource record sets. If the hosted zone contains other resource record sets, delete them before deleting the hosted zone. If you try to delete a hosted zone that contains other resource record sets, Amazon Route 53 denies your request with a @HostedZoneNotEmpty@ error. For information about deleting records from your hosted zone, see 'ChangeResourceRecordSets' .+-- /Important:/ If the name servers for the hosted zone are associated with a domain and if you want to make the domain unavailable on the Internet, we recommend that you delete the name servers from the domain to prevent future DNS queries from possibly being misrouted. If the domain is registered with Amazon Route 53, see @UpdateDomainNameservers@ . If the domain is registered with another registrar, use the method provided by the registrar to delete name servers for the domain. --+-- Some domain registries don't allow you to remove all of the name servers for a domain. If the registry for your domain requires one or more name servers, we recommend that you delete the hosted zone only if you transfer DNS service to another service provider, and you replace the name servers for the domain with name servers from the new provider.+--+-- You can delete a hosted zone only if it contains only the default SOA record and NS resource record sets. If the hosted zone contains other resource record sets, you must delete them before you can delete the hosted zone. If you try to delete a hosted zone that contains other resource record sets, the request fails, and Amazon Route 53 returns a @HostedZoneNotEmpty@ error. For information about deleting records from your hosted zone, see 'ChangeResourceRecordSets' .+--+-- To verify that the hosted zone has been deleted, do one of the following:+--+--     * Use the @GetHostedZone@ action to request information about the hosted zone.+--+--     * Use the @ListHostedZones@ action to get a list of the hosted zones associated with the current AWS account.+--+--+-- module Network.AWS.Route53.DeleteHostedZone     (     -- * Creating a Request@@ -39,22 +51,23 @@     , dhzrsChangeInfo     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type that contains information about the hosted zone that you want to delete.+-- | A request to delete a hosted zone. -- -- -- -- /See:/ 'deleteHostedZone' smart constructor. newtype DeleteHostedZone = DeleteHostedZone'-    { _dhzId :: ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dhzId :: ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteHostedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +76,9 @@ deleteHostedZone     :: ResourceId -- ^ 'dhzId'     -> DeleteHostedZone-deleteHostedZone pId_ =-    DeleteHostedZone'-    { _dhzId = pId_-    }+deleteHostedZone pId_ = DeleteHostedZone' {_dhzId = pId_} + -- | The ID of the hosted zone you want to delete. dhzId :: Lens' DeleteHostedZone ResourceId dhzId = lens _dhzId (\ s a -> s{_dhzId = a});@@ -81,9 +92,9 @@                  DeleteHostedZoneResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) -instance Hashable DeleteHostedZone+instance Hashable DeleteHostedZone where -instance NFData DeleteHostedZone+instance NFData DeleteHostedZone where  instance ToHeaders DeleteHostedZone where         toHeaders = const mempty@@ -95,39 +106,39 @@ instance ToQuery DeleteHostedZone where         toQuery = const mempty --- | A complex type containing the response information for the request.+-- | A complex type that contains the response to a @DeleteHostedZone@ request. -- -- -- -- /See:/ 'deleteHostedZoneResponse' smart constructor. data DeleteHostedZoneResponse = DeleteHostedZoneResponse'-    { _dhzrsResponseStatus :: !Int-    , _dhzrsChangeInfo     :: !ChangeInfo-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dhzrsResponseStatus :: !Int+  , _dhzrsChangeInfo     :: !ChangeInfo+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dhzrsResponseStatus' - -- | The response status code. ----- * 'dhzrsChangeInfo' - A complex type that contains the ID, the status, and the date and time of your delete request.+-- * 'dhzrsChangeInfo' - A complex type that contains the ID, the status, and the date and time of a request to delete a hosted zone. deleteHostedZoneResponse     :: Int -- ^ 'dhzrsResponseStatus'     -> ChangeInfo -- ^ 'dhzrsChangeInfo'     -> DeleteHostedZoneResponse deleteHostedZoneResponse pResponseStatus_ pChangeInfo_ =-    DeleteHostedZoneResponse'-    { _dhzrsResponseStatus = pResponseStatus_-    , _dhzrsChangeInfo = pChangeInfo_-    }+  DeleteHostedZoneResponse'+  {_dhzrsResponseStatus = pResponseStatus_, _dhzrsChangeInfo = pChangeInfo_} + -- | -- | The response status code. dhzrsResponseStatus :: Lens' DeleteHostedZoneResponse Int dhzrsResponseStatus = lens _dhzrsResponseStatus (\ s a -> s{_dhzrsResponseStatus = a}); --- | A complex type that contains the ID, the status, and the date and time of your delete request.+-- | A complex type that contains the ID, the status, and the date and time of a request to delete a hosted zone. dhzrsChangeInfo :: Lens' DeleteHostedZoneResponse ChangeInfo dhzrsChangeInfo = lens _dhzrsChangeInfo (\ s a -> s{_dhzrsChangeInfo = a}); -instance NFData DeleteHostedZoneResponse+instance NFData DeleteHostedZoneResponse where

@@ -0,0 +1,117 @@+{-# 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.Route53.DeleteQueryLoggingConfig+-- 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)+--+-- Deletes a configuration for DNS query logging. If you delete a configuration, Amazon Route 53 stops sending query logs to CloudWatch Logs. Amazon Route 53 doesn't delete any logs that are already in CloudWatch Logs.+--+--+-- For more information about DNS query logs, see 'CreateQueryLoggingConfig' .+--+module Network.AWS.Route53.DeleteQueryLoggingConfig+    (+    -- * Creating a Request+      deleteQueryLoggingConfig+    , DeleteQueryLoggingConfig+    -- * Request Lenses+    , dqlcId++    -- * Destructuring the Response+    , deleteQueryLoggingConfigResponse+    , DeleteQueryLoggingConfigResponse+    -- * Response Lenses+    , dqlcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product++-- | /See:/ 'deleteQueryLoggingConfig' smart constructor.+newtype DeleteQueryLoggingConfig = DeleteQueryLoggingConfig'+  { _dqlcId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteQueryLoggingConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dqlcId' - The ID of the configuration that you want to delete.+deleteQueryLoggingConfig+    :: Text -- ^ 'dqlcId'+    -> DeleteQueryLoggingConfig+deleteQueryLoggingConfig pId_ = DeleteQueryLoggingConfig' {_dqlcId = pId_}+++-- | The ID of the configuration that you want to delete.+dqlcId :: Lens' DeleteQueryLoggingConfig Text+dqlcId = lens _dqlcId (\ s a -> s{_dqlcId = a});++instance AWSRequest DeleteQueryLoggingConfig where+        type Rs DeleteQueryLoggingConfig =+             DeleteQueryLoggingConfigResponse+        request = delete route53+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteQueryLoggingConfigResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteQueryLoggingConfig where++instance NFData DeleteQueryLoggingConfig where++instance ToHeaders DeleteQueryLoggingConfig where+        toHeaders = const mempty++instance ToPath DeleteQueryLoggingConfig where+        toPath DeleteQueryLoggingConfig'{..}+          = mconcat+              ["/2013-04-01/queryloggingconfig/", toBS _dqlcId]++instance ToQuery DeleteQueryLoggingConfig where+        toQuery = const mempty++-- | /See:/ 'deleteQueryLoggingConfigResponse' smart constructor.+newtype DeleteQueryLoggingConfigResponse = DeleteQueryLoggingConfigResponse'+  { _dqlcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteQueryLoggingConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dqlcrsResponseStatus' - -- | The response status code.+deleteQueryLoggingConfigResponse+    :: Int -- ^ 'dqlcrsResponseStatus'+    -> DeleteQueryLoggingConfigResponse+deleteQueryLoggingConfigResponse pResponseStatus_ =+  DeleteQueryLoggingConfigResponse' {_dqlcrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dqlcrsResponseStatus :: Lens' DeleteQueryLoggingConfigResponse Int+dqlcrsResponseStatus = lens _dqlcrsResponseStatus (\ s a -> s{_dqlcrsResponseStatus = a});++instance NFData DeleteQueryLoggingConfigResponse+         where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.Route53.DeleteReusableDelegationSet--- 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) ----- Deletes a reusable delegation set. Send a @DELETE@ request to the @/2013-04-01/delegationset//delegation set ID/ @ resource.+-- Deletes a reusable delegation set. -- ----- /Important:/ You can delete a reusable delegation set only if there are no associated hosted zones.+-- /Important:/ You can delete a reusable delegation set only if it isn't associated with any hosted zones. ----- To verify that the reusable delegation set is not associated with any hosted zones, run the 'GetReusableDelegationSet' action and specify the ID of the reusable delegation set that you want to delete.+-- To verify that the reusable delegation set is not associated with any hosted zones, submit a 'GetReusableDelegationSet' request and specify the ID of the reusable delegation set that you want to delete. -- module Network.AWS.Route53.DeleteReusableDelegationSet     (@@ -40,36 +40,35 @@     , drdsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type containing the information for the delete request.+-- | A request to delete a reusable delegation set. -- -- -- -- /See:/ 'deleteReusableDelegationSet' smart constructor. newtype DeleteReusableDelegationSet = DeleteReusableDelegationSet'-    { _drdsId :: ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drdsId :: ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReusableDelegationSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drdsId' - The ID of the reusable delegation set you want to delete.+-- * 'drdsId' - The ID of the reusable delegation set that you want to delete. deleteReusableDelegationSet     :: ResourceId -- ^ 'drdsId'     -> DeleteReusableDelegationSet-deleteReusableDelegationSet pId_ =-    DeleteReusableDelegationSet'-    { _drdsId = pId_-    }+deleteReusableDelegationSet pId_ = DeleteReusableDelegationSet' {_drdsId = pId_} --- | The ID of the reusable delegation set you want to delete.++-- | The ID of the reusable delegation set that you want to delete. drdsId :: Lens' DeleteReusableDelegationSet ResourceId drdsId = lens _drdsId (\ s a -> s{_drdsId = a}); @@ -83,9 +82,9 @@                  DeleteReusableDelegationSetResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteReusableDelegationSet+instance Hashable DeleteReusableDelegationSet where -instance NFData DeleteReusableDelegationSet+instance NFData DeleteReusableDelegationSet where  instance ToHeaders DeleteReusableDelegationSet where         toHeaders = const mempty@@ -104,9 +103,10 @@ -- -- /See:/ 'deleteReusableDelegationSetResponse' smart constructor. newtype DeleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse'-    { _drdsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drdsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteReusableDelegationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,12 +116,13 @@     :: Int -- ^ 'drdsrsResponseStatus'     -> DeleteReusableDelegationSetResponse deleteReusableDelegationSetResponse pResponseStatus_ =-    DeleteReusableDelegationSetResponse'-    { _drdsrsResponseStatus = pResponseStatus_-    }+  DeleteReusableDelegationSetResponse'+  {_drdsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drdsrsResponseStatus :: Lens' DeleteReusableDelegationSetResponse Int drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a});  instance NFData DeleteReusableDelegationSetResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.DeleteTrafficPolicy--- 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) -- -- Deletes a traffic policy. -- ----- Send a @DELETE@ request to the @//Amazon Route 53 API version/ /trafficpolicy@ resource.--- module Network.AWS.Route53.DeleteTrafficPolicy     (     -- * Creating a Request@@ -39,12 +37,12 @@     , dtprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A request to delete a specified traffic policy version. --@@ -52,10 +50,11 @@ -- -- /See:/ 'deleteTrafficPolicy' smart constructor. data DeleteTrafficPolicy = DeleteTrafficPolicy'-    { _dtpId      :: !Text-    , _dtpVersion :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtpId      :: !Text+  , _dtpVersion :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTrafficPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +67,9 @@     -> Natural -- ^ 'dtpVersion'     -> DeleteTrafficPolicy deleteTrafficPolicy pId_ pVersion_ =-    DeleteTrafficPolicy'-    { _dtpId = pId_-    , _dtpVersion = _Nat # pVersion_-    }+  DeleteTrafficPolicy' {_dtpId = pId_, _dtpVersion = _Nat # pVersion_} + -- | The ID of the traffic policy that you want to delete. dtpId :: Lens' DeleteTrafficPolicy Text dtpId = lens _dtpId (\ s a -> s{_dtpId = a});@@ -90,9 +87,9 @@               (\ s h x ->                  DeleteTrafficPolicyResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteTrafficPolicy+instance Hashable DeleteTrafficPolicy where -instance NFData DeleteTrafficPolicy+instance NFData DeleteTrafficPolicy where  instance ToHeaders DeleteTrafficPolicy where         toHeaders = const mempty@@ -112,9 +109,10 @@ -- -- /See:/ 'deleteTrafficPolicyResponse' smart constructor. newtype DeleteTrafficPolicyResponse = DeleteTrafficPolicyResponse'-    { _dtprsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTrafficPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -124,12 +122,11 @@     :: Int -- ^ 'dtprsResponseStatus'     -> DeleteTrafficPolicyResponse deleteTrafficPolicyResponse pResponseStatus_ =-    DeleteTrafficPolicyResponse'-    { _dtprsResponseStatus = pResponseStatus_-    }+  DeleteTrafficPolicyResponse' {_dtprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dtprsResponseStatus :: Lens' DeleteTrafficPolicyResponse Int dtprsResponseStatus = lens _dtprsResponseStatus (\ s a -> s{_dtprsResponseStatus = a}); -instance NFData DeleteTrafficPolicyResponse+instance NFData DeleteTrafficPolicyResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.DeleteTrafficPolicyInstance--- 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) -- -- Deletes a traffic policy instance and all of the resource record sets that Amazon Route 53 created when you created the instance. -- ----- Send a @DELETE@ request to the @//Amazon Route 53 API version/ /trafficpolicy//traffic policy instance ID/ @ resource.--- module Network.AWS.Route53.DeleteTrafficPolicyInstance     (     -- * Creating a Request@@ -38,22 +36,23 @@     , dtpirsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type that contains information about the traffic policy instance that you want to delete.+-- | A request to delete a specified traffic policy instance. -- -- -- -- /See:/ 'deleteTrafficPolicyInstance' smart constructor. newtype DeleteTrafficPolicyInstance = DeleteTrafficPolicyInstance'-    { _dtpiId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtpiId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTrafficPolicyInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +61,9 @@ deleteTrafficPolicyInstance     :: Text -- ^ 'dtpiId'     -> DeleteTrafficPolicyInstance-deleteTrafficPolicyInstance pId_ =-    DeleteTrafficPolicyInstance'-    { _dtpiId = pId_-    }+deleteTrafficPolicyInstance pId_ = DeleteTrafficPolicyInstance' {_dtpiId = pId_} + -- | The ID of the traffic policy instance that you want to delete.  /Important:/ When you delete a traffic policy instance, Amazon Route 53 also deletes all of the resource record sets that were created when you created the traffic policy instance. dtpiId :: Lens' DeleteTrafficPolicyInstance Text dtpiId = lens _dtpiId (\ s a -> s{_dtpiId = a});@@ -81,9 +78,9 @@                  DeleteTrafficPolicyInstanceResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteTrafficPolicyInstance+instance Hashable DeleteTrafficPolicyInstance where -instance NFData DeleteTrafficPolicyInstance+instance NFData DeleteTrafficPolicyInstance where  instance ToHeaders DeleteTrafficPolicyInstance where         toHeaders = const mempty@@ -102,9 +99,10 @@ -- -- /See:/ 'deleteTrafficPolicyInstanceResponse' smart constructor. newtype DeleteTrafficPolicyInstanceResponse = DeleteTrafficPolicyInstanceResponse'-    { _dtpirsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtpirsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTrafficPolicyInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -114,12 +112,13 @@     :: Int -- ^ 'dtpirsResponseStatus'     -> DeleteTrafficPolicyInstanceResponse deleteTrafficPolicyInstanceResponse pResponseStatus_ =-    DeleteTrafficPolicyInstanceResponse'-    { _dtpirsResponseStatus = pResponseStatus_-    }+  DeleteTrafficPolicyInstanceResponse'+  {_dtpirsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dtpirsResponseStatus :: Lens' DeleteTrafficPolicyInstanceResponse Int dtpirsResponseStatus = lens _dtpirsResponseStatus (\ s a -> s{_dtpirsResponseStatus = a});  instance NFData DeleteTrafficPolicyInstanceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53.DeleteVPCAssociationAuthorization--- 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) --@@ -23,8 +23,6 @@ -- -- /Important:/ Sending this request only prevents the AWS account that created the VPC from associating the VPC with the Amazon Route 53 hosted zone in the future. If the VPC is already associated with the hosted zone, @DeleteVPCAssociationAuthorization@ won't disassociate the VPC from the hosted zone. If you want to delete an existing association, use @DisassociateVPCFromHostedZone@ . ----- Send a @DELETE@ request to the @/2013-04-01/hostedzone//hosted zone ID/ /deauthorizevpcassociation@ resource. The request body must include a document with a @DeleteVPCAssociationAuthorizationRequest@ element.--- module Network.AWS.Route53.DeleteVPCAssociationAuthorization     (     -- * Creating a Request@@ -41,12 +39,12 @@     , dvaarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the request to remove authorization to associate a VPC that was created by one AWS account with a hosted zone that was created with a different AWS account. --@@ -54,10 +52,11 @@ -- -- /See:/ 'deleteVPCAssociationAuthorization' smart constructor. data DeleteVPCAssociationAuthorization = DeleteVPCAssociationAuthorization'-    { _dvaaHostedZoneId :: !ResourceId-    , _dvaaVPC          :: !VPC-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvaaHostedZoneId :: !ResourceId+  , _dvaaVPC          :: !VPC+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVPCAssociationAuthorization' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +69,10 @@     -> VPC -- ^ 'dvaaVPC'     -> DeleteVPCAssociationAuthorization deleteVPCAssociationAuthorization pHostedZoneId_ pVPC_ =-    DeleteVPCAssociationAuthorization'-    { _dvaaHostedZoneId = pHostedZoneId_-    , _dvaaVPC = pVPC_-    }+  DeleteVPCAssociationAuthorization'+  {_dvaaHostedZoneId = pHostedZoneId_, _dvaaVPC = pVPC_} + -- | When removing authorization to associate a VPC that was created by one AWS account with a hosted zone that was created with a different AWS account, the ID of the hosted zone. dvaaHostedZoneId :: Lens' DeleteVPCAssociationAuthorization ResourceId dvaaHostedZoneId = lens _dvaaHostedZoneId (\ s a -> s{_dvaaHostedZoneId = a});@@ -95,8 +93,10 @@                    (pure (fromEnum s)))  instance Hashable DeleteVPCAssociationAuthorization+         where  instance NFData DeleteVPCAssociationAuthorization+         where  instance ToElement DeleteVPCAssociationAuthorization          where@@ -130,9 +130,10 @@ -- -- /See:/ 'deleteVPCAssociationAuthorizationResponse' smart constructor. newtype DeleteVPCAssociationAuthorizationResponse = DeleteVPCAssociationAuthorizationResponse'-    { _dvaarsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvaarsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVPCAssociationAuthorizationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,13 +143,14 @@     :: Int -- ^ 'dvaarsResponseStatus'     -> DeleteVPCAssociationAuthorizationResponse deleteVPCAssociationAuthorizationResponse pResponseStatus_ =-    DeleteVPCAssociationAuthorizationResponse'-    { _dvaarsResponseStatus = pResponseStatus_-    }+  DeleteVPCAssociationAuthorizationResponse'+  {_dvaarsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dvaarsResponseStatus :: Lens' DeleteVPCAssociationAuthorizationResponse Int dvaarsResponseStatus = lens _dvaarsResponseStatus (\ s a -> s{_dvaarsResponseStatus = a});  instance NFData-         DeleteVPCAssociationAuthorizationResponse+           DeleteVPCAssociationAuthorizationResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.DisassociateVPCFromHostedZone--- 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) -- -- Disassociates a VPC from a Amazon Route 53 private hosted zone. -- ----- Send a @POST@ request to the @/2013-04-01/hostedzone//hosted zone ID/ /disassociatevpc@ resource. The request body must include a document with a @DisassociateVPCFromHostedZoneRequest@ element. The response includes a @DisassociateVPCFromHostedZoneResponse@ element.--- -- /Important:/ You can't disassociate a VPC from a private hosted zone when only one VPC is associated with the hosted zone. You also can't convert a private hosted zone into a public hosted zone. -- module Network.AWS.Route53.DisassociateVPCFromHostedZone@@ -43,12 +41,12 @@     , dvfhzrsChangeInfo     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the VPC that you want to disassociate from a specified private hosted zone. --@@ -56,11 +54,12 @@ -- -- /See:/ 'disassociateVPCFromHostedZone' smart constructor. data DisassociateVPCFromHostedZone = DisassociateVPCFromHostedZone'-    { _dvfhzComment      :: !(Maybe Text)-    , _dvfhzHostedZoneId :: !ResourceId-    , _dvfhzVPC          :: !VPC-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvfhzComment      :: !(Maybe Text)+  , _dvfhzHostedZoneId :: !ResourceId+  , _dvfhzVPC          :: !VPC+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateVPCFromHostedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,12 +74,13 @@     -> VPC -- ^ 'dvfhzVPC'     -> DisassociateVPCFromHostedZone disassociateVPCFromHostedZone pHostedZoneId_ pVPC_ =-    DisassociateVPCFromHostedZone'-    { _dvfhzComment = Nothing-    , _dvfhzHostedZoneId = pHostedZoneId_-    , _dvfhzVPC = pVPC_-    }+  DisassociateVPCFromHostedZone'+  { _dvfhzComment = Nothing+  , _dvfhzHostedZoneId = pHostedZoneId_+  , _dvfhzVPC = pVPC_+  } + -- | /Optional:/ A comment about the disassociation request. dvfhzComment :: Lens' DisassociateVPCFromHostedZone (Maybe Text) dvfhzComment = lens _dvfhzComment (\ s a -> s{_dvfhzComment = a});@@ -104,9 +104,9 @@                  DisassociateVPCFromHostedZoneResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) -instance Hashable DisassociateVPCFromHostedZone+instance Hashable DisassociateVPCFromHostedZone where -instance NFData DisassociateVPCFromHostedZone+instance NFData DisassociateVPCFromHostedZone where  instance ToElement DisassociateVPCFromHostedZone          where@@ -138,10 +138,11 @@ -- -- /See:/ 'disassociateVPCFromHostedZoneResponse' smart constructor. data DisassociateVPCFromHostedZoneResponse = DisassociateVPCFromHostedZoneResponse'-    { _dvfhzrsResponseStatus :: !Int-    , _dvfhzrsChangeInfo     :: !ChangeInfo-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvfhzrsResponseStatus :: !Int+  , _dvfhzrsChangeInfo     :: !ChangeInfo+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateVPCFromHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,11 +155,10 @@     -> ChangeInfo -- ^ 'dvfhzrsChangeInfo'     -> DisassociateVPCFromHostedZoneResponse disassociateVPCFromHostedZoneResponse pResponseStatus_ pChangeInfo_ =-    DisassociateVPCFromHostedZoneResponse'-    { _dvfhzrsResponseStatus = pResponseStatus_-    , _dvfhzrsChangeInfo = pChangeInfo_-    }+  DisassociateVPCFromHostedZoneResponse'+  {_dvfhzrsResponseStatus = pResponseStatus_, _dvfhzrsChangeInfo = pChangeInfo_} + -- | -- | The response status code. dvfhzrsResponseStatus :: Lens' DisassociateVPCFromHostedZoneResponse Int dvfhzrsResponseStatus = lens _dvfhzrsResponseStatus (\ s a -> s{_dvfhzrsResponseStatus = a});@@ -168,3 +168,4 @@ dvfhzrsChangeInfo = lens _dvfhzrsChangeInfo (\ s a -> s{_dvfhzrsChangeInfo = a});  instance NFData DisassociateVPCFromHostedZoneResponse+         where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.Route53.GetChange--- 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) -- -- Returns the current status of a change batch request. The status is one of the following values: -- -----     * @PENDING@ indicates that the changes in this request have not replicated to all Amazon Route 53 DNS servers. This is the initial status of all change batch requests.+--     * @PENDING@ indicates that the changes in this request have not propagated to all Amazon Route 53 DNS servers. This is the initial status of all change batch requests. -----     * @INSYNC@ indicates that the changes have replicated to all Amazon Route 53 DNS servers.+--     * @INSYNC@ indicates that the changes have propagated to all Amazon Route 53 DNS servers. -- -- --@@ -43,12 +43,12 @@     , gcrsChangeInfo     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | The input for a GetChange request. --@@ -56,23 +56,22 @@ -- -- /See:/ 'getChange' smart constructor. newtype GetChange = GetChange'-    { _gcId :: ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcId :: ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetChange' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcId' - The ID of the change batch request. The value that you specify here is the value that @ChangeResourceRecordSets@ returned in the Id element when you submitted the request.+-- * 'gcId' - The ID of the change batch request. The value that you specify here is the value that @ChangeResourceRecordSets@ returned in the @Id@ element when you submitted the request. getChange     :: ResourceId -- ^ 'gcId'     -> GetChange-getChange pId_ =-    GetChange'-    { _gcId = pId_-    }+getChange pId_ = GetChange' {_gcId = pId_} --- | The ID of the change batch request. The value that you specify here is the value that @ChangeResourceRecordSets@ returned in the Id element when you submitted the request.++-- | The ID of the change batch request. The value that you specify here is the value that @ChangeResourceRecordSets@ returned in the @Id@ element when you submitted the request. gcId :: Lens' GetChange ResourceId gcId = lens _gcId (\ s a -> s{_gcId = a}); @@ -85,9 +84,9 @@                  GetChangeResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) -instance Hashable GetChange+instance Hashable GetChange where -instance NFData GetChange+instance NFData GetChange where  instance ToHeaders GetChange where         toHeaders = const mempty@@ -105,10 +104,11 @@ -- -- /See:/ 'getChangeResponse' smart constructor. data GetChangeResponse = GetChangeResponse'-    { _gcrsResponseStatus :: !Int-    , _gcrsChangeInfo     :: !ChangeInfo-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcrsResponseStatus :: !Int+  , _gcrsChangeInfo     :: !ChangeInfo+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetChangeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +121,10 @@     -> ChangeInfo -- ^ 'gcrsChangeInfo'     -> GetChangeResponse getChangeResponse pResponseStatus_ pChangeInfo_ =-    GetChangeResponse'-    { _gcrsResponseStatus = pResponseStatus_-    , _gcrsChangeInfo = pChangeInfo_-    }+  GetChangeResponse'+  {_gcrsResponseStatus = pResponseStatus_, _gcrsChangeInfo = pChangeInfo_} + -- | -- | The response status code. gcrsResponseStatus :: Lens' GetChangeResponse Int gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});@@ -134,4 +133,4 @@ gcrsChangeInfo :: Lens' GetChangeResponse ChangeInfo gcrsChangeInfo = lens _gcrsChangeInfo (\ s a -> s{_gcrsChangeInfo = a}); -instance NFData GetChangeResponse+instance NFData GetChangeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetCheckerIPRanges--- 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) ----- Retrieves a list of the IP ranges used by Amazon Route 53 health checkers to check the health of your resources. Send a @GET@ request to the @//Amazon Route 53 API version/ /checkeripranges@ resource. Use these IP addresses to configure router and firewall rules to allow health checkers to check the health of your resources.+-- @GetCheckerIpRanges@ still works, but we recommend that you download ip-ranges.json, which includes IP address ranges for all AWS services. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/route-53-ip-addresses.html IP Address Ranges of Amazon Route 53 Servers> in the /Amazon Route 53 Developer Guide/ . -- -- module Network.AWS.Route53.GetCheckerIPRanges@@ -35,28 +35,26 @@     , gcirrsCheckerIPRanges     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | Empty request.------------ /See:/ 'getCheckerIPRanges' smart constructor.+-- | /See:/ 'getCheckerIPRanges' smart constructor. data GetCheckerIPRanges =-    GetCheckerIPRanges'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetCheckerIPRanges'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCheckerIPRanges' with the minimum fields required to make a request. -- getCheckerIPRanges     :: GetCheckerIPRanges getCheckerIPRanges = GetCheckerIPRanges' + instance AWSRequest GetCheckerIPRanges where         type Rs GetCheckerIPRanges =              GetCheckerIPRangesResponse@@ -69,9 +67,9 @@                      (x .@? "CheckerIpRanges" .!@ mempty >>=                         parseXMLList "member")) -instance Hashable GetCheckerIPRanges+instance Hashable GetCheckerIPRanges where -instance NFData GetCheckerIPRanges+instance NFData GetCheckerIPRanges where  instance ToHeaders GetCheckerIPRanges where         toHeaders = const mempty@@ -82,38 +80,34 @@ instance ToQuery GetCheckerIPRanges where         toQuery = const mempty --- | A complex type that contains the @CheckerIpRanges@ element.------------ /See:/ 'getCheckerIPRangesResponse' smart constructor.+-- | /See:/ 'getCheckerIPRangesResponse' smart constructor. data GetCheckerIPRangesResponse = GetCheckerIPRangesResponse'-    { _gcirrsResponseStatus  :: !Int-    , _gcirrsCheckerIPRanges :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcirrsResponseStatus  :: !Int+  , _gcirrsCheckerIPRanges :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCheckerIPRangesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'gcirrsResponseStatus' - -- | The response status code. ----- * 'gcirrsCheckerIPRanges' - A complex type that contains sorted list of IP ranges in CIDR format for Amazon Route 53 health checkers.+-- * 'gcirrsCheckerIPRanges' - Undocumented member. getCheckerIPRangesResponse     :: Int -- ^ 'gcirrsResponseStatus'     -> GetCheckerIPRangesResponse getCheckerIPRangesResponse pResponseStatus_ =-    GetCheckerIPRangesResponse'-    { _gcirrsResponseStatus = pResponseStatus_-    , _gcirrsCheckerIPRanges = mempty-    }+  GetCheckerIPRangesResponse'+  {_gcirrsResponseStatus = pResponseStatus_, _gcirrsCheckerIPRanges = mempty} + -- | -- | The response status code. gcirrsResponseStatus :: Lens' GetCheckerIPRangesResponse Int gcirrsResponseStatus = lens _gcirrsResponseStatus (\ s a -> s{_gcirrsResponseStatus = a}); --- | A complex type that contains sorted list of IP ranges in CIDR format for Amazon Route 53 health checkers.+-- | Undocumented member. gcirrsCheckerIPRanges :: Lens' GetCheckerIPRangesResponse [Text] gcirrsCheckerIPRanges = lens _gcirrsCheckerIPRanges (\ s a -> s{_gcirrsCheckerIPRanges = a}) . _Coerce; -instance NFData GetCheckerIPRangesResponse+instance NFData GetCheckerIPRangesResponse where

@@ -12,15 +12,27 @@  -- | -- Module      : Network.AWS.Route53.GetGeoLocation--- 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) ----- Retrieves a single geo location. Send a @GET@ request to the @/2013-04-01/geolocation@ resource with one of these options: continentcode | countrycode | countrycode and subdivisioncode.+-- Gets information about whether a specified geographic location is supported for Amazon Route 53 geolocation resource record sets. -- --+-- Use the following syntax to determine whether a continent is supported for geolocation:+--+-- @GET /2013-04-01/geolocation?ContinentCode=/two-letter abbreviation for a continent/ @+--+-- Use the following syntax to determine whether a country is supported for geolocation:+--+-- @GET /2013-04-01/geolocation?CountryCode=/two-character country code/ @+--+-- Use the following syntax to determine whether a subdivision of a country is supported for geolocation:+--+-- @GET /2013-04-01/geolocation?CountryCode=/two-character country code/ &SubdivisionCode=/subdivision code/ @+-- module Network.AWS.Route53.GetGeoLocation     (     -- * Creating a Request@@ -39,24 +51,25 @@     , gglrsGeoLocationDetails     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type that contains information about the request to get a geo location.+-- | A request for information about whether a specified geographic location is supported for Amazon Route 53 geolocation resource record sets. -- -- -- -- /See:/ 'getGeoLocation' smart constructor. data GetGeoLocation = GetGeoLocation'-    { _gglSubdivisionCode :: !(Maybe Text)-    , _gglCountryCode     :: !(Maybe Text)-    , _gglContinentCode   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gglSubdivisionCode :: !(Maybe Text)+  , _gglCountryCode     :: !(Maybe Text)+  , _gglContinentCode   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetGeoLocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,12 +82,13 @@ getGeoLocation     :: GetGeoLocation getGeoLocation =-    GetGeoLocation'-    { _gglSubdivisionCode = Nothing-    , _gglCountryCode = Nothing-    , _gglContinentCode = Nothing-    }+  GetGeoLocation'+  { _gglSubdivisionCode = Nothing+  , _gglCountryCode = Nothing+  , _gglContinentCode = Nothing+  } + -- | Amazon Route 53 uses the one- to three-letter subdivision codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . Amazon Route 53 doesn't support subdivision codes for all countries. If you specify @SubdivisionCode@ , you must also specify @CountryCode@ . gglSubdivisionCode :: Lens' GetGeoLocation (Maybe Text) gglSubdivisionCode = lens _gglSubdivisionCode (\ s a -> s{_gglSubdivisionCode = a});@@ -96,9 +110,9 @@                  GetGeoLocationResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "GeoLocationDetails")) -instance Hashable GetGeoLocation+instance Hashable GetGeoLocation where -instance NFData GetGeoLocation+instance NFData GetGeoLocation where  instance ToHeaders GetGeoLocation where         toHeaders = const mempty@@ -119,10 +133,11 @@ -- -- /See:/ 'getGeoLocationResponse' smart constructor. data GetGeoLocationResponse = GetGeoLocationResponse'-    { _gglrsResponseStatus     :: !Int-    , _gglrsGeoLocationDetails :: !GeoLocationDetails-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gglrsResponseStatus     :: !Int+  , _gglrsGeoLocationDetails :: !GeoLocationDetails+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetGeoLocationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -135,11 +150,12 @@     -> GeoLocationDetails -- ^ 'gglrsGeoLocationDetails'     -> GetGeoLocationResponse getGeoLocationResponse pResponseStatus_ pGeoLocationDetails_ =-    GetGeoLocationResponse'-    { _gglrsResponseStatus = pResponseStatus_-    , _gglrsGeoLocationDetails = pGeoLocationDetails_-    }+  GetGeoLocationResponse'+  { _gglrsResponseStatus = pResponseStatus_+  , _gglrsGeoLocationDetails = pGeoLocationDetails_+  } + -- | -- | The response status code. gglrsResponseStatus :: Lens' GetGeoLocationResponse Int gglrsResponseStatus = lens _gglrsResponseStatus (\ s a -> s{_gglrsResponseStatus = a});@@ -148,4 +164,4 @@ gglrsGeoLocationDetails :: Lens' GetGeoLocationResponse GeoLocationDetails gglrsGeoLocationDetails = lens _gglrsGeoLocationDetails (\ s a -> s{_gglrsGeoLocationDetails = a}); -instance NFData GetGeoLocationResponse+instance NFData GetGeoLocationResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheck--- 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 information about a specified health check. Send a @GET@ request to the @/2013-04-01/healthcheck//health check ID/ @ resource. For more information about using the console to perform this operation, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover.html Amazon Route 53 Health Checks and DNS Failover> in the Amazon Route 53 Developer Guide.+-- Gets information about a specified health check. -- -- module Network.AWS.Route53.GetHealthCheck@@ -37,26 +37,23 @@     , ghcrsHealthCheck     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | This action gets information about a specified health check.+-- | A request to get information about a specified health check. -- ----- Send a @GET@ request to the @//Amazon Route 53 API version/ /gethealthcheckrequest@ resource. ----- For information about getting information about a health check using the Amazon Route 53 console, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover.html Amazon Route 53 Health Checks and DNS Failover> in the /Amazon Route 53 Developer Guide/ .------ -- /See:/ 'getHealthCheck' smart constructor. newtype GetHealthCheck = GetHealthCheck'-    { _ghcHealthCheckId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghcHealthCheckId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheck' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +63,9 @@     :: Text -- ^ 'ghcHealthCheckId'     -> GetHealthCheck getHealthCheck pHealthCheckId_ =-    GetHealthCheck'-    { _ghcHealthCheckId = pHealthCheckId_-    }+  GetHealthCheck' {_ghcHealthCheckId = pHealthCheckId_} + -- | The identifier that Amazon Route 53 assigned to the health check when you created it. When you add or update a resource record set, you use this value to specify which health check to use. The value can be up to 64 characters long. ghcHealthCheckId :: Lens' GetHealthCheck Text ghcHealthCheckId = lens _ghcHealthCheckId (\ s a -> s{_ghcHealthCheckId = a});@@ -83,9 +79,9 @@                  GetHealthCheckResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "HealthCheck")) -instance Hashable GetHealthCheck+instance Hashable GetHealthCheck where -instance NFData GetHealthCheck+instance NFData GetHealthCheck where  instance ToHeaders GetHealthCheck where         toHeaders = const mempty@@ -104,10 +100,11 @@ -- -- /See:/ 'getHealthCheckResponse' smart constructor. data GetHealthCheckResponse = GetHealthCheckResponse'-    { _ghcrsResponseStatus :: !Int-    , _ghcrsHealthCheck    :: !HealthCheck-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghcrsResponseStatus :: !Int+  , _ghcrsHealthCheck    :: !HealthCheck+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -120,11 +117,10 @@     -> HealthCheck -- ^ 'ghcrsHealthCheck'     -> GetHealthCheckResponse getHealthCheckResponse pResponseStatus_ pHealthCheck_ =-    GetHealthCheckResponse'-    { _ghcrsResponseStatus = pResponseStatus_-    , _ghcrsHealthCheck = pHealthCheck_-    }+  GetHealthCheckResponse'+  {_ghcrsResponseStatus = pResponseStatus_, _ghcrsHealthCheck = pHealthCheck_} + -- | -- | The response status code. ghcrsResponseStatus :: Lens' GetHealthCheckResponse Int ghcrsResponseStatus = lens _ghcrsResponseStatus (\ s a -> s{_ghcrsResponseStatus = a});@@ -133,4 +129,4 @@ ghcrsHealthCheck :: Lens' GetHealthCheckResponse HealthCheck ghcrsHealthCheck = lens _ghcrsHealthCheck (\ s a -> s{_ghcrsHealthCheck = a}); -instance NFData GetHealthCheckResponse+instance NFData GetHealthCheckResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheckCount--- 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) ----- To retrieve a count of all your health checks, send a @GET@ request to the @/2013-04-01/healthcheckcount@ resource.+-- Retrieves the number of health checks that are associated with the current AWS account. -- -- module Network.AWS.Route53.GetHealthCheckCount@@ -35,28 +35,30 @@     , ghccrsHealthCheckCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a count of all your health checks, send a @GET@ request to the @/2013-04-01/healthcheckcount@ resource.+-- | A request for the number of health checks that are associated with the current AWS account. -- -- -- -- /See:/ 'getHealthCheckCount' smart constructor. data GetHealthCheckCount =-    GetHealthCheckCount'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetHealthCheckCount'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckCount' with the minimum fields required to make a request. -- getHealthCheckCount     :: GetHealthCheckCount getHealthCheckCount = GetHealthCheckCount' + instance AWSRequest GetHealthCheckCount where         type Rs GetHealthCheckCount =              GetHealthCheckCountResponse@@ -67,9 +69,9 @@                  GetHealthCheckCountResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "HealthCheckCount")) -instance Hashable GetHealthCheckCount+instance Hashable GetHealthCheckCount where -instance NFData GetHealthCheckCount+instance NFData GetHealthCheckCount where  instance ToHeaders GetHealthCheckCount where         toHeaders = const mempty@@ -80,16 +82,17 @@ instance ToQuery GetHealthCheckCount where         toQuery = const mempty --- | A complex type that contains the response to a @healthcheckcount@ request.+-- | A complex type that contains the response to a @GetHealthCheckCount@ request. -- -- -- -- /See:/ 'getHealthCheckCountResponse' smart constructor. data GetHealthCheckCountResponse = GetHealthCheckCountResponse'-    { _ghccrsResponseStatus   :: !Int-    , _ghccrsHealthCheckCount :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghccrsResponseStatus   :: !Int+  , _ghccrsHealthCheckCount :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckCountResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -102,11 +105,12 @@     -> Integer -- ^ 'ghccrsHealthCheckCount'     -> GetHealthCheckCountResponse getHealthCheckCountResponse pResponseStatus_ pHealthCheckCount_ =-    GetHealthCheckCountResponse'-    { _ghccrsResponseStatus = pResponseStatus_-    , _ghccrsHealthCheckCount = pHealthCheckCount_-    }+  GetHealthCheckCountResponse'+  { _ghccrsResponseStatus = pResponseStatus_+  , _ghccrsHealthCheckCount = pHealthCheckCount_+  } + -- | -- | The response status code. ghccrsResponseStatus :: Lens' GetHealthCheckCountResponse Int ghccrsResponseStatus = lens _ghccrsResponseStatus (\ s a -> s{_ghccrsResponseStatus = a});@@ -115,4 +119,4 @@ ghccrsHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer ghccrsHealthCheckCount = lens _ghccrsHealthCheckCount (\ s a -> s{_ghccrsHealthCheckCount = a}); -instance NFData GetHealthCheckCountResponse+instance NFData GetHealthCheckCountResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheckLastFailureReason--- 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) ----- If you want to learn why a health check is currently failing or why it failed most recently (if at all), you can get the failure reason for the most recent failure. Send a @GET@ request to the @//Amazon Route 53 API version/ /healthcheck//health check ID/ /lastfailurereason@ resource.+-- Gets the reason that a specified health check failed most recently. -- -- module Network.AWS.Route53.GetHealthCheckLastFailureReason@@ -37,26 +37,23 @@     , ghclfrrsHealthCheckObservations     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | This action gets the reason that a specified health check failed most recently.+-- | A request for the reason that a health check failed most recently. -- ----- To get the reason for the last failure of a health check, send a GET request to the /2013-04-01/healthcheck/health check ID/lastfailurereason resource. ----- For information about viewing the last failure reason for a health check using the Amazon Route 53 console, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/health-checks-monitor-view-status.html Viewing Health Check Status and the Reason for Health Check Failures> in the /Amazon Route 53 Developer Guide/ .------ -- /See:/ 'getHealthCheckLastFailureReason' smart constructor. newtype GetHealthCheckLastFailureReason = GetHealthCheckLastFailureReason'-    { _ghclfrHealthCheckId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghclfrHealthCheckId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckLastFailureReason' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +63,9 @@     :: Text -- ^ 'ghclfrHealthCheckId'     -> GetHealthCheckLastFailureReason getHealthCheckLastFailureReason pHealthCheckId_ =-    GetHealthCheckLastFailureReason'-    { _ghclfrHealthCheckId = pHealthCheckId_-    }+  GetHealthCheckLastFailureReason' {_ghclfrHealthCheckId = pHealthCheckId_} + -- | The ID for the health check for which you want the last failure reason. When you created the health check, @CreateHealthCheck@ returned the ID in the response, in the @HealthCheckId@ element. ghclfrHealthCheckId :: Lens' GetHealthCheckLastFailureReason Text ghclfrHealthCheckId = lens _ghclfrHealthCheckId (\ s a -> s{_ghclfrHealthCheckId = a});@@ -88,8 +84,9 @@                         parseXMLList "HealthCheckObservation"))  instance Hashable GetHealthCheckLastFailureReason+         where -instance NFData GetHealthCheckLastFailureReason+instance NFData GetHealthCheckLastFailureReason where  instance ToHeaders GetHealthCheckLastFailureReason          where@@ -111,10 +108,11 @@ -- -- /See:/ 'getHealthCheckLastFailureReasonResponse' smart constructor. data GetHealthCheckLastFailureReasonResponse = GetHealthCheckLastFailureReasonResponse'-    { _ghclfrrsResponseStatus          :: !Int-    , _ghclfrrsHealthCheckObservations :: ![HealthCheckObservation]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghclfrrsResponseStatus          :: !Int+  , _ghclfrrsHealthCheckObservations :: ![HealthCheckObservation]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckLastFailureReasonResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,11 +124,12 @@     :: Int -- ^ 'ghclfrrsResponseStatus'     -> GetHealthCheckLastFailureReasonResponse getHealthCheckLastFailureReasonResponse pResponseStatus_ =-    GetHealthCheckLastFailureReasonResponse'-    { _ghclfrrsResponseStatus = pResponseStatus_-    , _ghclfrrsHealthCheckObservations = mempty-    }+  GetHealthCheckLastFailureReasonResponse'+  { _ghclfrrsResponseStatus = pResponseStatus_+  , _ghclfrrsHealthCheckObservations = mempty+  } + -- | -- | The response status code. ghclfrrsResponseStatus :: Lens' GetHealthCheckLastFailureReasonResponse Int ghclfrrsResponseStatus = lens _ghclfrrsResponseStatus (\ s a -> s{_ghclfrrsResponseStatus = a});@@ -140,4 +139,5 @@ ghclfrrsHealthCheckObservations = lens _ghclfrrsHealthCheckObservations (\ s a -> s{_ghclfrrsHealthCheckObservations = a}) . _Coerce;  instance NFData-         GetHealthCheckLastFailureReasonResponse+           GetHealthCheckLastFailureReasonResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheckStatus--- 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 status of a specified health check. Send a @GET@ request to the @/2013-04-01/healthcheck//health check ID/ /status@ resource. You can use this call to get a health check's current status.+-- Gets status of a specified health check. -- -- module Network.AWS.Route53.GetHealthCheckStatus@@ -37,36 +37,36 @@     , ghcsrsHealthCheckObservations     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type that contains information about the request to get health check status for a health check.+-- | A request to get the status for a health check. -- -- -- -- /See:/ 'getHealthCheckStatus' smart constructor. newtype GetHealthCheckStatus = GetHealthCheckStatus'-    { _ghcsHealthCheckId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghcsHealthCheckId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghcsHealthCheckId' - If you want Amazon Route 53 to return this resource record set in response to a DNS query only when a health check is passing, include the @HealthCheckId@ element and specify the ID of the applicable health check. Amazon Route 53 determines whether a resource record set is healthy by periodically sending a request to the endpoint that is specified in the health check. If that endpoint returns an HTTP status code of 2xx or 3xx, the endpoint is healthy. If the endpoint returns an HTTP status code of 400 or greater, or if the endpoint doesn't respond for a certain amount of time, Amazon Route 53 considers the endpoint unhealthy and also considers the resource record set unhealthy. The @HealthCheckId@ element is only useful when Amazon Route 53 is choosing between two or more resource record sets to respond to a DNS query, and you want Amazon Route 53 to base the choice in part on the status of a health check. Configuring health checks only makes sense in the following configurations:     * You're checking the health of the resource record sets in a weighted, latency, geolocation, or failover resource record set, and you specify health check IDs for all of the resource record sets. If the health check for one resource record set specifies an endpoint that is not healthy, Amazon Route 53 stops responding to queries using the value for that resource record set.     * You set @EvaluateTargetHealth@ to @true@ for the resource record sets in an alias, weighted alias, latency alias, geolocation alias, or failover alias resource record set, and you specify health check IDs for all of the resource record sets that are referenced by the alias resource record sets. For more information about this configuration, see @EvaluateTargetHealth@ . Amazon Route 53 doesn't check the health of the endpoint specified in the resource record set, for example, the endpoint specified by the IP address in the @Value@ element. When you add a @HealthCheckId@ element to a resource record set, Amazon Route 53 checks the health of the endpoint that you specified in the health check. For geolocation resource record sets, if an endpoint is unhealthy, Amazon Route 53 looks for a resource record set for the larger, associated geographic region. For example, suppose you have resource record sets for a state in the United States, for the United States, for North America, and for all locations. If the endpoint for the state resource record set is unhealthy, Amazon Route 53 checks the resource record sets for the United States, for North America, and for all locations (a resource record set for which the value of CountryCode is @*@ ), in that order, until it finds a resource record set for which the endpoint is healthy. If your health checks specify the endpoint only by domain name, we recommend that you create a separate health check for each endpoint. For example, create a health check for each HTTP server that is serving content for www.example.com. For the value of @FullyQualifiedDomainName@ , specify the domain name of the server (such as @us-east-1-www.example.com@ ), not the name of the resource record sets (example.com). /Important:/ In this configuration, if you create a health check for which the value of @FullyQualifiedDomainName@ matches the name of the resource record sets and then associate the health check with those resource record sets, health check results will be unpredictable.+-- * 'ghcsHealthCheckId' - The ID for the health check that you want the current status for. When you created the health check, @CreateHealthCheck@ returned the ID in the response, in the @HealthCheckId@ element. getHealthCheckStatus     :: Text -- ^ 'ghcsHealthCheckId'     -> GetHealthCheckStatus getHealthCheckStatus pHealthCheckId_ =-    GetHealthCheckStatus'-    { _ghcsHealthCheckId = pHealthCheckId_-    }+  GetHealthCheckStatus' {_ghcsHealthCheckId = pHealthCheckId_} --- | If you want Amazon Route 53 to return this resource record set in response to a DNS query only when a health check is passing, include the @HealthCheckId@ element and specify the ID of the applicable health check. Amazon Route 53 determines whether a resource record set is healthy by periodically sending a request to the endpoint that is specified in the health check. If that endpoint returns an HTTP status code of 2xx or 3xx, the endpoint is healthy. If the endpoint returns an HTTP status code of 400 or greater, or if the endpoint doesn't respond for a certain amount of time, Amazon Route 53 considers the endpoint unhealthy and also considers the resource record set unhealthy. The @HealthCheckId@ element is only useful when Amazon Route 53 is choosing between two or more resource record sets to respond to a DNS query, and you want Amazon Route 53 to base the choice in part on the status of a health check. Configuring health checks only makes sense in the following configurations:     * You're checking the health of the resource record sets in a weighted, latency, geolocation, or failover resource record set, and you specify health check IDs for all of the resource record sets. If the health check for one resource record set specifies an endpoint that is not healthy, Amazon Route 53 stops responding to queries using the value for that resource record set.     * You set @EvaluateTargetHealth@ to @true@ for the resource record sets in an alias, weighted alias, latency alias, geolocation alias, or failover alias resource record set, and you specify health check IDs for all of the resource record sets that are referenced by the alias resource record sets. For more information about this configuration, see @EvaluateTargetHealth@ . Amazon Route 53 doesn't check the health of the endpoint specified in the resource record set, for example, the endpoint specified by the IP address in the @Value@ element. When you add a @HealthCheckId@ element to a resource record set, Amazon Route 53 checks the health of the endpoint that you specified in the health check. For geolocation resource record sets, if an endpoint is unhealthy, Amazon Route 53 looks for a resource record set for the larger, associated geographic region. For example, suppose you have resource record sets for a state in the United States, for the United States, for North America, and for all locations. If the endpoint for the state resource record set is unhealthy, Amazon Route 53 checks the resource record sets for the United States, for North America, and for all locations (a resource record set for which the value of CountryCode is @*@ ), in that order, until it finds a resource record set for which the endpoint is healthy. If your health checks specify the endpoint only by domain name, we recommend that you create a separate health check for each endpoint. For example, create a health check for each HTTP server that is serving content for www.example.com. For the value of @FullyQualifiedDomainName@ , specify the domain name of the server (such as @us-east-1-www.example.com@ ), not the name of the resource record sets (example.com). /Important:/ In this configuration, if you create a health check for which the value of @FullyQualifiedDomainName@ matches the name of the resource record sets and then associate the health check with those resource record sets, health check results will be unpredictable.++-- | The ID for the health check that you want the current status for. When you created the health check, @CreateHealthCheck@ returned the ID in the response, in the @HealthCheckId@ element. ghcsHealthCheckId :: Lens' GetHealthCheckStatus Text ghcsHealthCheckId = lens _ghcsHealthCheckId (\ s a -> s{_ghcsHealthCheckId = a}); @@ -82,9 +82,9 @@                      (x .@? "HealthCheckObservations" .!@ mempty >>=                         parseXMLList "HealthCheckObservation")) -instance Hashable GetHealthCheckStatus+instance Hashable GetHealthCheckStatus where -instance NFData GetHealthCheckStatus+instance NFData GetHealthCheckStatus where  instance ToHeaders GetHealthCheckStatus where         toHeaders = const mempty@@ -104,10 +104,11 @@ -- -- /See:/ 'getHealthCheckStatusResponse' smart constructor. data GetHealthCheckStatusResponse = GetHealthCheckStatusResponse'-    { _ghcsrsResponseStatus          :: !Int-    , _ghcsrsHealthCheckObservations :: ![HealthCheckObservation]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghcsrsResponseStatus          :: !Int+  , _ghcsrsHealthCheckObservations :: ![HealthCheckObservation]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHealthCheckStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,11 +120,12 @@     :: Int -- ^ 'ghcsrsResponseStatus'     -> GetHealthCheckStatusResponse getHealthCheckStatusResponse pResponseStatus_ =-    GetHealthCheckStatusResponse'-    { _ghcsrsResponseStatus = pResponseStatus_-    , _ghcsrsHealthCheckObservations = mempty-    }+  GetHealthCheckStatusResponse'+  { _ghcsrsResponseStatus = pResponseStatus_+  , _ghcsrsHealthCheckObservations = mempty+  } + -- | -- | The response status code. ghcsrsResponseStatus :: Lens' GetHealthCheckStatusResponse Int ghcsrsResponseStatus = lens _ghcsrsResponseStatus (\ s a -> s{_ghcsrsResponseStatus = a});@@ -132,4 +134,4 @@ ghcsrsHealthCheckObservations :: Lens' GetHealthCheckStatusResponse [HealthCheckObservation] ghcsrsHealthCheckObservations = lens _ghcsrsHealthCheckObservations (\ s a -> s{_ghcsrsHealthCheckObservations = a}) . _Coerce; -instance NFData GetHealthCheckStatusResponse+instance NFData GetHealthCheckStatusResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetHostedZone--- 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) ----- Retrieves the delegation set for a hosted zone, including the four name servers assigned to the hosted zone. Send a @GET@ request to the @//Amazon Route 53 API version/ /hostedzone//hosted zone ID/ @ resource.+-- Gets information about a specified hosted zone including the four name servers assigned to the hosted zone. -- -- module Network.AWS.Route53.GetHostedZone@@ -39,36 +39,35 @@     , ghzrsHostedZone     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | The input for a GetHostedZone request.+-- | A request to get information about a specified hosted zone. -- -- -- -- /See:/ 'getHostedZone' smart constructor. newtype GetHostedZone = GetHostedZone'-    { _ghzId :: ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghzId :: ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHostedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghzId' - The ID of the hosted zone for which you want to get a list of the name servers in the delegation set.+-- * 'ghzId' - The ID of the hosted zone that you want to get information about. getHostedZone     :: ResourceId -- ^ 'ghzId'     -> GetHostedZone-getHostedZone pId_ =-    GetHostedZone'-    { _ghzId = pId_-    }+getHostedZone pId_ = GetHostedZone' {_ghzId = pId_} --- | The ID of the hosted zone for which you want to get a list of the name servers in the delegation set.++-- | The ID of the hosted zone that you want to get information about. ghzId :: Lens' GetHostedZone ResourceId ghzId = lens _ghzId (\ s a -> s{_ghzId = a}); @@ -85,9 +84,9 @@                      <*> (pure (fromEnum s))                      <*> (x .@ "HostedZone")) -instance Hashable GetHostedZone+instance Hashable GetHostedZone where -instance NFData GetHostedZone+instance NFData GetHostedZone where  instance ToHeaders GetHostedZone where         toHeaders = const mempty@@ -99,46 +98,48 @@ instance ToQuery GetHostedZone where         toQuery = const mempty --- | A complex type containing the response information for the hosted zone.+-- | A complex type that contain the response to a @GetHostedZone@ request. -- -- -- -- /See:/ 'getHostedZoneResponse' smart constructor. data GetHostedZoneResponse = GetHostedZoneResponse'-    { _ghzrsVPCs           :: !(Maybe (List1 VPC))-    , _ghzrsDelegationSet  :: !(Maybe DelegationSet)-    , _ghzrsResponseStatus :: !Int-    , _ghzrsHostedZone     :: !HostedZone-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghzrsVPCs           :: !(Maybe (List1 VPC))+  , _ghzrsDelegationSet  :: !(Maybe DelegationSet)+  , _ghzrsResponseStatus :: !Int+  , _ghzrsHostedZone     :: !HostedZone+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghzrsVPCs' - A complex type that contains information about VPCs associated with the specified hosted zone.+-- * 'ghzrsVPCs' - A complex type that contains information about the VPCs that are associated with the specified hosted zone. ----- * 'ghzrsDelegationSet' - A complex type that describes the name servers for this hosted zone.+-- * 'ghzrsDelegationSet' - A complex type that lists the Amazon Route 53 name servers for the specified hosted zone. -- -- * 'ghzrsResponseStatus' - -- | The response status code. ----- * 'ghzrsHostedZone' - A complex type that contains general information about the hosted zone.+-- * 'ghzrsHostedZone' - A complex type that contains general information about the specified hosted zone. getHostedZoneResponse     :: Int -- ^ 'ghzrsResponseStatus'     -> HostedZone -- ^ 'ghzrsHostedZone'     -> GetHostedZoneResponse getHostedZoneResponse pResponseStatus_ pHostedZone_ =-    GetHostedZoneResponse'-    { _ghzrsVPCs = Nothing-    , _ghzrsDelegationSet = Nothing-    , _ghzrsResponseStatus = pResponseStatus_-    , _ghzrsHostedZone = pHostedZone_-    }+  GetHostedZoneResponse'+  { _ghzrsVPCs = Nothing+  , _ghzrsDelegationSet = Nothing+  , _ghzrsResponseStatus = pResponseStatus_+  , _ghzrsHostedZone = pHostedZone_+  } --- | A complex type that contains information about VPCs associated with the specified hosted zone.++-- | A complex type that contains information about the VPCs that are associated with the specified hosted zone. ghzrsVPCs :: Lens' GetHostedZoneResponse (Maybe (NonEmpty VPC)) ghzrsVPCs = lens _ghzrsVPCs (\ s a -> s{_ghzrsVPCs = a}) . mapping _List1; --- | A complex type that describes the name servers for this hosted zone.+-- | A complex type that lists the Amazon Route 53 name servers for the specified hosted zone. ghzrsDelegationSet :: Lens' GetHostedZoneResponse (Maybe DelegationSet) ghzrsDelegationSet = lens _ghzrsDelegationSet (\ s a -> s{_ghzrsDelegationSet = a}); @@ -146,8 +147,8 @@ ghzrsResponseStatus :: Lens' GetHostedZoneResponse Int ghzrsResponseStatus = lens _ghzrsResponseStatus (\ s a -> s{_ghzrsResponseStatus = a}); --- | A complex type that contains general information about the hosted zone.+-- | A complex type that contains general information about the specified hosted zone. ghzrsHostedZone :: Lens' GetHostedZoneResponse HostedZone ghzrsHostedZone = lens _ghzrsHostedZone (\ s a -> s{_ghzrsHostedZone = a}); -instance NFData GetHostedZoneResponse+instance NFData GetHostedZoneResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetHostedZoneCount--- 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) ----- Retrieves a count of all your hosted zones. Send a @GET@ request to the @/2013-04-01/hostedzonecount@ resource.+-- Retrieves the number of hosted zones that are associated with the current AWS account. -- -- module Network.AWS.Route53.GetHostedZoneCount@@ -35,28 +35,30 @@     , ghzcrsHostedZoneCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a count of all your hosted zones, send a @GET@ request to the @/2013-04-01/hostedzonecount@ resource.+-- | A request to retrieve a count of all the hosted zones that are associated with the current AWS account. -- -- -- -- /See:/ 'getHostedZoneCount' smart constructor. data GetHostedZoneCount =-    GetHostedZoneCount'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetHostedZoneCount'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHostedZoneCount' with the minimum fields required to make a request. -- getHostedZoneCount     :: GetHostedZoneCount getHostedZoneCount = GetHostedZoneCount' + instance AWSRequest GetHostedZoneCount where         type Rs GetHostedZoneCount =              GetHostedZoneCountResponse@@ -67,9 +69,9 @@                  GetHostedZoneCountResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "HostedZoneCount")) -instance Hashable GetHostedZoneCount+instance Hashable GetHostedZoneCount where -instance NFData GetHostedZoneCount+instance NFData GetHostedZoneCount where  instance ToHeaders GetHostedZoneCount where         toHeaders = const mempty@@ -80,39 +82,41 @@ instance ToQuery GetHostedZoneCount where         toQuery = const mempty --- | A complex type that contains the response to a @hostedzonecount@ request.+-- | A complex type that contains the response to a @GetHostedZoneCount@ request. -- -- -- -- /See:/ 'getHostedZoneCountResponse' smart constructor. data GetHostedZoneCountResponse = GetHostedZoneCountResponse'-    { _ghzcrsResponseStatus  :: !Int-    , _ghzcrsHostedZoneCount :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ghzcrsResponseStatus  :: !Int+  , _ghzcrsHostedZoneCount :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetHostedZoneCountResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ghzcrsResponseStatus' - -- | The response status code. ----- * 'ghzcrsHostedZoneCount' - The total number of public and private hosted zones associated with the current AWS account.+-- * 'ghzcrsHostedZoneCount' - The total number of public and private hosted zones that are associated with the current AWS account. getHostedZoneCountResponse     :: Int -- ^ 'ghzcrsResponseStatus'     -> Integer -- ^ 'ghzcrsHostedZoneCount'     -> GetHostedZoneCountResponse getHostedZoneCountResponse pResponseStatus_ pHostedZoneCount_ =-    GetHostedZoneCountResponse'-    { _ghzcrsResponseStatus = pResponseStatus_-    , _ghzcrsHostedZoneCount = pHostedZoneCount_-    }+  GetHostedZoneCountResponse'+  { _ghzcrsResponseStatus = pResponseStatus_+  , _ghzcrsHostedZoneCount = pHostedZoneCount_+  } + -- | -- | The response status code. ghzcrsResponseStatus :: Lens' GetHostedZoneCountResponse Int ghzcrsResponseStatus = lens _ghzcrsResponseStatus (\ s a -> s{_ghzcrsResponseStatus = a}); --- | The total number of public and private hosted zones associated with the current AWS account.+-- | The total number of public and private hosted zones that are associated with the current AWS account. ghzcrsHostedZoneCount :: Lens' GetHostedZoneCountResponse Integer ghzcrsHostedZoneCount = lens _ghzcrsHostedZoneCount (\ s a -> s{_ghzcrsHostedZoneCount = a}); -instance NFData GetHostedZoneCountResponse+instance NFData GetHostedZoneCountResponse where

@@ -0,0 +1,128 @@+{-# 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.Route53.GetQueryLoggingConfig+-- 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)+--+-- Gets information about a specified configuration for DNS query logging.+--+--+-- For more information about DNS query logs, see 'CreateQueryLoggingConfig' and <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/query-logs.html Logging DNS Queries> .+--+module Network.AWS.Route53.GetQueryLoggingConfig+    (+    -- * Creating a Request+      getQueryLoggingConfig+    , GetQueryLoggingConfig+    -- * Request Lenses+    , gqlcId++    -- * Destructuring the Response+    , getQueryLoggingConfigResponse+    , GetQueryLoggingConfigResponse+    -- * Response Lenses+    , gqlcrsResponseStatus+    , gqlcrsQueryLoggingConfig+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product++-- | /See:/ 'getQueryLoggingConfig' smart constructor.+newtype GetQueryLoggingConfig = GetQueryLoggingConfig'+  { _gqlcId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetQueryLoggingConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gqlcId' - The ID of the configuration for DNS query logging that you want to get information about.+getQueryLoggingConfig+    :: Text -- ^ 'gqlcId'+    -> GetQueryLoggingConfig+getQueryLoggingConfig pId_ = GetQueryLoggingConfig' {_gqlcId = pId_}+++-- | The ID of the configuration for DNS query logging that you want to get information about.+gqlcId :: Lens' GetQueryLoggingConfig Text+gqlcId = lens _gqlcId (\ s a -> s{_gqlcId = a});++instance AWSRequest GetQueryLoggingConfig where+        type Rs GetQueryLoggingConfig =+             GetQueryLoggingConfigResponse+        request = get route53+        response+          = receiveXML+              (\ s h x ->+                 GetQueryLoggingConfigResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "QueryLoggingConfig"))++instance Hashable GetQueryLoggingConfig where++instance NFData GetQueryLoggingConfig where++instance ToHeaders GetQueryLoggingConfig where+        toHeaders = const mempty++instance ToPath GetQueryLoggingConfig where+        toPath GetQueryLoggingConfig'{..}+          = mconcat+              ["/2013-04-01/queryloggingconfig/", toBS _gqlcId]++instance ToQuery GetQueryLoggingConfig where+        toQuery = const mempty++-- | /See:/ 'getQueryLoggingConfigResponse' smart constructor.+data GetQueryLoggingConfigResponse = GetQueryLoggingConfigResponse'+  { _gqlcrsResponseStatus     :: !Int+  , _gqlcrsQueryLoggingConfig :: !QueryLoggingConfig+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetQueryLoggingConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gqlcrsResponseStatus' - -- | The response status code.+--+-- * 'gqlcrsQueryLoggingConfig' - A complex type that contains information about the query logging configuration that you specified in a 'GetQueryLoggingConfig' request.+getQueryLoggingConfigResponse+    :: Int -- ^ 'gqlcrsResponseStatus'+    -> QueryLoggingConfig -- ^ 'gqlcrsQueryLoggingConfig'+    -> GetQueryLoggingConfigResponse+getQueryLoggingConfigResponse pResponseStatus_ pQueryLoggingConfig_ =+  GetQueryLoggingConfigResponse'+  { _gqlcrsResponseStatus = pResponseStatus_+  , _gqlcrsQueryLoggingConfig = pQueryLoggingConfig_+  }+++-- | -- | The response status code.+gqlcrsResponseStatus :: Lens' GetQueryLoggingConfigResponse Int+gqlcrsResponseStatus = lens _gqlcrsResponseStatus (\ s a -> s{_gqlcrsResponseStatus = a});++-- | A complex type that contains information about the query logging configuration that you specified in a 'GetQueryLoggingConfig' request.+gqlcrsQueryLoggingConfig :: Lens' GetQueryLoggingConfigResponse QueryLoggingConfig+gqlcrsQueryLoggingConfig = lens _gqlcrsQueryLoggingConfig (\ s a -> s{_gqlcrsQueryLoggingConfig = a});++instance NFData GetQueryLoggingConfigResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.GetReusableDelegationSet--- 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) ----- Retrieves the reusable delegation set. Send a @GET@ request to the @/2013-04-01/delegationset//delegation set ID/ @ resource.+-- Retrieves information about a specified reusable delegation set, including the four name servers that are assigned to the delegation set. -- -- module Network.AWS.Route53.GetReusableDelegationSet@@ -37,36 +37,35 @@     , grdsrsDelegationSet     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | The input for a @GetReusableDelegationSet@ request.+-- | A request to get information about a specified reusable delegation set. -- -- -- -- /See:/ 'getReusableDelegationSet' smart constructor. newtype GetReusableDelegationSet = GetReusableDelegationSet'-    { _grdsId :: ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _grdsId :: ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetReusableDelegationSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'grdsId' - The ID of the reusable delegation set for which you want to get a list of the name server.+-- * 'grdsId' - The ID of the reusable delegation set that you want to get a list of name servers for. getReusableDelegationSet     :: ResourceId -- ^ 'grdsId'     -> GetReusableDelegationSet-getReusableDelegationSet pId_ =-    GetReusableDelegationSet'-    { _grdsId = pId_-    }+getReusableDelegationSet pId_ = GetReusableDelegationSet' {_grdsId = pId_} --- | The ID of the reusable delegation set for which you want to get a list of the name server.++-- | The ID of the reusable delegation set that you want to get a list of name servers for. grdsId :: Lens' GetReusableDelegationSet ResourceId grdsId = lens _grdsId (\ s a -> s{_grdsId = a}); @@ -80,9 +79,9 @@                  GetReusableDelegationSetResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "DelegationSet")) -instance Hashable GetReusableDelegationSet+instance Hashable GetReusableDelegationSet where -instance NFData GetReusableDelegationSet+instance NFData GetReusableDelegationSet where  instance ToHeaders GetReusableDelegationSet where         toHeaders = const mempty@@ -101,10 +100,11 @@ -- -- /See:/ 'getReusableDelegationSetResponse' smart constructor. data GetReusableDelegationSetResponse = GetReusableDelegationSetResponse'-    { _grdsrsResponseStatus :: !Int-    , _grdsrsDelegationSet  :: !DelegationSet-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _grdsrsResponseStatus :: !Int+  , _grdsrsDelegationSet  :: !DelegationSet+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetReusableDelegationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -117,11 +117,12 @@     -> DelegationSet -- ^ 'grdsrsDelegationSet'     -> GetReusableDelegationSetResponse getReusableDelegationSetResponse pResponseStatus_ pDelegationSet_ =-    GetReusableDelegationSetResponse'-    { _grdsrsResponseStatus = pResponseStatus_-    , _grdsrsDelegationSet = pDelegationSet_-    }+  GetReusableDelegationSetResponse'+  { _grdsrsResponseStatus = pResponseStatus_+  , _grdsrsDelegationSet = pDelegationSet_+  } + -- | -- | The response status code. grdsrsResponseStatus :: Lens' GetReusableDelegationSetResponse Int grdsrsResponseStatus = lens _grdsrsResponseStatus (\ s a -> s{_grdsrsResponseStatus = a});@@ -131,3 +132,4 @@ grdsrsDelegationSet = lens _grdsrsDelegationSet (\ s a -> s{_grdsrsDelegationSet = a});  instance NFData GetReusableDelegationSetResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.GetTrafficPolicy--- 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 information about a specific traffic policy version. -- ----- Send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicy@ resource.--- module Network.AWS.Route53.GetTrafficPolicy     (     -- * Creating a Request@@ -40,23 +38,24 @@     , gtprsTrafficPolicy     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | Gets information about a specific traffic policy version. To get the information, send a GET request to the /2013-04-01/trafficpolicy resource, and specify the ID and the version of the traffic policy.+-- | Gets information about a specific traffic policy version. -- -- -- -- /See:/ 'getTrafficPolicy' smart constructor. data GetTrafficPolicy = GetTrafficPolicy'-    { _gtpId      :: !Text-    , _gtpVersion :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gtpId      :: !Text+  , _gtpVersion :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTrafficPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +68,9 @@     -> Natural -- ^ 'gtpVersion'     -> GetTrafficPolicy getTrafficPolicy pId_ pVersion_ =-    GetTrafficPolicy'-    { _gtpId = pId_-    , _gtpVersion = _Nat # pVersion_-    }+  GetTrafficPolicy' {_gtpId = pId_, _gtpVersion = _Nat # pVersion_} + -- | The ID of the traffic policy that you want to get information about. gtpId :: Lens' GetTrafficPolicy Text gtpId = lens _gtpId (\ s a -> s{_gtpId = a});@@ -91,9 +88,9 @@                  GetTrafficPolicyResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "TrafficPolicy")) -instance Hashable GetTrafficPolicy+instance Hashable GetTrafficPolicy where -instance NFData GetTrafficPolicy+instance NFData GetTrafficPolicy where  instance ToHeaders GetTrafficPolicy where         toHeaders = const mempty@@ -113,10 +110,11 @@ -- -- /See:/ 'getTrafficPolicyResponse' smart constructor. data GetTrafficPolicyResponse = GetTrafficPolicyResponse'-    { _gtprsResponseStatus :: !Int-    , _gtprsTrafficPolicy  :: !TrafficPolicy-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gtprsResponseStatus :: !Int+  , _gtprsTrafficPolicy  :: !TrafficPolicy+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTrafficPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +127,12 @@     -> TrafficPolicy -- ^ 'gtprsTrafficPolicy'     -> GetTrafficPolicyResponse getTrafficPolicyResponse pResponseStatus_ pTrafficPolicy_ =-    GetTrafficPolicyResponse'-    { _gtprsResponseStatus = pResponseStatus_-    , _gtprsTrafficPolicy = pTrafficPolicy_-    }+  GetTrafficPolicyResponse'+  { _gtprsResponseStatus = pResponseStatus_+  , _gtprsTrafficPolicy = pTrafficPolicy_+  } + -- | -- | The response status code. gtprsResponseStatus :: Lens' GetTrafficPolicyResponse Int gtprsResponseStatus = lens _gtprsResponseStatus (\ s a -> s{_gtprsResponseStatus = a});@@ -142,4 +141,4 @@ gtprsTrafficPolicy :: Lens' GetTrafficPolicyResponse TrafficPolicy gtprsTrafficPolicy = lens _gtprsTrafficPolicy (\ s a -> s{_gtprsTrafficPolicy = a}); -instance NFData GetTrafficPolicyResponse+instance NFData GetTrafficPolicyResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.GetTrafficPolicyInstance--- 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 information about a specified traffic policy instance. -- ----- Send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicyinstance@ resource.--- module Network.AWS.Route53.GetTrafficPolicyInstance     (     -- * Creating a Request@@ -39,24 +37,23 @@     , gtpirsTrafficPolicyInstance     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | Gets information about a specified traffic policy instance. -- ----- To get information about a traffic policy instance, send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicyinstance//Id/ @ resource. ----- -- /See:/ 'getTrafficPolicyInstance' smart constructor. newtype GetTrafficPolicyInstance = GetTrafficPolicyInstance'-    { _gtpiId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gtpiId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTrafficPolicyInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +62,9 @@ getTrafficPolicyInstance     :: Text -- ^ 'gtpiId'     -> GetTrafficPolicyInstance-getTrafficPolicyInstance pId_ =-    GetTrafficPolicyInstance'-    { _gtpiId = pId_-    }+getTrafficPolicyInstance pId_ = GetTrafficPolicyInstance' {_gtpiId = pId_} + -- | The ID of the traffic policy instance that you want to get information about. gtpiId :: Lens' GetTrafficPolicyInstance Text gtpiId = lens _gtpiId (\ s a -> s{_gtpiId = a});@@ -85,9 +80,9 @@                    (pure (fromEnum s)) <*>                      (x .@ "TrafficPolicyInstance")) -instance Hashable GetTrafficPolicyInstance+instance Hashable GetTrafficPolicyInstance where -instance NFData GetTrafficPolicyInstance+instance NFData GetTrafficPolicyInstance where  instance ToHeaders GetTrafficPolicyInstance where         toHeaders = const mempty@@ -106,10 +101,11 @@ -- -- /See:/ 'getTrafficPolicyInstanceResponse' smart constructor. data GetTrafficPolicyInstanceResponse = GetTrafficPolicyInstanceResponse'-    { _gtpirsResponseStatus        :: !Int-    , _gtpirsTrafficPolicyInstance :: !TrafficPolicyInstance-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gtpirsResponseStatus        :: !Int+  , _gtpirsTrafficPolicyInstance :: !TrafficPolicyInstance+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTrafficPolicyInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,11 +118,12 @@     -> TrafficPolicyInstance -- ^ 'gtpirsTrafficPolicyInstance'     -> GetTrafficPolicyInstanceResponse getTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ =-    GetTrafficPolicyInstanceResponse'-    { _gtpirsResponseStatus = pResponseStatus_-    , _gtpirsTrafficPolicyInstance = pTrafficPolicyInstance_-    }+  GetTrafficPolicyInstanceResponse'+  { _gtpirsResponseStatus = pResponseStatus_+  , _gtpirsTrafficPolicyInstance = pTrafficPolicyInstance_+  } + -- | -- | The response status code. gtpirsResponseStatus :: Lens' GetTrafficPolicyInstanceResponse Int gtpirsResponseStatus = lens _gtpirsResponseStatus (\ s a -> s{_gtpirsResponseStatus = a});@@ -136,3 +133,4 @@ gtpirsTrafficPolicyInstance = lens _gtpirsTrafficPolicyInstance (\ s a -> s{_gtpirsTrafficPolicyInstance = a});  instance NFData GetTrafficPolicyInstanceResponse+         where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.Route53.GetTrafficPolicyInstanceCount--- 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 the number of traffic policy instances that are associated with the current AWS account. -- ----- To get the number of traffic policy instances, send a @GET@ request to the @/2013-04-01/trafficpolicyinstancecount@ resource.--- module Network.AWS.Route53.GetTrafficPolicyInstanceCount     (     -- * Creating a Request@@ -37,28 +35,30 @@     , gtpicrsTrafficPolicyInstanceCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a count of all your traffic policy instances, send a @GET@ request to the @/2013-04-01/trafficpolicyinstancecount@ resource.+-- | Request to get the number of traffic policy instances that are associated with the current AWS account. -- -- -- -- /See:/ 'getTrafficPolicyInstanceCount' smart constructor. data GetTrafficPolicyInstanceCount =-    GetTrafficPolicyInstanceCount'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  GetTrafficPolicyInstanceCount'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTrafficPolicyInstanceCount' with the minimum fields required to make a request. -- getTrafficPolicyInstanceCount     :: GetTrafficPolicyInstanceCount getTrafficPolicyInstanceCount = GetTrafficPolicyInstanceCount' + instance AWSRequest GetTrafficPolicyInstanceCount          where         type Rs GetTrafficPolicyInstanceCount =@@ -71,9 +71,9 @@                    (pure (fromEnum s)) <*>                      (x .@ "TrafficPolicyInstanceCount")) -instance Hashable GetTrafficPolicyInstanceCount+instance Hashable GetTrafficPolicyInstanceCount where -instance NFData GetTrafficPolicyInstanceCount+instance NFData GetTrafficPolicyInstanceCount where  instance ToHeaders GetTrafficPolicyInstanceCount          where@@ -92,10 +92,11 @@ -- -- /See:/ 'getTrafficPolicyInstanceCountResponse' smart constructor. data GetTrafficPolicyInstanceCountResponse = GetTrafficPolicyInstanceCountResponse'-    { _gtpicrsResponseStatus             :: !Int-    , _gtpicrsTrafficPolicyInstanceCount :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gtpicrsResponseStatus             :: !Int+  , _gtpicrsTrafficPolicyInstanceCount :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTrafficPolicyInstanceCountResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -108,11 +109,12 @@     -> Int -- ^ 'gtpicrsTrafficPolicyInstanceCount'     -> GetTrafficPolicyInstanceCountResponse getTrafficPolicyInstanceCountResponse pResponseStatus_ pTrafficPolicyInstanceCount_ =-    GetTrafficPolicyInstanceCountResponse'-    { _gtpicrsResponseStatus = pResponseStatus_-    , _gtpicrsTrafficPolicyInstanceCount = pTrafficPolicyInstanceCount_-    }+  GetTrafficPolicyInstanceCountResponse'+  { _gtpicrsResponseStatus = pResponseStatus_+  , _gtpicrsTrafficPolicyInstanceCount = pTrafficPolicyInstanceCount_+  } + -- | -- | The response status code. gtpicrsResponseStatus :: Lens' GetTrafficPolicyInstanceCountResponse Int gtpicrsResponseStatus = lens _gtpicrsResponseStatus (\ s a -> s{_gtpicrsResponseStatus = a});@@ -122,3 +124,4 @@ gtpicrsTrafficPolicyInstanceCount = lens _gtpicrsTrafficPolicyInstanceCount (\ s a -> s{_gtpicrsTrafficPolicyInstanceCount = a});  instance NFData GetTrafficPolicyInstanceCountResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.ListGeoLocations--- 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) ----- Retrieves a list of supported geo locations. Send a @GET@ request to the @/2013-04-01/geolocations@ resource. The response to this request includes a @GeoLocationDetailsList@ element for each location that Amazon Route 53 supports.+-- Retrieves a list of supported geo locations. -- -- -- Countries are listed first, and continents are listed last. If Amazon Route 53 supports subdivisions for a country (for example, states or provinces), the subdivisions for that country are listed in alphabetical order immediately after the corresponding country.@@ -47,27 +47,26 @@     , lglrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | To get a list of geographic locations that Amazon Route 53 supports for geolocation, send a @GET@ request to the @//Amazon Route 53 API version/ /geolocations@ resource. The response to this request includes a @GeoLocationDetails@ element for each location that Amazon Route 53 supports.+-- | A request to get a list of geographic locations that Amazon Route 53 supports for geolocation resource record sets. -- ----- Countries are listed first, and continents are listed last. If Amazon Route 53 supports subdivisions for a country (for example, states or provinces), the subdivisions for that country are listed in alphabetical order immediately after the corresponding country. ----- -- /See:/ 'listGeoLocations' smart constructor. data ListGeoLocations = ListGeoLocations'-    { _lglStartSubdivisionCode :: !(Maybe Text)-    , _lglMaxItems             :: !(Maybe Text)-    , _lglStartCountryCode     :: !(Maybe Text)-    , _lglStartContinentCode   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lglStartSubdivisionCode :: !(Maybe Text)+  , _lglMaxItems             :: !(Maybe Text)+  , _lglStartCountryCode     :: !(Maybe Text)+  , _lglStartContinentCode   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListGeoLocations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,13 +81,14 @@ listGeoLocations     :: ListGeoLocations listGeoLocations =-    ListGeoLocations'-    { _lglStartSubdivisionCode = Nothing-    , _lglMaxItems = Nothing-    , _lglStartCountryCode = Nothing-    , _lglStartContinentCode = Nothing-    }+  ListGeoLocations'+  { _lglStartSubdivisionCode = Nothing+  , _lglMaxItems = Nothing+  , _lglStartCountryCode = Nothing+  , _lglStartContinentCode = Nothing+  } + -- | The code for the subdivision (for example, state or province) with which you want to start listing locations that Amazon Route 53 supports for geolocation. If Amazon Route 53 has already returned a page or more of results, if @IsTruncated@ is @true@ , and if @NextSubdivisionCode@ from the previous response has a value, enter that value in @StartSubdivisionCode@ to return the next page of results. To list subdivisions of a country, you must include both @StartCountryCode@ and @StartSubdivisionCode@ . lglStartSubdivisionCode :: Lens' ListGeoLocations (Maybe Text) lglStartSubdivisionCode = lens _lglStartSubdivisionCode (\ s a -> s{_lglStartSubdivisionCode = a});@@ -122,9 +122,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListGeoLocations+instance Hashable ListGeoLocations where -instance NFData ListGeoLocations+instance NFData ListGeoLocations where  instance ToHeaders ListGeoLocations where         toHeaders = const mempty@@ -146,24 +146,25 @@ -- -- /See:/ 'listGeoLocationsResponse' smart constructor. data ListGeoLocationsResponse = ListGeoLocationsResponse'-    { _lglrsNextContinentCode      :: !(Maybe Text)-    , _lglrsNextCountryCode        :: !(Maybe Text)-    , _lglrsNextSubdivisionCode    :: !(Maybe Text)-    , _lglrsResponseStatus         :: !Int-    , _lglrsGeoLocationDetailsList :: ![GeoLocationDetails]-    , _lglrsIsTruncated            :: !Bool-    , _lglrsMaxItems               :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lglrsNextContinentCode      :: !(Maybe Text)+  , _lglrsNextCountryCode        :: !(Maybe Text)+  , _lglrsNextSubdivisionCode    :: !(Maybe Text)+  , _lglrsResponseStatus         :: !Int+  , _lglrsGeoLocationDetailsList :: ![GeoLocationDetails]+  , _lglrsIsTruncated            :: !Bool+  , _lglrsMaxItems               :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListGeoLocationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lglrsNextContinentCode' - If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextContinentCode@ in the @StartContinentCode@ parameter in another @GET@ @ListGeoLocations@ request.+-- * 'lglrsNextContinentCode' - If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextContinentCode@ in the @StartContinentCode@ parameter in another @ListGeoLocations@ request. ----- * 'lglrsNextCountryCode' - If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextCountryCode@ in the @StartCountryCode@ parameter in another @GET@ @ListGeoLocations@ request.+-- * 'lglrsNextCountryCode' - If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextCountryCode@ in the @StartCountryCode@ parameter in another @ListGeoLocations@ request. ----- * 'lglrsNextSubdivisionCode' - If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextSubdivisionCode@ in the @StartSubdivisionCode@ parameter in another @GET@ @ListGeoLocations@ request.+-- * 'lglrsNextSubdivisionCode' - If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextSubdivisionCode@ in the @StartSubdivisionCode@ parameter in another @ListGeoLocations@ request. -- -- * 'lglrsResponseStatus' - -- | The response status code. --@@ -178,25 +179,26 @@     -> Text -- ^ 'lglrsMaxItems'     -> ListGeoLocationsResponse listGeoLocationsResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListGeoLocationsResponse'-    { _lglrsNextContinentCode = Nothing-    , _lglrsNextCountryCode = Nothing-    , _lglrsNextSubdivisionCode = Nothing-    , _lglrsResponseStatus = pResponseStatus_-    , _lglrsGeoLocationDetailsList = mempty-    , _lglrsIsTruncated = pIsTruncated_-    , _lglrsMaxItems = pMaxItems_-    }+  ListGeoLocationsResponse'+  { _lglrsNextContinentCode = Nothing+  , _lglrsNextCountryCode = Nothing+  , _lglrsNextSubdivisionCode = Nothing+  , _lglrsResponseStatus = pResponseStatus_+  , _lglrsGeoLocationDetailsList = mempty+  , _lglrsIsTruncated = pIsTruncated_+  , _lglrsMaxItems = pMaxItems_+  } --- | If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextContinentCode@ in the @StartContinentCode@ parameter in another @GET@ @ListGeoLocations@ request.++-- | If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextContinentCode@ in the @StartContinentCode@ parameter in another @ListGeoLocations@ request. lglrsNextContinentCode :: Lens' ListGeoLocationsResponse (Maybe Text) lglrsNextContinentCode = lens _lglrsNextContinentCode (\ s a -> s{_lglrsNextContinentCode = a}); --- | If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextCountryCode@ in the @StartCountryCode@ parameter in another @GET@ @ListGeoLocations@ request.+-- | If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextCountryCode@ in the @StartCountryCode@ parameter in another @ListGeoLocations@ request. lglrsNextCountryCode :: Lens' ListGeoLocationsResponse (Maybe Text) lglrsNextCountryCode = lens _lglrsNextCountryCode (\ s a -> s{_lglrsNextCountryCode = a}); --- | If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextSubdivisionCode@ in the @StartSubdivisionCode@ parameter in another @GET@ @ListGeoLocations@ request.+-- | If @IsTruncated@ is @true@ , you can make a follow-up request to display more locations. Enter the value of @NextSubdivisionCode@ in the @StartSubdivisionCode@ parameter in another @ListGeoLocations@ request. lglrsNextSubdivisionCode :: Lens' ListGeoLocationsResponse (Maybe Text) lglrsNextSubdivisionCode = lens _lglrsNextSubdivisionCode (\ s a -> s{_lglrsNextSubdivisionCode = a}); @@ -216,4 +218,4 @@ lglrsMaxItems :: Lens' ListGeoLocationsResponse Text lglrsMaxItems = lens _lglrsMaxItems (\ s a -> s{_lglrsMaxItems = a}); -instance NFData ListGeoLocationsResponse+instance NFData ListGeoLocationsResponse where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.Route53.ListHealthChecks--- 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) ----- Retrieve a list of your health checks. Send a @GET@ request to the @/2013-04-01/healthcheck@ resource. The response to this request includes a @HealthChecks@ element with zero or more @HealthCheck@ child elements. By default, the list of health checks is displayed on a single page. You can control the length of the page that is displayed by using the @MaxItems@ parameter. You can use the @Marker@ parameter to control the health check that the list begins with.+-- Retrieve a list of the health checks that are associated with the current AWS account. -- ----- For information about listing health checks using the Amazon Route 53 console, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover.html Amazon Route 53 Health Checks and DNS Failover> . ----- -- This operation returns paginated results. module Network.AWS.Route53.ListHealthChecks     (@@ -46,44 +44,43 @@     , lhcrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.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.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a list of your health checks, send a @GET@ request to the @/2013-04-01/healthcheck@ resource. The response to this request includes a @HealthChecks@ element with zero or more @HealthCheck@ child elements. By default, the list of health checks is displayed on a single page. You can control the length of the page that is displayed by using the @MaxItems@ parameter. You can use the @Marker@ parameter to control the health check that the list begins with.+-- | A request to retrieve a list of the health checks that are associated with the current AWS account. -- -- -- -- /See:/ 'listHealthChecks' smart constructor. data ListHealthChecks = ListHealthChecks'-    { _lhcMarker   :: !(Maybe Text)-    , _lhcMaxItems :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lhcMarker   :: !(Maybe Text)+  , _lhcMaxItems :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHealthChecks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhcMarker' - If the response to a @ListHealthChecks@ is more than one page, marker is the health check ID for the first health check on the next page of results. For more information, see 'ListHealthChecksResponse$MaxItems' .+-- * 'lhcMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more health checks. To get another group, submit another @ListHealthChecks@ request.  For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first health check that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more health checks to get. ----- * 'lhcMaxItems' - The maximum number of @HealthCheck@ elements you want @ListHealthChecks@ to return on each page of the response body. If the AWS account includes more @HealthCheck@ elements than the value of @maxitems@ , the response is broken into pages. Each page contains the number of @HealthCheck@ elements specified by @maxitems@ . For example, suppose you specify @10@ for @maxitems@ and the current AWS account has @51@ health checks. In the response, @ListHealthChecks@ sets 'ListHealthChecksResponse$IsTruncated' to true and includes the 'ListHealthChecksResponse$NextMarker' element. To access the second and subsequent pages, you resend the @GET@ @ListHealthChecks@ request, add the 'ListHealthChecksResponse$Marker' parameter to the request, and specify the value of the 'ListHealthChecksResponse$NextMarker' element from the previous response. On the last (sixth) page of the response, which contains only one HealthCheck element:     * The value of 'ListHealthChecksResponse$IsTruncated' is @false@ .     * 'ListHealthChecksResponse$NextMarker' is omitted.+-- * 'lhcMaxItems' - The maximum number of health checks that you want @ListHealthChecks@ to return in response to the current request. Amazon Route 53 returns a maximum of 100 items. If you set @MaxItems@ to a value greater than 100, Amazon Route 53 returns only the first 100 health checks. listHealthChecks     :: ListHealthChecks listHealthChecks =-    ListHealthChecks'-    { _lhcMarker = Nothing-    , _lhcMaxItems = Nothing-    }+  ListHealthChecks' {_lhcMarker = Nothing, _lhcMaxItems = Nothing} --- | If the response to a @ListHealthChecks@ is more than one page, marker is the health check ID for the first health check on the next page of results. For more information, see 'ListHealthChecksResponse$MaxItems' .++-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more health checks. To get another group, submit another @ListHealthChecks@ request.  For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first health check that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more health checks to get. lhcMarker :: Lens' ListHealthChecks (Maybe Text) lhcMarker = lens _lhcMarker (\ s a -> s{_lhcMarker = a}); --- | The maximum number of @HealthCheck@ elements you want @ListHealthChecks@ to return on each page of the response body. If the AWS account includes more @HealthCheck@ elements than the value of @maxitems@ , the response is broken into pages. Each page contains the number of @HealthCheck@ elements specified by @maxitems@ . For example, suppose you specify @10@ for @maxitems@ and the current AWS account has @51@ health checks. In the response, @ListHealthChecks@ sets 'ListHealthChecksResponse$IsTruncated' to true and includes the 'ListHealthChecksResponse$NextMarker' element. To access the second and subsequent pages, you resend the @GET@ @ListHealthChecks@ request, add the 'ListHealthChecksResponse$Marker' parameter to the request, and specify the value of the 'ListHealthChecksResponse$NextMarker' element from the previous response. On the last (sixth) page of the response, which contains only one HealthCheck element:     * The value of 'ListHealthChecksResponse$IsTruncated' is @false@ .     * 'ListHealthChecksResponse$NextMarker' is omitted.+-- | The maximum number of health checks that you want @ListHealthChecks@ to return in response to the current request. Amazon Route 53 returns a maximum of 100 items. If you set @MaxItems@ to a value greater than 100, Amazon Route 53 returns only the first 100 health checks. lhcMaxItems :: Lens' ListHealthChecks (Maybe Text) lhcMaxItems = lens _lhcMaxItems (\ s a -> s{_lhcMaxItems = a}); @@ -108,9 +105,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListHealthChecks+instance Hashable ListHealthChecks where -instance NFData ListHealthChecks+instance NFData ListHealthChecks where  instance ToHeaders ListHealthChecks where         toHeaders = const mempty@@ -129,27 +126,28 @@ -- -- /See:/ 'listHealthChecksResponse' smart constructor. data ListHealthChecksResponse = ListHealthChecksResponse'-    { _lhcrsNextMarker     :: !(Maybe Text)-    , _lhcrsResponseStatus :: !Int-    , _lhcrsHealthChecks   :: ![HealthCheck]-    , _lhcrsMarker         :: !Text-    , _lhcrsIsTruncated    :: !Bool-    , _lhcrsMaxItems       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lhcrsNextMarker     :: !(Maybe Text)+  , _lhcrsResponseStatus :: !Int+  , _lhcrsHealthChecks   :: ![HealthCheck]+  , _lhcrsMarker         :: !Text+  , _lhcrsIsTruncated    :: !Bool+  , _lhcrsMaxItems       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHealthChecksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhcrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first health check in the next group of @maxitems@ health checks. Call @ListHealthChecks@ again and specify the value of @NextMarker@ in the marker parameter.+-- * 'lhcrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first health check that Amazon Route 53 returns if you submit another @ListHealthChecks@ request and specify the value of @NextMarker@ in the @marker@ parameter. -- -- * 'lhcrsResponseStatus' - -- | The response status code. -- -- * 'lhcrsHealthChecks' - A complex type that contains one @HealthCheck@ element for each health check that is associated with the current AWS account. ----- * 'lhcrsMarker' - For the second and subsequent calls to @ListHealthChecks@ , @Marker@ is the value that you specified for the marker parameter in the previous request.+-- * 'lhcrsMarker' - For the second and subsequent calls to @ListHealthChecks@ , @Marker@ is the value that you specified for the @marker@ parameter in the previous request. ----- * 'lhcrsIsTruncated' - A flag that indicates whether there are more health checks to be listed. If the response was truncated, you can get the next group of @maxitems@ health checks by calling @ListHealthChecks@ again and specifying the value of the @NextMarker@ element in the marker parameter. Valid Values: @true@ | @false@+-- * 'lhcrsIsTruncated' - A flag that indicates whether there are more health checks to be listed. If the response was truncated, you can get the next group of health checks by submitting another @ListHealthChecks@ request and specifying the value of @NextMarker@ in the @marker@ parameter. -- -- * 'lhcrsMaxItems' - The value that you specified for the @maxitems@ parameter in the call to @ListHealthChecks@ that produced the current response. listHealthChecksResponse@@ -159,16 +157,17 @@     -> Text -- ^ 'lhcrsMaxItems'     -> ListHealthChecksResponse listHealthChecksResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ =-    ListHealthChecksResponse'-    { _lhcrsNextMarker = Nothing-    , _lhcrsResponseStatus = pResponseStatus_-    , _lhcrsHealthChecks = mempty-    , _lhcrsMarker = pMarker_-    , _lhcrsIsTruncated = pIsTruncated_-    , _lhcrsMaxItems = pMaxItems_-    }+  ListHealthChecksResponse'+  { _lhcrsNextMarker = Nothing+  , _lhcrsResponseStatus = pResponseStatus_+  , _lhcrsHealthChecks = mempty+  , _lhcrsMarker = pMarker_+  , _lhcrsIsTruncated = pIsTruncated_+  , _lhcrsMaxItems = pMaxItems_+  } --- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first health check in the next group of @maxitems@ health checks. Call @ListHealthChecks@ again and specify the value of @NextMarker@ in the marker parameter.++-- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first health check that Amazon Route 53 returns if you submit another @ListHealthChecks@ request and specify the value of @NextMarker@ in the @marker@ parameter. lhcrsNextMarker :: Lens' ListHealthChecksResponse (Maybe Text) lhcrsNextMarker = lens _lhcrsNextMarker (\ s a -> s{_lhcrsNextMarker = a}); @@ -180,11 +179,11 @@ lhcrsHealthChecks :: Lens' ListHealthChecksResponse [HealthCheck] lhcrsHealthChecks = lens _lhcrsHealthChecks (\ s a -> s{_lhcrsHealthChecks = a}) . _Coerce; --- | For the second and subsequent calls to @ListHealthChecks@ , @Marker@ is the value that you specified for the marker parameter in the previous request.+-- | For the second and subsequent calls to @ListHealthChecks@ , @Marker@ is the value that you specified for the @marker@ parameter in the previous request. lhcrsMarker :: Lens' ListHealthChecksResponse Text lhcrsMarker = lens _lhcrsMarker (\ s a -> s{_lhcrsMarker = a}); --- | A flag that indicates whether there are more health checks to be listed. If the response was truncated, you can get the next group of @maxitems@ health checks by calling @ListHealthChecks@ again and specifying the value of the @NextMarker@ element in the marker parameter. Valid Values: @true@ | @false@+-- | A flag that indicates whether there are more health checks to be listed. If the response was truncated, you can get the next group of health checks by submitting another @ListHealthChecks@ request and specifying the value of @NextMarker@ in the @marker@ parameter. lhcrsIsTruncated :: Lens' ListHealthChecksResponse Bool lhcrsIsTruncated = lens _lhcrsIsTruncated (\ s a -> s{_lhcrsIsTruncated = a}); @@ -192,4 +191,4 @@ lhcrsMaxItems :: Lens' ListHealthChecksResponse Text lhcrsMaxItems = lens _lhcrsMaxItems (\ s a -> s{_lhcrsMaxItems = a}); -instance NFData ListHealthChecksResponse+instance NFData ListHealthChecksResponse where

@@ -12,28 +12,16 @@  -- | -- Module      : Network.AWS.Route53.ListHostedZones--- 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) ----- To retrieve a list of your public and private hosted zones, send a @GET@ request to the @/2013-04-01/hostedzone@ resource. The response to this request includes a @HostedZones@ child element for each hosted zone created by the current AWS account.--------- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of hosted zones, you can use the @maxitems@ parameter to list them in groups of up to 100. The response includes four values that help navigate from one group of @maxitems@ hosted zones to the next:------     * @MaxItems@ is the value specified for the @maxitems@ parameter in the request that produced the current response.------     * If the value of @IsTruncated@ in the response is true, there are more hosted zones associated with the current AWS account.------     * @NextMarker@ is the hosted zone ID of the next hosted zone that is associated with the current AWS account. If you want to list more hosted zones, make another call to @ListHostedZones@ , and specify the value of the @NextMarker@ element in the marker parameter.------ If @IsTruncated@ is false, the @NextMarker@ element is omitted from the response.------     * If you're making the second or subsequent call to @ListHostedZones@ , the @Marker@ element matches the value that you specified in the @marker@ parameter in the previous request.+-- Retrieves a list of the public and private hosted zones that are associated with the current AWS account. The response includes a @HostedZones@ child element for each hosted zone. -- --+-- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of hosted zones, you can use the @maxitems@ parameter to list them in groups of up to 100. -- -- -- This operation returns paginated results.@@ -59,68 +47,51 @@     , lhzrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.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.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a list of your public and private hosted zones, send a @GET@ request to the @/2013-04-01/hostedzone@ resource. The response to this request includes a HostedZone child element for each hosted zone that was created by the current AWS account.--------- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of hosted zones, you can use the maxitems parameter to list them in groups of up to 100. The response includes four values that help you navigate from one group of maxitems hosted zones to the next:------     * @MaxItems@ is the value that you specified for the @maxitems@ parameter in the request that produced the current response.------     * If the value of @IsTruncated@ in the response is @true@ , there are more hosted zones associated with the current AWS account.------ If @IsTruncated@ is @false@ , this response includes the last hosted zone that is associated with the current account.------     * @NextMarker@ is the hosted zone ID of the next hosted zone that is associated with the current AWS account. If you want to list more hosted zones, make another call to @ListHostedZones@ , and specify the value of the @NextMarker@ element in the marker parameter.------ If @IsTruncated@ is @false@ , the @NextMarker@ element is omitted from the response.------     * If you're making the second or subsequent call to @ListHostedZones@ , the @Marker@ element matches the value that you specified in the @marker@ parameter in the previous request.---+-- | A request to retrieve a list of the public and private hosted zones that are associated with the current AWS account. -- -- -- -- /See:/ 'listHostedZones' smart constructor. data ListHostedZones = ListHostedZones'-    { _lhzDelegationSetId :: !(Maybe ResourceId)-    , _lhzMarker          :: !(Maybe Text)-    , _lhzMaxItems        :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lhzDelegationSetId :: !(Maybe ResourceId)+  , _lhzMarker          :: !(Maybe Text)+  , _lhzMaxItems        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHostedZones' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lhzDelegationSetId' - If you're using reusable delegation sets and you want to list all of the hosted zones that are associated with a reusable delegation set, specify the ID of that reusable delegation set. ----- * 'lhzMarker' - (Optional) If you have more hosted zones than the value of @maxitems@ , @ListHostedZones@ returns only the first @maxitems@ hosted zones. To get the next group of @maxitems@ hosted zones, submit another request to @ListHostedZones@ . For the value of marker, specify the value of the @NextMarker@ element that was returned in the previous response. Hosted zones are listed in the order in which they were created.+-- * 'lhzMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more hosted zones. To get more hosted zones, submit another @ListHostedZones@ request.  For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first hosted zone that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more hosted zones to get. ----- * 'lhzMaxItems' - (Optional) The maximum number of hosted zones to be included in the response body for this request. If you have more than @maxitems@ hosted zones, the value of the @IsTruncated@ element in the response is @true@ , and the value of the @NextMarker@ element is the hosted zone ID of the first hosted zone in the next group of @maxitems@ hosted zones.+-- * 'lhzMaxItems' - (Optional) The maximum number of hosted zones that you want Amazon Route 53 to return. If you have more than @maxitems@ hosted zones, the value of @IsTruncated@ in the response is @true@ , and the value of @NextMarker@ is the hosted zone ID of the first hosted zone that Amazon Route 53 will return if you submit another request. listHostedZones     :: ListHostedZones listHostedZones =-    ListHostedZones'-    { _lhzDelegationSetId = Nothing-    , _lhzMarker = Nothing-    , _lhzMaxItems = Nothing-    }+  ListHostedZones'+  {_lhzDelegationSetId = Nothing, _lhzMarker = Nothing, _lhzMaxItems = Nothing} + -- | If you're using reusable delegation sets and you want to list all of the hosted zones that are associated with a reusable delegation set, specify the ID of that reusable delegation set. lhzDelegationSetId :: Lens' ListHostedZones (Maybe ResourceId) lhzDelegationSetId = lens _lhzDelegationSetId (\ s a -> s{_lhzDelegationSetId = a}); --- | (Optional) If you have more hosted zones than the value of @maxitems@ , @ListHostedZones@ returns only the first @maxitems@ hosted zones. To get the next group of @maxitems@ hosted zones, submit another request to @ListHostedZones@ . For the value of marker, specify the value of the @NextMarker@ element that was returned in the previous response. Hosted zones are listed in the order in which they were created.+-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more hosted zones. To get more hosted zones, submit another @ListHostedZones@ request.  For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first hosted zone that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more hosted zones to get. lhzMarker :: Lens' ListHostedZones (Maybe Text) lhzMarker = lens _lhzMarker (\ s a -> s{_lhzMarker = a}); --- | (Optional) The maximum number of hosted zones to be included in the response body for this request. If you have more than @maxitems@ hosted zones, the value of the @IsTruncated@ element in the response is @true@ , and the value of the @NextMarker@ element is the hosted zone ID of the first hosted zone in the next group of @maxitems@ hosted zones.+-- | (Optional) The maximum number of hosted zones that you want Amazon Route 53 to return. If you have more than @maxitems@ hosted zones, the value of @IsTruncated@ in the response is @true@ , and the value of @NextMarker@ is the hosted zone ID of the first hosted zone that Amazon Route 53 will return if you submit another request. lhzMaxItems :: Lens' ListHostedZones (Maybe Text) lhzMaxItems = lens _lhzMaxItems (\ s a -> s{_lhzMaxItems = a}); @@ -146,9 +117,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListHostedZones+instance Hashable ListHostedZones where -instance NFData ListHostedZones+instance NFData ListHostedZones where  instance ToHeaders ListHostedZones where         toHeaders = const mempty@@ -164,27 +135,28 @@  -- | /See:/ 'listHostedZonesResponse' smart constructor. data ListHostedZonesResponse = ListHostedZonesResponse'-    { _lhzrsMarker         :: !(Maybe Text)-    , _lhzrsNextMarker     :: !(Maybe Text)-    , _lhzrsResponseStatus :: !Int-    , _lhzrsHostedZones    :: ![HostedZone]-    , _lhzrsIsTruncated    :: !Bool-    , _lhzrsMaxItems       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lhzrsMarker         :: !(Maybe Text)+  , _lhzrsNextMarker     :: !(Maybe Text)+  , _lhzrsResponseStatus :: !Int+  , _lhzrsHostedZones    :: ![HostedZone]+  , _lhzrsIsTruncated    :: !Bool+  , _lhzrsMaxItems       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHostedZonesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhzrsMarker' - For the second and subsequent calls to @ListHostedZones@ , @Marker@ is the value that you specified for the marker parameter in the request that produced the current response.+-- * 'lhzrsMarker' - For the second and subsequent calls to @ListHostedZones@ , @Marker@ is the value that you specified for the @marker@ parameter in the request that produced the current response. ----- * 'lhzrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first hosted zone in the next group of @maxitems@ hosted zones. Call @ListHostedZones@ again and specify the value of @NextMarker@ in the @marker@ parameter. This element is present only if @IsTruncated@ is @true@ .+-- * 'lhzrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first hosted zone in the next group of hosted zones. Submit another @ListHostedZones@ request, and specify the value of @NextMarker@ from the response in the @marker@ parameter. This element is present only if @IsTruncated@ is @true@ . -- -- * 'lhzrsResponseStatus' - -- | The response status code. -- -- * 'lhzrsHostedZones' - A complex type that contains general information about the hosted zone. ----- * 'lhzrsIsTruncated' - A flag indicating whether there are more hosted zones to be listed. If the response was truncated, you can get the next group of @maxitems@ hosted zones by calling @ListHostedZones@ again and specifying the value of the @NextMarker@ element in the marker parameter.+-- * 'lhzrsIsTruncated' - A flag indicating whether there are more hosted zones to be listed. If the response was truncated, you can get more hosted zones by submitting another @ListHostedZones@ request and specifying the value of @NextMarker@ in the @marker@ parameter. -- -- * 'lhzrsMaxItems' - The value that you specified for the @maxitems@ parameter in the call to @ListHostedZones@ that produced the current response. listHostedZonesResponse@@ -193,20 +165,21 @@     -> Text -- ^ 'lhzrsMaxItems'     -> ListHostedZonesResponse listHostedZonesResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListHostedZonesResponse'-    { _lhzrsMarker = Nothing-    , _lhzrsNextMarker = Nothing-    , _lhzrsResponseStatus = pResponseStatus_-    , _lhzrsHostedZones = mempty-    , _lhzrsIsTruncated = pIsTruncated_-    , _lhzrsMaxItems = pMaxItems_-    }+  ListHostedZonesResponse'+  { _lhzrsMarker = Nothing+  , _lhzrsNextMarker = Nothing+  , _lhzrsResponseStatus = pResponseStatus_+  , _lhzrsHostedZones = mempty+  , _lhzrsIsTruncated = pIsTruncated_+  , _lhzrsMaxItems = pMaxItems_+  } --- | For the second and subsequent calls to @ListHostedZones@ , @Marker@ is the value that you specified for the marker parameter in the request that produced the current response.++-- | For the second and subsequent calls to @ListHostedZones@ , @Marker@ is the value that you specified for the @marker@ parameter in the request that produced the current response. lhzrsMarker :: Lens' ListHostedZonesResponse (Maybe Text) lhzrsMarker = lens _lhzrsMarker (\ s a -> s{_lhzrsMarker = a}); --- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first hosted zone in the next group of @maxitems@ hosted zones. Call @ListHostedZones@ again and specify the value of @NextMarker@ in the @marker@ parameter. This element is present only if @IsTruncated@ is @true@ .+-- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first hosted zone in the next group of hosted zones. Submit another @ListHostedZones@ request, and specify the value of @NextMarker@ from the response in the @marker@ parameter. This element is present only if @IsTruncated@ is @true@ . lhzrsNextMarker :: Lens' ListHostedZonesResponse (Maybe Text) lhzrsNextMarker = lens _lhzrsNextMarker (\ s a -> s{_lhzrsNextMarker = a}); @@ -218,7 +191,7 @@ lhzrsHostedZones :: Lens' ListHostedZonesResponse [HostedZone] lhzrsHostedZones = lens _lhzrsHostedZones (\ s a -> s{_lhzrsHostedZones = a}) . _Coerce; --- | A flag indicating whether there are more hosted zones to be listed. If the response was truncated, you can get the next group of @maxitems@ hosted zones by calling @ListHostedZones@ again and specifying the value of the @NextMarker@ element in the marker parameter.+-- | A flag indicating whether there are more hosted zones to be listed. If the response was truncated, you can get more hosted zones by submitting another @ListHostedZones@ request and specifying the value of @NextMarker@ in the @marker@ parameter. lhzrsIsTruncated :: Lens' ListHostedZonesResponse Bool lhzrsIsTruncated = lens _lhzrsIsTruncated (\ s a -> s{_lhzrsIsTruncated = a}); @@ -226,4 +199,4 @@ lhzrsMaxItems :: Lens' ListHostedZonesResponse Text lhzrsMaxItems = lens _lhzrsMaxItems (\ s a -> s{_lhzrsMaxItems = a}); -instance NFData ListHostedZonesResponse+instance NFData ListHostedZonesResponse where

@@ -12,30 +12,26 @@  -- | -- Module      : Network.AWS.Route53.ListHostedZonesByName--- 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) ----- Retrieves a list of your hosted zones in lexicographic order. Send a @GET@ request to the @/2013-04-01/hostedzonesbyname@ resource. The response includes a @HostedZones@ child element for each hosted zone created by the current AWS account.+-- Retrieves a list of your hosted zones in lexicographic order. The response includes a @HostedZones@ child element for each hosted zone created by the current AWS account. -- -- -- @ListHostedZonesByName@ sorts hosted zones by name with the labels reversed. For example: -----     * @com.example.www.@------+-- @com.example.www.@ -- -- Note the trailing dot, which can change the sort order in some circumstances. ----- If the domain name includes escape characters or Punycode, @ListHostedZonesByName@ alphabetizes the domain name using the escaped or Punycoded value, which is the format that Amazon Route 53 saves in its database. For example, to create a hosted zone for example.com, specify ex\344mple.com for the domain name. @ListHostedZonesByName@ alphabetizes it as:------     * @com.ex\344mple.@---+-- If the domain name includes escape characters or Punycode, @ListHostedZonesByName@ alphabetizes the domain name using the escaped or Punycoded value, which is the format that Amazon Route 53 saves in its database. For example, to create a hosted zone for exämple.com, you specify ex\344mple.com for the domain name. @ListHostedZonesByName@ alphabetizes it as: --+-- @com.ex\344mple.@ ----- The labels are reversed and alphabetized using the escaped value. For more information about valid domain name formats, including internationalized domain names, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DomainNameFormat.html DNS Domain Name Format> in the Amazon Route 53 Developer Guide.+-- The labels are reversed and alphabetized using the escaped value. For more information about valid domain name formats, including internationalized domain names, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DomainNameFormat.html DNS Domain Name Format> in the /Amazon Route 53 Developer Guide/ . -- -- Amazon Route 53 returns up to 100 items in each response. If you have a lot of hosted zones, use the @MaxItems@ parameter to list them in groups of up to 100. The response includes values that help navigate from one group of @MaxItems@ hosted zones to the next: --@@ -75,44 +71,25 @@     , lhzbnrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a list of your public and private hosted zones in ASCII order by domain name, send a @GET@ request to the @//Amazon Route 53 API version/ /hostedzonesbyname@ resource. The response to this request includes a @HostedZone@ child element for each hosted zone that was created by the current AWS account. @ListHostedZonesByName@ sorts hosted zones by name with the labels reversed, for example:--------- @com.example.www.@------ Note the trailing dot, which can change the sort order in some circumstances.------ If the domain name includes escape characters or Punycode, @ListHostedZonesByName@ alphabetizes the domain name using the escaped or Punycoded value, which is the format that Amazon Route 53 saves in its database. For example, to create a hosted zone for exämple.com, you specify @ex\344mple.com@ for the domain name. @ListHostedZonesByName@ alphabetizes it as: @com.ex\344mple@ . The labels are reversed, and it's alphabetized using the escaped value. For more information about valid domain name formats, including internationalized domain names, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DomainNameFormat.html DNS Domain Name Format> in the /Amazon Route 53 Developer Guide/ .------ Amazon Route 53 returns up to 100 items in each response. If you have a lot of hosted zones, you can use the @MaxItems@ parameter to list them in groups of up to 100. The response includes values that help you navigate from one group of @MaxItems@ hosted zones to the next:------     * The @DNSName@ and @HostedZoneId@ elements in the response contain the values, if any, that you specified for the @dnsname@ and @hostedzoneid@ parameters in the request that produced the current response.------     * The @MaxItems@ element in the response contains the value, if any, that you specified for the @maxitems@ parameter in the request that produced the current response.------     * If the value of @IsTruncated@ in the response is true, there are more hosted zones associated with the current Amazon Route 53 account.------ If @IsTruncated@ is @false@ , this response includes the last hosted zone that is associated with the current account. The @NextDNSName@ element and @NextHostedZoneId@ elements are omitted from the response.------     * The @NextDNSName@ and @NextHostedZoneId@ elements in the response contain the domain name and the hosted zone ID of the next hosted zone that is associated with the current AWS account. If you want to list more hosted zones, make another call to @ListHostedZonesByName@ , and specify the value of @NextDNSName@ and @NextHostedZoneId@ in the @dnsname@ and @hostedzoneid@ parameters, respectively.---+-- | Retrieves a list of the public and private hosted zones that are associated with the current AWS account in ASCII order by domain name. -- -- -- -- /See:/ 'listHostedZonesByName' smart constructor. data ListHostedZonesByName = ListHostedZonesByName'-    { _lhzbnHostedZoneId :: !(Maybe ResourceId)-    , _lhzbnMaxItems     :: !(Maybe Text)-    , _lhzbnDNSName      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lhzbnHostedZoneId :: !(Maybe ResourceId)+  , _lhzbnMaxItems     :: !(Maybe Text)+  , _lhzbnDNSName      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHostedZonesByName' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,12 +102,13 @@ listHostedZonesByName     :: ListHostedZonesByName listHostedZonesByName =-    ListHostedZonesByName'-    { _lhzbnHostedZoneId = Nothing-    , _lhzbnMaxItems = Nothing-    , _lhzbnDNSName = Nothing-    }+  ListHostedZonesByName'+  { _lhzbnHostedZoneId = Nothing+  , _lhzbnMaxItems = Nothing+  , _lhzbnDNSName = Nothing+  } + -- | (Optional) For your first request to @ListHostedZonesByName@ , do not include the @hostedzoneid@ parameter. If you have more hosted zones than the value of @maxitems@ , @ListHostedZonesByName@ returns only the first @maxitems@ hosted zones. To get the next group of @maxitems@ hosted zones, submit another request to @ListHostedZonesByName@ and include both @dnsname@ and @hostedzoneid@ parameters. For the value of @hostedzoneid@ , specify the value of the @NextHostedZoneId@ element from the previous response. lhzbnHostedZoneId :: Lens' ListHostedZonesByName (Maybe ResourceId) lhzbnHostedZoneId = lens _lhzbnHostedZoneId (\ s a -> s{_lhzbnHostedZoneId = a});@@ -161,9 +139,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListHostedZonesByName+instance Hashable ListHostedZonesByName where -instance NFData ListHostedZonesByName+instance NFData ListHostedZonesByName where  instance ToHeaders ListHostedZonesByName where         toHeaders = const mempty@@ -184,16 +162,17 @@ -- -- /See:/ 'listHostedZonesByNameResponse' smart constructor. data ListHostedZonesByNameResponse = ListHostedZonesByNameResponse'-    { _lhzbnrsHostedZoneId     :: !(Maybe ResourceId)-    , _lhzbnrsNextHostedZoneId :: !(Maybe ResourceId)-    , _lhzbnrsDNSName          :: !(Maybe Text)-    , _lhzbnrsNextDNSName      :: !(Maybe Text)-    , _lhzbnrsResponseStatus   :: !Int-    , _lhzbnrsHostedZones      :: ![HostedZone]-    , _lhzbnrsIsTruncated      :: !Bool-    , _lhzbnrsMaxItems         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lhzbnrsHostedZoneId     :: !(Maybe ResourceId)+  , _lhzbnrsNextHostedZoneId :: !(Maybe ResourceId)+  , _lhzbnrsDNSName          :: !(Maybe Text)+  , _lhzbnrsNextDNSName      :: !(Maybe Text)+  , _lhzbnrsResponseStatus   :: !Int+  , _lhzbnrsHostedZones      :: ![HostedZone]+  , _lhzbnrsIsTruncated      :: !Bool+  , _lhzbnrsMaxItems         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHostedZonesByNameResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -219,17 +198,18 @@     -> Text -- ^ 'lhzbnrsMaxItems'     -> ListHostedZonesByNameResponse listHostedZonesByNameResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListHostedZonesByNameResponse'-    { _lhzbnrsHostedZoneId = Nothing-    , _lhzbnrsNextHostedZoneId = Nothing-    , _lhzbnrsDNSName = Nothing-    , _lhzbnrsNextDNSName = Nothing-    , _lhzbnrsResponseStatus = pResponseStatus_-    , _lhzbnrsHostedZones = mempty-    , _lhzbnrsIsTruncated = pIsTruncated_-    , _lhzbnrsMaxItems = pMaxItems_-    }+  ListHostedZonesByNameResponse'+  { _lhzbnrsHostedZoneId = Nothing+  , _lhzbnrsNextHostedZoneId = Nothing+  , _lhzbnrsDNSName = Nothing+  , _lhzbnrsNextDNSName = Nothing+  , _lhzbnrsResponseStatus = pResponseStatus_+  , _lhzbnrsHostedZones = mempty+  , _lhzbnrsIsTruncated = pIsTruncated_+  , _lhzbnrsMaxItems = pMaxItems_+  } + -- | The ID that Amazon Route 53 assigned to the hosted zone when you created it. lhzbnrsHostedZoneId :: Lens' ListHostedZonesByNameResponse (Maybe ResourceId) lhzbnrsHostedZoneId = lens _lhzbnrsHostedZoneId (\ s a -> s{_lhzbnrsHostedZoneId = a});@@ -262,4 +242,4 @@ lhzbnrsMaxItems :: Lens' ListHostedZonesByNameResponse Text lhzbnrsMaxItems = lens _lhzbnrsMaxItems (\ s a -> s{_lhzbnrsMaxItems = a}); -instance NFData ListHostedZonesByNameResponse+instance NFData ListHostedZonesByNameResponse where

@@ -0,0 +1,160 @@+{-# 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.Route53.ListQueryLoggingConfigs+-- 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)+--+-- Lists the configurations for DNS query logging that are associated with the current AWS account or the configuration that is associated with a specified hosted zone.+--+--+-- For more information about DNS query logs, see 'CreateQueryLoggingConfig' . Additional information, including the format of DNS query logs, appears in <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/query-logs.html Logging DNS Queries> in the /Amazon Route 53 Developer Guide/ .+--+module Network.AWS.Route53.ListQueryLoggingConfigs+    (+    -- * Creating a Request+      listQueryLoggingConfigs+    , ListQueryLoggingConfigs+    -- * Request Lenses+    , lqlcHostedZoneId+    , lqlcNextToken+    , lqlcMaxResults++    -- * Destructuring the Response+    , listQueryLoggingConfigsResponse+    , ListQueryLoggingConfigsResponse+    -- * Response Lenses+    , lqlcrsNextToken+    , lqlcrsResponseStatus+    , lqlcrsQueryLoggingConfigs+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product++-- | /See:/ 'listQueryLoggingConfigs' smart constructor.+data ListQueryLoggingConfigs = ListQueryLoggingConfigs'+  { _lqlcHostedZoneId :: !(Maybe ResourceId)+  , _lqlcNextToken    :: !(Maybe Text)+  , _lqlcMaxResults   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListQueryLoggingConfigs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lqlcHostedZoneId' - (Optional) If you want to list the query logging configuration that is associated with a hosted zone, specify the ID in @HostedZoneId@ .  If you don't specify a hosted zone ID, @ListQueryLoggingConfigs@ returns all of the configurations that are associated with the current AWS account.+--+-- * 'lqlcNextToken' - (Optional) If the current AWS account has more than @MaxResults@ query logging configurations, use @NextToken@ to get the second and subsequent pages of results. For the first @ListQueryLoggingConfigs@ request, omit this value. For the second and subsequent requests, get the value of @NextToken@ from the previous response and specify that value for @NextToken@ in the request.+--+-- * 'lqlcMaxResults' - (Optional) The maximum number of query logging configurations that you want Amazon Route 53 to return in response to the current request. If the current AWS account has more than @MaxResults@ configurations, use the value of 'ListQueryLoggingConfigsResponse$NextToken' in the response to get the next page of results. If you don't specify a value for @MaxResults@ , Amazon Route 53 returns up to 100 configurations.+listQueryLoggingConfigs+    :: ListQueryLoggingConfigs+listQueryLoggingConfigs =+  ListQueryLoggingConfigs'+  { _lqlcHostedZoneId = Nothing+  , _lqlcNextToken = Nothing+  , _lqlcMaxResults = Nothing+  }+++-- | (Optional) If you want to list the query logging configuration that is associated with a hosted zone, specify the ID in @HostedZoneId@ .  If you don't specify a hosted zone ID, @ListQueryLoggingConfigs@ returns all of the configurations that are associated with the current AWS account.+lqlcHostedZoneId :: Lens' ListQueryLoggingConfigs (Maybe ResourceId)+lqlcHostedZoneId = lens _lqlcHostedZoneId (\ s a -> s{_lqlcHostedZoneId = a});++-- | (Optional) If the current AWS account has more than @MaxResults@ query logging configurations, use @NextToken@ to get the second and subsequent pages of results. For the first @ListQueryLoggingConfigs@ request, omit this value. For the second and subsequent requests, get the value of @NextToken@ from the previous response and specify that value for @NextToken@ in the request.+lqlcNextToken :: Lens' ListQueryLoggingConfigs (Maybe Text)+lqlcNextToken = lens _lqlcNextToken (\ s a -> s{_lqlcNextToken = a});++-- | (Optional) The maximum number of query logging configurations that you want Amazon Route 53 to return in response to the current request. If the current AWS account has more than @MaxResults@ configurations, use the value of 'ListQueryLoggingConfigsResponse$NextToken' in the response to get the next page of results. If you don't specify a value for @MaxResults@ , Amazon Route 53 returns up to 100 configurations.+lqlcMaxResults :: Lens' ListQueryLoggingConfigs (Maybe Text)+lqlcMaxResults = lens _lqlcMaxResults (\ s a -> s{_lqlcMaxResults = a});++instance AWSRequest ListQueryLoggingConfigs where+        type Rs ListQueryLoggingConfigs =+             ListQueryLoggingConfigsResponse+        request = get route53+        response+          = receiveXML+              (\ s h x ->+                 ListQueryLoggingConfigsResponse' <$>+                   (x .@? "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .@? "QueryLoggingConfigs" .!@ mempty >>=+                        parseXMLList "QueryLoggingConfig"))++instance Hashable ListQueryLoggingConfigs where++instance NFData ListQueryLoggingConfigs where++instance ToHeaders ListQueryLoggingConfigs where+        toHeaders = const mempty++instance ToPath ListQueryLoggingConfigs where+        toPath = const "/2013-04-01/queryloggingconfig"++instance ToQuery ListQueryLoggingConfigs where+        toQuery ListQueryLoggingConfigs'{..}+          = mconcat+              ["hostedzoneid" =: _lqlcHostedZoneId,+               "nexttoken" =: _lqlcNextToken,+               "maxresults" =: _lqlcMaxResults]++-- | /See:/ 'listQueryLoggingConfigsResponse' smart constructor.+data ListQueryLoggingConfigsResponse = ListQueryLoggingConfigsResponse'+  { _lqlcrsNextToken           :: !(Maybe Text)+  , _lqlcrsResponseStatus      :: !Int+  , _lqlcrsQueryLoggingConfigs :: ![QueryLoggingConfig]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListQueryLoggingConfigsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lqlcrsNextToken' - If a response includes the last of the query logging configurations that are associated with the current AWS account, @NextToken@ doesn't appear in the response. If a response doesn't include the last of the configurations, you can get more configurations by submitting another 'ListQueryLoggingConfigs' request. Get the value of @NextToken@ that Amazon Route 53 returned in the previous response and include it in @NextToken@ in the next request.+--+-- * 'lqlcrsResponseStatus' - -- | The response status code.+--+-- * 'lqlcrsQueryLoggingConfigs' - An array that contains one 'QueryLoggingConfig' element for each configuration for DNS query logging that is associated with the current AWS account.+listQueryLoggingConfigsResponse+    :: Int -- ^ 'lqlcrsResponseStatus'+    -> ListQueryLoggingConfigsResponse+listQueryLoggingConfigsResponse pResponseStatus_ =+  ListQueryLoggingConfigsResponse'+  { _lqlcrsNextToken = Nothing+  , _lqlcrsResponseStatus = pResponseStatus_+  , _lqlcrsQueryLoggingConfigs = mempty+  }+++-- | If a response includes the last of the query logging configurations that are associated with the current AWS account, @NextToken@ doesn't appear in the response. If a response doesn't include the last of the configurations, you can get more configurations by submitting another 'ListQueryLoggingConfigs' request. Get the value of @NextToken@ that Amazon Route 53 returned in the previous response and include it in @NextToken@ in the next request.+lqlcrsNextToken :: Lens' ListQueryLoggingConfigsResponse (Maybe Text)+lqlcrsNextToken = lens _lqlcrsNextToken (\ s a -> s{_lqlcrsNextToken = a});++-- | -- | The response status code.+lqlcrsResponseStatus :: Lens' ListQueryLoggingConfigsResponse Int+lqlcrsResponseStatus = lens _lqlcrsResponseStatus (\ s a -> s{_lqlcrsResponseStatus = a});++-- | An array that contains one 'QueryLoggingConfig' element for each configuration for DNS query logging that is associated with the current AWS account.+lqlcrsQueryLoggingConfigs :: Lens' ListQueryLoggingConfigsResponse [QueryLoggingConfig]+lqlcrsQueryLoggingConfigs = lens _lqlcrsQueryLoggingConfigs (\ s a -> s{_lqlcrsQueryLoggingConfigs = a}) . _Coerce;++instance NFData ListQueryLoggingConfigsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53.ListResourceRecordSets--- 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) --@@ -72,57 +72,59 @@     , lrrsrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.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.Route53.Types+import Network.AWS.Route53.Types.Product --- | The input for a ListResourceRecordSets request.+-- | A request for the resource record sets that are associated with a specified hosted zone. -- -- -- -- /See:/ 'listResourceRecordSets' smart constructor. data ListResourceRecordSets = ListResourceRecordSets'-    { _lrrsStartRecordName       :: !(Maybe Text)-    , _lrrsStartRecordType       :: !(Maybe RecordType)-    , _lrrsStartRecordIdentifier :: !(Maybe Text)-    , _lrrsMaxItems              :: !(Maybe Text)-    , _lrrsHostedZoneId          :: !ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrrsStartRecordName       :: !(Maybe Text)+  , _lrrsStartRecordType       :: !(Maybe RecordType)+  , _lrrsStartRecordIdentifier :: !(Maybe Text)+  , _lrrsMaxItems              :: !(Maybe Text)+  , _lrrsHostedZoneId          :: !ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListResourceRecordSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrrsStartRecordName' - The first name in the lexicographic ordering of domain names that you want the @ListResourceRecordSets@ request to list.+-- * 'lrrsStartRecordName' - The first name in the lexicographic ordering of resource record sets that you want to list. ----- * 'lrrsStartRecordType' - The type of resource record set to begin the record listing from. Valid values for basic resource record sets: @A@ | @AAAA@ | @CNAME@ | @MX@ | @NAPTR@ | @NS@ | @PTR@ | @SOA@ | @SPF@ | @SRV@ | @TXT@  Values for weighted, latency, geo, and failover resource record sets: @A@ | @AAAA@ | @CNAME@ | @MX@ | @NAPTR@ | @PTR@ | @SPF@ | @SRV@ | @TXT@  Values for alias resource record sets:      * __CloudFront distribution__ : A or AAAA     * __Elastic Beanstalk environment that has a regionalized subdomain__ : A     * __ELB load balancer__ : A | AAAA     * __Amazon S3 bucket__ : A Constraint: Specifying @type@ without specifying @name@ returns an @InvalidInput@ error.+-- * 'lrrsStartRecordType' - The type of resource record set to begin the record listing from. Valid values for basic resource record sets: @A@ | @AAAA@ | @CAA@ | @CNAME@ | @MX@ | @NAPTR@ | @NS@ | @PTR@ | @SOA@ | @SPF@ | @SRV@ | @TXT@  Values for weighted, latency, geo, and failover resource record sets: @A@ | @AAAA@ | @CAA@ | @CNAME@ | @MX@ | @NAPTR@ | @PTR@ | @SPF@ | @SRV@ | @TXT@  Values for alias resource record sets:      * __CloudFront distribution__ : A or AAAA     * __Elastic Beanstalk environment that has a regionalized subdomain__ : A     * __ELB load balancer__ : A | AAAA     * __Amazon S3 bucket__ : A     * __Another resource record set in this hosted zone:__ The type of the resource record set that the alias references. Constraint: Specifying @type@ without specifying @name@ returns an @InvalidInput@ error. -- -- * 'lrrsStartRecordIdentifier' - /Weighted resource record sets only:/ If results were truncated for a given DNS name and type, specify the value of @NextRecordIdentifier@ from the previous response to get the next resource record set that has the current DNS name and type. -- -- * 'lrrsMaxItems' - (Optional) The maximum number of resource records sets to include in the response body for this request. If the response includes more than @maxitems@ resource record sets, the value of the @IsTruncated@ element in the response is @true@ , and the values of the @NextRecordName@ and @NextRecordType@ elements in the response identify the first resource record set in the next group of @maxitems@ resource record sets. ----- * 'lrrsHostedZoneId' - The ID of the hosted zone that contains the resource record sets that you want to get.+-- * 'lrrsHostedZoneId' - The ID of the hosted zone that contains the resource record sets that you want to list. listResourceRecordSets     :: ResourceId -- ^ 'lrrsHostedZoneId'     -> ListResourceRecordSets listResourceRecordSets pHostedZoneId_ =-    ListResourceRecordSets'-    { _lrrsStartRecordName = Nothing-    , _lrrsStartRecordType = Nothing-    , _lrrsStartRecordIdentifier = Nothing-    , _lrrsMaxItems = Nothing-    , _lrrsHostedZoneId = pHostedZoneId_-    }+  ListResourceRecordSets'+  { _lrrsStartRecordName = Nothing+  , _lrrsStartRecordType = Nothing+  , _lrrsStartRecordIdentifier = Nothing+  , _lrrsMaxItems = Nothing+  , _lrrsHostedZoneId = pHostedZoneId_+  } --- | The first name in the lexicographic ordering of domain names that you want the @ListResourceRecordSets@ request to list.++-- | The first name in the lexicographic ordering of resource record sets that you want to list. lrrsStartRecordName :: Lens' ListResourceRecordSets (Maybe Text) lrrsStartRecordName = lens _lrrsStartRecordName (\ s a -> s{_lrrsStartRecordName = a}); --- | The type of resource record set to begin the record listing from. Valid values for basic resource record sets: @A@ | @AAAA@ | @CNAME@ | @MX@ | @NAPTR@ | @NS@ | @PTR@ | @SOA@ | @SPF@ | @SRV@ | @TXT@  Values for weighted, latency, geo, and failover resource record sets: @A@ | @AAAA@ | @CNAME@ | @MX@ | @NAPTR@ | @PTR@ | @SPF@ | @SRV@ | @TXT@  Values for alias resource record sets:      * __CloudFront distribution__ : A or AAAA     * __Elastic Beanstalk environment that has a regionalized subdomain__ : A     * __ELB load balancer__ : A | AAAA     * __Amazon S3 bucket__ : A Constraint: Specifying @type@ without specifying @name@ returns an @InvalidInput@ error.+-- | The type of resource record set to begin the record listing from. Valid values for basic resource record sets: @A@ | @AAAA@ | @CAA@ | @CNAME@ | @MX@ | @NAPTR@ | @NS@ | @PTR@ | @SOA@ | @SPF@ | @SRV@ | @TXT@  Values for weighted, latency, geo, and failover resource record sets: @A@ | @AAAA@ | @CAA@ | @CNAME@ | @MX@ | @NAPTR@ | @PTR@ | @SPF@ | @SRV@ | @TXT@  Values for alias resource record sets:      * __CloudFront distribution__ : A or AAAA     * __Elastic Beanstalk environment that has a regionalized subdomain__ : A     * __ELB load balancer__ : A | AAAA     * __Amazon S3 bucket__ : A     * __Another resource record set in this hosted zone:__ The type of the resource record set that the alias references. Constraint: Specifying @type@ without specifying @name@ returns an @InvalidInput@ error. lrrsStartRecordType :: Lens' ListResourceRecordSets (Maybe RecordType) lrrsStartRecordType = lens _lrrsStartRecordType (\ s a -> s{_lrrsStartRecordType = a}); @@ -134,7 +136,7 @@ lrrsMaxItems :: Lens' ListResourceRecordSets (Maybe Text) lrrsMaxItems = lens _lrrsMaxItems (\ s a -> s{_lrrsMaxItems = a}); --- | The ID of the hosted zone that contains the resource record sets that you want to get.+-- | The ID of the hosted zone that contains the resource record sets that you want to list. lrrsHostedZoneId :: Lens' ListResourceRecordSets ResourceId lrrsHostedZoneId = lens _lrrsHostedZoneId (\ s a -> s{_lrrsHostedZoneId = a}); @@ -170,9 +172,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListResourceRecordSets+instance Hashable ListResourceRecordSets where -instance NFData ListResourceRecordSets+instance NFData ListResourceRecordSets where  instance ToHeaders ListResourceRecordSets where         toHeaders = const mempty@@ -197,15 +199,16 @@ -- -- /See:/ 'listResourceRecordSetsResponse' smart constructor. data ListResourceRecordSetsResponse = ListResourceRecordSetsResponse'-    { _lrrsrsNextRecordType       :: !(Maybe RecordType)-    , _lrrsrsNextRecordName       :: !(Maybe Text)-    , _lrrsrsNextRecordIdentifier :: !(Maybe Text)-    , _lrrsrsResponseStatus       :: !Int-    , _lrrsrsResourceRecordSets   :: ![ResourceRecordSet]-    , _lrrsrsIsTruncated          :: !Bool-    , _lrrsrsMaxItems             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrrsrsNextRecordType       :: !(Maybe RecordType)+  , _lrrsrsNextRecordName       :: !(Maybe Text)+  , _lrrsrsNextRecordIdentifier :: !(Maybe Text)+  , _lrrsrsResponseStatus       :: !Int+  , _lrrsrsResourceRecordSets   :: ![ResourceRecordSet]+  , _lrrsrsIsTruncated          :: !Bool+  , _lrrsrsMaxItems             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListResourceRecordSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -229,16 +232,17 @@     -> Text -- ^ 'lrrsrsMaxItems'     -> ListResourceRecordSetsResponse listResourceRecordSetsResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListResourceRecordSetsResponse'-    { _lrrsrsNextRecordType = Nothing-    , _lrrsrsNextRecordName = Nothing-    , _lrrsrsNextRecordIdentifier = Nothing-    , _lrrsrsResponseStatus = pResponseStatus_-    , _lrrsrsResourceRecordSets = mempty-    , _lrrsrsIsTruncated = pIsTruncated_-    , _lrrsrsMaxItems = pMaxItems_-    }+  ListResourceRecordSetsResponse'+  { _lrrsrsNextRecordType = Nothing+  , _lrrsrsNextRecordName = Nothing+  , _lrrsrsNextRecordIdentifier = Nothing+  , _lrrsrsResponseStatus = pResponseStatus_+  , _lrrsrsResourceRecordSets = mempty+  , _lrrsrsIsTruncated = pIsTruncated_+  , _lrrsrsMaxItems = pMaxItems_+  } + -- | If the results were truncated, the type of the next record in the list. This element is present only if @IsTruncated@ is true. lrrsrsNextRecordType :: Lens' ListResourceRecordSetsResponse (Maybe RecordType) lrrsrsNextRecordType = lens _lrrsrsNextRecordType (\ s a -> s{_lrrsrsNextRecordType = a});@@ -267,4 +271,4 @@ lrrsrsMaxItems :: Lens' ListResourceRecordSetsResponse Text lrrsrsMaxItems = lens _lrrsrsMaxItems (\ s a -> s{_lrrsrsMaxItems = a}); -instance NFData ListResourceRecordSetsResponse+instance NFData ListResourceRecordSetsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53.ListReusableDelegationSets--- 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) ----- To retrieve a list of your reusable delegation sets, send a @GET@ request to the @/2013-04-01/delegationset@ resource. The response to this request includes a @DelegationSets@ element with zero, one, or multiple @DelegationSet@ child elements. By default, the list of delegation sets is displayed on a single page. You can control the length of the page that is displayed by using the @MaxItems@ parameter. You can use the @Marker@ parameter to control the delegation set that the list begins with.+-- Retrieves a list of the reusable delegation sets that are associated with the current AWS account. -- -- module Network.AWS.Route53.ListReusableDelegationSets@@ -42,43 +42,42 @@     , lrdsrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | To retrieve a list of your reusable delegation sets, send a @GET@ request to the @/2013-04-01/delegationset@ resource. The response to this request includes a @DelegationSets@ element with zero or more @DelegationSet@ child elements. By default, the list of reusable delegation sets is displayed on a single page. You can control the length of the page that is displayed by using the @MaxItems@ parameter. You can use the @Marker@ parameter to control the delegation set that the list begins with.+-- | A request to get a list of the reusable delegation sets that are associated with the current AWS account. -- -- -- -- /See:/ 'listReusableDelegationSets' smart constructor. data ListReusableDelegationSets = ListReusableDelegationSets'-    { _lrdsMarker   :: !(Maybe Text)-    , _lrdsMaxItems :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrdsMarker   :: !(Maybe Text)+  , _lrdsMaxItems :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReusableDelegationSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrdsMarker' - If you're making the second or subsequent call to @ListReusableDelegationSets@ , the @Marker@ element matches the value that you specified in the @marker@ parameter in the previous request.+-- * 'lrdsMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more reusable delegation sets. To get another group, submit another @ListReusableDelegationSets@ request.  For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first reusable delegation set that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more reusable delegation sets to get. ----- * 'lrdsMaxItems' - The value that you specified for the @maxitems@ parameter in the request that produced the current response.+-- * 'lrdsMaxItems' - The number of reusable delegation sets that you want Amazon Route 53 to return in the response to this request. If you specify a value greater than 100, Amazon Route 53 returns only the first 100 reusable delegation sets. listReusableDelegationSets     :: ListReusableDelegationSets listReusableDelegationSets =-    ListReusableDelegationSets'-    { _lrdsMarker = Nothing-    , _lrdsMaxItems = Nothing-    }+  ListReusableDelegationSets' {_lrdsMarker = Nothing, _lrdsMaxItems = Nothing} --- | If you're making the second or subsequent call to @ListReusableDelegationSets@ , the @Marker@ element matches the value that you specified in the @marker@ parameter in the previous request.++-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more reusable delegation sets. To get another group, submit another @ListReusableDelegationSets@ request.  For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first reusable delegation set that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more reusable delegation sets to get. lrdsMarker :: Lens' ListReusableDelegationSets (Maybe Text) lrdsMarker = lens _lrdsMarker (\ s a -> s{_lrdsMarker = a}); --- | The value that you specified for the @maxitems@ parameter in the request that produced the current response.+-- | The number of reusable delegation sets that you want Amazon Route 53 to return in the response to this request. If you specify a value greater than 100, Amazon Route 53 returns only the first 100 reusable delegation sets. lrdsMaxItems :: Lens' ListReusableDelegationSets (Maybe Text) lrdsMaxItems = lens _lrdsMaxItems (\ s a -> s{_lrdsMaxItems = a}); @@ -97,9 +96,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListReusableDelegationSets+instance Hashable ListReusableDelegationSets where -instance NFData ListReusableDelegationSets+instance NFData ListReusableDelegationSets where  instance ToHeaders ListReusableDelegationSets where         toHeaders = const mempty@@ -119,27 +118,28 @@ -- -- /See:/ 'listReusableDelegationSetsResponse' smart constructor. data ListReusableDelegationSetsResponse = ListReusableDelegationSetsResponse'-    { _lrdsrsNextMarker     :: !(Maybe Text)-    , _lrdsrsResponseStatus :: !Int-    , _lrdsrsDelegationSets :: ![DelegationSet]-    , _lrdsrsMarker         :: !Text-    , _lrdsrsIsTruncated    :: !Bool-    , _lrdsrsMaxItems       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrdsrsNextMarker     :: !(Maybe Text)+  , _lrdsrsResponseStatus :: !Int+  , _lrdsrsDelegationSets :: ![DelegationSet]+  , _lrdsrsMarker         :: !Text+  , _lrdsrsIsTruncated    :: !Bool+  , _lrdsrsMaxItems       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReusableDelegationSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrdsrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first reusable delegation set in the next group of @maxitems@ reusable delegation sets. Call @ListReusableDelegationSets@ again and specify the value of @NextMarker@ in the @marker@ parameter.+-- * 'lrdsrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the next reusable delegation set that Amazon Route 53 will return if you submit another @ListReusableDelegationSets@ request and specify the value of @NextMarker@ in the @marker@ parameter. -- -- * 'lrdsrsResponseStatus' - -- | The response status code. -- -- * 'lrdsrsDelegationSets' - A complex type that contains one @DelegationSet@ element for each reusable delegation set that was created by the current AWS account. ----- * 'lrdsrsMarker' - For the second and subsequent calls to @ListReusableDelegationSets@ , @Marker@ is the value that you specified for the marker parameter in the request that produced the current response.+-- * 'lrdsrsMarker' - For the second and subsequent calls to @ListReusableDelegationSets@ , @Marker@ is the value that you specified for the @marker@ parameter in the request that produced the current response. ----- * 'lrdsrsIsTruncated' - A flag that indicates whether there are more reusable delegation sets to be listed. If the response is truncated, you can get the next group of @maxitems@ reusable delegation sets by calling @ListReusableDelegationSets@ again and specifying the value of the @NextMarker@ element in the @marker@ parameter.+-- * 'lrdsrsIsTruncated' - A flag that indicates whether there are more reusable delegation sets to be listed. -- -- * 'lrdsrsMaxItems' - The value that you specified for the @maxitems@ parameter in the call to @ListReusableDelegationSets@ that produced the current response. listReusableDelegationSetsResponse@@ -149,16 +149,17 @@     -> Text -- ^ 'lrdsrsMaxItems'     -> ListReusableDelegationSetsResponse listReusableDelegationSetsResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ =-    ListReusableDelegationSetsResponse'-    { _lrdsrsNextMarker = Nothing-    , _lrdsrsResponseStatus = pResponseStatus_-    , _lrdsrsDelegationSets = mempty-    , _lrdsrsMarker = pMarker_-    , _lrdsrsIsTruncated = pIsTruncated_-    , _lrdsrsMaxItems = pMaxItems_-    }+  ListReusableDelegationSetsResponse'+  { _lrdsrsNextMarker = Nothing+  , _lrdsrsResponseStatus = pResponseStatus_+  , _lrdsrsDelegationSets = mempty+  , _lrdsrsMarker = pMarker_+  , _lrdsrsIsTruncated = pIsTruncated_+  , _lrdsrsMaxItems = pMaxItems_+  } --- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the first reusable delegation set in the next group of @maxitems@ reusable delegation sets. Call @ListReusableDelegationSets@ again and specify the value of @NextMarker@ in the @marker@ parameter.++-- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the next reusable delegation set that Amazon Route 53 will return if you submit another @ListReusableDelegationSets@ request and specify the value of @NextMarker@ in the @marker@ parameter. lrdsrsNextMarker :: Lens' ListReusableDelegationSetsResponse (Maybe Text) lrdsrsNextMarker = lens _lrdsrsNextMarker (\ s a -> s{_lrdsrsNextMarker = a}); @@ -170,11 +171,11 @@ lrdsrsDelegationSets :: Lens' ListReusableDelegationSetsResponse [DelegationSet] lrdsrsDelegationSets = lens _lrdsrsDelegationSets (\ s a -> s{_lrdsrsDelegationSets = a}) . _Coerce; --- | For the second and subsequent calls to @ListReusableDelegationSets@ , @Marker@ is the value that you specified for the marker parameter in the request that produced the current response.+-- | For the second and subsequent calls to @ListReusableDelegationSets@ , @Marker@ is the value that you specified for the @marker@ parameter in the request that produced the current response. lrdsrsMarker :: Lens' ListReusableDelegationSetsResponse Text lrdsrsMarker = lens _lrdsrsMarker (\ s a -> s{_lrdsrsMarker = a}); --- | A flag that indicates whether there are more reusable delegation sets to be listed. If the response is truncated, you can get the next group of @maxitems@ reusable delegation sets by calling @ListReusableDelegationSets@ again and specifying the value of the @NextMarker@ element in the @marker@ parameter.+-- | A flag that indicates whether there are more reusable delegation sets to be listed. lrdsrsIsTruncated :: Lens' ListReusableDelegationSetsResponse Bool lrdsrsIsTruncated = lens _lrdsrsIsTruncated (\ s a -> s{_lrdsrsIsTruncated = a}); @@ -183,3 +184,4 @@ lrdsrsMaxItems = lens _lrdsrsMaxItems (\ s a -> s{_lrdsrsMaxItems = a});  instance NFData ListReusableDelegationSetsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53.ListTagsForResource--- 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) --@@ -40,12 +40,12 @@     , ltfrrsResourceTagSet     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type containing information about a request for a list of the tags that are associated with an individual resource. --@@ -53,10 +53,11 @@ -- -- /See:/ 'listTagsForResource' smart constructor. data ListTagsForResource = ListTagsForResource'-    { _ltfrResourceType :: !TagResourceType-    , _ltfrResourceId   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrResourceType :: !TagResourceType+  , _ltfrResourceId   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +70,10 @@     -> Text -- ^ 'ltfrResourceId'     -> ListTagsForResource listTagsForResource pResourceType_ pResourceId_ =-    ListTagsForResource'-    { _ltfrResourceType = pResourceType_-    , _ltfrResourceId = pResourceId_-    }+  ListTagsForResource'+  {_ltfrResourceType = pResourceType_, _ltfrResourceId = pResourceId_} + -- | The type of the resource.     * The resource type for health checks is @healthcheck@ .     * The resource type for hosted zones is @hostedzone@ . ltfrResourceType :: Lens' ListTagsForResource TagResourceType ltfrResourceType = lens _ltfrResourceType (\ s a -> s{_ltfrResourceType = a});@@ -92,9 +92,9 @@                  ListTagsForResourceResponse' <$>                    (pure (fromEnum s)) <*> (x .@ "ResourceTagSet")) -instance Hashable ListTagsForResource+instance Hashable ListTagsForResource where -instance NFData ListTagsForResource+instance NFData ListTagsForResource where  instance ToHeaders ListTagsForResource where         toHeaders = const mempty@@ -114,10 +114,11 @@ -- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse'-    { _ltfrrsResponseStatus :: !Int-    , _ltfrrsResourceTagSet :: !ResourceTagSet-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrrsResponseStatus :: !Int+  , _ltfrrsResourceTagSet :: !ResourceTagSet+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +131,12 @@     -> ResourceTagSet -- ^ 'ltfrrsResourceTagSet'     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ pResourceTagSet_ =-    ListTagsForResourceResponse'-    { _ltfrrsResponseStatus = pResponseStatus_-    , _ltfrrsResourceTagSet = pResourceTagSet_-    }+  ListTagsForResourceResponse'+  { _ltfrrsResponseStatus = pResponseStatus_+  , _ltfrrsResourceTagSet = pResourceTagSet_+  } + -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});@@ -143,4 +145,4 @@ ltfrrsResourceTagSet :: Lens' ListTagsForResourceResponse ResourceTagSet ltfrrsResourceTagSet = lens _ltfrrsResourceTagSet (\ s a -> s{_ltfrrsResourceTagSet = a}); -instance NFData ListTagsForResourceResponse+instance NFData ListTagsForResourceResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53.ListTagsForResources--- 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) --@@ -40,12 +40,12 @@     , lrsResourceTagSets     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about the health checks or hosted zones for which you want to list tags. --@@ -53,10 +53,11 @@ -- -- /See:/ 'listTagsForResources' smart constructor. data ListTagsForResources = ListTagsForResources'-    { _lResourceType :: !TagResourceType-    , _lResourceIds  :: !(List1 Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lResourceType :: !TagResourceType+  , _lResourceIds  :: !(List1 Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResources' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +70,10 @@     -> NonEmpty Text -- ^ 'lResourceIds'     -> ListTagsForResources listTagsForResources pResourceType_ pResourceIds_ =-    ListTagsForResources'-    { _lResourceType = pResourceType_-    , _lResourceIds = _List1 # pResourceIds_-    }+  ListTagsForResources'+  {_lResourceType = pResourceType_, _lResourceIds = _List1 # pResourceIds_} + -- | The type of the resources.     * The resource type for health checks is @healthcheck@ .     * The resource type for hosted zones is @hostedzone@ . lResourceType :: Lens' ListTagsForResources TagResourceType lResourceType = lens _lResourceType (\ s a -> s{_lResourceType = a});@@ -94,9 +94,9 @@                      (x .@? "ResourceTagSets" .!@ mempty >>=                         parseXMLList "ResourceTagSet")) -instance Hashable ListTagsForResources+instance Hashable ListTagsForResources where -instance NFData ListTagsForResources+instance NFData ListTagsForResources where  instance ToElement ListTagsForResources where         toElement@@ -125,10 +125,11 @@ -- -- /See:/ 'listTagsForResourcesResponse' smart constructor. data ListTagsForResourcesResponse = ListTagsForResourcesResponse'-    { _lrsResponseStatus  :: !Int-    , _lrsResourceTagSets :: ![ResourceTagSet]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrsResponseStatus  :: !Int+  , _lrsResourceTagSets :: ![ResourceTagSet]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResourcesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,11 +141,10 @@     :: Int -- ^ 'lrsResponseStatus'     -> ListTagsForResourcesResponse listTagsForResourcesResponse pResponseStatus_ =-    ListTagsForResourcesResponse'-    { _lrsResponseStatus = pResponseStatus_-    , _lrsResourceTagSets = mempty-    }+  ListTagsForResourcesResponse'+  {_lrsResponseStatus = pResponseStatus_, _lrsResourceTagSets = mempty} + -- | -- | The response status code. lrsResponseStatus :: Lens' ListTagsForResourcesResponse Int lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});@@ -153,4 +153,4 @@ lrsResourceTagSets :: Lens' ListTagsForResourcesResponse [ResourceTagSet] lrsResourceTagSets = lens _lrsResourceTagSets (\ s a -> s{_lrsResourceTagSets = a}) . _Coerce; -instance NFData ListTagsForResourcesResponse+instance NFData ListTagsForResourcesResponse where

@@ -12,35 +12,13 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicies--- 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 information about the latest version for every traffic policy that is associated with the current AWS account. Send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicy@ resource.--------- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of traffic policies, you can use the @maxitems@ parameter to list them in groups of up to 100.------ The response includes three values that help you navigate from one group of @maxitems@ traffic policies to the next:------     * __IsTruncated__------ If the value of @IsTruncated@ in the response is @true@ , there are more traffic policies associated with the current AWS account.------ If @IsTruncated@ is @false@ , this response includes the last traffic policy that is associated with the current account.------     * __TrafficPolicyIdMarker__------ If @IsTruncated@ is @true@ , @TrafficPolicyIdMarker@ is the ID of the first traffic policy in the next group of @MaxItems@ traffic policies. If you want to list more traffic policies, make another call to @ListTrafficPolicies@ , and specify the value of the @TrafficPolicyIdMarker@ element from the response in the @TrafficPolicyIdMarker@ request parameter.------ If @IsTruncated@ is @false@ , the @TrafficPolicyIdMarker@ element is omitted from the response.------     * __MaxItems__------ The value that you specified for the @MaxItems@ parameter in the request that produced the current response.---+-- Gets information about the latest version for every traffic policy that is associated with the current AWS account. Policies are listed in the order in which they were created. -- -- module Network.AWS.Route53.ListTrafficPolicies@@ -63,12 +41,12 @@     , ltprsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains the information about the request to list the traffic policies that are associated with the current AWS account. --@@ -76,30 +54,30 @@ -- -- /See:/ 'listTrafficPolicies' smart constructor. data ListTrafficPolicies = ListTrafficPolicies'-    { _ltpTrafficPolicyIdMarker :: !(Maybe Text)-    , _ltpMaxItems              :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpTrafficPolicyIdMarker :: !(Maybe Text)+  , _ltpMaxItems              :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpTrafficPolicyIdMarker' - (Conditional) For your first request to @ListTrafficPolicies@ , do not include the @TrafficPolicyIdMarker@ parameter. If you have more traffic policies than the value of @MaxItems@ , @ListTrafficPolicies@ returns only the first @MaxItems@ traffic policies. To get the next group of @MaxItems@ policies, submit another request to @ListTrafficPolicies@ . For the value of @TrafficPolicyIdMarker@ , specify the value of the @TrafficPolicyIdMarker@ element that was returned in the previous response. Policies are listed in the order in which they were created.+-- * 'ltpTrafficPolicyIdMarker' - (Conditional) For your first request to @ListTrafficPolicies@ , don't include the @TrafficPolicyIdMarker@ parameter. If you have more traffic policies than the value of @MaxItems@ , @ListTrafficPolicies@ returns only the first @MaxItems@ traffic policies. To get the next group of policies, submit another request to @ListTrafficPolicies@ . For the value of @TrafficPolicyIdMarker@ , specify the value of @TrafficPolicyIdMarker@ that was returned in the previous response. ----- * 'ltpMaxItems' - (Optional) The maximum number of traffic policies to be included in the response body for this request. If you have more than @MaxItems@ traffic policies, the value of the @IsTruncated@ element in the response is @true@ , and the value of the @TrafficPolicyIdMarker@ element is the ID of the first traffic policy in the next group of @MaxItems@ traffic policies.+-- * 'ltpMaxItems' - (Optional) The maximum number of traffic policies that you want Amazon Route 53 to return in response to this request. If you have more than @MaxItems@ traffic policies, the value of @IsTruncated@ in the response is @true@ , and the value of @TrafficPolicyIdMarker@ is the ID of the first traffic policy that Amazon Route 53 will return if you submit another request. listTrafficPolicies     :: ListTrafficPolicies listTrafficPolicies =-    ListTrafficPolicies'-    { _ltpTrafficPolicyIdMarker = Nothing-    , _ltpMaxItems = Nothing-    }+  ListTrafficPolicies'+  {_ltpTrafficPolicyIdMarker = Nothing, _ltpMaxItems = Nothing} --- | (Conditional) For your first request to @ListTrafficPolicies@ , do not include the @TrafficPolicyIdMarker@ parameter. If you have more traffic policies than the value of @MaxItems@ , @ListTrafficPolicies@ returns only the first @MaxItems@ traffic policies. To get the next group of @MaxItems@ policies, submit another request to @ListTrafficPolicies@ . For the value of @TrafficPolicyIdMarker@ , specify the value of the @TrafficPolicyIdMarker@ element that was returned in the previous response. Policies are listed in the order in which they were created.++-- | (Conditional) For your first request to @ListTrafficPolicies@ , don't include the @TrafficPolicyIdMarker@ parameter. If you have more traffic policies than the value of @MaxItems@ , @ListTrafficPolicies@ returns only the first @MaxItems@ traffic policies. To get the next group of policies, submit another request to @ListTrafficPolicies@ . For the value of @TrafficPolicyIdMarker@ , specify the value of @TrafficPolicyIdMarker@ that was returned in the previous response. ltpTrafficPolicyIdMarker :: Lens' ListTrafficPolicies (Maybe Text) ltpTrafficPolicyIdMarker = lens _ltpTrafficPolicyIdMarker (\ s a -> s{_ltpTrafficPolicyIdMarker = a}); --- | (Optional) The maximum number of traffic policies to be included in the response body for this request. If you have more than @MaxItems@ traffic policies, the value of the @IsTruncated@ element in the response is @true@ , and the value of the @TrafficPolicyIdMarker@ element is the ID of the first traffic policy in the next group of @MaxItems@ traffic policies.+-- | (Optional) The maximum number of traffic policies that you want Amazon Route 53 to return in response to this request. If you have more than @MaxItems@ traffic policies, the value of @IsTruncated@ in the response is @true@ , and the value of @TrafficPolicyIdMarker@ is the ID of the first traffic policy that Amazon Route 53 will return if you submit another request. ltpMaxItems :: Lens' ListTrafficPolicies (Maybe Text) ltpMaxItems = lens _ltpMaxItems (\ s a -> s{_ltpMaxItems = a}); @@ -118,9 +96,9 @@                      <*> (x .@ "TrafficPolicyIdMarker")                      <*> (x .@ "MaxItems")) -instance Hashable ListTrafficPolicies+instance Hashable ListTrafficPolicies where -instance NFData ListTrafficPolicies+instance NFData ListTrafficPolicies where  instance ToHeaders ListTrafficPolicies where         toHeaders = const mempty@@ -140,13 +118,14 @@ -- -- /See:/ 'listTrafficPoliciesResponse' smart constructor. data ListTrafficPoliciesResponse = ListTrafficPoliciesResponse'-    { _ltprsResponseStatus         :: !Int-    , _ltprsTrafficPolicySummaries :: ![TrafficPolicySummary]-    , _ltprsIsTruncated            :: !Bool-    , _ltprsTrafficPolicyIdMarker  :: !Text-    , _ltprsMaxItems               :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltprsResponseStatus         :: !Int+  , _ltprsTrafficPolicySummaries :: ![TrafficPolicySummary]+  , _ltprsIsTruncated            :: !Bool+  , _ltprsTrafficPolicyIdMarker  :: !Text+  , _ltprsMaxItems               :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,11 +134,11 @@ -- -- * 'ltprsTrafficPolicySummaries' - A list that contains one @TrafficPolicySummary@ element for each traffic policy that was created by the current AWS account. ----- * 'ltprsIsTruncated' - A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policies by calling @ListTrafficPolicies@ again and specifying the value of the @TrafficPolicyIdMarker@ element in the @TrafficPolicyIdMarker@ request parameter. Valid Values: @true@ | @false@+-- * 'ltprsIsTruncated' - A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of traffic policies by submitting another @ListTrafficPolicies@ request and specifying the value of @TrafficPolicyIdMarker@ in the @TrafficPolicyIdMarker@ request parameter. -- -- * 'ltprsTrafficPolicyIdMarker' - If the value of @IsTruncated@ is @true@ , @TrafficPolicyIdMarker@ is the ID of the first traffic policy in the next group of @MaxItems@ traffic policies. ----- * 'ltprsMaxItems' - The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicies@ that produced the current response.+-- * 'ltprsMaxItems' - The value that you specified for the @MaxItems@ parameter in the @ListTrafficPolicies@ request that produced the current response. listTrafficPoliciesResponse     :: Int -- ^ 'ltprsResponseStatus'     -> Bool -- ^ 'ltprsIsTruncated'@@ -167,14 +146,15 @@     -> Text -- ^ 'ltprsMaxItems'     -> ListTrafficPoliciesResponse listTrafficPoliciesResponse pResponseStatus_ pIsTruncated_ pTrafficPolicyIdMarker_ pMaxItems_ =-    ListTrafficPoliciesResponse'-    { _ltprsResponseStatus = pResponseStatus_-    , _ltprsTrafficPolicySummaries = mempty-    , _ltprsIsTruncated = pIsTruncated_-    , _ltprsTrafficPolicyIdMarker = pTrafficPolicyIdMarker_-    , _ltprsMaxItems = pMaxItems_-    }+  ListTrafficPoliciesResponse'+  { _ltprsResponseStatus = pResponseStatus_+  , _ltprsTrafficPolicySummaries = mempty+  , _ltprsIsTruncated = pIsTruncated_+  , _ltprsTrafficPolicyIdMarker = pTrafficPolicyIdMarker_+  , _ltprsMaxItems = pMaxItems_+  } + -- | -- | The response status code. ltprsResponseStatus :: Lens' ListTrafficPoliciesResponse Int ltprsResponseStatus = lens _ltprsResponseStatus (\ s a -> s{_ltprsResponseStatus = a});@@ -183,7 +163,7 @@ ltprsTrafficPolicySummaries :: Lens' ListTrafficPoliciesResponse [TrafficPolicySummary] ltprsTrafficPolicySummaries = lens _ltprsTrafficPolicySummaries (\ s a -> s{_ltprsTrafficPolicySummaries = a}) . _Coerce; --- | A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policies by calling @ListTrafficPolicies@ again and specifying the value of the @TrafficPolicyIdMarker@ element in the @TrafficPolicyIdMarker@ request parameter. Valid Values: @true@ | @false@+-- | A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of traffic policies by submitting another @ListTrafficPolicies@ request and specifying the value of @TrafficPolicyIdMarker@ in the @TrafficPolicyIdMarker@ request parameter. ltprsIsTruncated :: Lens' ListTrafficPoliciesResponse Bool ltprsIsTruncated = lens _ltprsIsTruncated (\ s a -> s{_ltprsIsTruncated = a}); @@ -191,8 +171,8 @@ ltprsTrafficPolicyIdMarker :: Lens' ListTrafficPoliciesResponse Text ltprsTrafficPolicyIdMarker = lens _ltprsTrafficPolicyIdMarker (\ s a -> s{_ltprsTrafficPolicyIdMarker = a}); --- | The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicies@ that produced the current response.+-- | The value that you specified for the @MaxItems@ parameter in the @ListTrafficPolicies@ request that produced the current response. ltprsMaxItems :: Lens' ListTrafficPoliciesResponse Text ltprsMaxItems = lens _ltprsMaxItems (\ s a -> s{_ltprsMaxItems = a}); -instance NFData ListTrafficPoliciesResponse+instance NFData ListTrafficPoliciesResponse where

@@ -12,39 +12,17 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyInstances--- 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 information about the traffic policy instances that you created by using the current AWS account. -- ----- Send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicyinstance@ resource.--- -- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of traffic policy instances, you can use the @MaxItems@ parameter to list them in groups of up to 100. ----- The response includes five values that help you navigate from one group of @MaxItems@ traffic policy instances to the next:------     * __IsTruncated__------ If the value of @IsTruncated@ in the response is @true@ , there are more traffic policy instances associated with the current AWS account.------ If @IsTruncated@ is @false@ , this response includes the last traffic policy instance that is associated with the current account.------     * __MaxItems__------ The value that you specified for the @MaxItems@ parameter in the request that produced the current response.------     * __HostedZoneIdMarker__ , __TrafficPolicyInstanceNameMarker__ , and __TrafficPolicyInstanceTypeMarker__------ If @IsTruncated@ is @true@ , these three values in the response represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. To list more traffic policy instances, make another call to @ListTrafficPolicyInstances@ , and specify these values in the corresponding request parameters.------ If @IsTruncated@ is @false@ , all three elements are omitted from the response.--------- module Network.AWS.Route53.ListTrafficPolicyInstances     (     -- * Creating a Request@@ -69,59 +47,61 @@     , ltpirsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product --- | A complex type that contains the information about the request to list your traffic policy instances.+-- | A request to get information about the traffic policy instances that you created by using the current AWS account. -- -- -- -- /See:/ 'listTrafficPolicyInstances' smart constructor. data ListTrafficPolicyInstances = ListTrafficPolicyInstances'-    { _ltpiTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)-    , _ltpiMaxItems                        :: !(Maybe Text)-    , _ltpiHostedZoneIdMarker              :: !(Maybe ResourceId)-    , _ltpiTrafficPolicyInstanceNameMarker :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpiTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)+  , _ltpiMaxItems                        :: !(Maybe Text)+  , _ltpiHostedZoneIdMarker              :: !(Maybe ResourceId)+  , _ltpiTrafficPolicyInstanceNameMarker :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyInstances' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpiTrafficPolicyInstanceTypeMarker' - For the first request to @ListTrafficPolicyInstances@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get.+-- * 'ltpiTrafficPolicyInstanceTypeMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancetype@ , specify the value of @TrafficPolicyInstanceTypeMarker@ from the previous response, which is the type of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ----- * 'ltpiMaxItems' - The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpiMaxItems' - The maximum number of traffic policy instances that you want Amazon Route 53 to return in response to a @ListTrafficPolicyInstances@ request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. ----- * 'ltpiHostedZoneIdMarker' - For the first request to @ListTrafficPolicyInstances@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get the next group of @MaxItems@ traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @HostedZoneIdMarker@ , specify the value of @HostedZoneIdMarker@ from the previous response, which is the hosted zone ID of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get.+-- * 'ltpiHostedZoneIdMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @HostedZoneId@ , specify the value of @HostedZoneIdMarker@ from the previous response, which is the hosted zone ID of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ----- * 'ltpiTrafficPolicyInstanceNameMarker' - For the first request to @ListTrafficPolicyInstances@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get.+-- * 'ltpiTrafficPolicyInstanceNameMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancename@ , specify the value of @TrafficPolicyInstanceNameMarker@ from the previous response, which is the name of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. listTrafficPolicyInstances     :: ListTrafficPolicyInstances listTrafficPolicyInstances =-    ListTrafficPolicyInstances'-    { _ltpiTrafficPolicyInstanceTypeMarker = Nothing-    , _ltpiMaxItems = Nothing-    , _ltpiHostedZoneIdMarker = Nothing-    , _ltpiTrafficPolicyInstanceNameMarker = Nothing-    }+  ListTrafficPolicyInstances'+  { _ltpiTrafficPolicyInstanceTypeMarker = Nothing+  , _ltpiMaxItems = Nothing+  , _ltpiHostedZoneIdMarker = Nothing+  , _ltpiTrafficPolicyInstanceNameMarker = Nothing+  } --- | For the first request to @ListTrafficPolicyInstances@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get.++-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancetype@ , specify the value of @TrafficPolicyInstanceTypeMarker@ from the previous response, which is the type of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpiTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstances (Maybe RecordType) ltpiTrafficPolicyInstanceTypeMarker = lens _ltpiTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpiTrafficPolicyInstanceTypeMarker = a}); --- | The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | The maximum number of traffic policy instances that you want Amazon Route 53 to return in response to a @ListTrafficPolicyInstances@ request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. ltpiMaxItems :: Lens' ListTrafficPolicyInstances (Maybe Text) ltpiMaxItems = lens _ltpiMaxItems (\ s a -> s{_ltpiMaxItems = a}); --- | For the first request to @ListTrafficPolicyInstances@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get the next group of @MaxItems@ traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @HostedZoneIdMarker@ , specify the value of @HostedZoneIdMarker@ from the previous response, which is the hosted zone ID of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get.+-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @HostedZoneId@ , specify the value of @HostedZoneIdMarker@ from the previous response, which is the hosted zone ID of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpiHostedZoneIdMarker :: Lens' ListTrafficPolicyInstances (Maybe ResourceId) ltpiHostedZoneIdMarker = lens _ltpiHostedZoneIdMarker (\ s a -> s{_ltpiHostedZoneIdMarker = a}); --- | For the first request to @ListTrafficPolicyInstances@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get.+-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancename@ , specify the value of @TrafficPolicyInstanceNameMarker@ from the previous response, which is the name of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpiTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstances (Maybe Text) ltpiTrafficPolicyInstanceNameMarker = lens _ltpiTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpiTrafficPolicyInstanceNameMarker = a}); @@ -143,9 +123,9 @@                      <*> (x .@ "IsTruncated")                      <*> (x .@ "MaxItems")) -instance Hashable ListTrafficPolicyInstances+instance Hashable ListTrafficPolicyInstances where -instance NFData ListTrafficPolicyInstances+instance NFData ListTrafficPolicyInstances where  instance ToHeaders ListTrafficPolicyInstances where         toHeaders = const mempty@@ -169,30 +149,31 @@ -- -- /See:/ 'listTrafficPolicyInstancesResponse' smart constructor. data ListTrafficPolicyInstancesResponse = ListTrafficPolicyInstancesResponse'-    { _ltpirsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)-    , _ltpirsHostedZoneIdMarker              :: !(Maybe ResourceId)-    , _ltpirsTrafficPolicyInstanceNameMarker :: !(Maybe Text)-    , _ltpirsResponseStatus                  :: !Int-    , _ltpirsTrafficPolicyInstances          :: ![TrafficPolicyInstance]-    , _ltpirsIsTruncated                     :: !Bool-    , _ltpirsMaxItems                        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpirsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)+  , _ltpirsHostedZoneIdMarker              :: !(Maybe ResourceId)+  , _ltpirsTrafficPolicyInstanceNameMarker :: !(Maybe Text)+  , _ltpirsResponseStatus                  :: !Int+  , _ltpirsTrafficPolicyInstances          :: ![TrafficPolicyInstance]+  , _ltpirsIsTruncated                     :: !Bool+  , _ltpirsMaxItems                        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyInstancesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpirsTrafficPolicyInstanceTypeMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpirsTrafficPolicyInstanceTypeMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance that Amazon Route 53 will return if you submit another @ListTrafficPolicyInstances@ request. ----- * 'ltpirsHostedZoneIdMarker' - If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpirsHostedZoneIdMarker' - If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance that Amazon Route 53 will return if you submit another @ListTrafficPolicyInstances@ request. ----- * 'ltpirsTrafficPolicyInstanceNameMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpirsTrafficPolicyInstanceNameMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance that Amazon Route 53 will return if you submit another @ListTrafficPolicyInstances@ request. -- -- * 'ltpirsResponseStatus' - -- | The response status code. -- -- * 'ltpirsTrafficPolicyInstances' - A list that contains one @TrafficPolicyInstance@ element for each traffic policy instance that matches the elements in the request. ----- * 'ltpirsIsTruncated' - A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policy instances by calling @ListTrafficPolicyInstances@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters.+-- * 'ltpirsIsTruncated' - A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get more traffic policy instances by calling @ListTrafficPolicyInstances@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ in the corresponding request parameters. -- -- * 'ltpirsMaxItems' - The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicyInstances@ that produced the current response. listTrafficPolicyInstancesResponse@@ -201,25 +182,26 @@     -> Text -- ^ 'ltpirsMaxItems'     -> ListTrafficPolicyInstancesResponse listTrafficPolicyInstancesResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListTrafficPolicyInstancesResponse'-    { _ltpirsTrafficPolicyInstanceTypeMarker = Nothing-    , _ltpirsHostedZoneIdMarker = Nothing-    , _ltpirsTrafficPolicyInstanceNameMarker = Nothing-    , _ltpirsResponseStatus = pResponseStatus_-    , _ltpirsTrafficPolicyInstances = mempty-    , _ltpirsIsTruncated = pIsTruncated_-    , _ltpirsMaxItems = pMaxItems_-    }+  ListTrafficPolicyInstancesResponse'+  { _ltpirsTrafficPolicyInstanceTypeMarker = Nothing+  , _ltpirsHostedZoneIdMarker = Nothing+  , _ltpirsTrafficPolicyInstanceNameMarker = Nothing+  , _ltpirsResponseStatus = pResponseStatus_+  , _ltpirsTrafficPolicyInstances = mempty+  , _ltpirsIsTruncated = pIsTruncated_+  , _ltpirsMaxItems = pMaxItems_+  } --- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.++-- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance that Amazon Route 53 will return if you submit another @ListTrafficPolicyInstances@ request. ltpirsTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesResponse (Maybe RecordType) ltpirsTrafficPolicyInstanceTypeMarker = lens _ltpirsTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpirsTrafficPolicyInstanceTypeMarker = a}); --- | If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance that Amazon Route 53 will return if you submit another @ListTrafficPolicyInstances@ request. ltpirsHostedZoneIdMarker :: Lens' ListTrafficPolicyInstancesResponse (Maybe ResourceId) ltpirsHostedZoneIdMarker = lens _ltpirsHostedZoneIdMarker (\ s a -> s{_ltpirsHostedZoneIdMarker = a}); --- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance that Amazon Route 53 will return if you submit another @ListTrafficPolicyInstances@ request. ltpirsTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesResponse (Maybe Text) ltpirsTrafficPolicyInstanceNameMarker = lens _ltpirsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpirsTrafficPolicyInstanceNameMarker = a}); @@ -231,7 +213,7 @@ ltpirsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesResponse [TrafficPolicyInstance] ltpirsTrafficPolicyInstances = lens _ltpirsTrafficPolicyInstances (\ s a -> s{_ltpirsTrafficPolicyInstances = a}) . _Coerce; --- | A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policy instances by calling @ListTrafficPolicyInstances@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters.+-- | A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get more traffic policy instances by calling @ListTrafficPolicyInstances@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ in the corresponding request parameters. ltpirsIsTruncated :: Lens' ListTrafficPolicyInstancesResponse Bool ltpirsIsTruncated = lens _ltpirsIsTruncated (\ s a -> s{_ltpirsIsTruncated = a}); @@ -240,3 +222,4 @@ ltpirsMaxItems = lens _ltpirsMaxItems (\ s a -> s{_ltpirsMaxItems = a});  instance NFData ListTrafficPolicyInstancesResponse+         where

@@ -12,39 +12,17 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyInstancesByHostedZone--- 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 information about the traffic policy instances that you created in a specified hosted zone. -- ----- Send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicyinstance@ resource and include the ID of the hosted zone.--- -- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of traffic policy instances, you can use the @MaxItems@ parameter to list them in groups of up to 100. ----- The response includes four values that help you navigate from one group of @MaxItems@ traffic policy instances to the next:------     * __IsTruncated__------ If the value of IsTruncated in the response is @true@ , there are more traffic policy instances associated with the current AWS account.------ If @IsTruncated@ is @false@ , this response includes the last traffic policy instance that is associated with the current account.------     * __MaxItems__------ The value that you specified for the @MaxItems@ parameter in the request that produced the current response.------     * __TrafficPolicyInstanceNameMarker__ and __TrafficPolicyInstanceTypeMarker__------ If @IsTruncated@ is @true@ , these two values in the response represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. To list more traffic policy instances, make another call to @ListTrafficPolicyInstancesByHostedZone@ , and specify these values in the corresponding request parameters.------ If @IsTruncated@ is @false@ , all three elements are omitted from the response.--------- module Network.AWS.Route53.ListTrafficPolicyInstancesByHostedZone     (     -- * Creating a Request@@ -68,12 +46,12 @@     , ltpibhzrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A request for the traffic policy instances that you created in a specified hosted zone. --@@ -81,52 +59,55 @@ -- -- /See:/ 'listTrafficPolicyInstancesByHostedZone' smart constructor. data ListTrafficPolicyInstancesByHostedZone = ListTrafficPolicyInstancesByHostedZone'-    { _ltpibhzTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)-    , _ltpibhzMaxItems                        :: !(Maybe Text)-    , _ltpibhzTrafficPolicyInstanceNameMarker :: !(Maybe Text)-    , _ltpibhzHostedZoneId                    :: !ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpibhzTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)+  , _ltpibhzMaxItems                        :: !(Maybe Text)+  , _ltpibhzTrafficPolicyInstanceNameMarker :: !(Maybe Text)+  , _ltpibhzHostedZoneId                    :: !ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyInstancesByHostedZone' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpibhzTrafficPolicyInstanceTypeMarker' - For the first request to @ListTrafficPolicyInstancesByHostedZone@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone.+-- * 'ltpibhzTrafficPolicyInstanceTypeMarker' - If the value of @IsTruncated@ in the previous response is true, you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancetype@ , specify the value of @TrafficPolicyInstanceTypeMarker@ from the previous response, which is the type of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ----- * 'ltpibhzMaxItems' - The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpibhzMaxItems' - The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance that Amazon Route 53 will return if you submit another request. ----- * 'ltpibhzTrafficPolicyInstanceNameMarker' - For the first request to @ListTrafficPolicyInstancesByHostedZone@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone. If the value of @IsTruncated@ in the previous response was @false@ , omit this value.+-- * 'ltpibhzTrafficPolicyInstanceNameMarker' - If the value of @IsTruncated@ in the previous response is true, you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancename@ , specify the value of @TrafficPolicyInstanceNameMarker@ from the previous response, which is the name of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ----- * 'ltpibhzHostedZoneId' - The ID of the hosted zone for which you want to list traffic policy instances.+-- * 'ltpibhzHostedZoneId' - The ID of the hosted zone that you want to list traffic policy instances for. listTrafficPolicyInstancesByHostedZone     :: ResourceId -- ^ 'ltpibhzHostedZoneId'     -> ListTrafficPolicyInstancesByHostedZone listTrafficPolicyInstancesByHostedZone pHostedZoneId_ =-    ListTrafficPolicyInstancesByHostedZone'-    { _ltpibhzTrafficPolicyInstanceTypeMarker = Nothing-    , _ltpibhzMaxItems = Nothing-    , _ltpibhzTrafficPolicyInstanceNameMarker = Nothing-    , _ltpibhzHostedZoneId = pHostedZoneId_-    }+  ListTrafficPolicyInstancesByHostedZone'+  { _ltpibhzTrafficPolicyInstanceTypeMarker = Nothing+  , _ltpibhzMaxItems = Nothing+  , _ltpibhzTrafficPolicyInstanceNameMarker = Nothing+  , _ltpibhzHostedZoneId = pHostedZoneId_+  } --- | For the first request to @ListTrafficPolicyInstancesByHostedZone@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone.++-- | If the value of @IsTruncated@ in the previous response is true, you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancetype@ , specify the value of @TrafficPolicyInstanceTypeMarker@ from the previous response, which is the type of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpibhzTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe RecordType) ltpibhzTrafficPolicyInstanceTypeMarker = lens _ltpibhzTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibhzTrafficPolicyInstanceTypeMarker = a}); --- | The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance that Amazon Route 53 will return if you submit another request. ltpibhzMaxItems :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe Text) ltpibhzMaxItems = lens _ltpibhzMaxItems (\ s a -> s{_ltpibhzMaxItems = a}); --- | For the first request to @ListTrafficPolicyInstancesByHostedZone@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone. If the value of @IsTruncated@ in the previous response was @false@ , omit this value.+-- | If the value of @IsTruncated@ in the previous response is true, you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstances@ request. For the value of @trafficpolicyinstancename@ , specify the value of @TrafficPolicyInstanceNameMarker@ from the previous response, which is the name of the first traffic policy instance in the next group of traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpibhzTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe Text) ltpibhzTrafficPolicyInstanceNameMarker = lens _ltpibhzTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzTrafficPolicyInstanceNameMarker = a}); --- | The ID of the hosted zone for which you want to list traffic policy instances.+-- | The ID of the hosted zone that you want to list traffic policy instances for. ltpibhzHostedZoneId :: Lens' ListTrafficPolicyInstancesByHostedZone ResourceId ltpibhzHostedZoneId = lens _ltpibhzHostedZoneId (\ s a -> s{_ltpibhzHostedZoneId = a});  instance AWSRequest-         ListTrafficPolicyInstancesByHostedZone where+           ListTrafficPolicyInstancesByHostedZone+         where         type Rs ListTrafficPolicyInstancesByHostedZone =              ListTrafficPolicyInstancesByHostedZoneResponse         request = get route53@@ -144,23 +125,28 @@                      <*> (x .@ "MaxItems"))  instance Hashable-         ListTrafficPolicyInstancesByHostedZone+           ListTrafficPolicyInstancesByHostedZone+         where  instance NFData-         ListTrafficPolicyInstancesByHostedZone+           ListTrafficPolicyInstancesByHostedZone+         where  instance ToHeaders-         ListTrafficPolicyInstancesByHostedZone where+           ListTrafficPolicyInstancesByHostedZone+         where         toHeaders = const mempty  instance ToPath-         ListTrafficPolicyInstancesByHostedZone where+           ListTrafficPolicyInstancesByHostedZone+         where         toPath           = const               "/2013-04-01/trafficpolicyinstances/hostedzone"  instance ToQuery-         ListTrafficPolicyInstancesByHostedZone where+           ListTrafficPolicyInstancesByHostedZone+         where         toQuery ListTrafficPolicyInstancesByHostedZone'{..}           = mconcat               ["trafficpolicyinstancetype" =:@@ -176,49 +162,51 @@ -- -- /See:/ 'listTrafficPolicyInstancesByHostedZoneResponse' smart constructor. data ListTrafficPolicyInstancesByHostedZoneResponse = ListTrafficPolicyInstancesByHostedZoneResponse'-    { _ltpibhzrsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)-    , _ltpibhzrsTrafficPolicyInstanceNameMarker :: !(Maybe Text)-    , _ltpibhzrsResponseStatus                  :: !Int-    , _ltpibhzrsTrafficPolicyInstances          :: ![TrafficPolicyInstance]-    , _ltpibhzrsIsTruncated                     :: !Bool-    , _ltpibhzrsMaxItems                        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpibhzrsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)+  , _ltpibhzrsTrafficPolicyInstanceNameMarker :: !(Maybe Text)+  , _ltpibhzrsResponseStatus                  :: !Int+  , _ltpibhzrsTrafficPolicyInstances          :: ![TrafficPolicyInstance]+  , _ltpibhzrsIsTruncated                     :: !Bool+  , _ltpibhzrsMaxItems                        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyInstancesByHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpibhzrsTrafficPolicyInstanceTypeMarker' - If @IsTruncated@ is true, @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpibhzrsTrafficPolicyInstanceTypeMarker' - If @IsTruncated@ is true, @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of traffic policy instances. ----- * 'ltpibhzrsTrafficPolicyInstanceNameMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpibhzrsTrafficPolicyInstanceNameMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of traffic policy instances. -- -- * 'ltpibhzrsResponseStatus' - -- | The response status code. -- -- * 'ltpibhzrsTrafficPolicyInstances' - A list that contains one @TrafficPolicyInstance@ element for each traffic policy instance that matches the elements in the request. ----- * 'ltpibhzrsIsTruncated' - A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policy instances by calling @ListTrafficPolicyInstancesByHostedZone@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters.+-- * 'ltpibhzrsIsTruncated' - A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of traffic policy instances by submitting another @ListTrafficPolicyInstancesByHostedZone@ request and specifying the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ in the corresponding request parameters. ----- * 'ltpibhzrsMaxItems' - The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicyInstancesByHostedZone@ that produced the current response.+-- * 'ltpibhzrsMaxItems' - The value that you specified for the @MaxItems@ parameter in the @ListTrafficPolicyInstancesByHostedZone@ request that produced the current response. listTrafficPolicyInstancesByHostedZoneResponse     :: Int -- ^ 'ltpibhzrsResponseStatus'     -> Bool -- ^ 'ltpibhzrsIsTruncated'     -> Text -- ^ 'ltpibhzrsMaxItems'     -> ListTrafficPolicyInstancesByHostedZoneResponse listTrafficPolicyInstancesByHostedZoneResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListTrafficPolicyInstancesByHostedZoneResponse'-    { _ltpibhzrsTrafficPolicyInstanceTypeMarker = Nothing-    , _ltpibhzrsTrafficPolicyInstanceNameMarker = Nothing-    , _ltpibhzrsResponseStatus = pResponseStatus_-    , _ltpibhzrsTrafficPolicyInstances = mempty-    , _ltpibhzrsIsTruncated = pIsTruncated_-    , _ltpibhzrsMaxItems = pMaxItems_-    }+  ListTrafficPolicyInstancesByHostedZoneResponse'+  { _ltpibhzrsTrafficPolicyInstanceTypeMarker = Nothing+  , _ltpibhzrsTrafficPolicyInstanceNameMarker = Nothing+  , _ltpibhzrsResponseStatus = pResponseStatus_+  , _ltpibhzrsTrafficPolicyInstances = mempty+  , _ltpibhzrsIsTruncated = pIsTruncated_+  , _ltpibhzrsMaxItems = pMaxItems_+  } --- | If @IsTruncated@ is true, @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.++-- | If @IsTruncated@ is true, @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of traffic policy instances. ltpibhzrsTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse (Maybe RecordType) ltpibhzrsTrafficPolicyInstanceTypeMarker = lens _ltpibhzrsTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceTypeMarker = a}); --- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of traffic policy instances. ltpibhzrsTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse (Maybe Text) ltpibhzrsTrafficPolicyInstanceNameMarker = lens _ltpibhzrsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceNameMarker = a}); @@ -230,13 +218,14 @@ ltpibhzrsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse [TrafficPolicyInstance] ltpibhzrsTrafficPolicyInstances = lens _ltpibhzrsTrafficPolicyInstances (\ s a -> s{_ltpibhzrsTrafficPolicyInstances = a}) . _Coerce; --- | A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policy instances by calling @ListTrafficPolicyInstancesByHostedZone@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters.+-- | A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of traffic policy instances by submitting another @ListTrafficPolicyInstancesByHostedZone@ request and specifying the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ in the corresponding request parameters. ltpibhzrsIsTruncated :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse Bool ltpibhzrsIsTruncated = lens _ltpibhzrsIsTruncated (\ s a -> s{_ltpibhzrsIsTruncated = a}); --- | The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicyInstancesByHostedZone@ that produced the current response.+-- | The value that you specified for the @MaxItems@ parameter in the @ListTrafficPolicyInstancesByHostedZone@ request that produced the current response. ltpibhzrsMaxItems :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse Text ltpibhzrsMaxItems = lens _ltpibhzrsMaxItems (\ s a -> s{_ltpibhzrsMaxItems = a});  instance NFData-         ListTrafficPolicyInstancesByHostedZoneResponse+           ListTrafficPolicyInstancesByHostedZoneResponse+         where

@@ -12,39 +12,17 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyInstancesByPolicy--- 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 information about the traffic policy instances that you created by using a specify traffic policy version. -- ----- Send a @GET@ request to the @//Route 53 API version/ /trafficpolicyinstance@ resource and include the ID and version of the traffic policy.--- -- Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of traffic policy instances, you can use the @MaxItems@ parameter to list them in groups of up to 100. ----- The response includes five values that help you navigate from one group of @MaxItems@ traffic policy instances to the next:------     * __IsTruncated__------ If the value of @IsTruncated@ in the response is @true@ , there are more traffic policy instances associated with the specified traffic policy.------ If @IsTruncated@ is @false@ , this response includes the last traffic policy instance that is associated with the specified traffic policy.------     * __MaxItems__------ The value that you specified for the @MaxItems@ parameter in the request that produced the current response.------     * __HostedZoneIdMarker__ , __TrafficPolicyInstanceNameMarker__ , and __TrafficPolicyInstanceTypeMarker__------ If @IsTruncated@ is @true@ , these values in the response represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. To list more traffic policy instances, make another call to @ListTrafficPolicyInstancesByPolicy@ , and specify these values in the corresponding request parameters.------ If @IsTruncated@ is @false@ , all three elements are omitted from the response.--------- module Network.AWS.Route53.ListTrafficPolicyInstancesByPolicy     (     -- * Creating a Request@@ -71,12 +49,12 @@     , ltpibprsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains the information about the request to list your traffic policy instances. --@@ -84,25 +62,26 @@ -- -- /See:/ 'listTrafficPolicyInstancesByPolicy' smart constructor. data ListTrafficPolicyInstancesByPolicy = ListTrafficPolicyInstancesByPolicy'-    { _ltpibpTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)-    , _ltpibpMaxItems                        :: !(Maybe Text)-    , _ltpibpHostedZoneIdMarker              :: !(Maybe ResourceId)-    , _ltpibpTrafficPolicyInstanceNameMarker :: !(Maybe Text)-    , _ltpibpTrafficPolicyId                 :: !Text-    , _ltpibpTrafficPolicyVersion            :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpibpTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)+  , _ltpibpMaxItems                        :: !(Maybe Text)+  , _ltpibpHostedZoneIdMarker              :: !(Maybe ResourceId)+  , _ltpibpTrafficPolicyInstanceNameMarker :: !(Maybe Text)+  , _ltpibpTrafficPolicyId                 :: !Text+  , _ltpibpTrafficPolicyVersion            :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyInstancesByPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpibpTrafficPolicyInstanceTypeMarker' - For the first request to @ListTrafficPolicyInstancesByPolicy@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone.+-- * 'ltpibpTrafficPolicyInstanceTypeMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstancesByPolicy@ request. For the value of @trafficpolicyinstancetype@ , specify the value of @TrafficPolicyInstanceTypeMarker@ from the previous response, which is the name of the first traffic policy instance that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ----- * 'ltpibpMaxItems' - The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpibpMaxItems' - The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance that Amazon Route 53 will return if you submit another request. ----- * 'ltpibpHostedZoneIdMarker' - For the first request to @ListTrafficPolicyInstancesByPolicy@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone for the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone. If the value of @IsTruncated@ in the previous response was @false@ , omit this value.+-- * 'ltpibpHostedZoneIdMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstancesByPolicy@ request.  For the value of @hostedzoneid@ , specify the value of @HostedZoneIdMarker@ from the previous response, which is the hosted zone ID of the first traffic policy instance that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ----- * 'ltpibpTrafficPolicyInstanceNameMarker' - For the first request to @ListTrafficPolicyInstancesByPolicy@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone. If the value of @IsTruncated@ in the previous response was @false@ , omit this value.+-- * 'ltpibpTrafficPolicyInstanceNameMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstancesByPolicy@ request. For the value of @trafficpolicyinstancename@ , specify the value of @TrafficPolicyInstanceNameMarker@ from the previous response, which is the name of the first traffic policy instance that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. -- -- * 'ltpibpTrafficPolicyId' - The ID of the traffic policy for which you want to list traffic policy instances. --@@ -112,28 +91,29 @@     -> Natural -- ^ 'ltpibpTrafficPolicyVersion'     -> ListTrafficPolicyInstancesByPolicy listTrafficPolicyInstancesByPolicy pTrafficPolicyId_ pTrafficPolicyVersion_ =-    ListTrafficPolicyInstancesByPolicy'-    { _ltpibpTrafficPolicyInstanceTypeMarker = Nothing-    , _ltpibpMaxItems = Nothing-    , _ltpibpHostedZoneIdMarker = Nothing-    , _ltpibpTrafficPolicyInstanceNameMarker = Nothing-    , _ltpibpTrafficPolicyId = pTrafficPolicyId_-    , _ltpibpTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_-    }+  ListTrafficPolicyInstancesByPolicy'+  { _ltpibpTrafficPolicyInstanceTypeMarker = Nothing+  , _ltpibpMaxItems = Nothing+  , _ltpibpHostedZoneIdMarker = Nothing+  , _ltpibpTrafficPolicyInstanceNameMarker = Nothing+  , _ltpibpTrafficPolicyId = pTrafficPolicyId_+  , _ltpibpTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_+  } --- | For the first request to @ListTrafficPolicyInstancesByPolicy@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone.++-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstancesByPolicy@ request. For the value of @trafficpolicyinstancetype@ , specify the value of @TrafficPolicyInstanceTypeMarker@ from the previous response, which is the name of the first traffic policy instance that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpibpTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByPolicy (Maybe RecordType) ltpibpTrafficPolicyInstanceTypeMarker = lens _ltpibpTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibpTrafficPolicyInstanceTypeMarker = a}); --- | The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | The maximum number of traffic policy instances to be included in the response body for this request. If you have more than @MaxItems@ traffic policy instances, the value of the @IsTruncated@ element in the response is @true@ , and the values of @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ represent the first traffic policy instance that Amazon Route 53 will return if you submit another request. ltpibpMaxItems :: Lens' ListTrafficPolicyInstancesByPolicy (Maybe Text) ltpibpMaxItems = lens _ltpibpMaxItems (\ s a -> s{_ltpibpMaxItems = a}); --- | For the first request to @ListTrafficPolicyInstancesByPolicy@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone for the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone. If the value of @IsTruncated@ in the previous response was @false@ , omit this value.+-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstancesByPolicy@ request.  For the value of @hostedzoneid@ , specify the value of @HostedZoneIdMarker@ from the previous response, which is the hosted zone ID of the first traffic policy instance that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpibpHostedZoneIdMarker :: Lens' ListTrafficPolicyInstancesByPolicy (Maybe ResourceId) ltpibpHostedZoneIdMarker = lens _ltpibpHostedZoneIdMarker (\ s a -> s{_ltpibpHostedZoneIdMarker = a}); --- | For the first request to @ListTrafficPolicyInstancesByPolicy@ , omit this value. If the value of @IsTruncated@ in the previous response was @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get for this hosted zone. If the value of @IsTruncated@ in the previous response was @false@ , omit this value.+-- | If the value of @IsTruncated@ in the previous response was @true@ , you have more traffic policy instances. To get more traffic policy instances, submit another @ListTrafficPolicyInstancesByPolicy@ request. For the value of @trafficpolicyinstancename@ , specify the value of @TrafficPolicyInstanceNameMarker@ from the previous response, which is the name of the first traffic policy instance that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more traffic policy instances to get. ltpibpTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByPolicy (Maybe Text) ltpibpTrafficPolicyInstanceNameMarker = lens _ltpibpTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibpTrafficPolicyInstanceNameMarker = a}); @@ -146,7 +126,8 @@ ltpibpTrafficPolicyVersion = lens _ltpibpTrafficPolicyVersion (\ s a -> s{_ltpibpTrafficPolicyVersion = a}) . _Nat;  instance AWSRequest-         ListTrafficPolicyInstancesByPolicy where+           ListTrafficPolicyInstancesByPolicy+         where         type Rs ListTrafficPolicyInstancesByPolicy =              ListTrafficPolicyInstancesByPolicyResponse         request = get route53@@ -165,8 +146,10 @@                      <*> (x .@ "MaxItems"))  instance Hashable ListTrafficPolicyInstancesByPolicy+         where  instance NFData ListTrafficPolicyInstancesByPolicy+         where  instance ToHeaders ListTrafficPolicyInstancesByPolicy          where@@ -197,22 +180,23 @@ -- -- /See:/ 'listTrafficPolicyInstancesByPolicyResponse' smart constructor. data ListTrafficPolicyInstancesByPolicyResponse = ListTrafficPolicyInstancesByPolicyResponse'-    { _ltpibprsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)-    , _ltpibprsHostedZoneIdMarker              :: !(Maybe ResourceId)-    , _ltpibprsTrafficPolicyInstanceNameMarker :: !(Maybe Text)-    , _ltpibprsResponseStatus                  :: !Int-    , _ltpibprsTrafficPolicyInstances          :: ![TrafficPolicyInstance]-    , _ltpibprsIsTruncated                     :: !Bool-    , _ltpibprsMaxItems                        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpibprsTrafficPolicyInstanceTypeMarker :: !(Maybe RecordType)+  , _ltpibprsHostedZoneIdMarker              :: !(Maybe ResourceId)+  , _ltpibprsTrafficPolicyInstanceNameMarker :: !(Maybe Text)+  , _ltpibprsResponseStatus                  :: !Int+  , _ltpibprsTrafficPolicyInstances          :: ![TrafficPolicyInstance]+  , _ltpibprsIsTruncated                     :: !Bool+  , _ltpibprsMaxItems                        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyInstancesByPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ltpibprsTrafficPolicyInstanceTypeMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. ----- * 'ltpibprsHostedZoneIdMarker' - If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- * 'ltpibprsHostedZoneIdMarker' - If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance in the next group of traffic policy instances. -- -- * 'ltpibprsTrafficPolicyInstanceNameMarker' - If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. --@@ -220,7 +204,7 @@ -- -- * 'ltpibprsTrafficPolicyInstances' - A list that contains one @TrafficPolicyInstance@ element for each traffic policy instance that matches the elements in the request. ----- * 'ltpibprsIsTruncated' - A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policy instances by calling @ListTrafficPolicyInstancesByPolicy@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters.+-- * 'ltpibprsIsTruncated' - A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of traffic policy instances by calling @ListTrafficPolicyInstancesByPolicy@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters. -- -- * 'ltpibprsMaxItems' - The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicyInstancesByPolicy@ that produced the current response. listTrafficPolicyInstancesByPolicyResponse@@ -229,21 +213,22 @@     -> Text -- ^ 'ltpibprsMaxItems'     -> ListTrafficPolicyInstancesByPolicyResponse listTrafficPolicyInstancesByPolicyResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =-    ListTrafficPolicyInstancesByPolicyResponse'-    { _ltpibprsTrafficPolicyInstanceTypeMarker = Nothing-    , _ltpibprsHostedZoneIdMarker = Nothing-    , _ltpibprsTrafficPolicyInstanceNameMarker = Nothing-    , _ltpibprsResponseStatus = pResponseStatus_-    , _ltpibprsTrafficPolicyInstances = mempty-    , _ltpibprsIsTruncated = pIsTruncated_-    , _ltpibprsMaxItems = pMaxItems_-    }+  ListTrafficPolicyInstancesByPolicyResponse'+  { _ltpibprsTrafficPolicyInstanceTypeMarker = Nothing+  , _ltpibprsHostedZoneIdMarker = Nothing+  , _ltpibprsTrafficPolicyInstanceNameMarker = Nothing+  , _ltpibprsResponseStatus = pResponseStatus_+  , _ltpibprsTrafficPolicyInstances = mempty+  , _ltpibprsIsTruncated = pIsTruncated_+  , _ltpibprsMaxItems = pMaxItems_+  } + -- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceTypeMarker@ is the DNS type of the resource record sets that are associated with the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. ltpibprsTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByPolicyResponse (Maybe RecordType) ltpibprsTrafficPolicyInstanceTypeMarker = lens _ltpibprsTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibprsTrafficPolicyInstanceTypeMarker = a}); --- | If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances.+-- | If @IsTruncated@ is @true@ , @HostedZoneIdMarker@ is the ID of the hosted zone of the first traffic policy instance in the next group of traffic policy instances. ltpibprsHostedZoneIdMarker :: Lens' ListTrafficPolicyInstancesByPolicyResponse (Maybe ResourceId) ltpibprsHostedZoneIdMarker = lens _ltpibprsHostedZoneIdMarker (\ s a -> s{_ltpibprsHostedZoneIdMarker = a}); @@ -259,7 +244,7 @@ ltpibprsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesByPolicyResponse [TrafficPolicyInstance] ltpibprsTrafficPolicyInstances = lens _ltpibprsTrafficPolicyInstances (\ s a -> s{_ltpibprsTrafficPolicyInstances = a}) . _Coerce; --- | A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of @MaxItems@ traffic policy instances by calling @ListTrafficPolicyInstancesByPolicy@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters.+-- | A flag that indicates whether there are more traffic policy instances to be listed. If the response was truncated, you can get the next group of traffic policy instances by calling @ListTrafficPolicyInstancesByPolicy@ again and specifying the values of the @HostedZoneIdMarker@ , @TrafficPolicyInstanceNameMarker@ , and @TrafficPolicyInstanceTypeMarker@ elements in the corresponding request parameters. ltpibprsIsTruncated :: Lens' ListTrafficPolicyInstancesByPolicyResponse Bool ltpibprsIsTruncated = lens _ltpibprsIsTruncated (\ s a -> s{_ltpibprsIsTruncated = a}); @@ -268,4 +253,5 @@ ltpibprsMaxItems = lens _ltpibprsMaxItems (\ s a -> s{_ltpibprsMaxItems = a});  instance NFData-         ListTrafficPolicyInstancesByPolicyResponse+           ListTrafficPolicyInstancesByPolicyResponse+         where

@@ -12,38 +12,16 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyVersions--- 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 information about all of the versions for a specified traffic policy. -- ----- Send a @GET@ request to the @//Amazon Route 53 API version/ /trafficpolicy@ resource and specify the ID of the traffic policy for which you want to list versions.------ Amazon Route 53 returns a maximum of 100 items in each response. If you have a lot of traffic policies, you can use the @maxitems@ parameter to list them in groups of up to 100.------ The response includes three values that help you navigate from one group of @maxitems@ traffic policies to the next:------     * __IsTruncated__------ If the value of @IsTruncated@ in the response is @true@ , there are more traffic policy versions associated with the specified traffic policy.------ If @IsTruncated@ is @false@ , this response includes the last traffic policy version that is associated with the specified traffic policy.------     * __TrafficPolicyVersionMarker__------ The ID of the next traffic policy version that is associated with the current AWS account. If you want to list more traffic policies, make another call to @ListTrafficPolicyVersions@ , and specify the value of the @TrafficPolicyVersionMarker@ element in the @TrafficPolicyVersionMarker@ request parameter.------ If @IsTruncated@ is @false@ , Amazon Route 53 omits the @TrafficPolicyVersionMarker@ element from the response.------     * __MaxItems__------ The value that you specified for the @MaxItems@ parameter in the request that produced the current response.------+-- Traffic policy versions are listed in numerical order by @VersionNumber@ . -- module Network.AWS.Route53.ListTrafficPolicyVersions     (@@ -66,12 +44,12 @@     , ltpvrsMaxItems     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains the information about the request to list your traffic policies. --@@ -79,35 +57,37 @@ -- -- /See:/ 'listTrafficPolicyVersions' smart constructor. data ListTrafficPolicyVersions = ListTrafficPolicyVersions'-    { _ltpvMaxItems                   :: !(Maybe Text)-    , _ltpvTrafficPolicyVersionMarker :: !(Maybe Text)-    , _ltpvId                         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpvMaxItems                   :: !(Maybe Text)+  , _ltpvTrafficPolicyVersionMarker :: !(Maybe Text)+  , _ltpvId                         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltpvMaxItems' - The maximum number of traffic policy versions that you want Amazon Route 53 to include in the response body for this request. If the specified traffic policy has more than @MaxItems@ versions, the value of the @IsTruncated@ element in the response is @true@ , and the value of the @TrafficPolicyVersionMarker@ element is the ID of the first version in the next group of @MaxItems@ traffic policy versions.+-- * 'ltpvMaxItems' - The maximum number of traffic policy versions that you want Amazon Route 53 to include in the response body for this request. If the specified traffic policy has more than @MaxItems@ versions, the value of @IsTruncated@ in the response is @true@ , and the value of the @TrafficPolicyVersionMarker@ element is the ID of the first version that Amazon Route 53 will return if you submit another request. ----- * 'ltpvTrafficPolicyVersionMarker' - For your first request to @ListTrafficPolicyVersions@ , do not include the @TrafficPolicyVersionMarker@ parameter. If you have more traffic policy versions than the value of @MaxItems@ , @ListTrafficPolicyVersions@ returns only the first group of @MaxItems@ versions. To get the next group of @MaxItems@ traffic policy versions, submit another request to @ListTrafficPolicyVersions@ . For the value of @TrafficPolicyVersionMarker@ , specify the value of the @TrafficPolicyVersionMarker@ element that was returned in the previous response. Traffic policy versions are listed in sequential order.+-- * 'ltpvTrafficPolicyVersionMarker' - For your first request to @ListTrafficPolicyVersions@ , don't include the @TrafficPolicyVersionMarker@ parameter. If you have more traffic policy versions than the value of @MaxItems@ , @ListTrafficPolicyVersions@ returns only the first group of @MaxItems@ versions. To get more traffic policy versions, submit another @ListTrafficPolicyVersions@ request. For the value of @TrafficPolicyVersionMarker@ , specify the value of @TrafficPolicyVersionMarker@ in the previous response. -- -- * 'ltpvId' - Specify the value of @Id@ of the traffic policy for which you want to list all versions. listTrafficPolicyVersions     :: Text -- ^ 'ltpvId'     -> ListTrafficPolicyVersions listTrafficPolicyVersions pId_ =-    ListTrafficPolicyVersions'-    { _ltpvMaxItems = Nothing-    , _ltpvTrafficPolicyVersionMarker = Nothing-    , _ltpvId = pId_-    }+  ListTrafficPolicyVersions'+  { _ltpvMaxItems = Nothing+  , _ltpvTrafficPolicyVersionMarker = Nothing+  , _ltpvId = pId_+  } --- | The maximum number of traffic policy versions that you want Amazon Route 53 to include in the response body for this request. If the specified traffic policy has more than @MaxItems@ versions, the value of the @IsTruncated@ element in the response is @true@ , and the value of the @TrafficPolicyVersionMarker@ element is the ID of the first version in the next group of @MaxItems@ traffic policy versions.++-- | The maximum number of traffic policy versions that you want Amazon Route 53 to include in the response body for this request. If the specified traffic policy has more than @MaxItems@ versions, the value of @IsTruncated@ in the response is @true@ , and the value of the @TrafficPolicyVersionMarker@ element is the ID of the first version that Amazon Route 53 will return if you submit another request. ltpvMaxItems :: Lens' ListTrafficPolicyVersions (Maybe Text) ltpvMaxItems = lens _ltpvMaxItems (\ s a -> s{_ltpvMaxItems = a}); --- | For your first request to @ListTrafficPolicyVersions@ , do not include the @TrafficPolicyVersionMarker@ parameter. If you have more traffic policy versions than the value of @MaxItems@ , @ListTrafficPolicyVersions@ returns only the first group of @MaxItems@ versions. To get the next group of @MaxItems@ traffic policy versions, submit another request to @ListTrafficPolicyVersions@ . For the value of @TrafficPolicyVersionMarker@ , specify the value of the @TrafficPolicyVersionMarker@ element that was returned in the previous response. Traffic policy versions are listed in sequential order.+-- | For your first request to @ListTrafficPolicyVersions@ , don't include the @TrafficPolicyVersionMarker@ parameter. If you have more traffic policy versions than the value of @MaxItems@ , @ListTrafficPolicyVersions@ returns only the first group of @MaxItems@ versions. To get more traffic policy versions, submit another @ListTrafficPolicyVersions@ request. For the value of @TrafficPolicyVersionMarker@ , specify the value of @TrafficPolicyVersionMarker@ in the previous response. ltpvTrafficPolicyVersionMarker :: Lens' ListTrafficPolicyVersions (Maybe Text) ltpvTrafficPolicyVersionMarker = lens _ltpvTrafficPolicyVersionMarker (\ s a -> s{_ltpvTrafficPolicyVersionMarker = a}); @@ -130,9 +110,9 @@                      <*> (x .@ "TrafficPolicyVersionMarker")                      <*> (x .@ "MaxItems")) -instance Hashable ListTrafficPolicyVersions+instance Hashable ListTrafficPolicyVersions where -instance NFData ListTrafficPolicyVersions+instance NFData ListTrafficPolicyVersions where  instance ToHeaders ListTrafficPolicyVersions where         toHeaders = const mempty@@ -156,13 +136,14 @@ -- -- /See:/ 'listTrafficPolicyVersionsResponse' smart constructor. data ListTrafficPolicyVersionsResponse = ListTrafficPolicyVersionsResponse'-    { _ltpvrsResponseStatus             :: !Int-    , _ltpvrsTrafficPolicies            :: ![TrafficPolicy]-    , _ltpvrsIsTruncated                :: !Bool-    , _ltpvrsTrafficPolicyVersionMarker :: !Text-    , _ltpvrsMaxItems                   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltpvrsResponseStatus             :: !Int+  , _ltpvrsTrafficPolicies            :: ![TrafficPolicy]+  , _ltpvrsIsTruncated                :: !Bool+  , _ltpvrsTrafficPolicyVersionMarker :: !Text+  , _ltpvrsMaxItems                   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTrafficPolicyVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,11 +152,11 @@ -- -- * 'ltpvrsTrafficPolicies' - A list that contains one @TrafficPolicy@ element for each traffic policy version that is associated with the specified traffic policy. ----- * 'ltpvrsIsTruncated' - A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of @maxitems@ traffic policies by calling @ListTrafficPolicyVersions@ again and specifying the value of the @NextMarker@ element in the @marker@ parameter.+-- * 'ltpvrsIsTruncated' - A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of traffic policies by submitting another @ListTrafficPolicyVersions@ request and specifying the value of @NextMarker@ in the @marker@ parameter. ----- * 'ltpvrsTrafficPolicyVersionMarker' - If @IsTruncated@ is @true@ , the value of @TrafficPolicyVersionMarker@ identifies the first traffic policy in the next group of @MaxItems@ traffic policies. Call @ListTrafficPolicyVersions@ again and specify the value of @TrafficPolicyVersionMarker@ in the @TrafficPolicyVersionMarker@ request parameter. This element is present only if @IsTruncated@ is @true@ .+-- * 'ltpvrsTrafficPolicyVersionMarker' - If @IsTruncated@ is @true@ , the value of @TrafficPolicyVersionMarker@ identifies the first traffic policy that Amazon Route 53 will return if you submit another request. Call @ListTrafficPolicyVersions@ again and specify the value of @TrafficPolicyVersionMarker@ in the @TrafficPolicyVersionMarker@ request parameter. This element is present only if @IsTruncated@ is @true@ . ----- * 'ltpvrsMaxItems' - The value that you specified for the @maxitems@ parameter in the call to @ListTrafficPolicyVersions@ that produced the current response.+-- * 'ltpvrsMaxItems' - The value that you specified for the @maxitems@ parameter in the @ListTrafficPolicyVersions@ request that produced the current response. listTrafficPolicyVersionsResponse     :: Int -- ^ 'ltpvrsResponseStatus'     -> Bool -- ^ 'ltpvrsIsTruncated'@@ -183,14 +164,15 @@     -> Text -- ^ 'ltpvrsMaxItems'     -> ListTrafficPolicyVersionsResponse listTrafficPolicyVersionsResponse pResponseStatus_ pIsTruncated_ pTrafficPolicyVersionMarker_ pMaxItems_ =-    ListTrafficPolicyVersionsResponse'-    { _ltpvrsResponseStatus = pResponseStatus_-    , _ltpvrsTrafficPolicies = mempty-    , _ltpvrsIsTruncated = pIsTruncated_-    , _ltpvrsTrafficPolicyVersionMarker = pTrafficPolicyVersionMarker_-    , _ltpvrsMaxItems = pMaxItems_-    }+  ListTrafficPolicyVersionsResponse'+  { _ltpvrsResponseStatus = pResponseStatus_+  , _ltpvrsTrafficPolicies = mempty+  , _ltpvrsIsTruncated = pIsTruncated_+  , _ltpvrsTrafficPolicyVersionMarker = pTrafficPolicyVersionMarker_+  , _ltpvrsMaxItems = pMaxItems_+  } + -- | -- | The response status code. ltpvrsResponseStatus :: Lens' ListTrafficPolicyVersionsResponse Int ltpvrsResponseStatus = lens _ltpvrsResponseStatus (\ s a -> s{_ltpvrsResponseStatus = a});@@ -199,16 +181,17 @@ ltpvrsTrafficPolicies :: Lens' ListTrafficPolicyVersionsResponse [TrafficPolicy] ltpvrsTrafficPolicies = lens _ltpvrsTrafficPolicies (\ s a -> s{_ltpvrsTrafficPolicies = a}) . _Coerce; --- | A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of @maxitems@ traffic policies by calling @ListTrafficPolicyVersions@ again and specifying the value of the @NextMarker@ element in the @marker@ parameter.+-- | A flag that indicates whether there are more traffic policies to be listed. If the response was truncated, you can get the next group of traffic policies by submitting another @ListTrafficPolicyVersions@ request and specifying the value of @NextMarker@ in the @marker@ parameter. ltpvrsIsTruncated :: Lens' ListTrafficPolicyVersionsResponse Bool ltpvrsIsTruncated = lens _ltpvrsIsTruncated (\ s a -> s{_ltpvrsIsTruncated = a}); --- | If @IsTruncated@ is @true@ , the value of @TrafficPolicyVersionMarker@ identifies the first traffic policy in the next group of @MaxItems@ traffic policies. Call @ListTrafficPolicyVersions@ again and specify the value of @TrafficPolicyVersionMarker@ in the @TrafficPolicyVersionMarker@ request parameter. This element is present only if @IsTruncated@ is @true@ .+-- | If @IsTruncated@ is @true@ , the value of @TrafficPolicyVersionMarker@ identifies the first traffic policy that Amazon Route 53 will return if you submit another request. Call @ListTrafficPolicyVersions@ again and specify the value of @TrafficPolicyVersionMarker@ in the @TrafficPolicyVersionMarker@ request parameter. This element is present only if @IsTruncated@ is @true@ . ltpvrsTrafficPolicyVersionMarker :: Lens' ListTrafficPolicyVersionsResponse Text ltpvrsTrafficPolicyVersionMarker = lens _ltpvrsTrafficPolicyVersionMarker (\ s a -> s{_ltpvrsTrafficPolicyVersionMarker = a}); --- | The value that you specified for the @maxitems@ parameter in the call to @ListTrafficPolicyVersions@ that produced the current response.+-- | The value that you specified for the @maxitems@ parameter in the @ListTrafficPolicyVersions@ request that produced the current response. ltpvrsMaxItems :: Lens' ListTrafficPolicyVersionsResponse Text ltpvrsMaxItems = lens _ltpvrsMaxItems (\ s a -> s{_ltpvrsMaxItems = a});  instance NFData ListTrafficPolicyVersionsResponse+         where

@@ -12,24 +12,16 @@  -- | -- Module      : Network.AWS.Route53.ListVPCAssociationAuthorizations--- 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 a list of the VPCs that were created by other accounts and that can be associated with a specified hosted zone because you've submitted one or more @CreateVPCAssociationAuthorization@ requests. -- ----- Send a @GET@ request to the @/2013-04-01/hostedzone//hosted zone ID/ /authorizevpcassociation@ resource. The response to this request includes a @VPCs@ element with a @VPC@ child element for each VPC that can be associated with the hosted zone.------ Amazon Route 53 returns up to 50 VPCs per page. To return fewer VPCs per page, include the @MaxResults@ parameter:------ @/2013-04-01/hostedzone//hosted zone ID/ /authorizevpcassociation?MaxItems=/VPCs per page/ @------ If the response includes a @NextToken@ element, there are more VPCs to list. To get the next page of VPCs, submit another @ListVPCAssociationAuthorizations@ request, and include the value of the @NextToken@ element from the response in the @NextToken@ request parameter:------ @/2013-04-01/hostedzone//hosted zone ID/ /authorizevpcassociation?MaxItems=/VPCs per page/ &NextToken=// @+-- The response includes a @VPCs@ element with a @VPC@ child element for each VPC that can be associated with the hosted zone. -- module Network.AWS.Route53.ListVPCAssociationAuthorizations     (@@ -51,12 +43,12 @@     , lvaarsVPCs     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53.Types-import           Network.AWS.Route53.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53.Types+import Network.AWS.Route53.Types.Product  -- | A complex type that contains information about that can be associated with your hosted zone. --@@ -64,35 +56,37 @@ -- -- /See:/ 'listVPCAssociationAuthorizations' smart constructor. data ListVPCAssociationAuthorizations = ListVPCAssociationAuthorizations'-    { _lvaaNextToken    :: !(Maybe Text)-    , _lvaaMaxResults   :: !(Maybe Text)-    , _lvaaHostedZoneId :: !ResourceId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvaaNextToken    :: !(Maybe Text)+  , _lvaaMaxResults   :: !(Maybe Text)+  , _lvaaHostedZoneId :: !ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVPCAssociationAuthorizations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lvaaNextToken' - /Optional/ : If a response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of results, submit another request, and include the value of the @NextToken@ element in from the response in the @NextToken@ parameter in another @ListVPCAssociationAuthorizations@ request.+-- * 'lvaaNextToken' - /Optional/ : If a response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of results, submit another request, and include the value of @NextToken@ from the response in the @nexttoken@ parameter in another @ListVPCAssociationAuthorizations@ request. ----- * 'lvaaMaxResults' - /Optional/ : An integer that specifies the maximum number of VPCs that you want Amazon Route 53 to return.+-- * 'lvaaMaxResults' - /Optional/ : An integer that specifies the maximum number of VPCs that you want Amazon Route 53 to return. If you don't specify a value for @MaxResults@ , Amazon Route 53 returns up to 50 VPCs per page. -- -- * 'lvaaHostedZoneId' - The ID of the hosted zone for which you want a list of VPCs that can be associated with the hosted zone. listVPCAssociationAuthorizations     :: ResourceId -- ^ 'lvaaHostedZoneId'     -> ListVPCAssociationAuthorizations listVPCAssociationAuthorizations pHostedZoneId_ =-    ListVPCAssociationAuthorizations'-    { _lvaaNextToken = Nothing-    , _lvaaMaxResults = Nothing-    , _lvaaHostedZoneId = pHostedZoneId_-    }+  ListVPCAssociationAuthorizations'+  { _lvaaNextToken = Nothing+  , _lvaaMaxResults = Nothing+  , _lvaaHostedZoneId = pHostedZoneId_+  } --- | /Optional/ : If a response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of results, submit another request, and include the value of the @NextToken@ element in from the response in the @NextToken@ parameter in another @ListVPCAssociationAuthorizations@ request.++-- | /Optional/ : If a response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of results, submit another request, and include the value of @NextToken@ from the response in the @nexttoken@ parameter in another @ListVPCAssociationAuthorizations@ request. lvaaNextToken :: Lens' ListVPCAssociationAuthorizations (Maybe Text) lvaaNextToken = lens _lvaaNextToken (\ s a -> s{_lvaaNextToken = a}); --- | /Optional/ : An integer that specifies the maximum number of VPCs that you want Amazon Route 53 to return.+-- | /Optional/ : An integer that specifies the maximum number of VPCs that you want Amazon Route 53 to return. If you don't specify a value for @MaxResults@ , Amazon Route 53 returns up to 50 VPCs per page. lvaaMaxResults :: Lens' ListVPCAssociationAuthorizations (Maybe Text) lvaaMaxResults = lens _lvaaMaxResults (\ s a -> s{_lvaaMaxResults = a}); @@ -115,8 +109,10 @@                      (x .@? "VPCs" .!@ mempty >>= parseXMLList1 "VPC"))  instance Hashable ListVPCAssociationAuthorizations+         where  instance NFData ListVPCAssociationAuthorizations+         where  instance ToHeaders ListVPCAssociationAuthorizations          where@@ -142,17 +138,18 @@ -- -- /See:/ 'listVPCAssociationAuthorizationsResponse' smart constructor. data ListVPCAssociationAuthorizationsResponse = ListVPCAssociationAuthorizationsResponse'-    { _lvaarsNextToken      :: !(Maybe Text)-    , _lvaarsResponseStatus :: !Int-    , _lvaarsHostedZoneId   :: !ResourceId-    , _lvaarsVPCs           :: !(List1 VPC)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvaarsNextToken      :: !(Maybe Text)+  , _lvaarsResponseStatus :: !Int+  , _lvaarsHostedZoneId   :: !ResourceId+  , _lvaarsVPCs           :: !(List1 VPC)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVPCAssociationAuthorizationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lvaarsNextToken' - When the response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of VPCs, submit another @ListVPCAssociationAuthorizations@ request, and include the value of the @NextToken@ element from the response in the @NextToken@ request parameter: @/2013-04-01/hostedzone//hosted zone ID/ /authorizevpcassociation?MaxItems=/VPCs per page/ &NextToken=// @+-- * 'lvaarsNextToken' - When the response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of VPCs, submit another @ListVPCAssociationAuthorizations@ request, and include the value of the @NextToken@ element from the response in the @nexttoken@ request parameter. -- -- * 'lvaarsResponseStatus' - -- | The response status code. --@@ -165,14 +162,15 @@     -> NonEmpty VPC -- ^ 'lvaarsVPCs'     -> ListVPCAssociationAuthorizationsResponse listVPCAssociationAuthorizationsResponse pResponseStatus_ pHostedZoneId_ pVPCs_ =-    ListVPCAssociationAuthorizationsResponse'-    { _lvaarsNextToken = Nothing-    , _lvaarsResponseStatus = pResponseStatus_-    , _lvaarsHostedZoneId = pHostedZoneId_-    , _lvaarsVPCs = _List1 # pVPCs_-    }+  ListVPCAssociationAuthorizationsResponse'+  { _lvaarsNextToken = Nothing+  , _lvaarsResponseStatus = pResponseStatus_+  , _lvaarsHostedZoneId = pHostedZoneId_+  , _lvaarsVPCs = _List1 # pVPCs_+  } --- | When the response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of VPCs, submit another @ListVPCAssociationAuthorizations@ request, and include the value of the @NextToken@ element from the response in the @NextToken@ request parameter: @/2013-04-01/hostedzone//hosted zone ID/ /authorizevpcassociation?MaxItems=/VPCs per page/ &NextToken=// @++-- | When the response includes a @NextToken@ element, there are more VPCs that can be associated with the specified hosted zone. To get the next page of VPCs, submit another @ListVPCAssociationAuthorizations@ request, and include the value of the @NextToken@ element from the response in the @nexttoken@ request parameter. lvaarsNextToken :: Lens' ListVPCAssociationAuthorizationsResponse (Maybe Text) lvaarsNextToken = lens _lvaarsNextToken (\ s a -> s{_lvaarsNextToken = a}); @@ -189,4 +187,5 @@ lvaarsVPCs = lens _lvaarsVPCs (\ s a -> s{_lvaarsVPCs = a}) . _List1;  instance NFData-         ListVPCAssociationAuthorizationsResponse+           ListVPCAssociationAuthorizationsResponse+         where