amazonka-route53 1.5.0 → 1.6.0

raw patch · 74 files changed

+1966/−949 lines, 74 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53.cabal +8/−5
• fixture/GetAccountLimit.yaml +10/−0
• fixture/GetAccountLimitResponse.proto +0/−0
• fixture/GetHostedZoneLimit.yaml +10/−0
• fixture/GetHostedZoneLimitResponse.proto +0/−0
• fixture/GetReusableDelegationSetLimit.yaml +10/−0
• fixture/GetReusableDelegationSetLimitResponse.proto +0/−0
• gen/Network/AWS/Route53.hs +54/−1
• gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +13/−11
• gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +7/−7
• gen/Network/AWS/Route53/ChangeTagsForResource.hs +11/−11
• gen/Network/AWS/Route53/CreateHealthCheck.hs +13/−13
• gen/Network/AWS/Route53/CreateHostedZone.hs +25/−25
• gen/Network/AWS/Route53/CreateQueryLoggingConfig.hs +14/−14
• gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +39/−13
• gen/Network/AWS/Route53/CreateTrafficPolicy.hs +12/−12
• gen/Network/AWS/Route53/CreateTrafficPolicyInstance.hs +19/−19
• gen/Network/AWS/Route53/CreateTrafficPolicyVersion.hs +12/−12
• gen/Network/AWS/Route53/CreateVPCAssociationAuthorization.hs +11/−11
• gen/Network/AWS/Route53/DeleteHealthCheck.hs +3/−3
• gen/Network/AWS/Route53/DeleteHostedZone.hs +5/−5
• gen/Network/AWS/Route53/DeleteQueryLoggingConfig.hs +3/−3
• gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +4/−4
• gen/Network/AWS/Route53/DeleteTrafficPolicy.hs +4/−4
• gen/Network/AWS/Route53/DeleteTrafficPolicyInstance.hs +4/−4
• gen/Network/AWS/Route53/DeleteVPCAssociationAuthorization.hs +6/−6
• gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +13/−11
• gen/Network/AWS/Route53/GetAccountLimit.hs +146/−0
• gen/Network/AWS/Route53/GetChange.hs +5/−5
• gen/Network/AWS/Route53/GetCheckerIPRanges.hs +4/−4
• gen/Network/AWS/Route53/GetGeoLocation.hs +13/−13
• gen/Network/AWS/Route53/GetHealthCheck.hs +5/−5
• gen/Network/AWS/Route53/GetHealthCheckCount.hs +6/−6
• gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +7/−7
• gen/Network/AWS/Route53/GetHealthCheckStatus.hs +7/−7
• gen/Network/AWS/Route53/GetHostedZone.hs +11/−11
• gen/Network/AWS/Route53/GetHostedZoneCount.hs +6/−6
• gen/Network/AWS/Route53/GetHostedZoneLimit.hs +158/−0
• gen/Network/AWS/Route53/GetQueryLoggingConfig.hs +7/−7
• gen/Network/AWS/Route53/GetReusableDelegationSet.hs +7/−7
• gen/Network/AWS/Route53/GetReusableDelegationSetLimit.hs +162/−0
• gen/Network/AWS/Route53/GetTrafficPolicy.hs +8/−8
• gen/Network/AWS/Route53/GetTrafficPolicyInstance.hs +7/−7
• gen/Network/AWS/Route53/GetTrafficPolicyInstanceCount.hs +6/−6
• gen/Network/AWS/Route53/ListGeoLocations.hs +25/−25
• gen/Network/AWS/Route53/ListHealthChecks.hs +16/−16
• gen/Network/AWS/Route53/ListHostedZones.hs +21/−18
• gen/Network/AWS/Route53/ListHostedZonesByName.hs +25/−25
• gen/Network/AWS/Route53/ListQueryLoggingConfigs.hs +15/−15
• gen/Network/AWS/Route53/ListResourceRecordSets.hs +27/−27
• gen/Network/AWS/Route53/ListReusableDelegationSets.hs +16/−16
• gen/Network/AWS/Route53/ListTagsForResource.hs +9/−9
• gen/Network/AWS/Route53/ListTagsForResources.hs +7/−7
• gen/Network/AWS/Route53/ListTrafficPolicies.hs +15/−15
• gen/Network/AWS/Route53/ListTrafficPolicyInstances.hs +25/−25
• gen/Network/AWS/Route53/ListTrafficPolicyInstancesByHostedZone.hs +23/−23
• gen/Network/AWS/Route53/ListTrafficPolicyInstancesByPolicy.hs +29/−29
• gen/Network/AWS/Route53/ListTrafficPolicyVersions.hs +19/−19
• gen/Network/AWS/Route53/ListVPCAssociationAuthorizations.hs +17/−17
• gen/Network/AWS/Route53/TestDNSAnswer.hs +29/−29
• gen/Network/AWS/Route53/Types.hs +105/−22
• gen/Network/AWS/Route53/Types/Product.hs +414/−227
• gen/Network/AWS/Route53/Types/Sum.hs +111/−3
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +39/−39
• gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +6/−6
• gen/Network/AWS/Route53/UpdateTrafficPolicyComment.hs +10/−10
• gen/Network/AWS/Route53/UpdateTrafficPolicyInstance.hs +15/−15
• gen/Network/AWS/Route53/Waiters.hs +11/−11
• src/Network/AWS/Route53/Internal.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/Route53.hs +57/−3
• test/Test/AWS/Route53.hs +1/−1
• test/Test/AWS/Route53/Internal.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-route53-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Route 53 SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -64,6 +64,7 @@         , Network.AWS.Route53.DeleteTrafficPolicyInstance         , Network.AWS.Route53.DeleteVPCAssociationAuthorization         , Network.AWS.Route53.DisassociateVPCFromHostedZone+        , Network.AWS.Route53.GetAccountLimit         , Network.AWS.Route53.GetChange         , Network.AWS.Route53.GetCheckerIPRanges         , Network.AWS.Route53.GetGeoLocation@@ -73,8 +74,10 @@         , Network.AWS.Route53.GetHealthCheckStatus         , Network.AWS.Route53.GetHostedZone         , Network.AWS.Route53.GetHostedZoneCount+        , Network.AWS.Route53.GetHostedZoneLimit         , Network.AWS.Route53.GetQueryLoggingConfig         , Network.AWS.Route53.GetReusableDelegationSet+        , Network.AWS.Route53.GetReusableDelegationSetLimit         , Network.AWS.Route53.GetTrafficPolicy         , Network.AWS.Route53.GetTrafficPolicyInstance         , Network.AWS.Route53.GetTrafficPolicyInstanceCount@@ -107,7 +110,7 @@         , Network.AWS.Route53.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5         , text >= 1.1 @@ -128,8 +131,8 @@         , Test.AWS.Route53.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-route53         , base         , bytestring

@@ -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:+  ''

@@ -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,7 +5,7 @@  -- | -- Module      : Network.AWS.Route53--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -26,6 +26,9 @@     -- ** NoSuchQueryLoggingConfig     , _NoSuchQueryLoggingConfig +    -- ** HostedZoneNotPrivate+    , _HostedZoneNotPrivate+     -- ** InvalidInput     , _InvalidInput @@ -167,6 +170,9 @@     -- ** HostedZoneAlreadyExists     , _HostedZoneAlreadyExists +    -- ** TooManyTrafficPolicyVersionsForCurrentPolicy+    , _TooManyTrafficPolicyVersionsForCurrentPolicy+     -- * Waiters     -- $waiters @@ -176,6 +182,9 @@     -- * Operations     -- $operations +    -- ** GetHostedZoneLimit+    , module Network.AWS.Route53.GetHostedZoneLimit+     -- ** AssociateVPCWithHostedZone     , module Network.AWS.Route53.AssociateVPCWithHostedZone @@ -281,6 +290,9 @@     -- ** GetHostedZoneCount     , module Network.AWS.Route53.GetHostedZoneCount +    -- ** GetAccountLimit+    , module Network.AWS.Route53.GetAccountLimit+     -- ** DeleteQueryLoggingConfig     , module Network.AWS.Route53.DeleteQueryLoggingConfig @@ -302,6 +314,9 @@     -- ** GetHealthCheckStatus     , module Network.AWS.Route53.GetHealthCheckStatus +    -- ** GetReusableDelegationSetLimit+    , module Network.AWS.Route53.GetReusableDelegationSetLimit+     -- ** CreateTrafficPolicyVersion     , module Network.AWS.Route53.CreateTrafficPolicyVersion @@ -340,6 +355,9 @@     -- ** Common     , module Network.AWS.Route53.Internal +    -- ** AccountLimitType+    , AccountLimitType (..)+     -- ** ChangeAction     , ChangeAction (..) @@ -361,6 +379,9 @@     -- ** HealthCheckType     , HealthCheckType (..) +    -- ** HostedZoneLimitType+    , HostedZoneLimitType (..)+     -- ** InsufficientDataHealthStatus     , InsufficientDataHealthStatus (..) @@ -370,6 +391,9 @@     -- ** ResettableElementName     , ResettableElementName (..) +    -- ** ReusableDelegationSetLimitType+    , ReusableDelegationSetLimitType (..)+     -- ** Statistic     , Statistic (..) @@ -379,6 +403,12 @@     -- ** VPCRegion     , VPCRegion (..) +    -- ** AccountLimit+    , AccountLimit+    , accountLimit+    , alType+    , alValue+     -- ** AlarmIdentifier     , AlarmIdentifier     , alarmIdentifier@@ -457,6 +487,7 @@     -- ** HealthCheck     , HealthCheck     , healthCheck+    , hcLinkedService     , hcCloudWatchAlarmConfiguration     , hcId     , hcCallerReference@@ -493,6 +524,7 @@     -- ** HostedZone     , HostedZone     , hostedZone+    , hzLinkedService     , hzConfig     , hzResourceRecordSetCount     , hzId@@ -505,6 +537,18 @@     , hzcPrivateZone     , hzcComment +    -- ** HostedZoneLimit+    , HostedZoneLimit+    , hostedZoneLimit+    , hzlType+    , hzlValue++    -- ** LinkedService+    , LinkedService+    , linkedService+    , lsServicePrincipal+    , lsDescription+     -- ** QueryLoggingConfig     , QueryLoggingConfig     , queryLoggingConfig@@ -541,6 +585,12 @@     , rtsResourceType     , rtsTags +    -- ** ReusableDelegationSetLimit+    , ReusableDelegationSetLimit+    , reusableDelegationSetLimit+    , rdslType+    , rdslValue+     -- ** StatusReport     , StatusReport     , statusReport@@ -611,6 +661,7 @@ import Network.AWS.Route53.DeleteTrafficPolicyInstance import Network.AWS.Route53.DeleteVPCAssociationAuthorization import Network.AWS.Route53.DisassociateVPCFromHostedZone+import Network.AWS.Route53.GetAccountLimit import Network.AWS.Route53.GetChange import Network.AWS.Route53.GetCheckerIPRanges import Network.AWS.Route53.GetGeoLocation@@ -620,8 +671,10 @@ import Network.AWS.Route53.GetHealthCheckStatus import Network.AWS.Route53.GetHostedZone import Network.AWS.Route53.GetHostedZoneCount+import Network.AWS.Route53.GetHostedZoneLimit import Network.AWS.Route53.GetQueryLoggingConfig import Network.AWS.Route53.GetReusableDelegationSet+import Network.AWS.Route53.GetReusableDelegationSetLimit import Network.AWS.Route53.GetTrafficPolicy import Network.AWS.Route53.GetTrafficPolicyInstance import Network.AWS.Route53.GetTrafficPolicyInstanceCount

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.AssociateVPCWithHostedZone--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> AssociateVPCWithHostedZone associateVPCWithHostedZone pHostedZoneId_ pVPC_ =   AssociateVPCWithHostedZone'-  { _avwhzComment = Nothing-  , _avwhzHostedZoneId = pHostedZoneId_-  , _avwhzVPC = pVPC_-  }+    { _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});+avwhzComment = lens _avwhzComment (\ s a -> s{_avwhzComment = a})  -- | The ID of the private hosted zone that you want to associate an Amazon VPC with. Note that you can't associate a VPC with a hosted zone that doesn't have an existing VPC association. avwhzHostedZoneId :: Lens' AssociateVPCWithHostedZone ResourceId-avwhzHostedZoneId = lens _avwhzHostedZoneId (\ s a -> s{_avwhzHostedZoneId = a});+avwhzHostedZoneId = lens _avwhzHostedZoneId (\ s a -> s{_avwhzHostedZoneId = a})  -- | A complex type that contains information about the VPC that you want to associate with a private hosted zone. avwhzVPC :: Lens' AssociateVPCWithHostedZone VPC-avwhzVPC = lens _avwhzVPC (\ s a -> s{_avwhzVPC = a});+avwhzVPC = lens _avwhzVPC (\ s a -> s{_avwhzVPC = a})  instance AWSRequest AssociateVPCWithHostedZone where         type Rs AssociateVPCWithHostedZone =@@ -153,16 +153,18 @@     -> AssociateVPCWithHostedZoneResponse associateVPCWithHostedZoneResponse pResponseStatus_ pChangeInfo_ =   AssociateVPCWithHostedZoneResponse'-  {_avwhzrsResponseStatus = pResponseStatus_, _avwhzrsChangeInfo = pChangeInfo_}+    { _avwhzrsResponseStatus = pResponseStatus_+    , _avwhzrsChangeInfo = pChangeInfo_+    }   -- | -- | The response status code. avwhzrsResponseStatus :: Lens' AssociateVPCWithHostedZoneResponse Int-avwhzrsResponseStatus = lens _avwhzrsResponseStatus (\ s a -> s{_avwhzrsResponseStatus = a});+avwhzrsResponseStatus = lens _avwhzrsResponseStatus (\ s a -> s{_avwhzrsResponseStatus = a})  -- | A complex type that describes the changes made to your hosted zone. avwhzrsChangeInfo :: Lens' AssociateVPCWithHostedZoneResponse ChangeInfo-avwhzrsChangeInfo = lens _avwhzrsChangeInfo (\ s a -> s{_avwhzrsChangeInfo = a});+avwhzrsChangeInfo = lens _avwhzrsChangeInfo (\ s a -> s{_avwhzrsChangeInfo = a})  instance NFData AssociateVPCWithHostedZoneResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ChangeResourceRecordSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -109,16 +109,16 @@     -> ChangeResourceRecordSets changeResourceRecordSets pHostedZoneId_ pChangeBatch_ =   ChangeResourceRecordSets'-  {_crrsHostedZoneId = pHostedZoneId_, _crrsChangeBatch = pChangeBatch_}+    {_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});+crrsHostedZoneId = lens _crrsHostedZoneId (\ s a -> s{_crrsHostedZoneId = a})  -- | A complex type that contains an optional comment and the @Changes@ element. crrsChangeBatch :: Lens' ChangeResourceRecordSets ChangeBatch-crrsChangeBatch = lens _crrsChangeBatch (\ s a -> s{_crrsChangeBatch = a});+crrsChangeBatch = lens _crrsChangeBatch (\ s a -> s{_crrsChangeBatch = a})  instance AWSRequest ChangeResourceRecordSets where         type Rs ChangeResourceRecordSets =@@ -179,16 +179,16 @@     -> ChangeResourceRecordSetsResponse changeResourceRecordSetsResponse pResponseStatus_ pChangeInfo_ =   ChangeResourceRecordSetsResponse'-  {_crrsrsResponseStatus = pResponseStatus_, _crrsrsChangeInfo = pChangeInfo_}+    {_crrsrsResponseStatus = pResponseStatus_, _crrsrsChangeInfo = pChangeInfo_}   -- | -- | The response status code. crrsrsResponseStatus :: Lens' ChangeResourceRecordSetsResponse Int-crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a});+crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a})  -- | A complex type that contains information about changes made to your hosted zone. This element contains an ID that you use when performing a 'GetChange' action to get detailed information about the change. crrsrsChangeInfo :: Lens' ChangeResourceRecordSetsResponse ChangeInfo-crrsrsChangeInfo = lens _crrsrsChangeInfo (\ s a -> s{_crrsrsChangeInfo = a});+crrsrsChangeInfo = lens _crrsrsChangeInfo (\ s a -> s{_crrsrsChangeInfo = a})  instance NFData ChangeResourceRecordSetsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ChangeTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,28 +78,28 @@     -> ChangeTagsForResource changeTagsForResource pResourceType_ pResourceId_ =   ChangeTagsForResource'-  { _ctfrRemoveTagKeys = Nothing-  , _ctfrAddTags = Nothing-  , _ctfrResourceType = pResourceType_-  , _ctfrResourceId = pResourceId_-  }+    { _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;+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 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;+ctfrAddTags = lens _ctfrAddTags (\ s a -> s{_ctfrAddTags = a}) . mapping _List1  -- | The type of the resource.     * The resource type for health checks is @healthcheck@ .     * The resource type for hosted zones is @hostedzone@ . ctfrResourceType :: Lens' ChangeTagsForResource TagResourceType-ctfrResourceType = lens _ctfrResourceType (\ s a -> s{_ctfrResourceType = a});+ctfrResourceType = lens _ctfrResourceType (\ s a -> s{_ctfrResourceType = a})  -- | The ID of the resource for which you want to add, change, or delete tags. ctfrResourceId :: Lens' ChangeTagsForResource Text-ctfrResourceId = lens _ctfrResourceId (\ s a -> s{_ctfrResourceId = a});+ctfrResourceId = lens _ctfrResourceId (\ s a -> s{_ctfrResourceId = a})  instance AWSRequest ChangeTagsForResource where         type Rs ChangeTagsForResource =@@ -164,6 +164,6 @@  -- | -- | The response status code. ctfrrsResponseStatus :: Lens' ChangeTagsForResourceResponse Int-ctfrrsResponseStatus = lens _ctfrrsResponseStatus (\ s a -> s{_ctfrrsResponseStatus = a});+ctfrrsResponseStatus = lens _ctfrrsResponseStatus (\ s a -> s{_ctfrrsResponseStatus = a})  instance NFData ChangeTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateHealthCheck--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -88,18 +88,18 @@     -> CreateHealthCheck createHealthCheck pCallerReference_ pHealthCheckConfig_ =   CreateHealthCheck'-  { _chcCallerReference = pCallerReference_-  , _chcHealthCheckConfig = pHealthCheckConfig_-  }+    { _chcCallerReference = pCallerReference_+    , _chcHealthCheckConfig = pHealthCheckConfig_+    }   -- | 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});+chcCallerReference = lens _chcCallerReference (\ s a -> s{_chcCallerReference = a})  -- | A complex type that contains the response to a @CreateHealthCheck@ request. chcHealthCheckConfig :: Lens' CreateHealthCheck HealthCheckConfig-chcHealthCheckConfig = lens _chcHealthCheckConfig (\ s a -> s{_chcHealthCheckConfig = a});+chcHealthCheckConfig = lens _chcHealthCheckConfig (\ s a -> s{_chcHealthCheckConfig = a})  instance AWSRequest CreateHealthCheck where         type Rs CreateHealthCheck = CreateHealthCheckResponse@@ -163,22 +163,22 @@     -> CreateHealthCheckResponse createHealthCheckResponse pResponseStatus_ pHealthCheck_ pLocation_ =   CreateHealthCheckResponse'-  { _chcrsResponseStatus = pResponseStatus_-  , _chcrsHealthCheck = pHealthCheck_-  , _chcrsLocation = pLocation_-  }+    { _chcrsResponseStatus = pResponseStatus_+    , _chcrsHealthCheck = pHealthCheck_+    , _chcrsLocation = pLocation_+    }   -- | -- | The response status code. chcrsResponseStatus :: Lens' CreateHealthCheckResponse Int-chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});+chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a})  -- | A complex type that contains identifying information about the health check. chcrsHealthCheck :: Lens' CreateHealthCheckResponse HealthCheck-chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a});+chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a})  -- | The unique URL representing the new health check. chcrsLocation :: Lens' CreateHealthCheckResponse Text-chcrsLocation = lens _chcrsLocation (\ s a -> s{_chcrsLocation = a});+chcrsLocation = lens _chcrsLocation (\ s a -> s{_chcrsLocation = a})  instance NFData CreateHealthCheckResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateHostedZone--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -103,33 +103,33 @@     -> CreateHostedZone createHostedZone pName_ pCallerReference_ =   CreateHostedZone'-  { _chzDelegationSetId = Nothing-  , _chzVPC = Nothing-  , _chzHostedZoneConfig = Nothing-  , _chzName = pName_-  , _chzCallerReference = pCallerReference_-  }+    { _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' . chzDelegationSetId :: Lens' CreateHostedZone (Maybe ResourceId)-chzDelegationSetId = lens _chzDelegationSetId (\ s a -> s{_chzDelegationSetId = a});+chzDelegationSetId = lens _chzDelegationSetId (\ s a -> s{_chzDelegationSetId = a})  -- | (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});+chzVPC = lens _chzVPC (\ s a -> s{_chzVPC = a})  -- | (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});+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 @DelegationSet@ . chzName :: Lens' CreateHostedZone Text-chzName = lens _chzName (\ s a -> s{_chzName = a});+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 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});+chzCallerReference = lens _chzCallerReference (\ s a -> s{_chzCallerReference = a})  instance AWSRequest CreateHostedZone where         type Rs CreateHostedZone = CreateHostedZoneResponse@@ -210,37 +210,37 @@     -> CreateHostedZoneResponse createHostedZoneResponse pResponseStatus_ pHostedZone_ pChangeInfo_ pDelegationSet_ pLocation_ =   CreateHostedZoneResponse'-  { _chzrsVPC = Nothing-  , _chzrsResponseStatus = pResponseStatus_-  , _chzrsHostedZone = pHostedZone_-  , _chzrsChangeInfo = pChangeInfo_-  , _chzrsDelegationSet = pDelegationSet_-  , _chzrsLocation = pLocation_-  }+    { _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});+chzrsVPC = lens _chzrsVPC (\ s a -> s{_chzrsVPC = a})  -- | -- | The response status code. chzrsResponseStatus :: Lens' CreateHostedZoneResponse Int-chzrsResponseStatus = lens _chzrsResponseStatus (\ s a -> s{_chzrsResponseStatus = a});+chzrsResponseStatus = lens _chzrsResponseStatus (\ s a -> s{_chzrsResponseStatus = a})  -- | A complex type that contains general information about the hosted zone. chzrsHostedZone :: Lens' CreateHostedZoneResponse HostedZone-chzrsHostedZone = lens _chzrsHostedZone (\ s a -> s{_chzrsHostedZone = a});+chzrsHostedZone = lens _chzrsHostedZone (\ s a -> s{_chzrsHostedZone = a})  -- | A complex type that contains information about the @CreateHostedZone@ request. chzrsChangeInfo :: Lens' CreateHostedZoneResponse ChangeInfo-chzrsChangeInfo = lens _chzrsChangeInfo (\ s a -> s{_chzrsChangeInfo = a});+chzrsChangeInfo = lens _chzrsChangeInfo (\ s a -> s{_chzrsChangeInfo = a})  -- | A complex type that describes the name servers for this hosted zone. chzrsDelegationSet :: Lens' CreateHostedZoneResponse DelegationSet-chzrsDelegationSet = lens _chzrsDelegationSet (\ s a -> s{_chzrsDelegationSet = a});+chzrsDelegationSet = lens _chzrsDelegationSet (\ s a -> s{_chzrsDelegationSet = a})  -- | The unique URL representing the new hosted zone. chzrsLocation :: Lens' CreateHostedZoneResponse Text-chzrsLocation = lens _chzrsLocation (\ s a -> s{_chzrsLocation = a});+chzrsLocation = lens _chzrsLocation (\ s a -> s{_chzrsLocation = a})  instance NFData CreateHostedZoneResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateQueryLoggingConfig--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -49,7 +49,7 @@ -- -- -----     * 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:+--     * Create a CloudWatch Logs resource policy, and give it the permissions that Amazon Route 53 needs to create log streams and 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/*@ --@@ -124,18 +124,18 @@     -> CreateQueryLoggingConfig createQueryLoggingConfig pHostedZoneId_ pCloudWatchLogsLogGroupARN_ =   CreateQueryLoggingConfig'-  { _cqlcHostedZoneId = pHostedZoneId_-  , _cqlcCloudWatchLogsLogGroupARN = pCloudWatchLogsLogGroupARN_-  }+    { _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});+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});+cqlcCloudWatchLogsLogGroupARN = lens _cqlcCloudWatchLogsLogGroupARN (\ s a -> s{_cqlcCloudWatchLogsLogGroupARN = a})  instance AWSRequest CreateQueryLoggingConfig where         type Rs CreateQueryLoggingConfig =@@ -197,23 +197,23 @@     -> CreateQueryLoggingConfigResponse createQueryLoggingConfigResponse pResponseStatus_ pQueryLoggingConfig_ pLocation_ =   CreateQueryLoggingConfigResponse'-  { _cqlcrsResponseStatus = pResponseStatus_-  , _cqlcrsQueryLoggingConfig = pQueryLoggingConfig_-  , _cqlcrsLocation = pLocation_-  }+    { _cqlcrsResponseStatus = pResponseStatus_+    , _cqlcrsQueryLoggingConfig = pQueryLoggingConfig_+    , _cqlcrsLocation = pLocation_+    }   -- | -- | The response status code. cqlcrsResponseStatus :: Lens' CreateQueryLoggingConfigResponse Int-cqlcrsResponseStatus = lens _cqlcrsResponseStatus (\ s a -> s{_cqlcrsResponseStatus = a});+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});+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});+cqlcrsLocation = lens _cqlcrsLocation (\ s a -> s{_cqlcrsLocation = a})  instance NFData CreateQueryLoggingConfigResponse          where

@@ -12,17 +12,43 @@  -- | -- Module      : Network.AWS.Route53.CreateReusableDelegationSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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+-- 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. -- ----- 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> .+-- For information about using 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> . --+-- The process for migrating existing hosted zones to use a reusable delegation set is comparable to the process for configuring white label name servers. You need to perform the following steps:+--+--     * Create a reusable delegation set.+--+--     * Recreate hosted zones, and reduce the TTL to 60 seconds or less.+--+--     * Recreate resource record sets in the new hosted zones.+--+--     * Change the registrar's name servers to use the name servers for the new hosted zones.+--+--     * Monitor traffic for the website or application.+--+--     * Change TTLs back to their original values.+--+--+--+-- If you want to migrate existing hosted zones to use a reusable delegation set, the existing hosted zones can't use any of the name servers that are assigned to the reusable delegation set. If one or more hosted zones do use one or more name servers that are assigned to the reusable delegation set, you can do one of the following:+--+--     * For small numbers of hosted zones—up to a few hundred—it's relatively easy to create reusable delegation sets until you get one that has four name servers that don't overlap with any of the name servers in your hosted zones.+--+--     * For larger numbers of hosted zones, the easiest solution is to use more than one reusable delegation set.+--+--     * For larger numbers of hosted zones, you can also migrate hosted zones that have overlapping name servers to hosted zones that don't have overlapping name servers, then migrate the hosted zones again to use the reusable delegation set.+--+--+-- module Network.AWS.Route53.CreateReusableDelegationSet     (     -- * Creating a Request@@ -67,16 +93,16 @@     -> CreateReusableDelegationSet createReusableDelegationSet pCallerReference_ =   CreateReusableDelegationSet'-  {_crdsHostedZoneId = Nothing, _crdsCallerReference = pCallerReference_}+    {_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});+crdsHostedZoneId = lens _crdsHostedZoneId (\ s a -> s{_crdsHostedZoneId = a})  -- | A unique string that identifies the request, and that allows you to retry failed @CreateReusableDelegationSet@ requests without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you submit a @CreateReusableDelegationSet@ request. @CallerReference@ can be any unique string, for example a date/time stamp. crdsCallerReference :: Lens' CreateReusableDelegationSet Text-crdsCallerReference = lens _crdsCallerReference (\ s a -> s{_crdsCallerReference = a});+crdsCallerReference = lens _crdsCallerReference (\ s a -> s{_crdsCallerReference = a})  instance AWSRequest CreateReusableDelegationSet where         type Rs CreateReusableDelegationSet =@@ -137,23 +163,23 @@     -> CreateReusableDelegationSetResponse createReusableDelegationSetResponse pResponseStatus_ pDelegationSet_ pLocation_ =   CreateReusableDelegationSetResponse'-  { _crdsrsResponseStatus = pResponseStatus_-  , _crdsrsDelegationSet = pDelegationSet_-  , _crdsrsLocation = pLocation_-  }+    { _crdsrsResponseStatus = pResponseStatus_+    , _crdsrsDelegationSet = pDelegationSet_+    , _crdsrsLocation = pLocation_+    }   -- | -- | The response status code. crdsrsResponseStatus :: Lens' CreateReusableDelegationSetResponse Int-crdsrsResponseStatus = lens _crdsrsResponseStatus (\ s a -> s{_crdsrsResponseStatus = a});+crdsrsResponseStatus = lens _crdsrsResponseStatus (\ s a -> s{_crdsrsResponseStatus = a})  -- | A complex type that contains name server information. crdsrsDelegationSet :: Lens' CreateReusableDelegationSetResponse DelegationSet-crdsrsDelegationSet = lens _crdsrsDelegationSet (\ s a -> s{_crdsrsDelegationSet = a});+crdsrsDelegationSet = lens _crdsrsDelegationSet (\ s a -> s{_crdsrsDelegationSet = a})  -- | The unique URL representing the new reusable delegation set. crdsrsLocation :: Lens' CreateReusableDelegationSetResponse Text-crdsrsLocation = lens _crdsrsLocation (\ s a -> s{_crdsrsLocation = a});+crdsrsLocation = lens _crdsrsLocation (\ s a -> s{_crdsrsLocation = a})  instance NFData CreateReusableDelegationSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateTrafficPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,20 +74,20 @@     -> CreateTrafficPolicy createTrafficPolicy pName_ pDocument_ =   CreateTrafficPolicy'-  {_ctpComment = Nothing, _ctpName = pName_, _ctpDocument = pDocument_}+    {_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});+ctpComment = lens _ctpComment (\ s a -> s{_ctpComment = a})  -- | The name of the traffic policy. ctpName :: Lens' CreateTrafficPolicy Text-ctpName = lens _ctpName (\ s a -> s{_ctpName = a});+ctpName = lens _ctpName (\ s a -> s{_ctpName = a})  -- | The definition of this traffic policy in JSON format. For more information, see <http://docs.aws.amazon.com/Route53/latest/APIReference/api-policies-traffic-policy-document-format.html Traffic Policy Document Format> . ctpDocument :: Lens' CreateTrafficPolicy Text-ctpDocument = lens _ctpDocument (\ s a -> s{_ctpDocument = a});+ctpDocument = lens _ctpDocument (\ s a -> s{_ctpDocument = a})  instance AWSRequest CreateTrafficPolicy where         type Rs CreateTrafficPolicy =@@ -152,22 +152,22 @@     -> CreateTrafficPolicyResponse createTrafficPolicyResponse pResponseStatus_ pTrafficPolicy_ pLocation_ =   CreateTrafficPolicyResponse'-  { _ctprsResponseStatus = pResponseStatus_-  , _ctprsTrafficPolicy = pTrafficPolicy_-  , _ctprsLocation = pLocation_-  }+    { _ctprsResponseStatus = pResponseStatus_+    , _ctprsTrafficPolicy = pTrafficPolicy_+    , _ctprsLocation = pLocation_+    }   -- | -- | The response status code. ctprsResponseStatus :: Lens' CreateTrafficPolicyResponse Int-ctprsResponseStatus = lens _ctprsResponseStatus (\ s a -> s{_ctprsResponseStatus = a});+ctprsResponseStatus = lens _ctprsResponseStatus (\ s a -> s{_ctprsResponseStatus = a})  -- | A complex type that contains settings for the new traffic policy. ctprsTrafficPolicy :: Lens' CreateTrafficPolicyResponse TrafficPolicy-ctprsTrafficPolicy = lens _ctprsTrafficPolicy (\ s a -> s{_ctprsTrafficPolicy = a});+ctprsTrafficPolicy = lens _ctprsTrafficPolicy (\ s a -> s{_ctprsTrafficPolicy = a})  -- | A unique URL that represents a new traffic policy. ctprsLocation :: Lens' CreateTrafficPolicyResponse Text-ctprsLocation = lens _ctprsLocation (\ s a -> s{_ctprsLocation = a});+ctprsLocation = lens _ctprsLocation (\ s a -> s{_ctprsLocation = a})  instance NFData CreateTrafficPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateTrafficPolicyInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -85,33 +85,33 @@     -> CreateTrafficPolicyInstance createTrafficPolicyInstance pHostedZoneId_ pName_ pTTL_ pTrafficPolicyId_ pTrafficPolicyVersion_ =   CreateTrafficPolicyInstance'-  { _ctpiHostedZoneId = pHostedZoneId_-  , _ctpiName = pName_-  , _ctpiTTL = _Nat # pTTL_-  , _ctpiTrafficPolicyId = pTrafficPolicyId_-  , _ctpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_-  }+    { _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});+ctpiHostedZoneId = lens _ctpiHostedZoneId (\ s a -> s{_ctpiHostedZoneId = a})  -- | The domain name (such as example.com) or subdomain name (such as www.example.com) for which Amazon Route 53 responds to DNS queries by using the resource record sets that Amazon Route 53 creates for this traffic policy instance. ctpiName :: Lens' CreateTrafficPolicyInstance Text-ctpiName = lens _ctpiName (\ s a -> s{_ctpiName = a});+ctpiName = lens _ctpiName (\ s a -> s{_ctpiName = a})  -- | (Optional) The TTL that you want Amazon Route 53 to assign to all of the resource record sets that it creates in the specified hosted zone. ctpiTTL :: Lens' CreateTrafficPolicyInstance Natural-ctpiTTL = lens _ctpiTTL (\ s a -> s{_ctpiTTL = a}) . _Nat;+ctpiTTL = lens _ctpiTTL (\ s a -> s{_ctpiTTL = a}) . _Nat  -- | The ID of the traffic policy that you want to use to create resource record sets in the specified hosted zone. ctpiTrafficPolicyId :: Lens' CreateTrafficPolicyInstance Text-ctpiTrafficPolicyId = lens _ctpiTrafficPolicyId (\ s a -> s{_ctpiTrafficPolicyId = a});+ctpiTrafficPolicyId = lens _ctpiTrafficPolicyId (\ s a -> s{_ctpiTrafficPolicyId = a})  -- | The version of the traffic policy that you want to use to create resource record sets in the specified hosted zone. ctpiTrafficPolicyVersion :: Lens' CreateTrafficPolicyInstance Natural-ctpiTrafficPolicyVersion = lens _ctpiTrafficPolicyVersion (\ s a -> s{_ctpiTrafficPolicyVersion = a}) . _Nat;+ctpiTrafficPolicyVersion = lens _ctpiTrafficPolicyVersion (\ s a -> s{_ctpiTrafficPolicyVersion = a}) . _Nat  instance AWSRequest CreateTrafficPolicyInstance where         type Rs CreateTrafficPolicyInstance =@@ -179,23 +179,23 @@     -> CreateTrafficPolicyInstanceResponse createTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ pLocation_ =   CreateTrafficPolicyInstanceResponse'-  { _ctpirsResponseStatus = pResponseStatus_-  , _ctpirsTrafficPolicyInstance = pTrafficPolicyInstance_-  , _ctpirsLocation = pLocation_-  }+    { _ctpirsResponseStatus = pResponseStatus_+    , _ctpirsTrafficPolicyInstance = pTrafficPolicyInstance_+    , _ctpirsLocation = pLocation_+    }   -- | -- | The response status code. ctpirsResponseStatus :: Lens' CreateTrafficPolicyInstanceResponse Int-ctpirsResponseStatus = lens _ctpirsResponseStatus (\ s a -> s{_ctpirsResponseStatus = a});+ctpirsResponseStatus = lens _ctpirsResponseStatus (\ s a -> s{_ctpirsResponseStatus = a})  -- | A complex type that contains settings for the new traffic policy instance. ctpirsTrafficPolicyInstance :: Lens' CreateTrafficPolicyInstanceResponse TrafficPolicyInstance-ctpirsTrafficPolicyInstance = lens _ctpirsTrafficPolicyInstance (\ s a -> s{_ctpirsTrafficPolicyInstance = a});+ctpirsTrafficPolicyInstance = lens _ctpirsTrafficPolicyInstance (\ s a -> s{_ctpirsTrafficPolicyInstance = a})  -- | A unique URL that represents a new traffic policy instance. ctpirsLocation :: Lens' CreateTrafficPolicyInstanceResponse Text-ctpirsLocation = lens _ctpirsLocation (\ s a -> s{_ctpirsLocation = a});+ctpirsLocation = lens _ctpirsLocation (\ s a -> s{_ctpirsLocation = a})  instance NFData CreateTrafficPolicyInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateTrafficPolicyVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,20 +74,20 @@     -> CreateTrafficPolicyVersion createTrafficPolicyVersion pId_ pDocument_ =   CreateTrafficPolicyVersion'-  {_ctpvComment = Nothing, _ctpvId = pId_, _ctpvDocument = pDocument_}+    {_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});+ctpvComment = lens _ctpvComment (\ s a -> s{_ctpvComment = a})  -- | The ID of the traffic policy for which you want to create a new version. ctpvId :: Lens' CreateTrafficPolicyVersion Text-ctpvId = lens _ctpvId (\ s a -> s{_ctpvId = a});+ctpvId = lens _ctpvId (\ s a -> s{_ctpvId = a})  -- | The definition of this version of the traffic policy, in JSON format. You specified the JSON in the @CreateTrafficPolicyVersion@ request. For more information about the JSON format, see 'CreateTrafficPolicy' . ctpvDocument :: Lens' CreateTrafficPolicyVersion Text-ctpvDocument = lens _ctpvDocument (\ s a -> s{_ctpvDocument = a});+ctpvDocument = lens _ctpvDocument (\ s a -> s{_ctpvDocument = a})  instance AWSRequest CreateTrafficPolicyVersion where         type Rs CreateTrafficPolicyVersion =@@ -154,23 +154,23 @@     -> CreateTrafficPolicyVersionResponse createTrafficPolicyVersionResponse pResponseStatus_ pTrafficPolicy_ pLocation_ =   CreateTrafficPolicyVersionResponse'-  { _ctpvrsResponseStatus = pResponseStatus_-  , _ctpvrsTrafficPolicy = pTrafficPolicy_-  , _ctpvrsLocation = pLocation_-  }+    { _ctpvrsResponseStatus = pResponseStatus_+    , _ctpvrsTrafficPolicy = pTrafficPolicy_+    , _ctpvrsLocation = pLocation_+    }   -- | -- | The response status code. ctpvrsResponseStatus :: Lens' CreateTrafficPolicyVersionResponse Int-ctpvrsResponseStatus = lens _ctpvrsResponseStatus (\ s a -> s{_ctpvrsResponseStatus = a});+ctpvrsResponseStatus = lens _ctpvrsResponseStatus (\ s a -> s{_ctpvrsResponseStatus = a})  -- | A complex type that contains settings for the new version of the traffic policy. ctpvrsTrafficPolicy :: Lens' CreateTrafficPolicyVersionResponse TrafficPolicy-ctpvrsTrafficPolicy = lens _ctpvrsTrafficPolicy (\ s a -> s{_ctpvrsTrafficPolicy = a});+ctpvrsTrafficPolicy = lens _ctpvrsTrafficPolicy (\ s a -> s{_ctpvrsTrafficPolicy = a})  -- | A unique URL that represents a new traffic policy version. ctpvrsLocation :: Lens' CreateTrafficPolicyVersionResponse Text-ctpvrsLocation = lens _ctpvrsLocation (\ s a -> s{_ctpvrsLocation = a});+ctpvrsLocation = lens _ctpvrsLocation (\ s a -> s{_ctpvrsLocation = a})  instance NFData CreateTrafficPolicyVersionResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.CreateVPCAssociationAuthorization--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,16 +70,16 @@     -> CreateVPCAssociationAuthorization createVPCAssociationAuthorization pHostedZoneId_ pVPC_ =   CreateVPCAssociationAuthorization'-  {_cvaaHostedZoneId = pHostedZoneId_, _cvaaVPC = pVPC_}+    {_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});+cvaaHostedZoneId = lens _cvaaHostedZoneId (\ s a -> s{_cvaaHostedZoneId = a})  -- | A complex type that contains the VPC ID and region for the VPC that you want to authorize associating with your hosted zone. cvaaVPC :: Lens' CreateVPCAssociationAuthorization VPC-cvaaVPC = lens _cvaaVPC (\ s a -> s{_cvaaVPC = a});+cvaaVPC = lens _cvaaVPC (\ s a -> s{_cvaaVPC = a})  instance AWSRequest CreateVPCAssociationAuthorization          where@@ -153,23 +153,23 @@     -> CreateVPCAssociationAuthorizationResponse createVPCAssociationAuthorizationResponse pResponseStatus_ pHostedZoneId_ pVPC_ =   CreateVPCAssociationAuthorizationResponse'-  { _cvaarsResponseStatus = pResponseStatus_-  , _cvaarsHostedZoneId = pHostedZoneId_-  , _cvaarsVPC = pVPC_-  }+    { _cvaarsResponseStatus = pResponseStatus_+    , _cvaarsHostedZoneId = pHostedZoneId_+    , _cvaarsVPC = pVPC_+    }   -- | -- | The response status code. cvaarsResponseStatus :: Lens' CreateVPCAssociationAuthorizationResponse Int-cvaarsResponseStatus = lens _cvaarsResponseStatus (\ s a -> s{_cvaarsResponseStatus = a});+cvaarsResponseStatus = lens _cvaarsResponseStatus (\ s a -> s{_cvaarsResponseStatus = a})  -- | The ID of the hosted zone that you authorized associating a VPC with. cvaarsHostedZoneId :: Lens' CreateVPCAssociationAuthorizationResponse ResourceId-cvaarsHostedZoneId = lens _cvaarsHostedZoneId (\ s a -> s{_cvaarsHostedZoneId = a});+cvaarsHostedZoneId = lens _cvaarsHostedZoneId (\ s a -> s{_cvaarsHostedZoneId = a})  -- | The VPC that you authorized associating with a hosted zone. cvaarsVPC :: Lens' CreateVPCAssociationAuthorizationResponse VPC-cvaarsVPC = lens _cvaarsVPC (\ s a -> s{_cvaarsVPC = a});+cvaarsVPC = lens _cvaarsVPC (\ s a -> s{_cvaarsVPC = a})  instance NFData            CreateVPCAssociationAuthorizationResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteHealthCheck--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The ID of the health check that you want to delete. dhcHealthCheckId :: Lens' DeleteHealthCheck Text-dhcHealthCheckId = lens _dhcHealthCheckId (\ s a -> s{_dhcHealthCheckId = a});+dhcHealthCheckId = lens _dhcHealthCheckId (\ s a -> s{_dhcHealthCheckId = a})  instance AWSRequest DeleteHealthCheck where         type Rs DeleteHealthCheck = DeleteHealthCheckResponse@@ -118,6 +118,6 @@  -- | -- | The response status code. dhcrsResponseStatus :: Lens' DeleteHealthCheckResponse Int-dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a});+dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a})  instance NFData DeleteHealthCheckResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteHostedZone--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,7 +81,7 @@  -- | The ID of the hosted zone you want to delete. dhzId :: Lens' DeleteHostedZone ResourceId-dhzId = lens _dhzId (\ s a -> s{_dhzId = a});+dhzId = lens _dhzId (\ s a -> s{_dhzId = a})  instance AWSRequest DeleteHostedZone where         type Rs DeleteHostedZone = DeleteHostedZoneResponse@@ -130,15 +130,15 @@     -> DeleteHostedZoneResponse deleteHostedZoneResponse pResponseStatus_ pChangeInfo_ =   DeleteHostedZoneResponse'-  {_dhzrsResponseStatus = pResponseStatus_, _dhzrsChangeInfo = pChangeInfo_}+    {_dhzrsResponseStatus = pResponseStatus_, _dhzrsChangeInfo = pChangeInfo_}   -- | -- | The response status code. dhzrsResponseStatus :: Lens' DeleteHostedZoneResponse Int-dhzrsResponseStatus = lens _dhzrsResponseStatus (\ s a -> s{_dhzrsResponseStatus = a});+dhzrsResponseStatus = lens _dhzrsResponseStatus (\ s a -> s{_dhzrsResponseStatus = a})  -- | 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});+dhzrsChangeInfo = lens _dhzrsChangeInfo (\ s a -> s{_dhzrsChangeInfo = a})  instance NFData DeleteHostedZoneResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteQueryLoggingConfig--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The ID of the configuration that you want to delete. dqlcId :: Lens' DeleteQueryLoggingConfig Text-dqlcId = lens _dqlcId (\ s a -> s{_dqlcId = a});+dqlcId = lens _dqlcId (\ s a -> s{_dqlcId = a})  instance AWSRequest DeleteQueryLoggingConfig where         type Rs DeleteQueryLoggingConfig =@@ -111,7 +111,7 @@  -- | -- | The response status code. dqlcrsResponseStatus :: Lens' DeleteQueryLoggingConfigResponse Int-dqlcrsResponseStatus = lens _dqlcrsResponseStatus (\ s a -> s{_dqlcrsResponseStatus = a});+dqlcrsResponseStatus = lens _dqlcrsResponseStatus (\ s a -> s{_dqlcrsResponseStatus = a})  instance NFData DeleteQueryLoggingConfigResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteReusableDelegationSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | The ID of the reusable delegation set that you want to delete. drdsId :: Lens' DeleteReusableDelegationSet ResourceId-drdsId = lens _drdsId (\ s a -> s{_drdsId = a});+drdsId = lens _drdsId (\ s a -> s{_drdsId = a})  instance AWSRequest DeleteReusableDelegationSet where         type Rs DeleteReusableDelegationSet =@@ -117,12 +117,12 @@     -> DeleteReusableDelegationSetResponse deleteReusableDelegationSetResponse pResponseStatus_ =   DeleteReusableDelegationSetResponse'-  {_drdsrsResponseStatus = pResponseStatus_}+    {_drdsrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. drdsrsResponseStatus :: Lens' DeleteReusableDelegationSetResponse Int-drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a});+drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a})  instance NFData DeleteReusableDelegationSetResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteTrafficPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,11 +72,11 @@  -- | The ID of the traffic policy that you want to delete. dtpId :: Lens' DeleteTrafficPolicy Text-dtpId = lens _dtpId (\ s a -> s{_dtpId = a});+dtpId = lens _dtpId (\ s a -> s{_dtpId = a})  -- | The version number of the traffic policy that you want to delete. dtpVersion :: Lens' DeleteTrafficPolicy Natural-dtpVersion = lens _dtpVersion (\ s a -> s{_dtpVersion = a}) . _Nat;+dtpVersion = lens _dtpVersion (\ s a -> s{_dtpVersion = a}) . _Nat  instance AWSRequest DeleteTrafficPolicy where         type Rs DeleteTrafficPolicy =@@ -127,6 +127,6 @@  -- | -- | The response status code. dtprsResponseStatus :: Lens' DeleteTrafficPolicyResponse Int-dtprsResponseStatus = lens _dtprsResponseStatus (\ s a -> s{_dtprsResponseStatus = a});+dtprsResponseStatus = lens _dtprsResponseStatus (\ s a -> s{_dtprsResponseStatus = a})  instance NFData DeleteTrafficPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteTrafficPolicyInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@  -- | 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});+dtpiId = lens _dtpiId (\ s a -> s{_dtpiId = a})  instance AWSRequest DeleteTrafficPolicyInstance where         type Rs DeleteTrafficPolicyInstance =@@ -113,12 +113,12 @@     -> DeleteTrafficPolicyInstanceResponse deleteTrafficPolicyInstanceResponse pResponseStatus_ =   DeleteTrafficPolicyInstanceResponse'-  {_dtpirsResponseStatus = pResponseStatus_}+    {_dtpirsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dtpirsResponseStatus :: Lens' DeleteTrafficPolicyInstanceResponse Int-dtpirsResponseStatus = lens _dtpirsResponseStatus (\ s a -> s{_dtpirsResponseStatus = a});+dtpirsResponseStatus = lens _dtpirsResponseStatus (\ s a -> s{_dtpirsResponseStatus = a})  instance NFData DeleteTrafficPolicyInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DeleteVPCAssociationAuthorization--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,16 +70,16 @@     -> DeleteVPCAssociationAuthorization deleteVPCAssociationAuthorization pHostedZoneId_ pVPC_ =   DeleteVPCAssociationAuthorization'-  {_dvaaHostedZoneId = pHostedZoneId_, _dvaaVPC = pVPC_}+    {_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});+dvaaHostedZoneId = lens _dvaaHostedZoneId (\ s a -> s{_dvaaHostedZoneId = a})  -- | 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, a complex type that includes the ID and region of the VPC. dvaaVPC :: Lens' DeleteVPCAssociationAuthorization VPC-dvaaVPC = lens _dvaaVPC (\ s a -> s{_dvaaVPC = a});+dvaaVPC = lens _dvaaVPC (\ s a -> s{_dvaaVPC = a})  instance AWSRequest DeleteVPCAssociationAuthorization          where@@ -144,12 +144,12 @@     -> DeleteVPCAssociationAuthorizationResponse deleteVPCAssociationAuthorizationResponse pResponseStatus_ =   DeleteVPCAssociationAuthorizationResponse'-  {_dvaarsResponseStatus = pResponseStatus_}+    {_dvaarsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dvaarsResponseStatus :: Lens' DeleteVPCAssociationAuthorizationResponse Int-dvaarsResponseStatus = lens _dvaarsResponseStatus (\ s a -> s{_dvaarsResponseStatus = a});+dvaarsResponseStatus = lens _dvaarsResponseStatus (\ s a -> s{_dvaarsResponseStatus = a})  instance NFData            DeleteVPCAssociationAuthorizationResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.DisassociateVPCFromHostedZone--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> DisassociateVPCFromHostedZone disassociateVPCFromHostedZone pHostedZoneId_ pVPC_ =   DisassociateVPCFromHostedZone'-  { _dvfhzComment = Nothing-  , _dvfhzHostedZoneId = pHostedZoneId_-  , _dvfhzVPC = pVPC_-  }+    { _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});+dvfhzComment = lens _dvfhzComment (\ s a -> s{_dvfhzComment = a})  -- | The ID of the private hosted zone that you want to disassociate a VPC from. dvfhzHostedZoneId :: Lens' DisassociateVPCFromHostedZone ResourceId-dvfhzHostedZoneId = lens _dvfhzHostedZoneId (\ s a -> s{_dvfhzHostedZoneId = a});+dvfhzHostedZoneId = lens _dvfhzHostedZoneId (\ s a -> s{_dvfhzHostedZoneId = a})  -- | A complex type that contains information about the VPC that you're disassociating from the specified hosted zone. dvfhzVPC :: Lens' DisassociateVPCFromHostedZone VPC-dvfhzVPC = lens _dvfhzVPC (\ s a -> s{_dvfhzVPC = a});+dvfhzVPC = lens _dvfhzVPC (\ s a -> s{_dvfhzVPC = a})  instance AWSRequest DisassociateVPCFromHostedZone          where@@ -156,16 +156,18 @@     -> DisassociateVPCFromHostedZoneResponse disassociateVPCFromHostedZoneResponse pResponseStatus_ pChangeInfo_ =   DisassociateVPCFromHostedZoneResponse'-  {_dvfhzrsResponseStatus = pResponseStatus_, _dvfhzrsChangeInfo = pChangeInfo_}+    { _dvfhzrsResponseStatus = pResponseStatus_+    , _dvfhzrsChangeInfo = pChangeInfo_+    }   -- | -- | The response status code. dvfhzrsResponseStatus :: Lens' DisassociateVPCFromHostedZoneResponse Int-dvfhzrsResponseStatus = lens _dvfhzrsResponseStatus (\ s a -> s{_dvfhzrsResponseStatus = a});+dvfhzrsResponseStatus = lens _dvfhzrsResponseStatus (\ s a -> s{_dvfhzrsResponseStatus = a})  -- | A complex type that describes the changes made to the specified private hosted zone. dvfhzrsChangeInfo :: Lens' DisassociateVPCFromHostedZoneResponse ChangeInfo-dvfhzrsChangeInfo = lens _dvfhzrsChangeInfo (\ s a -> s{_dvfhzrsChangeInfo = a});+dvfhzrsChangeInfo = lens _dvfhzrsChangeInfo (\ s a -> s{_dvfhzrsChangeInfo = a})  instance NFData DisassociateVPCFromHostedZoneResponse          where

@@ -0,0 +1,146 @@+{-# 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.GetAccountLimit+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the specified limit for the current account, for example, the maximum number of health checks that you can create using the account.+--+--+-- For the default limit, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ . To request a higher limit, <https://console.aws.amazon.com/support/home#/case/create?issueType=service-limit-increase&amp;limitType=service-code-route53 open a case> .+--+module Network.AWS.Route53.GetAccountLimit+    (+    -- * Creating a Request+      getAccountLimit+    , GetAccountLimit+    -- * Request Lenses+    , galType++    -- * Destructuring the Response+    , getAccountLimitResponse+    , GetAccountLimitResponse+    -- * Response Lenses+    , galrsResponseStatus+    , galrsLimit+    , galrsCount+    ) 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++-- | A complex type that contains information about the request to create a hosted zone.+--+--+--+-- /See:/ 'getAccountLimit' smart constructor.+newtype GetAccountLimit = GetAccountLimit'+  { _galType :: AccountLimitType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAccountLimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'galType' - The limit that you want to get. Valid values include the following:     * __MAX_HEALTH_CHECKS_BY_OWNER__ : The maximum number of health checks that you can create using the current account.     * __MAX_HOSTED_ZONES_BY_OWNER__ : The maximum number of hosted zones that you can create using the current account.     * __MAX_REUSABLE_DELEGATION_SETS_BY_OWNER__ : The maximum number of reusable delegation sets that you can create using the current account.     * __MAX_TRAFFIC_POLICIES_BY_OWNER__ : The maximum number of traffic policies that you can create using the current account.     * __MAX_TRAFFIC_POLICY_INSTANCES_BY_OWNER__ : The maximum number of traffic policy instances that you can create using the current account. (Traffic policy instances are referred to as traffic flow policy records in the Amazon Route 53 console.)+getAccountLimit+    :: AccountLimitType -- ^ 'galType'+    -> GetAccountLimit+getAccountLimit pType_ = GetAccountLimit' {_galType = pType_}+++-- | The limit that you want to get. Valid values include the following:     * __MAX_HEALTH_CHECKS_BY_OWNER__ : The maximum number of health checks that you can create using the current account.     * __MAX_HOSTED_ZONES_BY_OWNER__ : The maximum number of hosted zones that you can create using the current account.     * __MAX_REUSABLE_DELEGATION_SETS_BY_OWNER__ : The maximum number of reusable delegation sets that you can create using the current account.     * __MAX_TRAFFIC_POLICIES_BY_OWNER__ : The maximum number of traffic policies that you can create using the current account.     * __MAX_TRAFFIC_POLICY_INSTANCES_BY_OWNER__ : The maximum number of traffic policy instances that you can create using the current account. (Traffic policy instances are referred to as traffic flow policy records in the Amazon Route 53 console.)+galType :: Lens' GetAccountLimit AccountLimitType+galType = lens _galType (\ s a -> s{_galType = a})++instance AWSRequest GetAccountLimit where+        type Rs GetAccountLimit = GetAccountLimitResponse+        request = get route53+        response+          = receiveXML+              (\ s h x ->+                 GetAccountLimitResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Limit") <*>+                     (x .@ "Count"))++instance Hashable GetAccountLimit where++instance NFData GetAccountLimit where++instance ToHeaders GetAccountLimit where+        toHeaders = const mempty++instance ToPath GetAccountLimit where+        toPath GetAccountLimit'{..}+          = mconcat+              ["/2013-04-01/accountlimit/", toBS _galType]++instance ToQuery GetAccountLimit where+        toQuery = const mempty++-- | A complex type that contains the requested limit.+--+--+--+-- /See:/ 'getAccountLimitResponse' smart constructor.+data GetAccountLimitResponse = GetAccountLimitResponse'+  { _galrsResponseStatus :: !Int+  , _galrsLimit          :: !AccountLimit+  , _galrsCount          :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAccountLimitResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'galrsResponseStatus' - -- | The response status code.+--+-- * 'galrsLimit' - The current setting for the specified limit. For example, if you specified @MAX_HEALTH_CHECKS_BY_OWNER@ for the value of @Type@ in the request, the value of @Limit@ is the maximum number of health checks that you can create using the current account.+--+-- * 'galrsCount' - The current number of entities that you have created of the specified type. For example, if you specified @MAX_HEALTH_CHECKS_BY_OWNER@ for the value of @Type@ in the request, the value of @Count@ is the current number of health checks that you have created using the current account.+getAccountLimitResponse+    :: Int -- ^ 'galrsResponseStatus'+    -> AccountLimit -- ^ 'galrsLimit'+    -> Natural -- ^ 'galrsCount'+    -> GetAccountLimitResponse+getAccountLimitResponse pResponseStatus_ pLimit_ pCount_ =+  GetAccountLimitResponse'+    { _galrsResponseStatus = pResponseStatus_+    , _galrsLimit = pLimit_+    , _galrsCount = _Nat # pCount_+    }+++-- | -- | The response status code.+galrsResponseStatus :: Lens' GetAccountLimitResponse Int+galrsResponseStatus = lens _galrsResponseStatus (\ s a -> s{_galrsResponseStatus = a})++-- | The current setting for the specified limit. For example, if you specified @MAX_HEALTH_CHECKS_BY_OWNER@ for the value of @Type@ in the request, the value of @Limit@ is the maximum number of health checks that you can create using the current account.+galrsLimit :: Lens' GetAccountLimitResponse AccountLimit+galrsLimit = lens _galrsLimit (\ s a -> s{_galrsLimit = a})++-- | The current number of entities that you have created of the specified type. For example, if you specified @MAX_HEALTH_CHECKS_BY_OWNER@ for the value of @Type@ in the request, the value of @Count@ is the current number of health checks that you have created using the current account.+galrsCount :: Lens' GetAccountLimitResponse Natural+galrsCount = lens _galrsCount (\ s a -> s{_galrsCount = a}) . _Nat++instance NFData GetAccountLimitResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetChange--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@  -- | 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});+gcId = lens _gcId (\ s a -> s{_gcId = a})  instance AWSRequest GetChange where         type Rs GetChange = GetChangeResponse@@ -122,15 +122,15 @@     -> GetChangeResponse getChangeResponse pResponseStatus_ pChangeInfo_ =   GetChangeResponse'-  {_gcrsResponseStatus = pResponseStatus_, _gcrsChangeInfo = pChangeInfo_}+    {_gcrsResponseStatus = pResponseStatus_, _gcrsChangeInfo = pChangeInfo_}   -- | -- | The response status code. gcrsResponseStatus :: Lens' GetChangeResponse Int-gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a})  -- | A complex type that contains information about the specified change batch. gcrsChangeInfo :: Lens' GetChangeResponse ChangeInfo-gcrsChangeInfo = lens _gcrsChangeInfo (\ s a -> s{_gcrsChangeInfo = a});+gcrsChangeInfo = lens _gcrsChangeInfo (\ s a -> s{_gcrsChangeInfo = a})  instance NFData GetChangeResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetCheckerIPRanges--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -99,15 +99,15 @@     -> GetCheckerIPRangesResponse getCheckerIPRangesResponse pResponseStatus_ =   GetCheckerIPRangesResponse'-  {_gcirrsResponseStatus = pResponseStatus_, _gcirrsCheckerIPRanges = mempty}+    {_gcirrsResponseStatus = pResponseStatus_, _gcirrsCheckerIPRanges = mempty}   -- | -- | The response status code. gcirrsResponseStatus :: Lens' GetCheckerIPRangesResponse Int-gcirrsResponseStatus = lens _gcirrsResponseStatus (\ s a -> s{_gcirrsResponseStatus = a});+gcirrsResponseStatus = lens _gcirrsResponseStatus (\ s a -> s{_gcirrsResponseStatus = a})  -- | Undocumented member. gcirrsCheckerIPRanges :: Lens' GetCheckerIPRangesResponse [Text]-gcirrsCheckerIPRanges = lens _gcirrsCheckerIPRanges (\ s a -> s{_gcirrsCheckerIPRanges = a}) . _Coerce;+gcirrsCheckerIPRanges = lens _gcirrsCheckerIPRanges (\ s a -> s{_gcirrsCheckerIPRanges = a}) . _Coerce  instance NFData GetCheckerIPRangesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetGeoLocation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -83,23 +83,23 @@     :: GetGeoLocation getGeoLocation =   GetGeoLocation'-  { _gglSubdivisionCode = Nothing-  , _gglCountryCode = Nothing-  , _gglContinentCode = Nothing-  }+    { _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});+gglSubdivisionCode = lens _gglSubdivisionCode (\ s a -> s{_gglSubdivisionCode = a})  -- | Amazon Route 53 uses the two-letter country codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . gglCountryCode :: Lens' GetGeoLocation (Maybe Text)-gglCountryCode = lens _gglCountryCode (\ s a -> s{_gglCountryCode = a});+gglCountryCode = lens _gglCountryCode (\ s a -> s{_gglCountryCode = a})  -- | Amazon Route 53 supports the following continent codes:     * __AF__ : Africa     * __AN__ : Antarctica     * __AS__ : Asia     * __EU__ : Europe     * __OC__ : Oceania     * __NA__ : North America     * __SA__ : South America gglContinentCode :: Lens' GetGeoLocation (Maybe Text)-gglContinentCode = lens _gglContinentCode (\ s a -> s{_gglContinentCode = a});+gglContinentCode = lens _gglContinentCode (\ s a -> s{_gglContinentCode = a})  instance AWSRequest GetGeoLocation where         type Rs GetGeoLocation = GetGeoLocationResponse@@ -151,17 +151,17 @@     -> GetGeoLocationResponse getGeoLocationResponse pResponseStatus_ pGeoLocationDetails_ =   GetGeoLocationResponse'-  { _gglrsResponseStatus = pResponseStatus_-  , _gglrsGeoLocationDetails = pGeoLocationDetails_-  }+    { _gglrsResponseStatus = pResponseStatus_+    , _gglrsGeoLocationDetails = pGeoLocationDetails_+    }   -- | -- | The response status code. gglrsResponseStatus :: Lens' GetGeoLocationResponse Int-gglrsResponseStatus = lens _gglrsResponseStatus (\ s a -> s{_gglrsResponseStatus = a});+gglrsResponseStatus = lens _gglrsResponseStatus (\ s a -> s{_gglrsResponseStatus = a})  -- | A complex type that contains the codes and full continent, country, and subdivision names for the specified geolocation code. gglrsGeoLocationDetails :: Lens' GetGeoLocationResponse GeoLocationDetails-gglrsGeoLocationDetails = lens _gglrsGeoLocationDetails (\ s a -> s{_gglrsGeoLocationDetails = a});+gglrsGeoLocationDetails = lens _gglrsGeoLocationDetails (\ s a -> s{_gglrsGeoLocationDetails = a})  instance NFData GetGeoLocationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheck--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The 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});+ghcHealthCheckId = lens _ghcHealthCheckId (\ s a -> s{_ghcHealthCheckId = a})  instance AWSRequest GetHealthCheck where         type Rs GetHealthCheck = GetHealthCheckResponse@@ -118,15 +118,15 @@     -> GetHealthCheckResponse getHealthCheckResponse pResponseStatus_ pHealthCheck_ =   GetHealthCheckResponse'-  {_ghcrsResponseStatus = pResponseStatus_, _ghcrsHealthCheck = pHealthCheck_}+    {_ghcrsResponseStatus = pResponseStatus_, _ghcrsHealthCheck = pHealthCheck_}   -- | -- | The response status code. ghcrsResponseStatus :: Lens' GetHealthCheckResponse Int-ghcrsResponseStatus = lens _ghcrsResponseStatus (\ s a -> s{_ghcrsResponseStatus = a});+ghcrsResponseStatus = lens _ghcrsResponseStatus (\ s a -> s{_ghcrsResponseStatus = a})  -- | A complex type that contains information about one health check that is associated with the current AWS account. ghcrsHealthCheck :: Lens' GetHealthCheckResponse HealthCheck-ghcrsHealthCheck = lens _ghcrsHealthCheck (\ s a -> s{_ghcrsHealthCheck = a});+ghcrsHealthCheck = lens _ghcrsHealthCheck (\ s a -> s{_ghcrsHealthCheck = a})  instance NFData GetHealthCheckResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheckCount--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -106,17 +106,17 @@     -> GetHealthCheckCountResponse getHealthCheckCountResponse pResponseStatus_ pHealthCheckCount_ =   GetHealthCheckCountResponse'-  { _ghccrsResponseStatus = pResponseStatus_-  , _ghccrsHealthCheckCount = pHealthCheckCount_-  }+    { _ghccrsResponseStatus = pResponseStatus_+    , _ghccrsHealthCheckCount = pHealthCheckCount_+    }   -- | -- | The response status code. ghccrsResponseStatus :: Lens' GetHealthCheckCountResponse Int-ghccrsResponseStatus = lens _ghccrsResponseStatus (\ s a -> s{_ghccrsResponseStatus = a});+ghccrsResponseStatus = lens _ghccrsResponseStatus (\ s a -> s{_ghccrsResponseStatus = a})  -- | The number of health checks associated with the current AWS account. ghccrsHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer-ghccrsHealthCheckCount = lens _ghccrsHealthCheckCount (\ s a -> s{_ghccrsHealthCheckCount = a});+ghccrsHealthCheckCount = lens _ghccrsHealthCheckCount (\ s a -> s{_ghccrsHealthCheckCount = a})  instance NFData GetHealthCheckCountResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheckLastFailureReason--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The 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});+ghclfrHealthCheckId = lens _ghclfrHealthCheckId (\ s a -> s{_ghclfrHealthCheckId = a})  instance AWSRequest GetHealthCheckLastFailureReason          where@@ -125,18 +125,18 @@     -> GetHealthCheckLastFailureReasonResponse getHealthCheckLastFailureReasonResponse pResponseStatus_ =   GetHealthCheckLastFailureReasonResponse'-  { _ghclfrrsResponseStatus = pResponseStatus_-  , _ghclfrrsHealthCheckObservations = mempty-  }+    { _ghclfrrsResponseStatus = pResponseStatus_+    , _ghclfrrsHealthCheckObservations = mempty+    }   -- | -- | The response status code. ghclfrrsResponseStatus :: Lens' GetHealthCheckLastFailureReasonResponse Int-ghclfrrsResponseStatus = lens _ghclfrrsResponseStatus (\ s a -> s{_ghclfrrsResponseStatus = a});+ghclfrrsResponseStatus = lens _ghclfrrsResponseStatus (\ s a -> s{_ghclfrrsResponseStatus = a})  -- | A list that contains one @Observation@ element for each Amazon Route 53 health checker that is reporting a last failure reason. ghclfrrsHealthCheckObservations :: Lens' GetHealthCheckLastFailureReasonResponse [HealthCheckObservation]-ghclfrrsHealthCheckObservations = lens _ghclfrrsHealthCheckObservations (\ s a -> s{_ghclfrrsHealthCheckObservations = a}) . _Coerce;+ghclfrrsHealthCheckObservations = lens _ghclfrrsHealthCheckObservations (\ s a -> s{_ghclfrrsHealthCheckObservations = a}) . _Coerce  instance NFData            GetHealthCheckLastFailureReasonResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetHealthCheckStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The 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});+ghcsHealthCheckId = lens _ghcsHealthCheckId (\ s a -> s{_ghcsHealthCheckId = a})  instance AWSRequest GetHealthCheckStatus where         type Rs GetHealthCheckStatus =@@ -121,17 +121,17 @@     -> GetHealthCheckStatusResponse getHealthCheckStatusResponse pResponseStatus_ =   GetHealthCheckStatusResponse'-  { _ghcsrsResponseStatus = pResponseStatus_-  , _ghcsrsHealthCheckObservations = mempty-  }+    { _ghcsrsResponseStatus = pResponseStatus_+    , _ghcsrsHealthCheckObservations = mempty+    }   -- | -- | The response status code. ghcsrsResponseStatus :: Lens' GetHealthCheckStatusResponse Int-ghcsrsResponseStatus = lens _ghcsrsResponseStatus (\ s a -> s{_ghcsrsResponseStatus = a});+ghcsrsResponseStatus = lens _ghcsrsResponseStatus (\ s a -> s{_ghcsrsResponseStatus = a})  -- | A list that contains one @HealthCheckObservation@ element for each Amazon Route 53 health checker that is reporting a status about the health check endpoint. ghcsrsHealthCheckObservations :: Lens' GetHealthCheckStatusResponse [HealthCheckObservation]-ghcsrsHealthCheckObservations = lens _ghcsrsHealthCheckObservations (\ s a -> s{_ghcsrsHealthCheckObservations = a}) . _Coerce;+ghcsrsHealthCheckObservations = lens _ghcsrsHealthCheckObservations (\ s a -> s{_ghcsrsHealthCheckObservations = a}) . _Coerce  instance NFData GetHealthCheckStatusResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetHostedZone--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | 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});+ghzId = lens _ghzId (\ s a -> s{_ghzId = a})  instance AWSRequest GetHostedZone where         type Rs GetHostedZone = GetHostedZoneResponse@@ -128,27 +128,27 @@     -> GetHostedZoneResponse getHostedZoneResponse pResponseStatus_ pHostedZone_ =   GetHostedZoneResponse'-  { _ghzrsVPCs = Nothing-  , _ghzrsDelegationSet = Nothing-  , _ghzrsResponseStatus = pResponseStatus_-  , _ghzrsHostedZone = pHostedZone_-  }+    { _ghzrsVPCs = Nothing+    , _ghzrsDelegationSet = Nothing+    , _ghzrsResponseStatus = pResponseStatus_+    , _ghzrsHostedZone = pHostedZone_+    }   -- | 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;+ghzrsVPCs = lens _ghzrsVPCs (\ s a -> s{_ghzrsVPCs = a}) . mapping _List1  -- | 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});+ghzrsDelegationSet = lens _ghzrsDelegationSet (\ s a -> s{_ghzrsDelegationSet = a})  -- | -- | The response status code. ghzrsResponseStatus :: Lens' GetHostedZoneResponse Int-ghzrsResponseStatus = lens _ghzrsResponseStatus (\ s a -> s{_ghzrsResponseStatus = a});+ghzrsResponseStatus = lens _ghzrsResponseStatus (\ s a -> s{_ghzrsResponseStatus = a})  -- | A complex type that contains general information about the specified hosted zone. ghzrsHostedZone :: Lens' GetHostedZoneResponse HostedZone-ghzrsHostedZone = lens _ghzrsHostedZone (\ s a -> s{_ghzrsHostedZone = a});+ghzrsHostedZone = lens _ghzrsHostedZone (\ s a -> s{_ghzrsHostedZone = a})  instance NFData GetHostedZoneResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetHostedZoneCount--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -106,17 +106,17 @@     -> GetHostedZoneCountResponse getHostedZoneCountResponse pResponseStatus_ pHostedZoneCount_ =   GetHostedZoneCountResponse'-  { _ghzcrsResponseStatus = pResponseStatus_-  , _ghzcrsHostedZoneCount = pHostedZoneCount_-  }+    { _ghzcrsResponseStatus = pResponseStatus_+    , _ghzcrsHostedZoneCount = pHostedZoneCount_+    }   -- | -- | The response status code. ghzcrsResponseStatus :: Lens' GetHostedZoneCountResponse Int-ghzcrsResponseStatus = lens _ghzcrsResponseStatus (\ s a -> s{_ghzcrsResponseStatus = a});+ghzcrsResponseStatus = lens _ghzcrsResponseStatus (\ s a -> s{_ghzcrsResponseStatus = a})  -- | 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});+ghzcrsHostedZoneCount = lens _ghzcrsHostedZoneCount (\ s a -> s{_ghzcrsHostedZoneCount = a})  instance NFData GetHostedZoneCountResponse where

@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Route53.GetHostedZoneLimit+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the specified limit for a specified hosted zone, for example, the maximum number of records that you can create in the hosted zone.+--+--+-- For the default limit, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ . To request a higher limit, <https://console.aws.amazon.com/support/home#/case/create?issueType=service-limit-increase&amp;limitType=service-code-route53 open a case> .+--+module Network.AWS.Route53.GetHostedZoneLimit+    (+    -- * Creating a Request+      getHostedZoneLimit+    , GetHostedZoneLimit+    -- * Request Lenses+    , ghzlType+    , ghzlHostedZoneId++    -- * Destructuring the Response+    , getHostedZoneLimitResponse+    , GetHostedZoneLimitResponse+    -- * Response Lenses+    , ghzlrsResponseStatus+    , ghzlrsLimit+    , ghzlrsCount+    ) 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++-- | A complex type that contains information about the request to create a hosted zone.+--+--+--+-- /See:/ 'getHostedZoneLimit' smart constructor.+data GetHostedZoneLimit = GetHostedZoneLimit'+  { _ghzlType         :: !HostedZoneLimitType+  , _ghzlHostedZoneId :: !ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetHostedZoneLimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghzlType' - The limit that you want to get. Valid values include the following:     * __MAX_RRSETS_BY_ZONE__ : The maximum number of records that you can create in the specified hosted zone.     * __MAX_VPCS_ASSOCIATED_BY_ZONE__ : The maximum number of Amazon VPCs that you can associate with the specified private hosted zone.+--+-- * 'ghzlHostedZoneId' - The ID of the hosted zone that you want to get a limit for.+getHostedZoneLimit+    :: HostedZoneLimitType -- ^ 'ghzlType'+    -> ResourceId -- ^ 'ghzlHostedZoneId'+    -> GetHostedZoneLimit+getHostedZoneLimit pType_ pHostedZoneId_ =+  GetHostedZoneLimit' {_ghzlType = pType_, _ghzlHostedZoneId = pHostedZoneId_}+++-- | The limit that you want to get. Valid values include the following:     * __MAX_RRSETS_BY_ZONE__ : The maximum number of records that you can create in the specified hosted zone.     * __MAX_VPCS_ASSOCIATED_BY_ZONE__ : The maximum number of Amazon VPCs that you can associate with the specified private hosted zone.+ghzlType :: Lens' GetHostedZoneLimit HostedZoneLimitType+ghzlType = lens _ghzlType (\ s a -> s{_ghzlType = a})++-- | The ID of the hosted zone that you want to get a limit for.+ghzlHostedZoneId :: Lens' GetHostedZoneLimit ResourceId+ghzlHostedZoneId = lens _ghzlHostedZoneId (\ s a -> s{_ghzlHostedZoneId = a})++instance AWSRequest GetHostedZoneLimit where+        type Rs GetHostedZoneLimit =+             GetHostedZoneLimitResponse+        request = get route53+        response+          = receiveXML+              (\ s h x ->+                 GetHostedZoneLimitResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Limit") <*>+                     (x .@ "Count"))++instance Hashable GetHostedZoneLimit where++instance NFData GetHostedZoneLimit where++instance ToHeaders GetHostedZoneLimit where+        toHeaders = const mempty++instance ToPath GetHostedZoneLimit where+        toPath GetHostedZoneLimit'{..}+          = mconcat+              ["/2013-04-01/hostedzonelimit/",+               toBS _ghzlHostedZoneId, "/", toBS _ghzlType]++instance ToQuery GetHostedZoneLimit where+        toQuery = const mempty++-- | A complex type that contains the requested limit.+--+--+--+-- /See:/ 'getHostedZoneLimitResponse' smart constructor.+data GetHostedZoneLimitResponse = GetHostedZoneLimitResponse'+  { _ghzlrsResponseStatus :: !Int+  , _ghzlrsLimit          :: !HostedZoneLimit+  , _ghzlrsCount          :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetHostedZoneLimitResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghzlrsResponseStatus' - -- | The response status code.+--+-- * 'ghzlrsLimit' - The current setting for the specified limit. For example, if you specified @MAX_RRSETS_BY_ZONE@ for the value of @Type@ in the request, the value of @Limit@ is the maximum number of records that you can create in the specified hosted zone.+--+-- * 'ghzlrsCount' - The current number of entities that you have created of the specified type. For example, if you specified @MAX_RRSETS_BY_ZONE@ for the value of @Type@ in the request, the value of @Count@ is the current number of records that you have created in the specified hosted zone.+getHostedZoneLimitResponse+    :: Int -- ^ 'ghzlrsResponseStatus'+    -> HostedZoneLimit -- ^ 'ghzlrsLimit'+    -> Natural -- ^ 'ghzlrsCount'+    -> GetHostedZoneLimitResponse+getHostedZoneLimitResponse pResponseStatus_ pLimit_ pCount_ =+  GetHostedZoneLimitResponse'+    { _ghzlrsResponseStatus = pResponseStatus_+    , _ghzlrsLimit = pLimit_+    , _ghzlrsCount = _Nat # pCount_+    }+++-- | -- | The response status code.+ghzlrsResponseStatus :: Lens' GetHostedZoneLimitResponse Int+ghzlrsResponseStatus = lens _ghzlrsResponseStatus (\ s a -> s{_ghzlrsResponseStatus = a})++-- | The current setting for the specified limit. For example, if you specified @MAX_RRSETS_BY_ZONE@ for the value of @Type@ in the request, the value of @Limit@ is the maximum number of records that you can create in the specified hosted zone.+ghzlrsLimit :: Lens' GetHostedZoneLimitResponse HostedZoneLimit+ghzlrsLimit = lens _ghzlrsLimit (\ s a -> s{_ghzlrsLimit = a})++-- | The current number of entities that you have created of the specified type. For example, if you specified @MAX_RRSETS_BY_ZONE@ for the value of @Type@ in the request, the value of @Count@ is the current number of records that you have created in the specified hosted zone.+ghzlrsCount :: Lens' GetHostedZoneLimitResponse Natural+ghzlrsCount = lens _ghzlrsCount (\ s a -> s{_ghzlrsCount = a}) . _Nat++instance NFData GetHostedZoneLimitResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetQueryLoggingConfig--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,7 +65,7 @@  -- | 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});+gqlcId = lens _gqlcId (\ s a -> s{_gqlcId = a})  instance AWSRequest GetQueryLoggingConfig where         type Rs GetQueryLoggingConfig =@@ -112,17 +112,17 @@     -> GetQueryLoggingConfigResponse getQueryLoggingConfigResponse pResponseStatus_ pQueryLoggingConfig_ =   GetQueryLoggingConfigResponse'-  { _gqlcrsResponseStatus = pResponseStatus_-  , _gqlcrsQueryLoggingConfig = pQueryLoggingConfig_-  }+    { _gqlcrsResponseStatus = pResponseStatus_+    , _gqlcrsQueryLoggingConfig = pQueryLoggingConfig_+    }   -- | -- | The response status code. gqlcrsResponseStatus :: Lens' GetQueryLoggingConfigResponse Int-gqlcrsResponseStatus = lens _gqlcrsResponseStatus (\ s a -> s{_gqlcrsResponseStatus = a});+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});+gqlcrsQueryLoggingConfig = lens _gqlcrsQueryLoggingConfig (\ s a -> s{_gqlcrsQueryLoggingConfig = a})  instance NFData GetQueryLoggingConfigResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetReusableDelegationSet--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | 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});+grdsId = lens _grdsId (\ s a -> s{_grdsId = a})  instance AWSRequest GetReusableDelegationSet where         type Rs GetReusableDelegationSet =@@ -118,18 +118,18 @@     -> GetReusableDelegationSetResponse getReusableDelegationSetResponse pResponseStatus_ pDelegationSet_ =   GetReusableDelegationSetResponse'-  { _grdsrsResponseStatus = pResponseStatus_-  , _grdsrsDelegationSet = pDelegationSet_-  }+    { _grdsrsResponseStatus = pResponseStatus_+    , _grdsrsDelegationSet = pDelegationSet_+    }   -- | -- | The response status code. grdsrsResponseStatus :: Lens' GetReusableDelegationSetResponse Int-grdsrsResponseStatus = lens _grdsrsResponseStatus (\ s a -> s{_grdsrsResponseStatus = a});+grdsrsResponseStatus = lens _grdsrsResponseStatus (\ s a -> s{_grdsrsResponseStatus = a})  -- | A complex type that contains information about the reusable delegation set. grdsrsDelegationSet :: Lens' GetReusableDelegationSetResponse DelegationSet-grdsrsDelegationSet = lens _grdsrsDelegationSet (\ s a -> s{_grdsrsDelegationSet = a});+grdsrsDelegationSet = lens _grdsrsDelegationSet (\ s a -> s{_grdsrsDelegationSet = a})  instance NFData GetReusableDelegationSetResponse          where

@@ -0,0 +1,162 @@+{-# 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.GetReusableDelegationSetLimit+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the maximum number of hosted zones that you can associate with the specified reusable delegation set.+--+--+-- For the default limit, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ . To request a higher limit, <https://console.aws.amazon.com/support/home#/case/create?issueType=service-limit-increase&amp;limitType=service-code-route53 open a case> .+--+module Network.AWS.Route53.GetReusableDelegationSetLimit+    (+    -- * Creating a Request+      getReusableDelegationSetLimit+    , GetReusableDelegationSetLimit+    -- * Request Lenses+    , grdslType+    , grdslDelegationSetId++    -- * Destructuring the Response+    , getReusableDelegationSetLimitResponse+    , GetReusableDelegationSetLimitResponse+    -- * Response Lenses+    , grdslrsResponseStatus+    , grdslrsLimit+    , grdslrsCount+    ) 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++-- | A complex type that contains information about the request to create a hosted zone.+--+--+--+-- /See:/ 'getReusableDelegationSetLimit' smart constructor.+data GetReusableDelegationSetLimit = GetReusableDelegationSetLimit'+  { _grdslType            :: !ReusableDelegationSetLimitType+  , _grdslDelegationSetId :: !ResourceId+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetReusableDelegationSetLimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdslType' - Specify @MAX_ZONES_BY_REUSABLE_DELEGATION_SET@ to get the maximum number of hosted zones that you can associate with the specified reusable delegation set.+--+-- * 'grdslDelegationSetId' - The ID of the delegation set that you want to get the limit for.+getReusableDelegationSetLimit+    :: ReusableDelegationSetLimitType -- ^ 'grdslType'+    -> ResourceId -- ^ 'grdslDelegationSetId'+    -> GetReusableDelegationSetLimit+getReusableDelegationSetLimit pType_ pDelegationSetId_ =+  GetReusableDelegationSetLimit'+    {_grdslType = pType_, _grdslDelegationSetId = pDelegationSetId_}+++-- | Specify @MAX_ZONES_BY_REUSABLE_DELEGATION_SET@ to get the maximum number of hosted zones that you can associate with the specified reusable delegation set.+grdslType :: Lens' GetReusableDelegationSetLimit ReusableDelegationSetLimitType+grdslType = lens _grdslType (\ s a -> s{_grdslType = a})++-- | The ID of the delegation set that you want to get the limit for.+grdslDelegationSetId :: Lens' GetReusableDelegationSetLimit ResourceId+grdslDelegationSetId = lens _grdslDelegationSetId (\ s a -> s{_grdslDelegationSetId = a})++instance AWSRequest GetReusableDelegationSetLimit+         where+        type Rs GetReusableDelegationSetLimit =+             GetReusableDelegationSetLimitResponse+        request = get route53+        response+          = receiveXML+              (\ s h x ->+                 GetReusableDelegationSetLimitResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Limit") <*>+                     (x .@ "Count"))++instance Hashable GetReusableDelegationSetLimit where++instance NFData GetReusableDelegationSetLimit where++instance ToHeaders GetReusableDelegationSetLimit+         where+        toHeaders = const mempty++instance ToPath GetReusableDelegationSetLimit where+        toPath GetReusableDelegationSetLimit'{..}+          = mconcat+              ["/2013-04-01/reusabledelegationsetlimit/",+               toBS _grdslDelegationSetId, "/", toBS _grdslType]++instance ToQuery GetReusableDelegationSetLimit where+        toQuery = const mempty++-- | A complex type that contains the requested limit.+--+--+--+-- /See:/ 'getReusableDelegationSetLimitResponse' smart constructor.+data GetReusableDelegationSetLimitResponse = GetReusableDelegationSetLimitResponse'+  { _grdslrsResponseStatus :: !Int+  , _grdslrsLimit          :: !ReusableDelegationSetLimit+  , _grdslrsCount          :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetReusableDelegationSetLimitResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdslrsResponseStatus' - -- | The response status code.+--+-- * 'grdslrsLimit' - The current setting for the limit on hosted zones that you can associate with the specified reusable delegation set.+--+-- * 'grdslrsCount' - The current number of hosted zones that you can associate with the specified reusable delegation set.+getReusableDelegationSetLimitResponse+    :: Int -- ^ 'grdslrsResponseStatus'+    -> ReusableDelegationSetLimit -- ^ 'grdslrsLimit'+    -> Natural -- ^ 'grdslrsCount'+    -> GetReusableDelegationSetLimitResponse+getReusableDelegationSetLimitResponse pResponseStatus_ pLimit_ pCount_ =+  GetReusableDelegationSetLimitResponse'+    { _grdslrsResponseStatus = pResponseStatus_+    , _grdslrsLimit = pLimit_+    , _grdslrsCount = _Nat # pCount_+    }+++-- | -- | The response status code.+grdslrsResponseStatus :: Lens' GetReusableDelegationSetLimitResponse Int+grdslrsResponseStatus = lens _grdslrsResponseStatus (\ s a -> s{_grdslrsResponseStatus = a})++-- | The current setting for the limit on hosted zones that you can associate with the specified reusable delegation set.+grdslrsLimit :: Lens' GetReusableDelegationSetLimitResponse ReusableDelegationSetLimit+grdslrsLimit = lens _grdslrsLimit (\ s a -> s{_grdslrsLimit = a})++-- | The current number of hosted zones that you can associate with the specified reusable delegation set.+grdslrsCount :: Lens' GetReusableDelegationSetLimitResponse Natural+grdslrsCount = lens _grdslrsCount (\ s a -> s{_grdslrsCount = a}) . _Nat++instance NFData GetReusableDelegationSetLimitResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetTrafficPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,11 +73,11 @@  -- | 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});+gtpId = lens _gtpId (\ s a -> s{_gtpId = a})  -- | The version number of the traffic policy that you want to get information about. gtpVersion :: Lens' GetTrafficPolicy Natural-gtpVersion = lens _gtpVersion (\ s a -> s{_gtpVersion = a}) . _Nat;+gtpVersion = lens _gtpVersion (\ s a -> s{_gtpVersion = a}) . _Nat  instance AWSRequest GetTrafficPolicy where         type Rs GetTrafficPolicy = GetTrafficPolicyResponse@@ -128,17 +128,17 @@     -> GetTrafficPolicyResponse getTrafficPolicyResponse pResponseStatus_ pTrafficPolicy_ =   GetTrafficPolicyResponse'-  { _gtprsResponseStatus = pResponseStatus_-  , _gtprsTrafficPolicy = pTrafficPolicy_-  }+    { _gtprsResponseStatus = pResponseStatus_+    , _gtprsTrafficPolicy = pTrafficPolicy_+    }   -- | -- | The response status code. gtprsResponseStatus :: Lens' GetTrafficPolicyResponse Int-gtprsResponseStatus = lens _gtprsResponseStatus (\ s a -> s{_gtprsResponseStatus = a});+gtprsResponseStatus = lens _gtprsResponseStatus (\ s a -> s{_gtprsResponseStatus = a})  -- | A complex type that contains settings for the specified traffic policy. gtprsTrafficPolicy :: Lens' GetTrafficPolicyResponse TrafficPolicy-gtprsTrafficPolicy = lens _gtprsTrafficPolicy (\ s a -> s{_gtprsTrafficPolicy = a});+gtprsTrafficPolicy = lens _gtprsTrafficPolicy (\ s a -> s{_gtprsTrafficPolicy = a})  instance NFData GetTrafficPolicyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetTrafficPolicyInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | 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});+gtpiId = lens _gtpiId (\ s a -> s{_gtpiId = a})  instance AWSRequest GetTrafficPolicyInstance where         type Rs GetTrafficPolicyInstance =@@ -119,18 +119,18 @@     -> GetTrafficPolicyInstanceResponse getTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ =   GetTrafficPolicyInstanceResponse'-  { _gtpirsResponseStatus = pResponseStatus_-  , _gtpirsTrafficPolicyInstance = pTrafficPolicyInstance_-  }+    { _gtpirsResponseStatus = pResponseStatus_+    , _gtpirsTrafficPolicyInstance = pTrafficPolicyInstance_+    }   -- | -- | The response status code. gtpirsResponseStatus :: Lens' GetTrafficPolicyInstanceResponse Int-gtpirsResponseStatus = lens _gtpirsResponseStatus (\ s a -> s{_gtpirsResponseStatus = a});+gtpirsResponseStatus = lens _gtpirsResponseStatus (\ s a -> s{_gtpirsResponseStatus = a})  -- | A complex type that contains settings for the traffic policy instance. gtpirsTrafficPolicyInstance :: Lens' GetTrafficPolicyInstanceResponse TrafficPolicyInstance-gtpirsTrafficPolicyInstance = lens _gtpirsTrafficPolicyInstance (\ s a -> s{_gtpirsTrafficPolicyInstance = a});+gtpirsTrafficPolicyInstance = lens _gtpirsTrafficPolicyInstance (\ s a -> s{_gtpirsTrafficPolicyInstance = a})  instance NFData GetTrafficPolicyInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.GetTrafficPolicyInstanceCount--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -110,18 +110,18 @@     -> GetTrafficPolicyInstanceCountResponse getTrafficPolicyInstanceCountResponse pResponseStatus_ pTrafficPolicyInstanceCount_ =   GetTrafficPolicyInstanceCountResponse'-  { _gtpicrsResponseStatus = pResponseStatus_-  , _gtpicrsTrafficPolicyInstanceCount = pTrafficPolicyInstanceCount_-  }+    { _gtpicrsResponseStatus = pResponseStatus_+    , _gtpicrsTrafficPolicyInstanceCount = pTrafficPolicyInstanceCount_+    }   -- | -- | The response status code. gtpicrsResponseStatus :: Lens' GetTrafficPolicyInstanceCountResponse Int-gtpicrsResponseStatus = lens _gtpicrsResponseStatus (\ s a -> s{_gtpicrsResponseStatus = a});+gtpicrsResponseStatus = lens _gtpicrsResponseStatus (\ s a -> s{_gtpicrsResponseStatus = a})  -- | The number of traffic policy instances that are associated with the current AWS account. gtpicrsTrafficPolicyInstanceCount :: Lens' GetTrafficPolicyInstanceCountResponse Int-gtpicrsTrafficPolicyInstanceCount = lens _gtpicrsTrafficPolicyInstanceCount (\ s a -> s{_gtpicrsTrafficPolicyInstanceCount = a});+gtpicrsTrafficPolicyInstanceCount = lens _gtpicrsTrafficPolicyInstanceCount (\ s a -> s{_gtpicrsTrafficPolicyInstanceCount = a})  instance NFData GetTrafficPolicyInstanceCountResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListGeoLocations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,28 +82,28 @@     :: ListGeoLocations listGeoLocations =   ListGeoLocations'-  { _lglStartSubdivisionCode = Nothing-  , _lglMaxItems = Nothing-  , _lglStartCountryCode = Nothing-  , _lglStartContinentCode = Nothing-  }+    { _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});+lglStartSubdivisionCode = lens _lglStartSubdivisionCode (\ s a -> s{_lglStartSubdivisionCode = a})  -- | (Optional) The maximum number of geolocations to be included in the response body for this request. If more than @MaxItems@ geolocations remain to be listed, then the value of the @IsTruncated@ element in the response is @true@ . lglMaxItems :: Lens' ListGeoLocations (Maybe Text)-lglMaxItems = lens _lglMaxItems (\ s a -> s{_lglMaxItems = a});+lglMaxItems = lens _lglMaxItems (\ s a -> s{_lglMaxItems = a})  -- | The code for the country 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 @NextCountryCode@ from the previous response has a value, enter that value in @StartCountryCode@ to return the next page of results. Amazon Route 53 uses the two-letter country codes that are specified in <https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2 ISO standard 3166-1 alpha-2> . lglStartCountryCode :: Lens' ListGeoLocations (Maybe Text)-lglStartCountryCode = lens _lglStartCountryCode (\ s a -> s{_lglStartCountryCode = a});+lglStartCountryCode = lens _lglStartCountryCode (\ s a -> s{_lglStartCountryCode = a})  -- | The code for the continent 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 @NextContinentCode@ from the previous response has a value, enter that value in @StartContinentCode@ to return the next page of results. Include @StartContinentCode@ only if you want to list continents. Don't include @StartContinentCode@ when you're listing countries or countries with their subdivisions. lglStartContinentCode :: Lens' ListGeoLocations (Maybe Text)-lglStartContinentCode = lens _lglStartContinentCode (\ s a -> s{_lglStartContinentCode = a});+lglStartContinentCode = lens _lglStartContinentCode (\ s a -> s{_lglStartContinentCode = a})  instance AWSRequest ListGeoLocations where         type Rs ListGeoLocations = ListGeoLocationsResponse@@ -180,42 +180,42 @@     -> ListGeoLocationsResponse listGeoLocationsResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListGeoLocationsResponse'-  { _lglrsNextContinentCode = Nothing-  , _lglrsNextCountryCode = Nothing-  , _lglrsNextSubdivisionCode = Nothing-  , _lglrsResponseStatus = pResponseStatus_-  , _lglrsGeoLocationDetailsList = mempty-  , _lglrsIsTruncated = pIsTruncated_-  , _lglrsMaxItems = pMaxItems_-  }+    { _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 @ListGeoLocations@ request. lglrsNextContinentCode :: Lens' ListGeoLocationsResponse (Maybe Text)-lglrsNextContinentCode = lens _lglrsNextContinentCode (\ s a -> s{_lglrsNextContinentCode = a});+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 @ListGeoLocations@ request. lglrsNextCountryCode :: Lens' ListGeoLocationsResponse (Maybe Text)-lglrsNextCountryCode = lens _lglrsNextCountryCode (\ s a -> s{_lglrsNextCountryCode = a});+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 @ListGeoLocations@ request. lglrsNextSubdivisionCode :: Lens' ListGeoLocationsResponse (Maybe Text)-lglrsNextSubdivisionCode = lens _lglrsNextSubdivisionCode (\ s a -> s{_lglrsNextSubdivisionCode = a});+lglrsNextSubdivisionCode = lens _lglrsNextSubdivisionCode (\ s a -> s{_lglrsNextSubdivisionCode = a})  -- | -- | The response status code. lglrsResponseStatus :: Lens' ListGeoLocationsResponse Int-lglrsResponseStatus = lens _lglrsResponseStatus (\ s a -> s{_lglrsResponseStatus = a});+lglrsResponseStatus = lens _lglrsResponseStatus (\ s a -> s{_lglrsResponseStatus = a})  -- | A complex type that contains one @GeoLocationDetails@ element for each location that Amazon Route 53 supports for geolocation. lglrsGeoLocationDetailsList :: Lens' ListGeoLocationsResponse [GeoLocationDetails]-lglrsGeoLocationDetailsList = lens _lglrsGeoLocationDetailsList (\ s a -> s{_lglrsGeoLocationDetailsList = a}) . _Coerce;+lglrsGeoLocationDetailsList = lens _lglrsGeoLocationDetailsList (\ s a -> s{_lglrsGeoLocationDetailsList = a}) . _Coerce  -- | A value that indicates whether more locations remain to be listed after the last location in this response. If so, the value of @IsTruncated@ is @true@ . To get more values, submit another request and include the values of @NextContinentCode@ , @NextCountryCode@ , and @NextSubdivisionCode@ in the @StartContinentCode@ , @StartCountryCode@ , and @StartSubdivisionCode@ , as applicable. lglrsIsTruncated :: Lens' ListGeoLocationsResponse Bool-lglrsIsTruncated = lens _lglrsIsTruncated (\ s a -> s{_lglrsIsTruncated = a});+lglrsIsTruncated = lens _lglrsIsTruncated (\ s a -> s{_lglrsIsTruncated = a})  -- | The value that you specified for @MaxItems@ in the request. lglrsMaxItems :: Lens' ListGeoLocationsResponse Text-lglrsMaxItems = lens _lglrsMaxItems (\ s a -> s{_lglrsMaxItems = a});+lglrsMaxItems = lens _lglrsMaxItems (\ s a -> s{_lglrsMaxItems = a})  instance NFData ListGeoLocationsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListHealthChecks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,11 +78,11 @@  -- | 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});+lhcMarker = lens _lhcMarker (\ s a -> s{_lhcMarker = a})  -- | 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});+lhcMaxItems = lens _lhcMaxItems (\ s a -> s{_lhcMaxItems = a})  instance AWSPager ListHealthChecks where         page rq rs@@ -158,37 +158,37 @@     -> ListHealthChecksResponse listHealthChecksResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ =   ListHealthChecksResponse'-  { _lhcrsNextMarker = Nothing-  , _lhcrsResponseStatus = pResponseStatus_-  , _lhcrsHealthChecks = mempty-  , _lhcrsMarker = pMarker_-  , _lhcrsIsTruncated = pIsTruncated_-  , _lhcrsMaxItems = pMaxItems_-  }+    { _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 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});+lhcrsNextMarker = lens _lhcrsNextMarker (\ s a -> s{_lhcrsNextMarker = a})  -- | -- | The response status code. lhcrsResponseStatus :: Lens' ListHealthChecksResponse Int-lhcrsResponseStatus = lens _lhcrsResponseStatus (\ s a -> s{_lhcrsResponseStatus = a});+lhcrsResponseStatus = lens _lhcrsResponseStatus (\ s a -> s{_lhcrsResponseStatus = a})  -- | A complex type that contains one @HealthCheck@ element for each health check that is associated with the current AWS account. lhcrsHealthChecks :: Lens' ListHealthChecksResponse [HealthCheck]-lhcrsHealthChecks = lens _lhcrsHealthChecks (\ s a -> s{_lhcrsHealthChecks = a}) . _Coerce;+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. lhcrsMarker :: Lens' ListHealthChecksResponse Text-lhcrsMarker = lens _lhcrsMarker (\ s a -> s{_lhcrsMarker = a});+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 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});+lhcrsIsTruncated = lens _lhcrsIsTruncated (\ s a -> s{_lhcrsIsTruncated = a})  -- | The value that you specified for the @maxitems@ parameter in the call to @ListHealthChecks@ that produced the current response. lhcrsMaxItems :: Lens' ListHealthChecksResponse Text-lhcrsMaxItems = lens _lhcrsMaxItems (\ s a -> s{_lhcrsMaxItems = a});+lhcrsMaxItems = lens _lhcrsMaxItems (\ s a -> s{_lhcrsMaxItems = a})  instance NFData ListHealthChecksResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListHostedZones--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,20 +80,23 @@     :: ListHostedZones listHostedZones =   ListHostedZones'-  {_lhzDelegationSetId = Nothing, _lhzMarker = Nothing, _lhzMaxItems = Nothing}+    { _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});+lhzDelegationSetId = lens _lhzDelegationSetId (\ s a -> s{_lhzDelegationSetId = a})  -- | 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});+lhzMarker = lens _lhzMarker (\ s a -> s{_lhzMarker = a})  -- | (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});+lhzMaxItems = lens _lhzMaxItems (\ s a -> s{_lhzMaxItems = a})  instance AWSPager ListHostedZones where         page rq rs@@ -166,37 +169,37 @@     -> ListHostedZonesResponse listHostedZonesResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListHostedZonesResponse'-  { _lhzrsMarker = Nothing-  , _lhzrsNextMarker = Nothing-  , _lhzrsResponseStatus = pResponseStatus_-  , _lhzrsHostedZones = mempty-  , _lhzrsIsTruncated = pIsTruncated_-  , _lhzrsMaxItems = pMaxItems_-  }+    { _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. lhzrsMarker :: Lens' ListHostedZonesResponse (Maybe Text)-lhzrsMarker = lens _lhzrsMarker (\ s a -> s{_lhzrsMarker = a});+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 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});+lhzrsNextMarker = lens _lhzrsNextMarker (\ s a -> s{_lhzrsNextMarker = a})  -- | -- | The response status code. lhzrsResponseStatus :: Lens' ListHostedZonesResponse Int-lhzrsResponseStatus = lens _lhzrsResponseStatus (\ s a -> s{_lhzrsResponseStatus = a});+lhzrsResponseStatus = lens _lhzrsResponseStatus (\ s a -> s{_lhzrsResponseStatus = a})  -- | A complex type that contains general information about the hosted zone. lhzrsHostedZones :: Lens' ListHostedZonesResponse [HostedZone]-lhzrsHostedZones = lens _lhzrsHostedZones (\ s a -> s{_lhzrsHostedZones = a}) . _Coerce;+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 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});+lhzrsIsTruncated = lens _lhzrsIsTruncated (\ s a -> s{_lhzrsIsTruncated = a})  -- | The value that you specified for the @maxitems@ parameter in the call to @ListHostedZones@ that produced the current response. lhzrsMaxItems :: Lens' ListHostedZonesResponse Text-lhzrsMaxItems = lens _lhzrsMaxItems (\ s a -> s{_lhzrsMaxItems = a});+lhzrsMaxItems = lens _lhzrsMaxItems (\ s a -> s{_lhzrsMaxItems = a})  instance NFData ListHostedZonesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListHostedZonesByName--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -103,23 +103,23 @@     :: ListHostedZonesByName listHostedZonesByName =   ListHostedZonesByName'-  { _lhzbnHostedZoneId = Nothing-  , _lhzbnMaxItems = Nothing-  , _lhzbnDNSName = Nothing-  }+    { _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});+lhzbnHostedZoneId = lens _lhzbnHostedZoneId (\ s a -> s{_lhzbnHostedZoneId = a})  -- | The maximum number of hosted zones to be included in the response body for this request. If you have more than @maxitems@ hosted zones, then the value of the @IsTruncated@ element in the response is true, and the values of @NextDNSName@ and @NextHostedZoneId@ specify the first hosted zone in the next group of @maxitems@ hosted zones. lhzbnMaxItems :: Lens' ListHostedZonesByName (Maybe Text)-lhzbnMaxItems = lens _lhzbnMaxItems (\ s a -> s{_lhzbnMaxItems = a});+lhzbnMaxItems = lens _lhzbnMaxItems (\ s a -> s{_lhzbnMaxItems = a})  -- | (Optional) For your first request to @ListHostedZonesByName@ , include the @dnsname@ parameter only if you want to specify the name of the first hosted zone in the response. If you don't include the @dnsname@ parameter, Amazon Route 53 returns all of the hosted zones that were created by the current AWS account, in ASCII order. For subsequent requests, include both @dnsname@ and @hostedzoneid@ parameters. For @dnsname@ , specify the value of @NextDNSName@ from the previous response. lhzbnDNSName :: Lens' ListHostedZonesByName (Maybe Text)-lhzbnDNSName = lens _lhzbnDNSName (\ s a -> s{_lhzbnDNSName = a});+lhzbnDNSName = lens _lhzbnDNSName (\ s a -> s{_lhzbnDNSName = a})  instance AWSRequest ListHostedZonesByName where         type Rs ListHostedZonesByName =@@ -199,47 +199,47 @@     -> ListHostedZonesByNameResponse listHostedZonesByNameResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListHostedZonesByNameResponse'-  { _lhzbnrsHostedZoneId = Nothing-  , _lhzbnrsNextHostedZoneId = Nothing-  , _lhzbnrsDNSName = Nothing-  , _lhzbnrsNextDNSName = Nothing-  , _lhzbnrsResponseStatus = pResponseStatus_-  , _lhzbnrsHostedZones = mempty-  , _lhzbnrsIsTruncated = pIsTruncated_-  , _lhzbnrsMaxItems = pMaxItems_-  }+    { _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});+lhzbnrsHostedZoneId = lens _lhzbnrsHostedZoneId (\ s a -> s{_lhzbnrsHostedZoneId = a})  -- | If @IsTruncated@ is @true@ , the value of @NextHostedZoneId@ identifies the first hosted zone in the next group of @maxitems@ hosted zones. Call @ListHostedZonesByName@ again and specify the value of @NextDNSName@ and @NextHostedZoneId@ in the @dnsname@ and @hostedzoneid@ parameters, respectively. This element is present only if @IsTruncated@ is @true@ . lhzbnrsNextHostedZoneId :: Lens' ListHostedZonesByNameResponse (Maybe ResourceId)-lhzbnrsNextHostedZoneId = lens _lhzbnrsNextHostedZoneId (\ s a -> s{_lhzbnrsNextHostedZoneId = a});+lhzbnrsNextHostedZoneId = lens _lhzbnrsNextHostedZoneId (\ s a -> s{_lhzbnrsNextHostedZoneId = a})  -- | For the second and subsequent calls to @ListHostedZonesByName@ , @DNSName@ is the value that you specified for the @dnsname@ parameter in the request that produced the current response. lhzbnrsDNSName :: Lens' ListHostedZonesByNameResponse (Maybe Text)-lhzbnrsDNSName = lens _lhzbnrsDNSName (\ s a -> s{_lhzbnrsDNSName = a});+lhzbnrsDNSName = lens _lhzbnrsDNSName (\ s a -> s{_lhzbnrsDNSName = a})  -- | If @IsTruncated@ is true, the value of @NextDNSName@ is the name of the first hosted zone in the next group of @maxitems@ hosted zones. Call @ListHostedZonesByName@ again and specify the value of @NextDNSName@ and @NextHostedZoneId@ in the @dnsname@ and @hostedzoneid@ parameters, respectively. This element is present only if @IsTruncated@ is @true@ . lhzbnrsNextDNSName :: Lens' ListHostedZonesByNameResponse (Maybe Text)-lhzbnrsNextDNSName = lens _lhzbnrsNextDNSName (\ s a -> s{_lhzbnrsNextDNSName = a});+lhzbnrsNextDNSName = lens _lhzbnrsNextDNSName (\ s a -> s{_lhzbnrsNextDNSName = a})  -- | -- | The response status code. lhzbnrsResponseStatus :: Lens' ListHostedZonesByNameResponse Int-lhzbnrsResponseStatus = lens _lhzbnrsResponseStatus (\ s a -> s{_lhzbnrsResponseStatus = a});+lhzbnrsResponseStatus = lens _lhzbnrsResponseStatus (\ s a -> s{_lhzbnrsResponseStatus = a})  -- | A complex type that contains general information about the hosted zone. lhzbnrsHostedZones :: Lens' ListHostedZonesByNameResponse [HostedZone]-lhzbnrsHostedZones = lens _lhzbnrsHostedZones (\ s a -> s{_lhzbnrsHostedZones = a}) . _Coerce;+lhzbnrsHostedZones = lens _lhzbnrsHostedZones (\ s a -> s{_lhzbnrsHostedZones = a}) . _Coerce  -- | A flag that indicates 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 @ListHostedZonesByName@ again and specifying the values of @NextDNSName@ and @NextHostedZoneId@ elements in the @dnsname@ and @hostedzoneid@ parameters. lhzbnrsIsTruncated :: Lens' ListHostedZonesByNameResponse Bool-lhzbnrsIsTruncated = lens _lhzbnrsIsTruncated (\ s a -> s{_lhzbnrsIsTruncated = a});+lhzbnrsIsTruncated = lens _lhzbnrsIsTruncated (\ s a -> s{_lhzbnrsIsTruncated = a})  -- | The value that you specified for the @maxitems@ parameter in the call to @ListHostedZonesByName@ that produced the current response. lhzbnrsMaxItems :: Lens' ListHostedZonesByNameResponse Text-lhzbnrsMaxItems = lens _lhzbnrsMaxItems (\ s a -> s{_lhzbnrsMaxItems = a});+lhzbnrsMaxItems = lens _lhzbnrsMaxItems (\ s a -> s{_lhzbnrsMaxItems = a})  instance NFData ListHostedZonesByNameResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListQueryLoggingConfigs--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,23 +70,23 @@     :: ListQueryLoggingConfigs listQueryLoggingConfigs =   ListQueryLoggingConfigs'-  { _lqlcHostedZoneId = Nothing-  , _lqlcNextToken = Nothing-  , _lqlcMaxResults = Nothing-  }+    { _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});+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});+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});+lqlcMaxResults = lens _lqlcMaxResults (\ s a -> s{_lqlcMaxResults = a})  instance AWSRequest ListQueryLoggingConfigs where         type Rs ListQueryLoggingConfigs =@@ -139,22 +139,22 @@     -> ListQueryLoggingConfigsResponse listQueryLoggingConfigsResponse pResponseStatus_ =   ListQueryLoggingConfigsResponse'-  { _lqlcrsNextToken = Nothing-  , _lqlcrsResponseStatus = pResponseStatus_-  , _lqlcrsQueryLoggingConfigs = mempty-  }+    { _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});+lqlcrsNextToken = lens _lqlcrsNextToken (\ s a -> s{_lqlcrsNextToken = a})  -- | -- | The response status code. lqlcrsResponseStatus :: Lens' ListQueryLoggingConfigsResponse Int-lqlcrsResponseStatus = lens _lqlcrsResponseStatus (\ s a -> s{_lqlcrsResponseStatus = a});+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;+lqlcrsQueryLoggingConfigs = lens _lqlcrsQueryLoggingConfigs (\ s a -> s{_lqlcrsQueryLoggingConfigs = a}) . _Coerce  instance NFData ListQueryLoggingConfigsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListResourceRecordSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -112,33 +112,33 @@     -> ListResourceRecordSets listResourceRecordSets pHostedZoneId_ =   ListResourceRecordSets'-  { _lrrsStartRecordName = Nothing-  , _lrrsStartRecordType = Nothing-  , _lrrsStartRecordIdentifier = Nothing-  , _lrrsMaxItems = Nothing-  , _lrrsHostedZoneId = pHostedZoneId_-  }+    { _lrrsStartRecordName = Nothing+    , _lrrsStartRecordType = Nothing+    , _lrrsStartRecordIdentifier = Nothing+    , _lrrsMaxItems = Nothing+    , _lrrsHostedZoneId = pHostedZoneId_+    }   -- | 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});+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@ | @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});+lrrsStartRecordType = lens _lrrsStartRecordType (\ s a -> s{_lrrsStartRecordType = a})  -- | /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. lrrsStartRecordIdentifier :: Lens' ListResourceRecordSets (Maybe Text)-lrrsStartRecordIdentifier = lens _lrrsStartRecordIdentifier (\ s a -> s{_lrrsStartRecordIdentifier = a});+lrrsStartRecordIdentifier = lens _lrrsStartRecordIdentifier (\ s a -> s{_lrrsStartRecordIdentifier = a})  -- | (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. lrrsMaxItems :: Lens' ListResourceRecordSets (Maybe Text)-lrrsMaxItems = lens _lrrsMaxItems (\ s a -> s{_lrrsMaxItems = a});+lrrsMaxItems = lens _lrrsMaxItems (\ s a -> s{_lrrsMaxItems = a})  -- | 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});+lrrsHostedZoneId = lens _lrrsHostedZoneId (\ s a -> s{_lrrsHostedZoneId = a})  instance AWSPager ListResourceRecordSets where         page rq rs@@ -233,42 +233,42 @@     -> ListResourceRecordSetsResponse listResourceRecordSetsResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListResourceRecordSetsResponse'-  { _lrrsrsNextRecordType = Nothing-  , _lrrsrsNextRecordName = Nothing-  , _lrrsrsNextRecordIdentifier = Nothing-  , _lrrsrsResponseStatus = pResponseStatus_-  , _lrrsrsResourceRecordSets = mempty-  , _lrrsrsIsTruncated = pIsTruncated_-  , _lrrsrsMaxItems = pMaxItems_-  }+    { _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});+lrrsrsNextRecordType = lens _lrrsrsNextRecordType (\ s a -> s{_lrrsrsNextRecordType = a})  -- | If the results were truncated, the name of the next record in the list. This element is present only if @IsTruncated@ is true. lrrsrsNextRecordName :: Lens' ListResourceRecordSetsResponse (Maybe Text)-lrrsrsNextRecordName = lens _lrrsrsNextRecordName (\ s a -> s{_lrrsrsNextRecordName = a});+lrrsrsNextRecordName = lens _lrrsrsNextRecordName (\ s a -> s{_lrrsrsNextRecordName = a})  -- | /Weighted, latency, geolocation, and failover resource record sets only/ : If results were truncated for a given DNS name and type, the value of @SetIdentifier@ for the next resource record set that has the current DNS name and type. lrrsrsNextRecordIdentifier :: Lens' ListResourceRecordSetsResponse (Maybe Text)-lrrsrsNextRecordIdentifier = lens _lrrsrsNextRecordIdentifier (\ s a -> s{_lrrsrsNextRecordIdentifier = a});+lrrsrsNextRecordIdentifier = lens _lrrsrsNextRecordIdentifier (\ s a -> s{_lrrsrsNextRecordIdentifier = a})  -- | -- | The response status code. lrrsrsResponseStatus :: Lens' ListResourceRecordSetsResponse Int-lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a});+lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a})  -- | Information about multiple resource record sets. lrrsrsResourceRecordSets :: Lens' ListResourceRecordSetsResponse [ResourceRecordSet]-lrrsrsResourceRecordSets = lens _lrrsrsResourceRecordSets (\ s a -> s{_lrrsrsResourceRecordSets = a}) . _Coerce;+lrrsrsResourceRecordSets = lens _lrrsrsResourceRecordSets (\ s a -> s{_lrrsrsResourceRecordSets = a}) . _Coerce  -- | A flag that indicates whether more resource record sets remain to be listed. If your results were truncated, you can make a follow-up pagination request by using the @NextRecordName@ element. lrrsrsIsTruncated :: Lens' ListResourceRecordSetsResponse Bool-lrrsrsIsTruncated = lens _lrrsrsIsTruncated (\ s a -> s{_lrrsrsIsTruncated = a});+lrrsrsIsTruncated = lens _lrrsrsIsTruncated (\ s a -> s{_lrrsrsIsTruncated = a})  -- | The maximum number of records you requested. lrrsrsMaxItems :: Lens' ListResourceRecordSetsResponse Text-lrrsrsMaxItems = lens _lrrsrsMaxItems (\ s a -> s{_lrrsrsMaxItems = a});+lrrsrsMaxItems = lens _lrrsrsMaxItems (\ s a -> s{_lrrsrsMaxItems = a})  instance NFData ListResourceRecordSetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListReusableDelegationSets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,11 +75,11 @@  -- | 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});+lrdsMarker = lens _lrdsMarker (\ s a -> s{_lrdsMarker = a})  -- | 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});+lrdsMaxItems = lens _lrdsMaxItems (\ s a -> s{_lrdsMaxItems = a})  instance AWSRequest ListReusableDelegationSets where         type Rs ListReusableDelegationSets =@@ -150,38 +150,38 @@     -> ListReusableDelegationSetsResponse listReusableDelegationSetsResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ =   ListReusableDelegationSetsResponse'-  { _lrdsrsNextMarker = Nothing-  , _lrdsrsResponseStatus = pResponseStatus_-  , _lrdsrsDelegationSets = mempty-  , _lrdsrsMarker = pMarker_-  , _lrdsrsIsTruncated = pIsTruncated_-  , _lrdsrsMaxItems = pMaxItems_-  }+    { _lrdsrsNextMarker = Nothing+    , _lrdsrsResponseStatus = pResponseStatus_+    , _lrdsrsDelegationSets = mempty+    , _lrdsrsMarker = pMarker_+    , _lrdsrsIsTruncated = pIsTruncated_+    , _lrdsrsMaxItems = pMaxItems_+    }   -- | 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});+lrdsrsNextMarker = lens _lrdsrsNextMarker (\ s a -> s{_lrdsrsNextMarker = a})  -- | -- | The response status code. lrdsrsResponseStatus :: Lens' ListReusableDelegationSetsResponse Int-lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a});+lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a})  -- | A complex type that contains one @DelegationSet@ element for each reusable delegation set that was created by the current AWS account. lrdsrsDelegationSets :: Lens' ListReusableDelegationSetsResponse [DelegationSet]-lrdsrsDelegationSets = lens _lrdsrsDelegationSets (\ s a -> s{_lrdsrsDelegationSets = a}) . _Coerce;+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. lrdsrsMarker :: Lens' ListReusableDelegationSetsResponse Text-lrdsrsMarker = lens _lrdsrsMarker (\ s a -> s{_lrdsrsMarker = a});+lrdsrsMarker = lens _lrdsrsMarker (\ s a -> s{_lrdsrsMarker = a})  -- | 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});+lrdsrsIsTruncated = lens _lrdsrsIsTruncated (\ s a -> s{_lrdsrsIsTruncated = a})  -- | The value that you specified for the @maxitems@ parameter in the call to @ListReusableDelegationSets@ that produced the current response. lrdsrsMaxItems :: Lens' ListReusableDelegationSetsResponse Text-lrdsrsMaxItems = lens _lrdsrsMaxItems (\ s a -> s{_lrdsrsMaxItems = a});+lrdsrsMaxItems = lens _lrdsrsMaxItems (\ s a -> s{_lrdsrsMaxItems = a})  instance NFData ListReusableDelegationSetsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,16 +71,16 @@     -> ListTagsForResource listTagsForResource pResourceType_ pResourceId_ =   ListTagsForResource'-  {_ltfrResourceType = pResourceType_, _ltfrResourceId = pResourceId_}+    {_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});+ltfrResourceType = lens _ltfrResourceType (\ s a -> s{_ltfrResourceType = a})  -- | The ID of the resource for which you want to retrieve tags. ltfrResourceId :: Lens' ListTagsForResource Text-ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a});+ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource =@@ -132,17 +132,17 @@     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ pResourceTagSet_ =   ListTagsForResourceResponse'-  { _ltfrrsResponseStatus = pResponseStatus_-  , _ltfrrsResourceTagSet = pResourceTagSet_-  }+    { _ltfrrsResponseStatus = pResponseStatus_+    , _ltfrrsResourceTagSet = pResourceTagSet_+    }   -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})  -- | A @ResourceTagSet@ containing tags associated with the specified resource. ltfrrsResourceTagSet :: Lens' ListTagsForResourceResponse ResourceTagSet-ltfrrsResourceTagSet = lens _ltfrrsResourceTagSet (\ s a -> s{_ltfrrsResourceTagSet = a});+ltfrrsResourceTagSet = lens _ltfrrsResourceTagSet (\ s a -> s{_ltfrrsResourceTagSet = a})  instance NFData ListTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTagsForResources--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,16 +71,16 @@     -> ListTagsForResources listTagsForResources pResourceType_ pResourceIds_ =   ListTagsForResources'-  {_lResourceType = pResourceType_, _lResourceIds = _List1 # pResourceIds_}+    {_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});+lResourceType = lens _lResourceType (\ s a -> s{_lResourceType = a})  -- | A complex type that contains the ResourceId element for each resource for which you want to get a list of tags. lResourceIds :: Lens' ListTagsForResources (NonEmpty Text)-lResourceIds = lens _lResourceIds (\ s a -> s{_lResourceIds = a}) . _List1;+lResourceIds = lens _lResourceIds (\ s a -> s{_lResourceIds = a}) . _List1  instance AWSRequest ListTagsForResources where         type Rs ListTagsForResources =@@ -142,15 +142,15 @@     -> ListTagsForResourcesResponse listTagsForResourcesResponse pResponseStatus_ =   ListTagsForResourcesResponse'-  {_lrsResponseStatus = pResponseStatus_, _lrsResourceTagSets = mempty}+    {_lrsResponseStatus = pResponseStatus_, _lrsResourceTagSets = mempty}   -- | -- | The response status code. lrsResponseStatus :: Lens' ListTagsForResourcesResponse Int-lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})  -- | A list of @ResourceTagSet@ s containing tags associated with the specified resources. lrsResourceTagSets :: Lens' ListTagsForResourcesResponse [ResourceTagSet]-lrsResourceTagSets = lens _lrsResourceTagSets (\ s a -> s{_lrsResourceTagSets = a}) . _Coerce;+lrsResourceTagSets = lens _lrsResourceTagSets (\ s a -> s{_lrsResourceTagSets = a}) . _Coerce  instance NFData ListTagsForResourcesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicies--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,16 +70,16 @@     :: ListTrafficPolicies listTrafficPolicies =   ListTrafficPolicies'-  {_ltpTrafficPolicyIdMarker = Nothing, _ltpMaxItems = Nothing}+    {_ltpTrafficPolicyIdMarker = Nothing, _ltpMaxItems = Nothing}   -- | (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});+ltpTrafficPolicyIdMarker = lens _ltpTrafficPolicyIdMarker (\ s a -> s{_ltpTrafficPolicyIdMarker = a})  -- | (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});+ltpMaxItems = lens _ltpMaxItems (\ s a -> s{_ltpMaxItems = a})  instance AWSRequest ListTrafficPolicies where         type Rs ListTrafficPolicies =@@ -147,32 +147,32 @@     -> ListTrafficPoliciesResponse listTrafficPoliciesResponse pResponseStatus_ pIsTruncated_ pTrafficPolicyIdMarker_ pMaxItems_ =   ListTrafficPoliciesResponse'-  { _ltprsResponseStatus = pResponseStatus_-  , _ltprsTrafficPolicySummaries = mempty-  , _ltprsIsTruncated = pIsTruncated_-  , _ltprsTrafficPolicyIdMarker = pTrafficPolicyIdMarker_-  , _ltprsMaxItems = pMaxItems_-  }+    { _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});+ltprsResponseStatus = lens _ltprsResponseStatus (\ s a -> s{_ltprsResponseStatus = a})  -- | A list that contains one @TrafficPolicySummary@ element for each traffic policy that was created by the current AWS account. ltprsTrafficPolicySummaries :: Lens' ListTrafficPoliciesResponse [TrafficPolicySummary]-ltprsTrafficPolicySummaries = lens _ltprsTrafficPolicySummaries (\ s a -> s{_ltprsTrafficPolicySummaries = a}) . _Coerce;+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 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});+ltprsIsTruncated = lens _ltprsIsTruncated (\ s a -> s{_ltprsIsTruncated = a})  -- | If the value of @IsTruncated@ is @true@ , @TrafficPolicyIdMarker@ is the ID of the first traffic policy in the next group of @MaxItems@ traffic policies. ltprsTrafficPolicyIdMarker :: Lens' ListTrafficPoliciesResponse Text-ltprsTrafficPolicyIdMarker = lens _ltprsTrafficPolicyIdMarker (\ s a -> s{_ltprsTrafficPolicyIdMarker = a});+ltprsTrafficPolicyIdMarker = lens _ltprsTrafficPolicyIdMarker (\ s a -> s{_ltprsTrafficPolicyIdMarker = a})  -- | 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});+ltprsMaxItems = lens _ltprsMaxItems (\ s a -> s{_ltprsMaxItems = a})  instance NFData ListTrafficPoliciesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,28 +82,28 @@     :: ListTrafficPolicyInstances listTrafficPolicyInstances =   ListTrafficPolicyInstances'-  { _ltpiTrafficPolicyInstanceTypeMarker = Nothing-  , _ltpiMaxItems = Nothing-  , _ltpiHostedZoneIdMarker = Nothing-  , _ltpiTrafficPolicyInstanceNameMarker = Nothing-  }+    { _ltpiTrafficPolicyInstanceTypeMarker = Nothing+    , _ltpiMaxItems = Nothing+    , _ltpiHostedZoneIdMarker = Nothing+    , _ltpiTrafficPolicyInstanceNameMarker = Nothing+    }   -- | 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});+ltpiTrafficPolicyInstanceTypeMarker = lens _ltpiTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpiTrafficPolicyInstanceTypeMarker = a})  -- | 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});+ltpiMaxItems = lens _ltpiMaxItems (\ s a -> s{_ltpiMaxItems = a})  -- | 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});+ltpiHostedZoneIdMarker = lens _ltpiHostedZoneIdMarker (\ s a -> s{_ltpiHostedZoneIdMarker = a})  -- | 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});+ltpiTrafficPolicyInstanceNameMarker = lens _ltpiTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpiTrafficPolicyInstanceNameMarker = a})  instance AWSRequest ListTrafficPolicyInstances where         type Rs ListTrafficPolicyInstances =@@ -183,43 +183,43 @@     -> ListTrafficPolicyInstancesResponse listTrafficPolicyInstancesResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListTrafficPolicyInstancesResponse'-  { _ltpirsTrafficPolicyInstanceTypeMarker = Nothing-  , _ltpirsHostedZoneIdMarker = Nothing-  , _ltpirsTrafficPolicyInstanceNameMarker = Nothing-  , _ltpirsResponseStatus = pResponseStatus_-  , _ltpirsTrafficPolicyInstances = mempty-  , _ltpirsIsTruncated = pIsTruncated_-  , _ltpirsMaxItems = pMaxItems_-  }+    { _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 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});+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 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});+ltpirsHostedZoneIdMarker = lens _ltpirsHostedZoneIdMarker (\ s a -> s{_ltpirsHostedZoneIdMarker = a})  -- | 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});+ltpirsTrafficPolicyInstanceNameMarker = lens _ltpirsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpirsTrafficPolicyInstanceNameMarker = a})  -- | -- | The response status code. ltpirsResponseStatus :: Lens' ListTrafficPolicyInstancesResponse Int-ltpirsResponseStatus = lens _ltpirsResponseStatus (\ s a -> s{_ltpirsResponseStatus = a});+ltpirsResponseStatus = lens _ltpirsResponseStatus (\ s a -> s{_ltpirsResponseStatus = a})  -- | A list that contains one @TrafficPolicyInstance@ element for each traffic policy instance that matches the elements in the request. ltpirsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesResponse [TrafficPolicyInstance]-ltpirsTrafficPolicyInstances = lens _ltpirsTrafficPolicyInstances (\ s a -> s{_ltpirsTrafficPolicyInstances = a}) . _Coerce;+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 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});+ltpirsIsTruncated = lens _ltpirsIsTruncated (\ s a -> s{_ltpirsIsTruncated = a})  -- | The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicyInstances@ that produced the current response. ltpirsMaxItems :: Lens' ListTrafficPolicyInstancesResponse Text-ltpirsMaxItems = lens _ltpirsMaxItems (\ s a -> s{_ltpirsMaxItems = a});+ltpirsMaxItems = lens _ltpirsMaxItems (\ s a -> s{_ltpirsMaxItems = a})  instance NFData ListTrafficPolicyInstancesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyInstancesByHostedZone--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,28 +82,28 @@     -> ListTrafficPolicyInstancesByHostedZone listTrafficPolicyInstancesByHostedZone pHostedZoneId_ =   ListTrafficPolicyInstancesByHostedZone'-  { _ltpibhzTrafficPolicyInstanceTypeMarker = Nothing-  , _ltpibhzMaxItems = Nothing-  , _ltpibhzTrafficPolicyInstanceNameMarker = Nothing-  , _ltpibhzHostedZoneId = pHostedZoneId_-  }+    { _ltpibhzTrafficPolicyInstanceTypeMarker = Nothing+    , _ltpibhzMaxItems = Nothing+    , _ltpibhzTrafficPolicyInstanceNameMarker = Nothing+    , _ltpibhzHostedZoneId = pHostedZoneId_+    }   -- | 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});+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 that Amazon Route 53 will return if you submit another request. ltpibhzMaxItems :: Lens' ListTrafficPolicyInstancesByHostedZone (Maybe Text)-ltpibhzMaxItems = lens _ltpibhzMaxItems (\ s a -> s{_ltpibhzMaxItems = a});+ltpibhzMaxItems = lens _ltpibhzMaxItems (\ s a -> s{_ltpibhzMaxItems = a})  -- | 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});+ltpibhzTrafficPolicyInstanceNameMarker = lens _ltpibhzTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzTrafficPolicyInstanceNameMarker = a})  -- | 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});+ltpibhzHostedZoneId = lens _ltpibhzHostedZoneId (\ s a -> s{_ltpibhzHostedZoneId = a})  instance AWSRequest            ListTrafficPolicyInstancesByHostedZone@@ -193,38 +193,38 @@     -> ListTrafficPolicyInstancesByHostedZoneResponse listTrafficPolicyInstancesByHostedZoneResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListTrafficPolicyInstancesByHostedZoneResponse'-  { _ltpibhzrsTrafficPolicyInstanceTypeMarker = Nothing-  , _ltpibhzrsTrafficPolicyInstanceNameMarker = Nothing-  , _ltpibhzrsResponseStatus = pResponseStatus_-  , _ltpibhzrsTrafficPolicyInstances = mempty-  , _ltpibhzrsIsTruncated = pIsTruncated_-  , _ltpibhzrsMaxItems = pMaxItems_-  }+    { _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 traffic policy instances. ltpibhzrsTrafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse (Maybe RecordType)-ltpibhzrsTrafficPolicyInstanceTypeMarker = lens _ltpibhzrsTrafficPolicyInstanceTypeMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceTypeMarker = a});+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 traffic policy instances. ltpibhzrsTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse (Maybe Text)-ltpibhzrsTrafficPolicyInstanceNameMarker = lens _ltpibhzrsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceNameMarker = a});+ltpibhzrsTrafficPolicyInstanceNameMarker = lens _ltpibhzrsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibhzrsTrafficPolicyInstanceNameMarker = a})  -- | -- | The response status code. ltpibhzrsResponseStatus :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse Int-ltpibhzrsResponseStatus = lens _ltpibhzrsResponseStatus (\ s a -> s{_ltpibhzrsResponseStatus = a});+ltpibhzrsResponseStatus = lens _ltpibhzrsResponseStatus (\ s a -> s{_ltpibhzrsResponseStatus = a})  -- | A list that contains one @TrafficPolicyInstance@ element for each traffic policy instance that matches the elements in the request. ltpibhzrsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesByHostedZoneResponse [TrafficPolicyInstance]-ltpibhzrsTrafficPolicyInstances = lens _ltpibhzrsTrafficPolicyInstances (\ s a -> s{_ltpibhzrsTrafficPolicyInstances = a}) . _Coerce;+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 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});+ltpibhzrsIsTruncated = lens _ltpibhzrsIsTruncated (\ s a -> s{_ltpibhzrsIsTruncated = a})  -- | 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});+ltpibhzrsMaxItems = lens _ltpibhzrsMaxItems (\ s a -> s{_ltpibhzrsMaxItems = a})  instance NFData            ListTrafficPolicyInstancesByHostedZoneResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyInstancesByPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -92,38 +92,38 @@     -> ListTrafficPolicyInstancesByPolicy listTrafficPolicyInstancesByPolicy pTrafficPolicyId_ pTrafficPolicyVersion_ =   ListTrafficPolicyInstancesByPolicy'-  { _ltpibpTrafficPolicyInstanceTypeMarker = Nothing-  , _ltpibpMaxItems = Nothing-  , _ltpibpHostedZoneIdMarker = Nothing-  , _ltpibpTrafficPolicyInstanceNameMarker = Nothing-  , _ltpibpTrafficPolicyId = pTrafficPolicyId_-  , _ltpibpTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_-  }+    { _ltpibpTrafficPolicyInstanceTypeMarker = Nothing+    , _ltpibpMaxItems = Nothing+    , _ltpibpHostedZoneIdMarker = Nothing+    , _ltpibpTrafficPolicyInstanceNameMarker = Nothing+    , _ltpibpTrafficPolicyId = pTrafficPolicyId_+    , _ltpibpTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_+    }   -- | 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});+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 that Amazon Route 53 will return if you submit another request. ltpibpMaxItems :: Lens' ListTrafficPolicyInstancesByPolicy (Maybe Text)-ltpibpMaxItems = lens _ltpibpMaxItems (\ s a -> s{_ltpibpMaxItems = a});+ltpibpMaxItems = lens _ltpibpMaxItems (\ s a -> s{_ltpibpMaxItems = a})  -- | 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});+ltpibpHostedZoneIdMarker = lens _ltpibpHostedZoneIdMarker (\ s a -> s{_ltpibpHostedZoneIdMarker = a})  -- | 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});+ltpibpTrafficPolicyInstanceNameMarker = lens _ltpibpTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibpTrafficPolicyInstanceNameMarker = a})  -- | The ID of the traffic policy for which you want to list traffic policy instances. ltpibpTrafficPolicyId :: Lens' ListTrafficPolicyInstancesByPolicy Text-ltpibpTrafficPolicyId = lens _ltpibpTrafficPolicyId (\ s a -> s{_ltpibpTrafficPolicyId = a});+ltpibpTrafficPolicyId = lens _ltpibpTrafficPolicyId (\ s a -> s{_ltpibpTrafficPolicyId = a})  -- | The version of the traffic policy for which you want to list traffic policy instances. The version must be associated with the traffic policy that is specified by @TrafficPolicyId@ . ltpibpTrafficPolicyVersion :: Lens' ListTrafficPolicyInstancesByPolicy Natural-ltpibpTrafficPolicyVersion = lens _ltpibpTrafficPolicyVersion (\ s a -> s{_ltpibpTrafficPolicyVersion = a}) . _Nat;+ltpibpTrafficPolicyVersion = lens _ltpibpTrafficPolicyVersion (\ s a -> s{_ltpibpTrafficPolicyVersion = a}) . _Nat  instance AWSRequest            ListTrafficPolicyInstancesByPolicy@@ -214,43 +214,43 @@     -> ListTrafficPolicyInstancesByPolicyResponse listTrafficPolicyInstancesByPolicyResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =   ListTrafficPolicyInstancesByPolicyResponse'-  { _ltpibprsTrafficPolicyInstanceTypeMarker = Nothing-  , _ltpibprsHostedZoneIdMarker = Nothing-  , _ltpibprsTrafficPolicyInstanceNameMarker = Nothing-  , _ltpibprsResponseStatus = pResponseStatus_-  , _ltpibprsTrafficPolicyInstances = mempty-  , _ltpibprsIsTruncated = pIsTruncated_-  , _ltpibprsMaxItems = pMaxItems_-  }+    { _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});+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 traffic policy instances. ltpibprsHostedZoneIdMarker :: Lens' ListTrafficPolicyInstancesByPolicyResponse (Maybe ResourceId)-ltpibprsHostedZoneIdMarker = lens _ltpibprsHostedZoneIdMarker (\ s a -> s{_ltpibprsHostedZoneIdMarker = a});+ltpibprsHostedZoneIdMarker = lens _ltpibprsHostedZoneIdMarker (\ s a -> s{_ltpibprsHostedZoneIdMarker = a})  -- | If @IsTruncated@ is @true@ , @TrafficPolicyInstanceNameMarker@ is the name of the first traffic policy instance in the next group of @MaxItems@ traffic policy instances. ltpibprsTrafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesByPolicyResponse (Maybe Text)-ltpibprsTrafficPolicyInstanceNameMarker = lens _ltpibprsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibprsTrafficPolicyInstanceNameMarker = a});+ltpibprsTrafficPolicyInstanceNameMarker = lens _ltpibprsTrafficPolicyInstanceNameMarker (\ s a -> s{_ltpibprsTrafficPolicyInstanceNameMarker = a})  -- | -- | The response status code. ltpibprsResponseStatus :: Lens' ListTrafficPolicyInstancesByPolicyResponse Int-ltpibprsResponseStatus = lens _ltpibprsResponseStatus (\ s a -> s{_ltpibprsResponseStatus = a});+ltpibprsResponseStatus = lens _ltpibprsResponseStatus (\ s a -> s{_ltpibprsResponseStatus = a})  -- | A list that contains one @TrafficPolicyInstance@ element for each traffic policy instance that matches the elements in the request. ltpibprsTrafficPolicyInstances :: Lens' ListTrafficPolicyInstancesByPolicyResponse [TrafficPolicyInstance]-ltpibprsTrafficPolicyInstances = lens _ltpibprsTrafficPolicyInstances (\ s a -> s{_ltpibprsTrafficPolicyInstances = a}) . _Coerce;+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 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});+ltpibprsIsTruncated = lens _ltpibprsIsTruncated (\ s a -> s{_ltpibprsIsTruncated = a})  -- | The value that you specified for the @MaxItems@ parameter in the call to @ListTrafficPolicyInstancesByPolicy@ that produced the current response. ltpibprsMaxItems :: Lens' ListTrafficPolicyInstancesByPolicyResponse Text-ltpibprsMaxItems = lens _ltpibprsMaxItems (\ s a -> s{_ltpibprsMaxItems = a});+ltpibprsMaxItems = lens _ltpibprsMaxItems (\ s a -> s{_ltpibprsMaxItems = a})  instance NFData            ListTrafficPolicyInstancesByPolicyResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListTrafficPolicyVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,23 +77,23 @@     -> ListTrafficPolicyVersions listTrafficPolicyVersions pId_ =   ListTrafficPolicyVersions'-  { _ltpvMaxItems = Nothing-  , _ltpvTrafficPolicyVersionMarker = Nothing-  , _ltpvId = pId_-  }+    { _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 @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});+ltpvMaxItems = lens _ltpvMaxItems (\ s a -> s{_ltpvMaxItems = a})  -- | 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});+ltpvTrafficPolicyVersionMarker = lens _ltpvTrafficPolicyVersionMarker (\ s a -> s{_ltpvTrafficPolicyVersionMarker = a})  -- | Specify the value of @Id@ of the traffic policy for which you want to list all versions. ltpvId :: Lens' ListTrafficPolicyVersions Text-ltpvId = lens _ltpvId (\ s a -> s{_ltpvId = a});+ltpvId = lens _ltpvId (\ s a -> s{_ltpvId = a})  instance AWSRequest ListTrafficPolicyVersions where         type Rs ListTrafficPolicyVersions =@@ -165,33 +165,33 @@     -> ListTrafficPolicyVersionsResponse listTrafficPolicyVersionsResponse pResponseStatus_ pIsTruncated_ pTrafficPolicyVersionMarker_ pMaxItems_ =   ListTrafficPolicyVersionsResponse'-  { _ltpvrsResponseStatus = pResponseStatus_-  , _ltpvrsTrafficPolicies = mempty-  , _ltpvrsIsTruncated = pIsTruncated_-  , _ltpvrsTrafficPolicyVersionMarker = pTrafficPolicyVersionMarker_-  , _ltpvrsMaxItems = pMaxItems_-  }+    { _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});+ltpvrsResponseStatus = lens _ltpvrsResponseStatus (\ s a -> s{_ltpvrsResponseStatus = a})  -- | A list that contains one @TrafficPolicy@ element for each traffic policy version that is associated with the specified traffic policy. ltpvrsTrafficPolicies :: Lens' ListTrafficPolicyVersionsResponse [TrafficPolicy]-ltpvrsTrafficPolicies = lens _ltpvrsTrafficPolicies (\ s a -> s{_ltpvrsTrafficPolicies = a}) . _Coerce;+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 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});+ltpvrsIsTruncated = lens _ltpvrsIsTruncated (\ s a -> s{_ltpvrsIsTruncated = a})  -- | 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});+ltpvrsTrafficPolicyVersionMarker = lens _ltpvrsTrafficPolicyVersionMarker (\ s a -> s{_ltpvrsTrafficPolicyVersionMarker = a})  -- | 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});+ltpvrsMaxItems = lens _ltpvrsMaxItems (\ s a -> s{_ltpvrsMaxItems = a})  instance NFData ListTrafficPolicyVersionsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.ListVPCAssociationAuthorizations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,23 +76,23 @@     -> ListVPCAssociationAuthorizations listVPCAssociationAuthorizations pHostedZoneId_ =   ListVPCAssociationAuthorizations'-  { _lvaaNextToken = Nothing-  , _lvaaMaxResults = Nothing-  , _lvaaHostedZoneId = pHostedZoneId_-  }+    { _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 @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});+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. 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});+lvaaMaxResults = lens _lvaaMaxResults (\ s a -> s{_lvaaMaxResults = a})  -- | The ID of the hosted zone for which you want a list of VPCs that can be associated with the hosted zone. lvaaHostedZoneId :: Lens' ListVPCAssociationAuthorizations ResourceId-lvaaHostedZoneId = lens _lvaaHostedZoneId (\ s a -> s{_lvaaHostedZoneId = a});+lvaaHostedZoneId = lens _lvaaHostedZoneId (\ s a -> s{_lvaaHostedZoneId = a})  instance AWSRequest ListVPCAssociationAuthorizations          where@@ -163,28 +163,28 @@     -> ListVPCAssociationAuthorizationsResponse listVPCAssociationAuthorizationsResponse pResponseStatus_ pHostedZoneId_ pVPCs_ =   ListVPCAssociationAuthorizationsResponse'-  { _lvaarsNextToken = Nothing-  , _lvaarsResponseStatus = pResponseStatus_-  , _lvaarsHostedZoneId = pHostedZoneId_-  , _lvaarsVPCs = _List1 # pVPCs_-  }+    { _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. lvaarsNextToken :: Lens' ListVPCAssociationAuthorizationsResponse (Maybe Text)-lvaarsNextToken = lens _lvaarsNextToken (\ s a -> s{_lvaarsNextToken = a});+lvaarsNextToken = lens _lvaarsNextToken (\ s a -> s{_lvaarsNextToken = a})  -- | -- | The response status code. lvaarsResponseStatus :: Lens' ListVPCAssociationAuthorizationsResponse Int-lvaarsResponseStatus = lens _lvaarsResponseStatus (\ s a -> s{_lvaarsResponseStatus = a});+lvaarsResponseStatus = lens _lvaarsResponseStatus (\ s a -> s{_lvaarsResponseStatus = a})  -- | The ID of the hosted zone that you can associate the listed VPCs with. lvaarsHostedZoneId :: Lens' ListVPCAssociationAuthorizationsResponse ResourceId-lvaarsHostedZoneId = lens _lvaarsHostedZoneId (\ s a -> s{_lvaarsHostedZoneId = a});+lvaarsHostedZoneId = lens _lvaarsHostedZoneId (\ s a -> s{_lvaarsHostedZoneId = a})  -- | The list of VPCs that are authorized to be associated with the specified hosted zone. lvaarsVPCs :: Lens' ListVPCAssociationAuthorizationsResponse (NonEmpty VPC)-lvaarsVPCs = lens _lvaarsVPCs (\ s a -> s{_lvaarsVPCs = a}) . _List1;+lvaarsVPCs = lens _lvaarsVPCs (\ s a -> s{_lvaarsVPCs = a}) . _List1  instance NFData            ListVPCAssociationAuthorizationsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.TestDNSAnswer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,38 +91,38 @@     -> TestDNSAnswer testDNSAnswer pHostedZoneId_ pRecordName_ pRecordType_ =   TestDNSAnswer'-  { _tdaResolverIP = Nothing-  , _tdaEDNS0ClientSubnetIP = Nothing-  , _tdaEDNS0ClientSubnetMask = Nothing-  , _tdaHostedZoneId = pHostedZoneId_-  , _tdaRecordName = pRecordName_-  , _tdaRecordType = pRecordType_-  }+    { _tdaResolverIP = Nothing+    , _tdaEDNS0ClientSubnetIP = Nothing+    , _tdaEDNS0ClientSubnetMask = Nothing+    , _tdaHostedZoneId = pHostedZoneId_+    , _tdaRecordName = pRecordName_+    , _tdaRecordType = pRecordType_+    }   -- | If you want to simulate a request from a specific DNS resolver, specify the IP address for that resolver. If you omit this value, @TestDnsAnswer@ uses the IP address of a DNS resolver in the AWS US East (N. Virginia) Region (@us-east-1@ ). tdaResolverIP :: Lens' TestDNSAnswer (Maybe Text)-tdaResolverIP = lens _tdaResolverIP (\ s a -> s{_tdaResolverIP = a});+tdaResolverIP = lens _tdaResolverIP (\ s a -> s{_tdaResolverIP = a})  -- | If the resolver that you specified for resolverip supports EDNS0, specify the IPv4 or IPv6 address of a client in the applicable location, for example, @192.0.2.44@ or @2001:db8:85a3::8a2e:370:7334@ . tdaEDNS0ClientSubnetIP :: Lens' TestDNSAnswer (Maybe Text)-tdaEDNS0ClientSubnetIP = lens _tdaEDNS0ClientSubnetIP (\ s a -> s{_tdaEDNS0ClientSubnetIP = a});+tdaEDNS0ClientSubnetIP = lens _tdaEDNS0ClientSubnetIP (\ s a -> s{_tdaEDNS0ClientSubnetIP = a})  -- | If you specify an IP address for @edns0clientsubnetip@ , you can optionally specify the number of bits of the IP address that you want the checking tool to include in the DNS query. For example, if you specify @192.0.2.44@ for @edns0clientsubnetip@ and @24@ for @edns0clientsubnetmask@ , the checking tool will simulate a request from 192.0.2.0/24. The default value is 24 bits for IPv4 addresses and 64 bits for IPv6 addresses. tdaEDNS0ClientSubnetMask :: Lens' TestDNSAnswer (Maybe Text)-tdaEDNS0ClientSubnetMask = lens _tdaEDNS0ClientSubnetMask (\ s a -> s{_tdaEDNS0ClientSubnetMask = a});+tdaEDNS0ClientSubnetMask = lens _tdaEDNS0ClientSubnetMask (\ s a -> s{_tdaEDNS0ClientSubnetMask = a})  -- | The ID of the hosted zone that you want Amazon Route 53 to simulate a query for. tdaHostedZoneId :: Lens' TestDNSAnswer ResourceId-tdaHostedZoneId = lens _tdaHostedZoneId (\ s a -> s{_tdaHostedZoneId = a});+tdaHostedZoneId = lens _tdaHostedZoneId (\ s a -> s{_tdaHostedZoneId = a})  -- | The name of the resource record set that you want Amazon Route 53 to simulate a query for. tdaRecordName :: Lens' TestDNSAnswer Text-tdaRecordName = lens _tdaRecordName (\ s a -> s{_tdaRecordName = a});+tdaRecordName = lens _tdaRecordName (\ s a -> s{_tdaRecordName = a})  -- | The type of the resource record set. tdaRecordType :: Lens' TestDNSAnswer RecordType-tdaRecordType = lens _tdaRecordType (\ s a -> s{_tdaRecordType = a});+tdaRecordType = lens _tdaRecordType (\ s a -> s{_tdaRecordType = a})  instance AWSRequest TestDNSAnswer where         type Rs TestDNSAnswer = TestDNSAnswerResponse@@ -203,42 +203,42 @@     -> TestDNSAnswerResponse testDNSAnswerResponse pResponseStatus_ pNameserver_ pRecordName_ pRecordType_ pResponseCode_ pProtocol_ =   TestDNSAnswerResponse'-  { _tdarsResponseStatus = pResponseStatus_-  , _tdarsNameserver = pNameserver_-  , _tdarsRecordName = pRecordName_-  , _tdarsRecordType = pRecordType_-  , _tdarsRecordData = mempty-  , _tdarsResponseCode = pResponseCode_-  , _tdarsProtocol = pProtocol_-  }+    { _tdarsResponseStatus = pResponseStatus_+    , _tdarsNameserver = pNameserver_+    , _tdarsRecordName = pRecordName_+    , _tdarsRecordType = pRecordType_+    , _tdarsRecordData = mempty+    , _tdarsResponseCode = pResponseCode_+    , _tdarsProtocol = pProtocol_+    }   -- | -- | The response status code. tdarsResponseStatus :: Lens' TestDNSAnswerResponse Int-tdarsResponseStatus = lens _tdarsResponseStatus (\ s a -> s{_tdarsResponseStatus = a});+tdarsResponseStatus = lens _tdarsResponseStatus (\ s a -> s{_tdarsResponseStatus = a})  -- | The Amazon Route 53 name server used to respond to the request. tdarsNameserver :: Lens' TestDNSAnswerResponse Text-tdarsNameserver = lens _tdarsNameserver (\ s a -> s{_tdarsNameserver = a});+tdarsNameserver = lens _tdarsNameserver (\ s a -> s{_tdarsNameserver = a})  -- | The name of the resource record set that you submitted a request for. tdarsRecordName :: Lens' TestDNSAnswerResponse Text-tdarsRecordName = lens _tdarsRecordName (\ s a -> s{_tdarsRecordName = a});+tdarsRecordName = lens _tdarsRecordName (\ s a -> s{_tdarsRecordName = a})  -- | The type of the resource record set that you submitted a request for. tdarsRecordType :: Lens' TestDNSAnswerResponse RecordType-tdarsRecordType = lens _tdarsRecordType (\ s a -> s{_tdarsRecordType = a});+tdarsRecordType = lens _tdarsRecordType (\ s a -> s{_tdarsRecordType = a})  -- | A list that contains values that Amazon Route 53 returned for this resource record set. tdarsRecordData :: Lens' TestDNSAnswerResponse [Text]-tdarsRecordData = lens _tdarsRecordData (\ s a -> s{_tdarsRecordData = a}) . _Coerce;+tdarsRecordData = lens _tdarsRecordData (\ s a -> s{_tdarsRecordData = a}) . _Coerce  -- | A code that indicates whether the request is valid or not. The most common response code is @NOERROR@ , meaning that the request is valid. If the response is not valid, Amazon Route 53 returns a response code that describes the error. For a list of possible response codes, see <http://www.iana.org/assignments/dns-parameters/dns-parameters.xhtml#dns-parameters-6 DNS RCODES> on the IANA website. tdarsResponseCode :: Lens' TestDNSAnswerResponse Text-tdarsResponseCode = lens _tdarsResponseCode (\ s a -> s{_tdarsResponseCode = a});+tdarsResponseCode = lens _tdarsResponseCode (\ s a -> s{_tdarsResponseCode = a})  -- | The protocol that Amazon Route 53 used to respond to the request, either @UDP@ or @TCP@ . tdarsProtocol :: Lens' TestDNSAnswerResponse Text-tdarsProtocol = lens _tdarsProtocol (\ s a -> s{_tdarsProtocol = a});+tdarsProtocol = lens _tdarsProtocol (\ s a -> s{_tdarsProtocol = a})  instance NFData TestDNSAnswerResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Route53.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -18,6 +18,7 @@     -- * Errors     , _HealthCheckVersionMismatch     , _NoSuchQueryLoggingConfig+    , _HostedZoneNotPrivate     , _InvalidInput     , _HostedZoneNotEmpty     , _InvalidArgument@@ -65,10 +66,14 @@     , _TrafficPolicyInUse     , _InvalidVPCId     , _HostedZoneAlreadyExists+    , _TooManyTrafficPolicyVersionsForCurrentPolicy      -- * Re-exported Types     , module Network.AWS.Route53.Internal +    -- * AccountLimitType+    , AccountLimitType (..)+     -- * ChangeAction     , ChangeAction (..) @@ -90,6 +95,9 @@     -- * HealthCheckType     , HealthCheckType (..) +    -- * HostedZoneLimitType+    , HostedZoneLimitType (..)+     -- * InsufficientDataHealthStatus     , InsufficientDataHealthStatus (..) @@ -99,6 +107,9 @@     -- * ResettableElementName     , ResettableElementName (..) +    -- * ReusableDelegationSetLimitType+    , ReusableDelegationSetLimitType (..)+     -- * Statistic     , Statistic (..) @@ -108,6 +119,12 @@     -- * VPCRegion     , VPCRegion (..) +    -- * AccountLimit+    , AccountLimit+    , accountLimit+    , alType+    , alValue+     -- * AlarmIdentifier     , AlarmIdentifier     , alarmIdentifier@@ -186,6 +203,7 @@     -- * HealthCheck     , HealthCheck     , healthCheck+    , hcLinkedService     , hcCloudWatchAlarmConfiguration     , hcId     , hcCallerReference@@ -222,6 +240,7 @@     -- * HostedZone     , HostedZone     , hostedZone+    , hzLinkedService     , hzConfig     , hzResourceRecordSetCount     , hzId@@ -234,6 +253,18 @@     , hzcPrivateZone     , hzcComment +    -- * HostedZoneLimit+    , HostedZoneLimit+    , hostedZoneLimit+    , hzlType+    , hzlValue++    -- * LinkedService+    , LinkedService+    , linkedService+    , lsServicePrincipal+    , lsDescription+     -- * QueryLoggingConfig     , QueryLoggingConfig     , queryLoggingConfig@@ -270,6 +301,12 @@     , rtsResourceType     , rtsTags +    -- * ReusableDelegationSetLimit+    , ReusableDelegationSetLimit+    , reusableDelegationSetLimit+    , rdslType+    , rdslValue+     -- * StatusReport     , StatusReport     , statusReport@@ -332,24 +369,24 @@ route53 :: Service route53 =   Service-  { _svcAbbrev = "Route53"-  , _svcSigner = v4-  , _svcPrefix = "route53"-  , _svcVersion = "2013-04-01"-  , _svcEndpoint = defaultEndpoint route53-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "Route53"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Route53"+    , _svcSigner = v4+    , _svcPrefix = "route53"+    , _svcVersion = "2013-04-01"+    , _svcEndpoint = defaultEndpoint route53+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "Route53"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -362,6 +399,8 @@       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasCode "PriorRequestNotComplete" . hasStatus 400) e =         Just "still_processing"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -385,6 +424,13 @@   _MatchServiceError route53 "NoSuchQueryLoggingConfig" . hasStatus 404  +-- | The specified hosted zone is a public hosted zone, not a private hosted zone.+--+--+_HostedZoneNotPrivate :: AsError a => Getting (First ServiceError) a ServiceError+_HostedZoneNotPrivate = _MatchServiceError route53 "HostedZoneNotPrivate"++ -- | The input is not valid. -- --@@ -588,9 +634,15 @@   _MatchServiceError route53 "HealthCheckAlreadyExists" . hasStatus 409  --- | You've created the maximum number of traffic policies that can be created for the current AWS account. You can request an increase to the limit on the <http://aws.amazon.com/route53-request/ Contact Us> page.+-- | This traffic policy can't be created because the current account has reached the limit on the number of traffic policies. -- --+-- For information about default limits, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ .+--+-- To get the current limit for an account, see 'GetAccountLimit' .+--+-- To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center.+-- _TooManyTrafficPolicies :: AsError a => Getting (First ServiceError) a ServiceError _TooManyTrafficPolicies =   _MatchServiceError route53 "TooManyTrafficPolicies" . hasStatus 400@@ -644,16 +696,22 @@ _NoSuchChange = _MatchServiceError route53 "NoSuchChange" . hasStatus 404  --- | The limits specified for a resource have been exceeded.+-- | This operation can't be completed either because the current account has reached the limit on reusable delegation sets that it can create or because you've reached the limit on the number of Amazon VPCs that you can associate with a private hosted zone. To get the current limit on the number of reusable delegation sets, see 'GetAccountLimit' . To get the current limit on the number of Amazon VPCs that you can associate with a private hosted zone, see 'GetHostedZoneLimit' . To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center. -- -- _LimitsExceeded :: AsError a => Getting (First ServiceError) a ServiceError _LimitsExceeded = _MatchServiceError route53 "LimitsExceeded"  --- | You've created the maximum number of traffic policy instances that can be created for the current AWS account. You can request an increase to the limit on the <http://aws.amazon.com/route53-request/ Contact Us> page.+-- | This traffic policy instance can't be created because the current account has reached the limit on the number of traffic policy instances. -- --+-- For information about default limits, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ .+--+-- For information about how to get the current limit for an account, see 'GetAccountLimit' .+--+-- To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center.+-- _TooManyTrafficPolicyInstances :: AsError a => Getting (First ServiceError) a ServiceError _TooManyTrafficPolicyInstances =   _MatchServiceError route53 "TooManyTrafficPolicyInstances" . hasStatus 400@@ -691,9 +749,17 @@   _MatchServiceError route53 "NoSuchHostedZone" . hasStatus 404  --- | This hosted zone can't be created because the hosted zone limit is exceeded. To request a limit increase, go to the Amazon Route 53 <http://aws.amazon.com/route53-request/ Contact Us> page.+-- | This operation can't be completed either because the current account has reached the limit on the number of hosted zones or because you've reached the limit on the number of hosted zones that can be associated with a reusable delegation set. -- --+-- For information about default limits, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ .+--+-- To get the current limit on hosted zones that can be created by an account, see 'GetAccountLimit' .+--+-- To get the current limit on hosted zones that can be associated with a reusable delegation set, see 'GetReusableDelegationSetLimit' .+--+-- To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center.+-- _TooManyHostedZones :: AsError a => Getting (First ServiceError) a ServiceError _TooManyHostedZones =   _MatchServiceError route53 "TooManyHostedZones" . hasStatus 400@@ -718,7 +784,7 @@ -- | The cause of this error depends on whether you're trying to create a public or a private hosted zone: -- -----     * __Public hosted zone:__ Two hosted zones that have the same name or that have a parent/child relationship (example.com and test.example.com) can't have any common name servers. You tried to create a hosted zone that has the same name as an existing hosted zone or that's the parent or child of an existing hosted zone, and you specified a delegation set that shares one or more name servers with the existing hosted zone.+--     * __Public hosted zone:__ Two hosted zones that have the same name or that have a parent/child relationship (example.com and test.example.com) can't have any common name servers. You tried to create a hosted zone that has the same name as an existing hosted zone or that's the parent or child of an existing hosted zone, and you specified a delegation set that shares one or more name servers with the existing hosted zone. For more information, see 'CreateReusableDelegationSet' . -- --     * __Private hosted zone:__ You specified an Amazon VPC that you're already using for another hosted zone, and the domain that you specified for one of the hosted zones is a subdomain of the domain that you specified for the other hosted zone. For example, you can't use the same Amazon VPC for the hosted zones for example.com and test.example.com. --@@ -736,9 +802,15 @@   _MatchServiceError route53 "LastVPCAssociation" . hasStatus 400  --- | You have reached the maximum number of active health checks for an AWS account. The default limit is 100. To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center.+-- | This health check can't be created because the current account has reached the limit on the number of active health checks. -- --+-- For information about default limits, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DNSLimitations.html Limits> in the /Amazon Route 53 Developer Guide/ .+--+-- For information about how to get the current limit for an account, see 'GetAccountLimit' . To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center.+--+-- You have reached the maximum number of active health checks for an AWS account. To request a higher limit, <http://aws.amazon.com/route53-request create a case> with the AWS Support Center.+-- _TooManyHealthChecks :: AsError a => Getting (First ServiceError) a ServiceError _TooManyHealthChecks = _MatchServiceError route53 "TooManyHealthChecks" @@ -772,4 +844,15 @@ _HostedZoneAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _HostedZoneAlreadyExists =   _MatchServiceError route53 "HostedZoneAlreadyExists" . hasStatus 409+++-- | This traffic policy version can't be created because you've reached the limit of 1000 on the number of versions that you can create for the current traffic policy.+--+--+-- To create more traffic policy versions, you can use 'GetTrafficPolicy' to get the traffic policy document for a specified traffic policy version, and then use 'CreateTrafficPolicy' to create a new traffic policy using the traffic policy document.+--+_TooManyTrafficPolicyVersionsForCurrentPolicy :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyTrafficPolicyVersionsForCurrentPolicy =+  _MatchServiceError route53 "TooManyTrafficPolicyVersionsForCurrentPolicy" .+  hasStatus 400 

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Route53.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -22,6 +22,48 @@ import Network.AWS.Route53.Internal import Network.AWS.Route53.Types.Sum +-- | A complex type that contains the type of limit that you specified in the request and the current value for that limit.+--+--+--+-- /See:/ 'accountLimit' smart constructor.+data AccountLimit = AccountLimit'+  { _alType  :: !AccountLimitType+  , _alValue :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AccountLimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'alType' - The limit that you requested. Valid values include the following:     * __MAX_HEALTH_CHECKS_BY_OWNER__ : The maximum number of health checks that you can create using the current account.     * __MAX_HOSTED_ZONES_BY_OWNER__ : The maximum number of hosted zones that you can create using the current account.     * __MAX_REUSABLE_DELEGATION_SETS_BY_OWNER__ : The maximum number of reusable delegation sets that you can create using the current account.     * __MAX_TRAFFIC_POLICIES_BY_OWNER__ : The maximum number of traffic policies that you can create using the current account.     * __MAX_TRAFFIC_POLICY_INSTANCES_BY_OWNER__ : The maximum number of traffic policy instances that you can create using the current account. (Traffic policy instances are referred to as traffic flow policy records in the Amazon Route 53 console.)+--+-- * 'alValue' - The current value for the limit that is specified by 'AccountLimit$Type' .+accountLimit+    :: AccountLimitType -- ^ 'alType'+    -> Natural -- ^ 'alValue'+    -> AccountLimit+accountLimit pType_ pValue_ =+  AccountLimit' {_alType = pType_, _alValue = _Nat # pValue_}+++-- | The limit that you requested. Valid values include the following:     * __MAX_HEALTH_CHECKS_BY_OWNER__ : The maximum number of health checks that you can create using the current account.     * __MAX_HOSTED_ZONES_BY_OWNER__ : The maximum number of hosted zones that you can create using the current account.     * __MAX_REUSABLE_DELEGATION_SETS_BY_OWNER__ : The maximum number of reusable delegation sets that you can create using the current account.     * __MAX_TRAFFIC_POLICIES_BY_OWNER__ : The maximum number of traffic policies that you can create using the current account.     * __MAX_TRAFFIC_POLICY_INSTANCES_BY_OWNER__ : The maximum number of traffic policy instances that you can create using the current account. (Traffic policy instances are referred to as traffic flow policy records in the Amazon Route 53 console.)+alType :: Lens' AccountLimit AccountLimitType+alType = lens _alType (\ s a -> s{_alType = a})++-- | The current value for the limit that is specified by 'AccountLimit$Type' .+alValue :: Lens' AccountLimit Natural+alValue = lens _alValue (\ s a -> s{_alValue = a}) . _Nat++instance FromXML AccountLimit where+        parseXML x+          = AccountLimit' <$> (x .@ "Type") <*> (x .@ "Value")++instance Hashable AccountLimit where++instance NFData AccountLimit where+ -- | A complex type that identifies the CloudWatch alarm that you want Amazon Route 53 health checkers to use to determine whether this health check is healthy. -- --@@ -50,11 +92,11 @@  -- | A complex type that identifies the CloudWatch alarm that you want Amazon Route 53 health checkers to use to determine whether this health check is healthy. For the current list of CloudWatch regions, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#cw_region Amazon CloudWatch> in the /AWS Regions and Endpoints/ chapter of the /Amazon Web Services General Reference/ . aiRegion :: Lens' AlarmIdentifier CloudWatchRegion-aiRegion = lens _aiRegion (\ s a -> s{_aiRegion = a});+aiRegion = lens _aiRegion (\ s a -> s{_aiRegion = a})  -- | The name of the CloudWatch alarm that you want Amazon Route 53 health checkers to use to determine whether this health check is healthy. aiName :: Lens' AlarmIdentifier Text-aiName = lens _aiName (\ s a -> s{_aiName = a});+aiName = lens _aiName (\ s a -> s{_aiName = a})  instance FromXML AlarmIdentifier where         parseXML x@@ -95,7 +137,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'atHostedZoneId' - /Alias resource records sets only/ : The value used depends on where you want to route traffic:     * CloudFront distribution    * Specify @Z2FDTNDATAQYW2@ .     * Elastic Beanstalk environment    * Specify the hosted zone ID for the region in which you created the environment. The environment must have a regionalized subdomain. For a list of regions and the corresponding hosted zone IDs, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region AWS Elastic Beanstalk> in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * ELB load balancer    * Specify the value of the hosted zone ID for the load balancer. Use the following methods to get the hosted zone ID:     * <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Elastic Load Balancing> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ : Use the value that corresponds with the region that you created your load balancer in. Note that there are separate columns for Application and Classic Load Balancers and for Network Load Balancers.     * __AWS Management Console__ : Go to the Amazon EC2 page, choose __Load Balancers__ in the navigation pane, select the load balancer, and get the value of the __Hosted zone__ field on the __Description__ tab.     * __Elastic Load Balancing API__ : Use @DescribeLoadBalancers@ to get the value of @CanonicalHostedZoneNameId@ . For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/2012-06-01/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * __AWS CLI__ : Use @describe-load-balancers@ to get the value of @CanonicalHostedZoneNameID@ (for Classic Load Balancers) or @CanonicalHostedZoneNameID@ (for Application and Network Load Balancers). For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elb/describe-load-balancers.html describe-load-balancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elbv2/describe-load-balancers.html describe-load-balancers>      * An Amazon S3 bucket configured as a static website    * Specify the hosted zone ID for the region that you created the bucket in. For more information about valid values, see the <http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region Amazon Simple Storage Service Website Endpoints> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * Another Amazon Route 53 resource record set in your hosted zone    * Specify the hosted zone ID of your hosted zone. (An alias resource record set can't reference a resource record set in a different hosted zone.)+-- * 'atHostedZoneId' - /Alias resource records sets only/ : The value used depends on where you want to route traffic:     * CloudFront distribution    * Specify @Z2FDTNDATAQYW2@ .     * Elastic Beanstalk environment    * Specify the hosted zone ID for the region in which you created the environment. The environment must have a regionalized subdomain. For a list of regions and the corresponding hosted zone IDs, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region AWS Elastic Beanstalk> in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * ELB load balancer    * Specify the value of the hosted zone ID for the load balancer. Use the following methods to get the hosted zone ID:     * <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Elastic Load Balancing> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ : Use the value that corresponds with the region that you created your load balancer in. Note that there are separate columns for Application and Classic Load Balancers and for Network Load Balancers.     * __AWS Management Console__ : Go to the Amazon EC2 page, choose __Load Balancers__ in the navigation pane, select the load balancer, and get the value of the __Hosted zone__ field on the __Description__ tab.     * __Elastic Load Balancing API__ : Use @DescribeLoadBalancers@ to get the applicable value. For more information, see the applicable guide:     * Classic Load Balancers: Use <http://docs.aws.amazon.com/elasticloadbalancing/2012-06-01/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers> to get the value of @CanonicalHostedZoneNameId@ .     * Application and Network Load Balancers: Use <http://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers> to get the value of @CanonicalHostedZoneId@ .     * __AWS CLI__ : Use @describe-load-balancers@ to get the applicable value. For more information, see the applicable guide:     * Classic Load Balancers: Use <http://docs.aws.amazon.com/cli/latest/reference/elb/describe-load-balancers.html describe-load-balancers> to get the value of @CanonicalHostedZoneNameId@ .     * Application and Network Load Balancers: Use <http://docs.aws.amazon.com/cli/latest/reference/elbv2/describe-load-balancers.html describe-load-balancers> to get the value of @CanonicalHostedZoneId@ .     * An Amazon S3 bucket configured as a static website    * Specify the hosted zone ID for the region that you created the bucket in. For more information about valid values, see the <http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region Amazon Simple Storage Service Website Endpoints> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * Another Amazon Route 53 resource record set in your hosted zone    * Specify the hosted zone ID of your hosted zone. (An alias resource record set can't reference a resource record set in a different hosted zone.) -- -- * 'atDNSName' - /Alias resource record sets only:/ The value that you specify depends on where you want to route queries:     * CloudFront distribution    * Specify the domain name that CloudFront assigned when you created your distribution. Your CloudFront distribution must include an alternate domain name that matches the name of the resource record set. For example, if the name of the resource record set is /acme.example.com/ , your CloudFront distribution must include /acme.example.com/ as one of the alternate domain names. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/CNAMEs.html Using Alternate Domain Names (CNAMEs)> in the /Amazon CloudFront Developer Guide/ .     * Elastic Beanstalk environment    * Specify the @CNAME@ attribute for the environment. (The environment must have a regionalized domain name.) You can use the following methods to get the value of the CNAME attribute:     * /AWS Management Console/ : For information about how to get the value by using the console, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/customdomains.html Using Custom Domains with AWS Elastic Beanstalk> in the /AWS Elastic Beanstalk Developer Guide/ .     * /Elastic Beanstalk API/ : Use the @DescribeEnvironments@ action to get the value of the @CNAME@ attribute. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironments.html DescribeEnvironments> in the /AWS Elastic Beanstalk API Reference/ .     * /AWS CLI/ : Use the @describe-environments@ command to get the value of the @CNAME@ attribute. For more information, see <http://docs.aws.amazon.com/cli/latest/reference/elasticbeanstalk/describe-environments.html describe-environments> in the /AWS Command Line Interface Reference/ .     * ELB load balancer    * Specify the DNS name that is associated with the load balancer. Get the DNS name by using the AWS Management Console, the ELB API, or the AWS CLI.      * __AWS Management Console__ : Go to the EC2 page, choose __Load Balancers__ in the navigation pane, choose the load balancer, choose the __Description__ tab, and get the value of the __DNS name__ field. (If you're routing traffic to a Classic Load Balancer, get the value that begins with __dualstack__ .)      * __Elastic Load Balancing API__ : Use @DescribeLoadBalancers@ to get the value of @DNSName@ . For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/2012-06-01/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * __AWS CLI__ : Use @describe-load-balancers@ to get the value of @DNSName@ . For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elb/describe-load-balancers.html describe-load-balancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elbv2/describe-load-balancers.html describe-load-balancers>      * Amazon S3 bucket that is configured as a static website    * Specify the domain name of the Amazon S3 website endpoint in which you created the bucket, for example, @s3-website-us-east-2.amazonaws.com@ . For more information about valid values, see the table <http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region Amazon Simple Storage Service (S3) Website Endpoints> in the /Amazon Web Services General Reference/ . For more information about using S3 buckets for websites, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/getting-started.html Getting Started with Amazon Route 53> in the /Amazon Route 53 Developer Guide./      * Another Amazon Route 53 resource record set    * Specify the value of the @Name@ element for a resource record set in the current hosted zone. --@@ -107,23 +149,23 @@     -> AliasTarget aliasTarget pHostedZoneId_ pDNSName_ pEvaluateTargetHealth_ =   AliasTarget'-  { _atHostedZoneId = pHostedZoneId_-  , _atDNSName = pDNSName_-  , _atEvaluateTargetHealth = pEvaluateTargetHealth_-  }+    { _atHostedZoneId = pHostedZoneId_+    , _atDNSName = pDNSName_+    , _atEvaluateTargetHealth = pEvaluateTargetHealth_+    }  --- | /Alias resource records sets only/ : The value used depends on where you want to route traffic:     * CloudFront distribution    * Specify @Z2FDTNDATAQYW2@ .     * Elastic Beanstalk environment    * Specify the hosted zone ID for the region in which you created the environment. The environment must have a regionalized subdomain. For a list of regions and the corresponding hosted zone IDs, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region AWS Elastic Beanstalk> in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * ELB load balancer    * Specify the value of the hosted zone ID for the load balancer. Use the following methods to get the hosted zone ID:     * <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Elastic Load Balancing> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ : Use the value that corresponds with the region that you created your load balancer in. Note that there are separate columns for Application and Classic Load Balancers and for Network Load Balancers.     * __AWS Management Console__ : Go to the Amazon EC2 page, choose __Load Balancers__ in the navigation pane, select the load balancer, and get the value of the __Hosted zone__ field on the __Description__ tab.     * __Elastic Load Balancing API__ : Use @DescribeLoadBalancers@ to get the value of @CanonicalHostedZoneNameId@ . For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/2012-06-01/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * __AWS CLI__ : Use @describe-load-balancers@ to get the value of @CanonicalHostedZoneNameID@ (for Classic Load Balancers) or @CanonicalHostedZoneNameID@ (for Application and Network Load Balancers). For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elb/describe-load-balancers.html describe-load-balancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elbv2/describe-load-balancers.html describe-load-balancers>      * An Amazon S3 bucket configured as a static website    * Specify the hosted zone ID for the region that you created the bucket in. For more information about valid values, see the <http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region Amazon Simple Storage Service Website Endpoints> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * Another Amazon Route 53 resource record set in your hosted zone    * Specify the hosted zone ID of your hosted zone. (An alias resource record set can't reference a resource record set in a different hosted zone.)+-- | /Alias resource records sets only/ : The value used depends on where you want to route traffic:     * CloudFront distribution    * Specify @Z2FDTNDATAQYW2@ .     * Elastic Beanstalk environment    * Specify the hosted zone ID for the region in which you created the environment. The environment must have a regionalized subdomain. For a list of regions and the corresponding hosted zone IDs, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#elasticbeanstalk_region AWS Elastic Beanstalk> in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * ELB load balancer    * Specify the value of the hosted zone ID for the load balancer. Use the following methods to get the hosted zone ID:     * <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Elastic Load Balancing> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ : Use the value that corresponds with the region that you created your load balancer in. Note that there are separate columns for Application and Classic Load Balancers and for Network Load Balancers.     * __AWS Management Console__ : Go to the Amazon EC2 page, choose __Load Balancers__ in the navigation pane, select the load balancer, and get the value of the __Hosted zone__ field on the __Description__ tab.     * __Elastic Load Balancing API__ : Use @DescribeLoadBalancers@ to get the applicable value. For more information, see the applicable guide:     * Classic Load Balancers: Use <http://docs.aws.amazon.com/elasticloadbalancing/2012-06-01/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers> to get the value of @CanonicalHostedZoneNameId@ .     * Application and Network Load Balancers: Use <http://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers> to get the value of @CanonicalHostedZoneId@ .     * __AWS CLI__ : Use @describe-load-balancers@ to get the applicable value. For more information, see the applicable guide:     * Classic Load Balancers: Use <http://docs.aws.amazon.com/cli/latest/reference/elb/describe-load-balancers.html describe-load-balancers> to get the value of @CanonicalHostedZoneNameId@ .     * Application and Network Load Balancers: Use <http://docs.aws.amazon.com/cli/latest/reference/elbv2/describe-load-balancers.html describe-load-balancers> to get the value of @CanonicalHostedZoneId@ .     * An Amazon S3 bucket configured as a static website    * Specify the hosted zone ID for the region that you created the bucket in. For more information about valid values, see the <http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region Amazon Simple Storage Service Website Endpoints> table in the "AWS Regions and Endpoints" chapter of the /Amazon Web Services General Reference/ .     * Another Amazon Route 53 resource record set in your hosted zone    * Specify the hosted zone ID of your hosted zone. (An alias resource record set can't reference a resource record set in a different hosted zone.) atHostedZoneId :: Lens' AliasTarget ResourceId-atHostedZoneId = lens _atHostedZoneId (\ s a -> s{_atHostedZoneId = a});+atHostedZoneId = lens _atHostedZoneId (\ s a -> s{_atHostedZoneId = a})  -- | /Alias resource record sets only:/ The value that you specify depends on where you want to route queries:     * CloudFront distribution    * Specify the domain name that CloudFront assigned when you created your distribution. Your CloudFront distribution must include an alternate domain name that matches the name of the resource record set. For example, if the name of the resource record set is /acme.example.com/ , your CloudFront distribution must include /acme.example.com/ as one of the alternate domain names. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/CNAMEs.html Using Alternate Domain Names (CNAMEs)> in the /Amazon CloudFront Developer Guide/ .     * Elastic Beanstalk environment    * Specify the @CNAME@ attribute for the environment. (The environment must have a regionalized domain name.) You can use the following methods to get the value of the CNAME attribute:     * /AWS Management Console/ : For information about how to get the value by using the console, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/dg/customdomains.html Using Custom Domains with AWS Elastic Beanstalk> in the /AWS Elastic Beanstalk Developer Guide/ .     * /Elastic Beanstalk API/ : Use the @DescribeEnvironments@ action to get the value of the @CNAME@ attribute. For more information, see <http://docs.aws.amazon.com/elasticbeanstalk/latest/api/API_DescribeEnvironments.html DescribeEnvironments> in the /AWS Elastic Beanstalk API Reference/ .     * /AWS CLI/ : Use the @describe-environments@ command to get the value of the @CNAME@ attribute. For more information, see <http://docs.aws.amazon.com/cli/latest/reference/elasticbeanstalk/describe-environments.html describe-environments> in the /AWS Command Line Interface Reference/ .     * ELB load balancer    * Specify the DNS name that is associated with the load balancer. Get the DNS name by using the AWS Management Console, the ELB API, or the AWS CLI.      * __AWS Management Console__ : Go to the EC2 page, choose __Load Balancers__ in the navigation pane, choose the load balancer, choose the __Description__ tab, and get the value of the __DNS name__ field. (If you're routing traffic to a Classic Load Balancer, get the value that begins with __dualstack__ .)      * __Elastic Load Balancing API__ : Use @DescribeLoadBalancers@ to get the value of @DNSName@ . For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/2012-06-01/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>      * __AWS CLI__ : Use @describe-load-balancers@ to get the value of @DNSName@ . For more information, see the applicable guide:     * Classic Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elb/describe-load-balancers.html describe-load-balancers>      * Application and Network Load Balancers: <http://docs.aws.amazon.com/cli/latest/reference/elbv2/describe-load-balancers.html describe-load-balancers>      * Amazon S3 bucket that is configured as a static website    * Specify the domain name of the Amazon S3 website endpoint in which you created the bucket, for example, @s3-website-us-east-2.amazonaws.com@ . For more information about valid values, see the table <http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region Amazon Simple Storage Service (S3) Website Endpoints> in the /Amazon Web Services General Reference/ . For more information about using S3 buckets for websites, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/getting-started.html Getting Started with Amazon Route 53> in the /Amazon Route 53 Developer Guide./      * Another Amazon Route 53 resource record set    * Specify the value of the @Name@ element for a resource record set in the current hosted zone. atDNSName :: Lens' AliasTarget Text-atDNSName = lens _atDNSName (\ s a -> s{_atDNSName = a});+atDNSName = lens _atDNSName (\ s a -> s{_atDNSName = a})  -- | /Applies only to alias, failover alias, geolocation alias, latency alias, and weighted alias resource record sets:/ When @EvaluateTargetHealth@ is @true@ , an alias resource record set inherits the health of the referenced AWS resource, such as an ELB load balancer, or the referenced resource record set. Note the following:     * You can't set @EvaluateTargetHealth@ to @true@ when the alias target is a CloudFront distribution.     * If the AWS resource that you specify in @AliasTarget@ is a resource record set or a group of resource record sets (for example, a group of weighted resource record sets), but it is not another alias resource record set, we recommend that you associate a health check with all of the resource record sets in the alias target. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-complex-configs.html#dns-failover-complex-configs-hc-omitting What Happens When You Omit Health Checks?> in the /Amazon Route 53 Developer Guide/ .     * If you specify an Elastic Beanstalk environment in @HostedZoneId@ and @DNSName@ , and if the environment contains an ELB load balancer, Elastic Load Balancing routes queries only to the healthy Amazon EC2 instances that are registered with the load balancer. (An environment automatically contains an ELB load balancer if it includes more than one EC2 instance.) If you set @EvaluateTargetHealth@ to @true@ and either no EC2 instances are healthy or the load balancer itself is unhealthy, Amazon Route 53 routes queries to other available resources that are healthy, if any. If the environment contains a single EC2 instance, there are no special requirements.     * If you specify an ELB load balancer in @'AliasTarget' @ , ELB routes queries only to the healthy EC2 instances that are registered with the load balancer. If no EC2 instances are healthy or if the load balancer itself is unhealthy, and if @EvaluateTargetHealth@ is true for the corresponding alias resource record set, Amazon Route 53 routes queries to other resources. When you create a load balancer, you configure settings for ELB health checks; they're not Amazon Route 53 health checks, but they perform a similar function. Do not create Amazon Route 53 health checks for the EC2 instances that you register with an ELB load balancer. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-complex-configs.html How Health Checks Work in More Complex Amazon Route 53 Configurations> in the /Amazon Route 53 Developer Guide/ .     * We recommend that you set @EvaluateTargetHealth@ to true only when you have enough idle capacity to handle the failure of one or more endpoints. For more information and examples, 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/ . atEvaluateTargetHealth :: Lens' AliasTarget Bool-atEvaluateTargetHealth = lens _atEvaluateTargetHealth (\ s a -> s{_atEvaluateTargetHealth = a});+atEvaluateTargetHealth = lens _atEvaluateTargetHealth (\ s a -> s{_atEvaluateTargetHealth = a})  instance FromXML AliasTarget where         parseXML x@@ -157,7 +199,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cAction' - The action to perform:     * @CREATE@ : Creates a resource record set that has the specified values.     * @DELETE@ : Deletes a existing resource record set. /Important:/ To delete the resource record set that is associated with a traffic policy instance, use @'DeleteTrafficPolicyInstance' @ . Amazon Route 53 will delete the resource record set automatically. If you delete the resource record set by using @ChangeResourceRecordSets@ , Amazon Route 53 doesn't automatically delete the traffic policy instance, and you'll continue to be charged for it even though it's no longer in use.      * @UPSERT@ : If a resource record set doesn't already exist, Amazon Route 53 creates it. If a resource record set does exist, Amazon Route 53 updates it with the values in the request. 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@      * @Type@      * @AliasTarget@ (includes @DNSName@ , @EvaluateTargetHealth@ , and @HostedZoneId@ )     * @SetIdentifier@ (for failover, geolocation, latency, and weighted resource record sets)+-- * 'cAction' - The action to perform:     * @CREATE@ : Creates a resource record set that has the specified values.     * @DELETE@ : Deletes a existing resource record set. /Important:/ To delete the resource record set that is associated with a traffic policy instance, use @'DeleteTrafficPolicyInstance' @ . Amazon Route 53 will delete the resource record set automatically. If you delete the resource record set by using @ChangeResourceRecordSets@ , Amazon Route 53 doesn't automatically delete the traffic policy instance, and you'll continue to be charged for it even though it's no longer in use.      * @UPSERT@ : If a resource record set doesn't already exist, Amazon Route 53 creates it. If a resource record set does exist, Amazon Route 53 updates it with the values in the request. -- -- * 'cResourceRecordSet' - Information about the resource record set to create, delete, or update. change@@ -168,13 +210,13 @@   Change' {_cAction = pAction_, _cResourceRecordSet = pResourceRecordSet_}  --- | The action to perform:     * @CREATE@ : Creates a resource record set that has the specified values.     * @DELETE@ : Deletes a existing resource record set. /Important:/ To delete the resource record set that is associated with a traffic policy instance, use @'DeleteTrafficPolicyInstance' @ . Amazon Route 53 will delete the resource record set automatically. If you delete the resource record set by using @ChangeResourceRecordSets@ , Amazon Route 53 doesn't automatically delete the traffic policy instance, and you'll continue to be charged for it even though it's no longer in use.      * @UPSERT@ : If a resource record set doesn't already exist, Amazon Route 53 creates it. If a resource record set does exist, Amazon Route 53 updates it with the values in the request. 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@      * @Type@      * @AliasTarget@ (includes @DNSName@ , @EvaluateTargetHealth@ , and @HostedZoneId@ )     * @SetIdentifier@ (for failover, geolocation, latency, and weighted resource record sets)+-- | The action to perform:     * @CREATE@ : Creates a resource record set that has the specified values.     * @DELETE@ : Deletes a existing resource record set. /Important:/ To delete the resource record set that is associated with a traffic policy instance, use @'DeleteTrafficPolicyInstance' @ . Amazon Route 53 will delete the resource record set automatically. If you delete the resource record set by using @ChangeResourceRecordSets@ , Amazon Route 53 doesn't automatically delete the traffic policy instance, and you'll continue to be charged for it even though it's no longer in use.      * @UPSERT@ : If a resource record set doesn't already exist, Amazon Route 53 creates it. If a resource record set does exist, Amazon Route 53 updates it with the values in the request. cAction :: Lens' Change ChangeAction-cAction = lens _cAction (\ s a -> s{_cAction = a});+cAction = lens _cAction (\ s a -> s{_cAction = a})  -- | Information about the resource record set to create, delete, or update. cResourceRecordSet :: Lens' Change ResourceRecordSet-cResourceRecordSet = lens _cResourceRecordSet (\ s a -> s{_cResourceRecordSet = a});+cResourceRecordSet = lens _cResourceRecordSet (\ s a -> s{_cResourceRecordSet = a})  instance Hashable Change where @@ -213,11 +255,11 @@  -- | /Optional:/ Any comments you want to include about a change batch request. cbComment :: Lens' ChangeBatch (Maybe Text)-cbComment = lens _cbComment (\ s a -> s{_cbComment = a});+cbComment = lens _cbComment (\ s a -> s{_cbComment = a})  -- | Information about the changes to make to the record sets. cbChanges :: Lens' ChangeBatch (NonEmpty Change)-cbChanges = lens _cbChanges (\ s a -> s{_cbChanges = a}) . _List1;+cbChanges = lens _cbChanges (\ s a -> s{_cbChanges = a}) . _List1  instance Hashable ChangeBatch where @@ -260,28 +302,28 @@     -> ChangeInfo changeInfo pId_ pStatus_ pSubmittedAt_ =   ChangeInfo'-  { _ciComment = Nothing-  , _ciId = pId_-  , _ciStatus = pStatus_-  , _ciSubmittedAt = _Time # pSubmittedAt_-  }+    { _ciComment = Nothing+    , _ciId = pId_+    , _ciStatus = pStatus_+    , _ciSubmittedAt = _Time # pSubmittedAt_+    }   -- | A complex type that describes change information about changes made to your hosted zone. This element contains an ID that you use when performing a 'GetChange' action to get detailed information about the change. ciComment :: Lens' ChangeInfo (Maybe Text)-ciComment = lens _ciComment (\ s a -> s{_ciComment = a});+ciComment = lens _ciComment (\ s a -> s{_ciComment = a})  -- | The ID of the request. ciId :: Lens' ChangeInfo ResourceId-ciId = lens _ciId (\ s a -> s{_ciId = a});+ciId = lens _ciId (\ s a -> s{_ciId = a})  -- | The current state of the request. @PENDING@ indicates that this request has not yet been applied to all Amazon Route 53 DNS servers. ciStatus :: Lens' ChangeInfo ChangeStatus-ciStatus = lens _ciStatus (\ s a -> s{_ciStatus = a});+ciStatus = lens _ciStatus (\ s a -> s{_ciStatus = a})  -- | The date and time that the change request was submitted in <https://en.wikipedia.org/wiki/ISO_8601 ISO 8601 format> and Coordinated Universal Time (UTC). For example, the value @2017-03-27T17:48:16.751Z@ represents March 27, 2017 at 17:48:16.751 UTC. ciSubmittedAt :: Lens' ChangeInfo UTCTime-ciSubmittedAt = lens _ciSubmittedAt (\ s a -> s{_ciSubmittedAt = a}) . _Time;+ciSubmittedAt = lens _ciSubmittedAt (\ s a -> s{_ciSubmittedAt = a}) . _Time  instance FromXML ChangeInfo where         parseXML x@@ -340,48 +382,48 @@     -> CloudWatchAlarmConfiguration cloudWatchAlarmConfiguration pEvaluationPeriods_ pThreshold_ pComparisonOperator_ pPeriod_ pMetricName_ pNamespace_ pStatistic_ =   CloudWatchAlarmConfiguration'-  { _cwacDimensions = Nothing-  , _cwacEvaluationPeriods = _Nat # pEvaluationPeriods_-  , _cwacThreshold = pThreshold_-  , _cwacComparisonOperator = pComparisonOperator_-  , _cwacPeriod = _Nat # pPeriod_-  , _cwacMetricName = pMetricName_-  , _cwacNamespace = pNamespace_-  , _cwacStatistic = pStatistic_-  }+    { _cwacDimensions = Nothing+    , _cwacEvaluationPeriods = _Nat # pEvaluationPeriods_+    , _cwacThreshold = pThreshold_+    , _cwacComparisonOperator = pComparisonOperator_+    , _cwacPeriod = _Nat # pPeriod_+    , _cwacMetricName = pMetricName_+    , _cwacNamespace = pNamespace_+    , _cwacStatistic = pStatistic_+    }   -- | For the metric that the CloudWatch alarm is associated with, a complex type that contains information about the dimensions for the metric. For information, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/CW_Support_For_AWS.html Amazon CloudWatch Namespaces, Dimensions, and Metrics Reference> in the /Amazon CloudWatch User Guide/ . cwacDimensions :: Lens' CloudWatchAlarmConfiguration [Dimension]-cwacDimensions = lens _cwacDimensions (\ s a -> s{_cwacDimensions = a}) . _Default . _Coerce;+cwacDimensions = lens _cwacDimensions (\ s a -> s{_cwacDimensions = a}) . _Default . _Coerce  -- | For the metric that the CloudWatch alarm is associated with, the number of periods that the metric is compared to the threshold. cwacEvaluationPeriods :: Lens' CloudWatchAlarmConfiguration Natural-cwacEvaluationPeriods = lens _cwacEvaluationPeriods (\ s a -> s{_cwacEvaluationPeriods = a}) . _Nat;+cwacEvaluationPeriods = lens _cwacEvaluationPeriods (\ s a -> s{_cwacEvaluationPeriods = a}) . _Nat  -- | For the metric that the CloudWatch alarm is associated with, the value the metric is compared with. cwacThreshold :: Lens' CloudWatchAlarmConfiguration Double-cwacThreshold = lens _cwacThreshold (\ s a -> s{_cwacThreshold = a});+cwacThreshold = lens _cwacThreshold (\ s a -> s{_cwacThreshold = a})  -- | For the metric that the CloudWatch alarm is associated with, the arithmetic operation that is used for the comparison. cwacComparisonOperator :: Lens' CloudWatchAlarmConfiguration ComparisonOperator-cwacComparisonOperator = lens _cwacComparisonOperator (\ s a -> s{_cwacComparisonOperator = a});+cwacComparisonOperator = lens _cwacComparisonOperator (\ s a -> s{_cwacComparisonOperator = a})  -- | For the metric that the CloudWatch alarm is associated with, the duration of one evaluation period in seconds. cwacPeriod :: Lens' CloudWatchAlarmConfiguration Natural-cwacPeriod = lens _cwacPeriod (\ s a -> s{_cwacPeriod = a}) . _Nat;+cwacPeriod = lens _cwacPeriod (\ s a -> s{_cwacPeriod = a}) . _Nat  -- | The name of the CloudWatch metric that the alarm is associated with. cwacMetricName :: Lens' CloudWatchAlarmConfiguration Text-cwacMetricName = lens _cwacMetricName (\ s a -> s{_cwacMetricName = a});+cwacMetricName = lens _cwacMetricName (\ s a -> s{_cwacMetricName = a})  -- | The namespace of the metric that the alarm is associated with. For more information, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/DeveloperGuide/CW_Support_For_AWS.html Amazon CloudWatch Namespaces, Dimensions, and Metrics Reference> in the /Amazon CloudWatch User Guide/ . cwacNamespace :: Lens' CloudWatchAlarmConfiguration Text-cwacNamespace = lens _cwacNamespace (\ s a -> s{_cwacNamespace = a});+cwacNamespace = lens _cwacNamespace (\ s a -> s{_cwacNamespace = a})  -- | For the metric that the CloudWatch alarm is associated with, the statistic that is applied to the metric. cwacStatistic :: Lens' CloudWatchAlarmConfiguration Statistic-cwacStatistic = lens _cwacStatistic (\ s a -> s{_cwacStatistic = a});+cwacStatistic = lens _cwacStatistic (\ s a -> s{_cwacStatistic = a})  instance FromXML CloudWatchAlarmConfiguration where         parseXML x@@ -426,23 +468,23 @@     -> DelegationSet delegationSet pNameServers_ =   DelegationSet'-  { _dsId = Nothing-  , _dsCallerReference = Nothing-  , _dsNameServers = _List1 # pNameServers_-  }+    { _dsId = Nothing+    , _dsCallerReference = Nothing+    , _dsNameServers = _List1 # pNameServers_+    }   -- | The ID that Amazon Route 53 assigns to a reusable delegation set. dsId :: Lens' DelegationSet (Maybe ResourceId)-dsId = lens _dsId (\ s a -> s{_dsId = a});+dsId = lens _dsId (\ s a -> s{_dsId = a})  -- | The value that you specified for @CallerReference@ when you created the reusable delegation set. dsCallerReference :: Lens' DelegationSet (Maybe Text)-dsCallerReference = lens _dsCallerReference (\ s a -> s{_dsCallerReference = a});+dsCallerReference = lens _dsCallerReference (\ s a -> s{_dsCallerReference = a})  -- | A complex type that contains a list of the authoritative name servers for a hosted zone or for a reusable delegation set. dsNameServers :: Lens' DelegationSet (NonEmpty Text)-dsNameServers = lens _dsNameServers (\ s a -> s{_dsNameServers = a}) . _List1;+dsNameServers = lens _dsNameServers (\ s a -> s{_dsNameServers = a}) . _List1  instance FromXML DelegationSet where         parseXML x@@ -482,11 +524,11 @@  -- | For the metric that the CloudWatch alarm is associated with, the name of one dimension. dName :: Lens' Dimension Text-dName = lens _dName (\ s a -> s{_dName = a});+dName = lens _dName (\ s a -> s{_dName = a})  -- | For the metric that the CloudWatch alarm is associated with, the value of one dimension. dValue :: Lens' Dimension Text-dValue = lens _dValue (\ s a -> s{_dValue = a});+dValue = lens _dValue (\ s a -> s{_dValue = a})  instance FromXML Dimension where         parseXML x@@ -521,23 +563,23 @@     :: GeoLocation geoLocation =   GeoLocation'-  { _glSubdivisionCode = Nothing-  , _glCountryCode = Nothing-  , _glContinentCode = Nothing-  }+    { _glSubdivisionCode = Nothing+    , _glCountryCode = Nothing+    , _glContinentCode = Nothing+    }   -- | The code for the subdivision, for example, a state in the United States or a province in Canada. glSubdivisionCode :: Lens' GeoLocation (Maybe Text)-glSubdivisionCode = lens _glSubdivisionCode (\ s a -> s{_glSubdivisionCode = a});+glSubdivisionCode = lens _glSubdivisionCode (\ s a -> s{_glSubdivisionCode = a})  -- | The two-letter code for the country. glCountryCode :: Lens' GeoLocation (Maybe Text)-glCountryCode = lens _glCountryCode (\ s a -> s{_glCountryCode = a});+glCountryCode = lens _glCountryCode (\ s a -> s{_glCountryCode = a})  -- | The two-letter code for the continent. Valid values: @AF@ | @AN@ | @AS@ | @EU@ | @OC@ | @NA@ | @SA@  Constraint: Specifying @ContinentCode@ with either @CountryCode@ or @SubdivisionCode@ returns an @InvalidInput@ error. glContinentCode :: Lens' GeoLocation (Maybe Text)-glContinentCode = lens _glContinentCode (\ s a -> s{_glContinentCode = a});+glContinentCode = lens _glContinentCode (\ s a -> s{_glContinentCode = a})  instance FromXML GeoLocation where         parseXML x@@ -590,38 +632,38 @@     :: GeoLocationDetails geoLocationDetails =   GeoLocationDetails'-  { _gldSubdivisionName = Nothing-  , _gldSubdivisionCode = Nothing-  , _gldCountryName = Nothing-  , _gldCountryCode = Nothing-  , _gldContinentCode = Nothing-  , _gldContinentName = Nothing-  }+    { _gldSubdivisionName = Nothing+    , _gldSubdivisionCode = Nothing+    , _gldCountryName = Nothing+    , _gldCountryCode = Nothing+    , _gldContinentCode = Nothing+    , _gldContinentName = Nothing+    }   -- | The full name of the subdivision, for example, a state in the United States or a province in Canada. gldSubdivisionName :: Lens' GeoLocationDetails (Maybe Text)-gldSubdivisionName = lens _gldSubdivisionName (\ s a -> s{_gldSubdivisionName = a});+gldSubdivisionName = lens _gldSubdivisionName (\ s a -> s{_gldSubdivisionName = a})  -- | The code for the subdivision, for example, a state in the United States or a province in Canada. gldSubdivisionCode :: Lens' GeoLocationDetails (Maybe Text)-gldSubdivisionCode = lens _gldSubdivisionCode (\ s a -> s{_gldSubdivisionCode = a});+gldSubdivisionCode = lens _gldSubdivisionCode (\ s a -> s{_gldSubdivisionCode = a})  -- | The name of the country. gldCountryName :: Lens' GeoLocationDetails (Maybe Text)-gldCountryName = lens _gldCountryName (\ s a -> s{_gldCountryName = a});+gldCountryName = lens _gldCountryName (\ s a -> s{_gldCountryName = a})  -- | The two-letter code for the country. gldCountryCode :: Lens' GeoLocationDetails (Maybe Text)-gldCountryCode = lens _gldCountryCode (\ s a -> s{_gldCountryCode = a});+gldCountryCode = lens _gldCountryCode (\ s a -> s{_gldCountryCode = a})  -- | The two-letter code for the continent. gldContinentCode :: Lens' GeoLocationDetails (Maybe Text)-gldContinentCode = lens _gldContinentCode (\ s a -> s{_gldContinentCode = a});+gldContinentCode = lens _gldContinentCode (\ s a -> s{_gldContinentCode = a})  -- | The full name of the continent. gldContinentName :: Lens' GeoLocationDetails (Maybe Text)-gldContinentName = lens _gldContinentName (\ s a -> s{_gldContinentName = a});+gldContinentName = lens _gldContinentName (\ s a -> s{_gldContinentName = a})  instance FromXML GeoLocationDetails where         parseXML x@@ -643,7 +685,8 @@ -- -- /See:/ 'healthCheck' smart constructor. data HealthCheck = HealthCheck'-  { _hcCloudWatchAlarmConfiguration :: !(Maybe CloudWatchAlarmConfiguration)+  { _hcLinkedService                :: !(Maybe LinkedService)+  , _hcCloudWatchAlarmConfiguration :: !(Maybe CloudWatchAlarmConfiguration)   , _hcId                           :: !Text   , _hcCallerReference              :: !Text   , _hcHealthCheckConfig            :: !HealthCheckConfig@@ -655,6 +698,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'hcLinkedService' - If the health check was created by another service, the service that created the health check. When a health check is created by another service, you can't edit or delete it using Amazon Route 53.+-- -- * 'hcCloudWatchAlarmConfiguration' - A complex type that contains information about the CloudWatch alarm that Amazon Route 53 is monitoring for this health check. -- -- * 'hcId' - The identifier that Amazon Route 53assigned 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.@@ -672,39 +717,45 @@     -> HealthCheck healthCheck pId_ pCallerReference_ pHealthCheckConfig_ pHealthCheckVersion_ =   HealthCheck'-  { _hcCloudWatchAlarmConfiguration = Nothing-  , _hcId = pId_-  , _hcCallerReference = pCallerReference_-  , _hcHealthCheckConfig = pHealthCheckConfig_-  , _hcHealthCheckVersion = _Nat # pHealthCheckVersion_-  }+    { _hcLinkedService = Nothing+    , _hcCloudWatchAlarmConfiguration = Nothing+    , _hcId = pId_+    , _hcCallerReference = pCallerReference_+    , _hcHealthCheckConfig = pHealthCheckConfig_+    , _hcHealthCheckVersion = _Nat # pHealthCheckVersion_+    }  +-- | If the health check was created by another service, the service that created the health check. When a health check is created by another service, you can't edit or delete it using Amazon Route 53.+hcLinkedService :: Lens' HealthCheck (Maybe LinkedService)+hcLinkedService = lens _hcLinkedService (\ s a -> s{_hcLinkedService = a})+ -- | A complex type that contains information about the CloudWatch alarm that Amazon Route 53 is monitoring for this health check. hcCloudWatchAlarmConfiguration :: Lens' HealthCheck (Maybe CloudWatchAlarmConfiguration)-hcCloudWatchAlarmConfiguration = lens _hcCloudWatchAlarmConfiguration (\ s a -> s{_hcCloudWatchAlarmConfiguration = a});+hcCloudWatchAlarmConfiguration = lens _hcCloudWatchAlarmConfiguration (\ s a -> s{_hcCloudWatchAlarmConfiguration = a})  -- | The identifier that Amazon Route 53assigned 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. hcId :: Lens' HealthCheck Text-hcId = lens _hcId (\ s a -> s{_hcId = a});+hcId = lens _hcId (\ s a -> s{_hcId = a})  -- | A unique string that you specified when you created the health check. hcCallerReference :: Lens' HealthCheck Text-hcCallerReference = lens _hcCallerReference (\ s a -> s{_hcCallerReference = a});+hcCallerReference = lens _hcCallerReference (\ s a -> s{_hcCallerReference = a})  -- | A complex type that contains detailed information about one health check. hcHealthCheckConfig :: Lens' HealthCheck HealthCheckConfig-hcHealthCheckConfig = lens _hcHealthCheckConfig (\ s a -> s{_hcHealthCheckConfig = a});+hcHealthCheckConfig = lens _hcHealthCheckConfig (\ s a -> s{_hcHealthCheckConfig = a})  -- | The version of the health check. You can optionally pass this value in a call to @UpdateHealthCheck@ to prevent overwriting another change to the health check. hcHealthCheckVersion :: Lens' HealthCheck Natural-hcHealthCheckVersion = lens _hcHealthCheckVersion (\ s a -> s{_hcHealthCheckVersion = a}) . _Nat;+hcHealthCheckVersion = lens _hcHealthCheckVersion (\ s a -> s{_hcHealthCheckVersion = a}) . _Nat  instance FromXML HealthCheck where         parseXML x           = HealthCheck' <$>-              (x .@? "CloudWatchAlarmConfiguration") <*>-                (x .@ "Id")+              (x .@? "LinkedService") <*>+                (x .@? "CloudWatchAlarmConfiguration")+                <*> (x .@ "Id")                 <*> (x .@ "CallerReference")                 <*> (x .@ "HealthCheckConfig")                 <*> (x .@ "HealthCheckVersion")@@ -778,88 +829,88 @@     -> HealthCheckConfig healthCheckConfig pType_ =   HealthCheckConfig'-  { _hccFailureThreshold = Nothing-  , _hccIPAddress = Nothing-  , _hccEnableSNI = Nothing-  , _hccSearchString = Nothing-  , _hccHealthThreshold = Nothing-  , _hccRegions = Nothing-  , _hccResourcePath = Nothing-  , _hccInsufficientDataHealthStatus = Nothing-  , _hccAlarmIdentifier = Nothing-  , _hccMeasureLatency = Nothing-  , _hccInverted = Nothing-  , _hccFullyQualifiedDomainName = Nothing-  , _hccChildHealthChecks = Nothing-  , _hccRequestInterval = Nothing-  , _hccPort = Nothing-  , _hccType = pType_-  }+    { _hccFailureThreshold = Nothing+    , _hccIPAddress = Nothing+    , _hccEnableSNI = Nothing+    , _hccSearchString = Nothing+    , _hccHealthThreshold = Nothing+    , _hccRegions = Nothing+    , _hccResourcePath = Nothing+    , _hccInsufficientDataHealthStatus = Nothing+    , _hccAlarmIdentifier = Nothing+    , _hccMeasureLatency = Nothing+    , _hccInverted = Nothing+    , _hccFullyQualifiedDomainName = Nothing+    , _hccChildHealthChecks = Nothing+    , _hccRequestInterval = Nothing+    , _hccPort = Nothing+    , _hccType = pType_+    }   -- | The number of consecutive health checks that an endpoint must pass or fail for Amazon Route 53 to change the current status of the endpoint from unhealthy to healthy or vice versa. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-determining-health-of-endpoints.html How Amazon Route 53 Determines Whether an Endpoint Is Healthy> in the /Amazon Route 53 Developer Guide/ . If you don't specify a value for @FailureThreshold@ , the default value is three health checks. hccFailureThreshold :: Lens' HealthCheckConfig (Maybe Natural)-hccFailureThreshold = lens _hccFailureThreshold (\ s a -> s{_hccFailureThreshold = a}) . mapping _Nat;+hccFailureThreshold = lens _hccFailureThreshold (\ s a -> s{_hccFailureThreshold = a}) . mapping _Nat  -- | The IPv4 or IPv6 IP address of the endpoint that you want Amazon Route 53 to perform health checks on. If you don't specify a value for @IPAddress@ , Amazon Route 53 sends a DNS request to resolve the domain name that you specify in @FullyQualifiedDomainName@ at the interval that you specify in @RequestInterval@ . Using an IP address returned by DNS, Amazon Route 53 then checks the health of the endpoint. Use one of the following formats for the value of @IPAddress@ :      * __IPv4 address__ : four values between 0 and 255, separated by periods (.), for example, @192.0.2.44@ .     * __IPv6 address__ : eight groups of four hexadecimal values, separated by colons (:), for example, @2001:0db8:85a3:0000:0000:abcd:0001:2345@ . You can also shorten IPv6 addresses as described in RFC 5952, for example, @2001:db8:85a3::abcd:1:2345@ . If the endpoint is an EC2 instance, we recommend that you create an Elastic IP address, associate it with your EC2 instance, and specify the Elastic IP address for @IPAddress@ . This ensures that the IP address of your instance will never change. For more information, see 'HealthCheckConfig$FullyQualifiedDomainName' . Constraints: Amazon Route 53 can't check the health of endpoints for which the IP address is in local, private, non-routable, or multicast ranges. For more information about IP addresses for which you can't create health checks, see the following documents:     * <https://tools.ietf.org/html/rfc5735 RFC 5735, Special Use IPv4 Addresses>      * <https://tools.ietf.org/html/rfc6598 RFC 6598, IANA-Reserved IPv4 Prefix for Shared Address Space>      * <https://tools.ietf.org/html/rfc5156 RFC 5156, Special-Use IPv6 Addresses>  When the value of @Type@ is @CALCULATED@ or @CLOUDWATCH_METRIC@ , omit @IPAddress@ . hccIPAddress :: Lens' HealthCheckConfig (Maybe Text)-hccIPAddress = lens _hccIPAddress (\ s a -> s{_hccIPAddress = a});+hccIPAddress = lens _hccIPAddress (\ s a -> s{_hccIPAddress = a})  -- | Specify whether you want Amazon Route 53 to send the value of @FullyQualifiedDomainName@ to the endpoint in the @client_hello@ message during TLS negotiation. This allows the endpoint to respond to @HTTPS@ health check requests with the applicable SSL/TLS certificate. Some endpoints require that @HTTPS@ requests include the host name in the @client_hello@ message. If you don't enable SNI, the status of the health check will be @SSL alert handshake_failure@ . A health check can also have that status for other reasons. If SNI is enabled and you're still getting the error, check the SSL/TLS configuration on your endpoint and confirm that your certificate is valid. The SSL/TLS certificate on your endpoint includes a domain name in the @Common Name@ field and possibly several more in the @Subject Alternative Names@ field. One of the domain names in the certificate should match the value that you specify for @FullyQualifiedDomainName@ . If the endpoint responds to the @client_hello@ message with a certificate that does not include the domain name that you specified in @FullyQualifiedDomainName@ , a health checker will retry the handshake. In the second attempt, the health checker will omit @FullyQualifiedDomainName@ from the @client_hello@ message. hccEnableSNI :: Lens' HealthCheckConfig (Maybe Bool)-hccEnableSNI = lens _hccEnableSNI (\ s a -> s{_hccEnableSNI = a});+hccEnableSNI = lens _hccEnableSNI (\ s a -> s{_hccEnableSNI = a})  -- | If the value of Type is @HTTP_STR_MATCH@ or @HTTP_STR_MATCH@ , the string that you want Amazon Route 53 to search for in the response body from the specified resource. If the string appears in the response body, Amazon Route 53 considers the resource healthy. Amazon Route 53 considers case when searching for @SearchString@ in the response body. hccSearchString :: Lens' HealthCheckConfig (Maybe Text)-hccSearchString = lens _hccSearchString (\ s a -> s{_hccSearchString = a});+hccSearchString = lens _hccSearchString (\ s a -> s{_hccSearchString = a})  -- | The number of child health checks that are associated with a @CALCULATED@ health that Amazon Route 53 must consider healthy for the @CALCULATED@ health check to be considered healthy. To specify the child health checks that you want to associate with a @CALCULATED@ health check, use the 'HealthCheckConfig$ChildHealthChecks' and 'HealthCheckConfig$ChildHealthChecks' elements. Note the following:     * If you specify a number greater than the number of child health checks, Amazon Route 53 always considers this health check to be unhealthy.     * If you specify @0@ , Amazon Route 53 always considers this health check to be healthy. hccHealthThreshold :: Lens' HealthCheckConfig (Maybe Natural)-hccHealthThreshold = lens _hccHealthThreshold (\ s a -> s{_hccHealthThreshold = a}) . mapping _Nat;+hccHealthThreshold = lens _hccHealthThreshold (\ s a -> s{_hccHealthThreshold = a}) . mapping _Nat  -- | A complex type that contains one @Region@ element for each region from which you want Amazon Route 53 health checkers to check the specified endpoint. If you don't specify any regions, Amazon Route 53 health checkers automatically performs checks from all of the regions that are listed under __Valid Values__ . If you update a health check to remove a region that has been performing health checks, Amazon Route 53 will briefly continue to perform checks from that region to ensure that some health checkers are always checking the endpoint (for example, if you replace three regions with four different regions). hccRegions :: Lens' HealthCheckConfig (Maybe (NonEmpty HealthCheckRegion))-hccRegions = lens _hccRegions (\ s a -> s{_hccRegions = a}) . mapping _List1;+hccRegions = lens _hccRegions (\ s a -> s{_hccRegions = a}) . mapping _List1  -- | The path, if any, that you want Amazon Route 53 to request when performing health checks. The path can be any value for which your endpoint will return an HTTP status code of 2xx or 3xx when the endpoint is healthy, for example, the file /docs/route53-health-check.html. hccResourcePath :: Lens' HealthCheckConfig (Maybe Text)-hccResourcePath = lens _hccResourcePath (\ s a -> s{_hccResourcePath = a});+hccResourcePath = lens _hccResourcePath (\ s a -> s{_hccResourcePath = a})  -- | When CloudWatch has insufficient data about the metric to determine the alarm state, the status that you want Amazon Route 53 to assign to the health check:     * @Healthy@ : Amazon Route 53 considers the health check to be healthy.     * @Unhealthy@ : Amazon Route 53 considers the health check to be unhealthy.     * @LastKnownStatus@ : Amazon Route 53 uses the status of the health check from the last time that CloudWatch had sufficient data to determine the alarm state. For new health checks that have no last known status, the default status for the health check is healthy. hccInsufficientDataHealthStatus :: Lens' HealthCheckConfig (Maybe InsufficientDataHealthStatus)-hccInsufficientDataHealthStatus = lens _hccInsufficientDataHealthStatus (\ s a -> s{_hccInsufficientDataHealthStatus = a});+hccInsufficientDataHealthStatus = lens _hccInsufficientDataHealthStatus (\ s a -> s{_hccInsufficientDataHealthStatus = a})  -- | A complex type that identifies the CloudWatch alarm that you want Amazon Route 53 health checkers to use to determine whether this health check is healthy. hccAlarmIdentifier :: Lens' HealthCheckConfig (Maybe AlarmIdentifier)-hccAlarmIdentifier = lens _hccAlarmIdentifier (\ s a -> s{_hccAlarmIdentifier = a});+hccAlarmIdentifier = lens _hccAlarmIdentifier (\ s a -> s{_hccAlarmIdentifier = a})  -- | Specify whether you want Amazon Route 53 to measure the latency between health checkers in multiple AWS regions and your endpoint, and to display CloudWatch latency graphs on the __Health Checks__ page in the Amazon Route 53 console. /Important:/ You can't change the value of @MeasureLatency@ after you create a health check. hccMeasureLatency :: Lens' HealthCheckConfig (Maybe Bool)-hccMeasureLatency = lens _hccMeasureLatency (\ s a -> s{_hccMeasureLatency = a});+hccMeasureLatency = lens _hccMeasureLatency (\ s a -> s{_hccMeasureLatency = a})  -- | Specify whether you want Amazon Route 53 to invert the status of a health check, for example, to consider a health check unhealthy when it otherwise would be considered healthy. hccInverted :: Lens' HealthCheckConfig (Maybe Bool)-hccInverted = lens _hccInverted (\ s a -> s{_hccInverted = a});+hccInverted = lens _hccInverted (\ s a -> s{_hccInverted = a})  -- | Amazon Route 53 behavior depends on whether you specify a value for @IPAddress@ . __If you specify a value for__ @IPAddress@ : Amazon Route 53 sends health check requests to the specified IPv4 or IPv6 address and passes the value of @FullyQualifiedDomainName@ in the @Host@ header for all health checks except TCP health checks. This is typically the fully qualified DNS name of the endpoint on which you want Amazon Route 53 to perform health checks. When Amazon Route 53 checks the health of an endpoint, here is how it constructs the @Host@ header:     * If you specify a value of @80@ for @Port@ and @HTTP@ or @HTTP_STR_MATCH@ for @Type@ , Amazon Route 53 passes the value of @FullyQualifiedDomainName@ to the endpoint in the Host header.      * If you specify a value of @443@ for @Port@ and @HTTPS@ or @HTTPS_STR_MATCH@ for @Type@ , Amazon Route 53 passes the value of @FullyQualifiedDomainName@ to the endpoint in the @Host@ header.     * If you specify another value for @Port@ and any value except @TCP@ for @Type@ , Amazon Route 53 passes @FullyQualifiedDomainName:Port@ to the endpoint in the @Host@ header. If you don't specify a value for @FullyQualifiedDomainName@ , Amazon Route 53 substitutes the value of @IPAddress@ in the @Host@ header in each of the preceding cases. __If you don't specify a value for @IPAddress@ __ : Amazon Route 53 sends a DNS request to the domain that you specify for @FullyQualifiedDomainName@ at the interval that you specify for @RequestInterval@ . Using an IPv4 address that DNS returns, Amazon Route 53 then checks the health of the endpoint. If you want to check the health of weighted, latency, or failover resource record sets and you choose to specify the endpoint only by @FullyQualifiedDomainName@ , 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-2-www.example.com), not the name of the resource record sets (www.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 you then associate the health check with those resource record sets, health check results will be unpredictable. In addition, if the value that you specify for @Type@ is @HTTP@ , @HTTPS@ , @HTTP_STR_MATCH@ , or @HTTPS_STR_MATCH@ , Amazon Route 53 passes the value of @FullyQualifiedDomainName@ in the @Host@ header, as it does when you specify a value for @IPAddress@ . If the value of @Type@ is @TCP@ , Amazon Route 53 doesn't pass a @Host@ header. hccFullyQualifiedDomainName :: Lens' HealthCheckConfig (Maybe Text)-hccFullyQualifiedDomainName = lens _hccFullyQualifiedDomainName (\ s a -> s{_hccFullyQualifiedDomainName = a});+hccFullyQualifiedDomainName = lens _hccFullyQualifiedDomainName (\ s a -> s{_hccFullyQualifiedDomainName = a})  -- | (CALCULATED Health Checks Only) A complex type that contains one @ChildHealthCheck@ element for each health check that you want to associate with a @CALCULATED@ health check. hccChildHealthChecks :: Lens' HealthCheckConfig [Text]-hccChildHealthChecks = lens _hccChildHealthChecks (\ s a -> s{_hccChildHealthChecks = a}) . _Default . _Coerce;+hccChildHealthChecks = lens _hccChildHealthChecks (\ s a -> s{_hccChildHealthChecks = a}) . _Default . _Coerce  -- | The number of seconds between the time that Amazon Route 53 gets a response from your endpoint and the time that it sends the next health check request. Each Amazon Route 53 health checker makes requests at this interval. /Important:/ You can't change the value of @RequestInterval@ after you create a health check. If you don't specify a value for @RequestInterval@ , the default value is @30@ seconds. hccRequestInterval :: Lens' HealthCheckConfig (Maybe Natural)-hccRequestInterval = lens _hccRequestInterval (\ s a -> s{_hccRequestInterval = a}) . mapping _Nat;+hccRequestInterval = lens _hccRequestInterval (\ s a -> s{_hccRequestInterval = a}) . mapping _Nat  -- | The port on the endpoint on which you want Amazon Route 53 to perform health checks. Specify a value for @Port@ only when you specify a value for @IPAddress@ . hccPort :: Lens' HealthCheckConfig (Maybe Natural)-hccPort = lens _hccPort (\ s a -> s{_hccPort = a}) . mapping _Nat;+hccPort = lens _hccPort (\ s a -> s{_hccPort = a}) . mapping _Nat  -- | The type of health check that you want to create, which indicates how Amazon Route 53 determines whether an endpoint is healthy. /Important:/ You can't change the value of @Type@ after you create a health check. You can create the following types of health checks:     * __HTTP__ : Amazon Route 53 tries to establish a TCP connection. If successful, Amazon Route 53 submits an HTTP request and waits for an HTTP status code of 200 or greater and less than 400.     * __HTTPS__ : Amazon Route 53 tries to establish a TCP connection. If successful, Amazon Route 53 submits an HTTPS request and waits for an HTTP status code of 200 or greater and less than 400. /Important:/ If you specify @HTTPS@ for the value of @Type@ , the endpoint must support TLS v1.0 or later.     * __HTTP_STR_MATCH__ : Amazon Route 53 tries to establish a TCP connection. If successful, Amazon Route 53 submits an HTTP request and searches the first 5,120 bytes of the response body for the string that you specify in @SearchString@ .     * __HTTPS_STR_MATCH__ : Amazon Route 53 tries to establish a TCP connection. If successful, Amazon Route 53 submits an @HTTPS@ request and searches the first 5,120 bytes of the response body for the string that you specify in @SearchString@ .     * __TCP__ : Amazon Route 53 tries to establish a TCP connection.     * __CLOUDWATCH_METRIC__ : The health check is associated with a CloudWatch alarm. If the state of the alarm is @OK@ , the health check is considered healthy. If the state is @ALARM@ , the health check is considered unhealthy. If CloudWatch doesn't have sufficient data to determine whether the state is @OK@ or @ALARM@ , the health check status depends on the setting for @InsufficientDataHealthStatus@ : @Healthy@ , @Unhealthy@ , or @LastKnownStatus@ .      * __CALCULATED__ : For health checks that monitor the status of other health checks, Amazon Route 53 adds up the number of health checks that Amazon Route 53 health checkers consider to be healthy and compares that number with the value of @HealthThreshold@ .  For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-determining-health-of-endpoints.html How Amazon Route 53 Determines Whether an Endpoint Is Healthy> in the /Amazon Route 53 Developer Guide/ . hccType :: Lens' HealthCheckConfig HealthCheckType-hccType = lens _hccType (\ s a -> s{_hccType = a});+hccType = lens _hccType (\ s a -> s{_hccType = a})  instance FromXML HealthCheckConfig where         parseXML x@@ -938,20 +989,20 @@     :: HealthCheckObservation healthCheckObservation =   HealthCheckObservation'-  {_hcoIPAddress = Nothing, _hcoStatusReport = Nothing, _hcoRegion = Nothing}+    {_hcoIPAddress = Nothing, _hcoStatusReport = Nothing, _hcoRegion = Nothing}   -- | The IP address of the Amazon Route 53 health checker that provided the failure reason in @StatusReport@ . hcoIPAddress :: Lens' HealthCheckObservation (Maybe Text)-hcoIPAddress = lens _hcoIPAddress (\ s a -> s{_hcoIPAddress = a});+hcoIPAddress = lens _hcoIPAddress (\ s a -> s{_hcoIPAddress = a})  -- | A complex type that contains the last failure reason as reported by one Amazon Route 53 health checker and the time of the failed health check. hcoStatusReport :: Lens' HealthCheckObservation (Maybe StatusReport)-hcoStatusReport = lens _hcoStatusReport (\ s a -> s{_hcoStatusReport = a});+hcoStatusReport = lens _hcoStatusReport (\ s a -> s{_hcoStatusReport = a})  -- | The region of the Amazon Route 53 health checker that provided the status in @StatusReport@ . hcoRegion :: Lens' HealthCheckObservation (Maybe HealthCheckRegion)-hcoRegion = lens _hcoRegion (\ s a -> s{_hcoRegion = a});+hcoRegion = lens _hcoRegion (\ s a -> s{_hcoRegion = a})  instance FromXML HealthCheckObservation where         parseXML x@@ -969,7 +1020,8 @@ -- -- /See:/ 'hostedZone' smart constructor. data HostedZone = HostedZone'-  { _hzConfig                 :: !(Maybe HostedZoneConfig)+  { _hzLinkedService          :: !(Maybe LinkedService)+  , _hzConfig                 :: !(Maybe HostedZoneConfig)   , _hzResourceRecordSetCount :: !(Maybe Integer)   , _hzId                     :: !ResourceId   , _hzName                   :: !Text@@ -981,6 +1033,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'hzLinkedService' - If the hosted zone was created by another service, the service that created the hosted zone. When a hosted zone is created by another service, you can't edit or delete it using Amazon Route 53.+-- -- * 'hzConfig' - A complex type that includes the @Comment@ and @PrivateZone@ elements. If you omitted the @HostedZoneConfig@ and @Comment@ elements from the request, the @Config@ and @Comment@ elements don't appear in the response. -- -- * 'hzResourceRecordSetCount' - The number of resource record sets in the hosted zone.@@ -997,38 +1051,44 @@     -> HostedZone hostedZone pId_ pName_ pCallerReference_ =   HostedZone'-  { _hzConfig = Nothing-  , _hzResourceRecordSetCount = Nothing-  , _hzId = pId_-  , _hzName = pName_-  , _hzCallerReference = pCallerReference_-  }+    { _hzLinkedService = Nothing+    , _hzConfig = Nothing+    , _hzResourceRecordSetCount = Nothing+    , _hzId = pId_+    , _hzName = pName_+    , _hzCallerReference = pCallerReference_+    }  +-- | If the hosted zone was created by another service, the service that created the hosted zone. When a hosted zone is created by another service, you can't edit or delete it using Amazon Route 53.+hzLinkedService :: Lens' HostedZone (Maybe LinkedService)+hzLinkedService = lens _hzLinkedService (\ s a -> s{_hzLinkedService = a})+ -- | A complex type that includes the @Comment@ and @PrivateZone@ elements. If you omitted the @HostedZoneConfig@ and @Comment@ elements from the request, the @Config@ and @Comment@ elements don't appear in the response. hzConfig :: Lens' HostedZone (Maybe HostedZoneConfig)-hzConfig = lens _hzConfig (\ s a -> s{_hzConfig = a});+hzConfig = lens _hzConfig (\ s a -> s{_hzConfig = a})  -- | The number of resource record sets in the hosted zone. hzResourceRecordSetCount :: Lens' HostedZone (Maybe Integer)-hzResourceRecordSetCount = lens _hzResourceRecordSetCount (\ s a -> s{_hzResourceRecordSetCount = a});+hzResourceRecordSetCount = lens _hzResourceRecordSetCount (\ s a -> s{_hzResourceRecordSetCount = a})  -- | The ID that Amazon Route 53 assigned to the hosted zone when you created it. hzId :: Lens' HostedZone ResourceId-hzId = lens _hzId (\ s a -> s{_hzId = a});+hzId = lens _hzId (\ s a -> s{_hzId = a})  -- | The name of the domain. For public hosted zones, this is the name that you have registered with your DNS registrar. For information about how to specify characters other than @a-z@ , @0-9@ , and @-@ (hyphen) and how to specify internationalized domain names, see 'CreateHostedZone' . hzName :: Lens' HostedZone Text-hzName = lens _hzName (\ s a -> s{_hzName = a});+hzName = lens _hzName (\ s a -> s{_hzName = a})  -- | The value that you specified for @CallerReference@ when you created the hosted zone. hzCallerReference :: Lens' HostedZone Text-hzCallerReference = lens _hzCallerReference (\ s a -> s{_hzCallerReference = a});+hzCallerReference = lens _hzCallerReference (\ s a -> s{_hzCallerReference = a})  instance FromXML HostedZone where         parseXML x           = HostedZone' <$>-              (x .@? "Config") <*> (x .@? "ResourceRecordSetCount")+              (x .@? "LinkedService") <*> (x .@? "Config") <*>+                (x .@? "ResourceRecordSetCount")                 <*> (x .@ "Id")                 <*> (x .@ "Name")                 <*> (x .@ "CallerReference")@@ -1063,11 +1123,11 @@  -- | A value that indicates whether this is a private hosted zone. hzcPrivateZone :: Lens' HostedZoneConfig (Maybe Bool)-hzcPrivateZone = lens _hzcPrivateZone (\ s a -> s{_hzcPrivateZone = a});+hzcPrivateZone = lens _hzcPrivateZone (\ s a -> s{_hzcPrivateZone = a})  -- | Any comments that you want to include about the hosted zone. hzcComment :: Lens' HostedZoneConfig (Maybe Text)-hzcComment = lens _hzcComment (\ s a -> s{_hzcComment = a});+hzcComment = lens _hzcComment (\ s a -> s{_hzcComment = a})  instance FromXML HostedZoneConfig where         parseXML x@@ -1084,6 +1144,90 @@               ["PrivateZone" @= _hzcPrivateZone,                "Comment" @= _hzcComment] +-- | A complex type that contains the type of limit that you specified in the request and the current value for that limit.+--+--+--+-- /See:/ 'hostedZoneLimit' smart constructor.+data HostedZoneLimit = HostedZoneLimit'+  { _hzlType  :: !HostedZoneLimitType+  , _hzlValue :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HostedZoneLimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hzlType' - The limit that you requested. Valid values include the following:     * __MAX_RRSETS_BY_ZONE__ : The maximum number of records that you can create in the specified hosted zone.     * __MAX_VPCS_ASSOCIATED_BY_ZONE__ : The maximum number of Amazon VPCs that you can associate with the specified private hosted zone.+--+-- * 'hzlValue' - The current value for the limit that is specified by @Type@ .+hostedZoneLimit+    :: HostedZoneLimitType -- ^ 'hzlType'+    -> Natural -- ^ 'hzlValue'+    -> HostedZoneLimit+hostedZoneLimit pType_ pValue_ =+  HostedZoneLimit' {_hzlType = pType_, _hzlValue = _Nat # pValue_}+++-- | The limit that you requested. Valid values include the following:     * __MAX_RRSETS_BY_ZONE__ : The maximum number of records that you can create in the specified hosted zone.     * __MAX_VPCS_ASSOCIATED_BY_ZONE__ : The maximum number of Amazon VPCs that you can associate with the specified private hosted zone.+hzlType :: Lens' HostedZoneLimit HostedZoneLimitType+hzlType = lens _hzlType (\ s a -> s{_hzlType = a})++-- | The current value for the limit that is specified by @Type@ .+hzlValue :: Lens' HostedZoneLimit Natural+hzlValue = lens _hzlValue (\ s a -> s{_hzlValue = a}) . _Nat++instance FromXML HostedZoneLimit where+        parseXML x+          = HostedZoneLimit' <$>+              (x .@ "Type") <*> (x .@ "Value")++instance Hashable HostedZoneLimit where++instance NFData HostedZoneLimit where++-- | If a health check or hosted zone was created by another service, @LinkedService@ is a complex type that describes the service that created the resource. When a resource is created by another service, you can't edit or delete it using Amazon Route 53.+--+--+--+-- /See:/ 'linkedService' smart constructor.+data LinkedService = LinkedService'+  { _lsServicePrincipal :: !(Maybe Text)+  , _lsDescription      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LinkedService' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lsServicePrincipal' - If the health check or hosted zone was created by another service, the service that created the resource. When a resource is created by another service, you can't edit or delete it using Amazon Route 53.+--+-- * 'lsDescription' - If the health check or hosted zone was created by another service, an optional description that can be provided by the other service. When a resource is created by another service, you can't edit or delete it using Amazon Route 53.+linkedService+    :: LinkedService+linkedService =+  LinkedService' {_lsServicePrincipal = Nothing, _lsDescription = Nothing}+++-- | If the health check or hosted zone was created by another service, the service that created the resource. When a resource is created by another service, you can't edit or delete it using Amazon Route 53.+lsServicePrincipal :: Lens' LinkedService (Maybe Text)+lsServicePrincipal = lens _lsServicePrincipal (\ s a -> s{_lsServicePrincipal = a})++-- | If the health check or hosted zone was created by another service, an optional description that can be provided by the other service. When a resource is created by another service, you can't edit or delete it using Amazon Route 53.+lsDescription :: Lens' LinkedService (Maybe Text)+lsDescription = lens _lsDescription (\ s a -> s{_lsDescription = a})++instance FromXML LinkedService where+        parseXML x+          = LinkedService' <$>+              (x .@? "ServicePrincipal") <*> (x .@? "Description")++instance Hashable LinkedService where++instance NFData LinkedService where+ -- | A complex type that contains information about a configuration for DNS query logging. -- --@@ -1112,23 +1256,23 @@     -> QueryLoggingConfig queryLoggingConfig pId_ pHostedZoneId_ pCloudWatchLogsLogGroupARN_ =   QueryLoggingConfig'-  { _qlcId = pId_-  , _qlcHostedZoneId = pHostedZoneId_-  , _qlcCloudWatchLogsLogGroupARN = pCloudWatchLogsLogGroupARN_-  }+    { _qlcId = pId_+    , _qlcHostedZoneId = pHostedZoneId_+    , _qlcCloudWatchLogsLogGroupARN = pCloudWatchLogsLogGroupARN_+    }   -- | The ID for a configuration for DNS query logging. qlcId :: Lens' QueryLoggingConfig Text-qlcId = lens _qlcId (\ s a -> s{_qlcId = a});+qlcId = lens _qlcId (\ s a -> s{_qlcId = a})  -- | The ID of the hosted zone that CloudWatch Logs is logging queries for. qlcHostedZoneId :: Lens' QueryLoggingConfig ResourceId-qlcHostedZoneId = lens _qlcHostedZoneId (\ s a -> s{_qlcHostedZoneId = a});+qlcHostedZoneId = lens _qlcHostedZoneId (\ s a -> s{_qlcHostedZoneId = a})  -- | The Amazon Resource Name (ARN) of the CloudWatch Logs log group that Amazon Route 53 is publishing logs to. qlcCloudWatchLogsLogGroupARN :: Lens' QueryLoggingConfig Text-qlcCloudWatchLogsLogGroupARN = lens _qlcCloudWatchLogsLogGroupARN (\ s a -> s{_qlcCloudWatchLogsLogGroupARN = a});+qlcCloudWatchLogsLogGroupARN = lens _qlcCloudWatchLogsLogGroupARN (\ s a -> s{_qlcCloudWatchLogsLogGroupARN = a})  instance FromXML QueryLoggingConfig where         parseXML x@@ -1163,7 +1307,7 @@  -- | The current or new DNS record value, not to exceed 4,000 characters. In the case of a @DELETE@ action, if the current value does not match the actual value, an error is returned. For descriptions about how to format @Value@ for different record types, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/ResourceRecordTypes.html Supported DNS Resource Record Types> in the /Amazon Route 53 Developer Guide/ . You can specify more than one value for all record types except @CNAME@ and @SOA@ . rrValue :: Lens' ResourceRecord Text-rrValue = lens _rrValue (\ s a -> s{_rrValue = a});+rrValue = lens _rrValue (\ s a -> s{_rrValue = a})  instance FromXML ResourceRecord where         parseXML x = ResourceRecord' <$> (x .@ "Value")@@ -1233,73 +1377,73 @@     -> ResourceRecordSet resourceRecordSet pName_ pType_ =   ResourceRecordSet'-  { _rrsTTL = Nothing-  , _rrsResourceRecords = Nothing-  , _rrsAliasTarget = Nothing-  , _rrsWeight = Nothing-  , _rrsTrafficPolicyInstanceId = Nothing-  , _rrsSetIdentifier = Nothing-  , _rrsFailover = Nothing-  , _rrsHealthCheckId = Nothing-  , _rrsRegion = Nothing-  , _rrsGeoLocation = Nothing-  , _rrsMultiValueAnswer = Nothing-  , _rrsName = pName_-  , _rrsType = pType_-  }+    { _rrsTTL = Nothing+    , _rrsResourceRecords = Nothing+    , _rrsAliasTarget = Nothing+    , _rrsWeight = Nothing+    , _rrsTrafficPolicyInstanceId = Nothing+    , _rrsSetIdentifier = Nothing+    , _rrsFailover = Nothing+    , _rrsHealthCheckId = Nothing+    , _rrsRegion = Nothing+    , _rrsGeoLocation = Nothing+    , _rrsMultiValueAnswer = Nothing+    , _rrsName = pName_+    , _rrsType = pType_+    }   -- | The resource record cache time to live (TTL), in seconds. Note the following:     * If you're creating or updating an alias resource record set, omit @TTL@ . Amazon Route 53 uses the value of @TTL@ for the alias target.      * If you're associating this resource record set with a health check (if you're adding a @HealthCheckId@ element), we recommend that you specify a @TTL@ of 60 seconds or less so clients respond quickly to changes in health status.     * All of the resource record sets in a group of weighted resource record sets must have the same value for @TTL@ .     * If a group of weighted resource record sets includes one or more weighted alias resource record sets for which the alias target is an ELB load balancer, we recommend that you specify a @TTL@ of 60 seconds for all of the non-alias weighted resource record sets that have the same name and type. Values other than 60 seconds (the TTL for load balancers) will change the effect of the values that you specify for @Weight@ . rrsTTL :: Lens' ResourceRecordSet (Maybe Natural)-rrsTTL = lens _rrsTTL (\ s a -> s{_rrsTTL = a}) . mapping _Nat;+rrsTTL = lens _rrsTTL (\ s a -> s{_rrsTTL = a}) . mapping _Nat  -- | Information about the resource records to act upon. rrsResourceRecords :: Lens' ResourceRecordSet (Maybe (NonEmpty ResourceRecord))-rrsResourceRecords = lens _rrsResourceRecords (\ s a -> s{_rrsResourceRecords = a}) . mapping _List1;+rrsResourceRecords = lens _rrsResourceRecords (\ s a -> s{_rrsResourceRecords = a}) . mapping _List1  -- | /Alias resource record sets only:/ Information about the CloudFront distribution, AWS Elastic Beanstalk environment, ELB load balancer, Amazon S3 bucket, or Amazon Route 53 resource record set to which you're redirecting queries. The AWS Elastic Beanstalk environment must have a regionalized subdomain. If you're creating resource records sets for a private hosted zone, note the following:     * You can't create alias resource record sets for CloudFront distributions in a private hosted zone.     * Creating geolocation alias resource record sets or latency alias resource record sets in a private hosted zone is unsupported.     * For information about creating failover resource record sets in a private hosted zone, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-private-hosted-zones.html Configuring Failover in a Private Hosted Zone> in the /Amazon Route 53 Developer Guide/ . rrsAliasTarget :: Lens' ResourceRecordSet (Maybe AliasTarget)-rrsAliasTarget = lens _rrsAliasTarget (\ s a -> s{_rrsAliasTarget = a});+rrsAliasTarget = lens _rrsAliasTarget (\ s a -> s{_rrsAliasTarget = a})  -- | /Weighted resource record sets only:/ Among resource record sets that have the same combination of DNS name and type, a value that determines the proportion of DNS queries that Amazon Route 53 responds to using the current resource record set. Amazon Route 53 calculates the sum of the weights for the resource record sets that have the same combination of DNS name and type. Amazon Route 53 then responds to queries based on the ratio of a resource's weight to the total. Note the following:     * You must specify a value for the @Weight@ element for every weighted resource record set.     * You can only specify one @ResourceRecord@ per weighted resource record set.     * You can't create latency, failover, or geolocation resource record sets that have the same values for the @Name@ and @Type@ elements as weighted resource record sets.     * You can create a maximum of 100 weighted resource record sets that have the same values for the @Name@ and @Type@ elements.     * For weighted (but not weighted alias) resource record sets, if you set @Weight@ to @0@ for a resource record set, Amazon Route 53 never responds to queries with the applicable value for that resource record set. However, if you set @Weight@ to @0@ for all resource record sets that have the same combination of DNS name and type, traffic is routed to all resources with equal probability. The effect of setting @Weight@ to @0@ is different when you associate health checks with weighted resource record sets. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-configuring-options.html Options for Configuring Amazon Route 53 Active-Active and Active-Passive Failover> in the /Amazon Route 53 Developer Guide/ . rrsWeight :: Lens' ResourceRecordSet (Maybe Natural)-rrsWeight = lens _rrsWeight (\ s a -> s{_rrsWeight = a}) . mapping _Nat;+rrsWeight = lens _rrsWeight (\ s a -> s{_rrsWeight = a}) . mapping _Nat  -- | When you create a traffic policy instance, Amazon Route 53 automatically creates a resource record set. @TrafficPolicyInstanceId@ is the ID of the traffic policy instance that Amazon Route 53 created this resource record set for. /Important:/ To delete the resource record set that is associated with a traffic policy instance, use @DeleteTrafficPolicyInstance@ . Amazon Route 53 will delete the resource record set automatically. If you delete the resource record set by using @ChangeResourceRecordSets@ , Amazon Route 53 doesn't automatically delete the traffic policy instance, and you'll continue to be charged for it even though it's no longer in use. rrsTrafficPolicyInstanceId :: Lens' ResourceRecordSet (Maybe Text)-rrsTrafficPolicyInstanceId = lens _rrsTrafficPolicyInstanceId (\ s a -> s{_rrsTrafficPolicyInstanceId = a});+rrsTrafficPolicyInstanceId = lens _rrsTrafficPolicyInstanceId (\ s a -> s{_rrsTrafficPolicyInstanceId = a})  -- | /Weighted, Latency, Geo, and Failover resource record sets only:/ An identifier that differentiates among multiple resource record sets that have the same combination of DNS name and type. The value of @SetIdentifier@ must be unique for each resource record set that has the same combination of DNS name and type. Omit @SetIdentifier@ for any other types of record sets. rrsSetIdentifier :: Lens' ResourceRecordSet (Maybe Text)-rrsSetIdentifier = lens _rrsSetIdentifier (\ s a -> s{_rrsSetIdentifier = a});+rrsSetIdentifier = lens _rrsSetIdentifier (\ s a -> s{_rrsSetIdentifier = a})  -- | /Failover resource record sets only:/ To configure failover, you add the @Failover@ element to two resource record sets. For one resource record set, you specify @PRIMARY@ as the value for @Failover@ ; for the other resource record set, you specify @SECONDARY@ . In addition, you include the @HealthCheckId@ element and specify the health check that you want Amazon Route 53 to perform for each resource record set. Except where noted, the following failover behaviors assume that you have included the @HealthCheckId@ element in both resource record sets:     * When the primary resource record set is healthy, Amazon Route 53 responds to DNS queries with the applicable value from the primary resource record set regardless of the health of the secondary resource record set.     * When the primary resource record set is unhealthy and the secondary resource record set is healthy, Amazon Route 53 responds to DNS queries with the applicable value from the secondary resource record set.     * When the secondary resource record set is unhealthy, Amazon Route 53 responds to DNS queries with the applicable value from the primary resource record set regardless of the health of the primary resource record set.     * If you omit the @HealthCheckId@ element for the secondary resource record set, and if the primary resource record set is unhealthy, Amazon Route 53 always responds to DNS queries with the applicable value from the secondary resource record set. This is true regardless of the health of the associated endpoint. You can't create non-failover resource record sets that have the same values for the @Name@ and @Type@ elements as failover resource record sets. For failover alias resource record sets, you must also include the @EvaluateTargetHealth@ element and set the value to true. For more information about configuring failover for Amazon Route 53, see the following topics in the /Amazon Route 53 Developer Guide/ :      * <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover.html Amazon Route 53 Health Checks and DNS Failover>      * <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-private-hosted-zones.html Configuring Failover in a Private Hosted Zone> rrsFailover :: Lens' ResourceRecordSet (Maybe Failover)-rrsFailover = lens _rrsFailover (\ s a -> s{_rrsFailover = a});+rrsFailover = lens _rrsFailover (\ s a -> s{_rrsFailover = a})  -- | 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 based on one of the following:     * By periodically sending a request to the endpoint that is specified in the health check     * By aggregating the status of a specified group of health checks (calculated health checks)     * By determining the current state of a CloudWatch alarm (CloudWatch metric health checks) For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-determining-health-of-endpoints.html How Amazon Route 53 Determines Whether an Endpoint Is Healthy> . 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 group of weighted, latency, geolocation, or failover resource record sets, 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 a group of alias, weighted alias, latency alias, geolocation alias, or failover alias resource record sets, and you specify health check IDs for all of the resource record sets that are referenced by the alias resource record sets. /Important:/ 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-2-www.example.com@ ), not the name of the resource record sets (example.com). /Important:/ n 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. For more information, see the following topics in the /Amazon Route 53 Developer Guide/ :     * <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover.html Amazon Route 53 Health Checks and DNS Failover>      * <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-private-hosted-zones.html Configuring Failover in a Private Hosted Zone> rrsHealthCheckId :: Lens' ResourceRecordSet (Maybe Text)-rrsHealthCheckId = lens _rrsHealthCheckId (\ s a -> s{_rrsHealthCheckId = a});+rrsHealthCheckId = lens _rrsHealthCheckId (\ s a -> s{_rrsHealthCheckId = a})  -- | /Latency-based resource record sets only:/ The Amazon EC2 Region where you created the resource that this resource record set refers to. The resource typically is an AWS resource, such as an EC2 instance or an ELB load balancer, and is referred to by an IP address or a DNS domain name, depending on the record type. When Amazon Route 53 receives a DNS query for a domain name and type for which you have created latency resource record sets, Amazon Route 53 selects the latency resource record set that has the lowest latency between the end user and the associated Amazon EC2 Region. Amazon Route 53 then returns the value that is associated with the selected resource record set. Note the following:     * You can only specify one @ResourceRecord@ per latency resource record set.     * You can only create one latency resource record set for each Amazon EC2 Region.     * You aren't required to create latency resource record sets for all Amazon EC2 Regions. Amazon Route 53 will choose the region with the best latency from among the regions that you create latency resource record sets for.     * You can't create non-latency resource record sets that have the same values for the @Name@ and @Type@ elements as latency resource record sets. rrsRegion :: Lens' ResourceRecordSet (Maybe Region)-rrsRegion = lens _rrsRegion (\ s a -> s{_rrsRegion = a});+rrsRegion = lens _rrsRegion (\ s a -> s{_rrsRegion = a})  -- | /Geo location resource record sets only:/ A complex type that lets you control how Amazon Route 53 responds to DNS queries based on the geographic origin of the query. For example, if you want all queries from Africa to be routed to a web server with an IP address of @192.0.2.111@ , create a resource record set with a @Type@ of @A@ and a @ContinentCode@ of @AF@ . If you create separate resource record sets for overlapping geographic regions (for example, one resource record set for a continent and one for a country on the same continent), priority goes to the smallest geographic region. This allows you to route most queries for a continent to one resource and to route queries for a country on that continent to a different resource. You can't create two geolocation resource record sets that specify the same geographic location. The value @*@ in the @CountryCode@ element matches all geographic locations that aren't specified in other geolocation resource record sets that have the same values for the @Name@ and @Type@ elements. /Important:/ Geolocation works by mapping IP addresses to locations. However, some IP addresses aren't mapped to geographic locations, so even if you create geolocation resource record sets that cover all seven continents, Amazon Route 53 will receive some DNS queries from locations that it can't identify. We recommend that you create a resource record set for which the value of @CountryCode@ is @*@ , which handles both queries that come from locations for which you haven't created geolocation resource record sets and queries from IP addresses that aren't mapped to a location. If you don't create a @*@ resource record set, Amazon Route 53 returns a "no answer" response for queries from those locations. You can't create non-geolocation resource record sets that have the same values for the @Name@ and @Type@ elements as geolocation resource record sets. rrsGeoLocation :: Lens' ResourceRecordSet (Maybe GeoLocation)-rrsGeoLocation = lens _rrsGeoLocation (\ s a -> s{_rrsGeoLocation = a});+rrsGeoLocation = lens _rrsGeoLocation (\ s a -> s{_rrsGeoLocation = a})  -- | /Multivalue answer resource record sets only/ : To route traffic approximately randomly to multiple resources, such as web servers, create one multivalue answer record for each resource and specify @true@ for @MultiValueAnswer@ . Note the following:     * If you associate a health check with a multivalue answer resource record set, Amazon Route 53 responds to DNS queries with the corresponding IP address only when the health check is healthy.     * If you don't associate a health check with a multivalue answer record, Amazon Route 53 always considers the record to be healthy.     * Amazon Route 53 responds to DNS queries with up to eight healthy records; if you have eight or fewer healthy records, Amazon Route 53 responds to all DNS queries with all the healthy records.     * If you have more than eight healthy records, Amazon Route 53 responds to different DNS resolvers with different combinations of healthy records.     * When all records are unhealthy, Amazon Route 53 responds to DNS queries with up to eight unhealthy records.     * If a resource becomes unavailable after a resolver caches a response, client software typically tries another of the IP addresses in the response. You can't create multivalue answer alias records. rrsMultiValueAnswer :: Lens' ResourceRecordSet (Maybe Bool)-rrsMultiValueAnswer = lens _rrsMultiValueAnswer (\ s a -> s{_rrsMultiValueAnswer = a});+rrsMultiValueAnswer = lens _rrsMultiValueAnswer (\ s a -> s{_rrsMultiValueAnswer = a})  -- | The name of the domain you want to perform the action on. Enter a fully qualified domain name, for example, @www.example.com@ . You can optionally include a trailing dot. If you omit the trailing dot, Amazon Route 53 still assumes that the domain name that you specify 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. For information about how to specify characters other than @a-z@ , @0-9@ , and @-@ (hyphen) and how to specify 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/ . You can use the asterisk (*) wildcard to replace the leftmost label in a domain name, for example, @*.example.com@ . Note the following:     * The * must replace the entire label. For example, you can't specify @*prod.example.com@ or @prod*.example.com@ .     * The * can't replace any of the middle labels, for example, marketing.*.example.com.     * If you include * in any position other than the leftmost label in a domain name, DNS treats it as an * character (ASCII 42), not as a wildcard. /Important:/ You can't use the * wildcard for resource records sets that have a type of NS. You can use the * wildcard as the leftmost label in a domain name, for example, @*.example.com@ . You can't use an * for one of the middle labels, for example, @marketing.*.example.com@ . In addition, the * must replace the entire label; for example, you can't specify @prod*.example.com@ . rrsName :: Lens' ResourceRecordSet Text-rrsName = lens _rrsName (\ s a -> s{_rrsName = a});+rrsName = lens _rrsName (\ s a -> s{_rrsName = a})  -- | The DNS record type. For information about different record types and how data is encoded for them, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/ResourceRecordTypes.html Supported DNS Resource Record Types> in the /Amazon Route 53 Developer Guide/ . Valid values for basic resource record sets: @A@ | @AAAA@ | @CAA@ | @CNAME@ | @MX@ | @NAPTR@ | @NS@ | @PTR@ | @SOA@ | @SPF@ | @SRV@ | @TXT@  Values for weighted, latency, geolocation, and failover resource record sets: @A@ | @AAAA@ | @CAA@ | @CNAME@ | @MX@ | @NAPTR@ | @PTR@ | @SPF@ | @SRV@ | @TXT@ . When creating a group of weighted, latency, geolocation, or failover resource record sets, specify the same value for all of the resource record sets in the group. Valid values for multivalue answer resource record sets: @A@ | @AAAA@ | @MX@ | @NAPTR@ | @PTR@ | @SPF@ | @SRV@ | @TXT@  Values for alias resource record sets:     * __CloudFront distributions:__ @A@  If IPv6 is enabled for the distribution, create two resource record sets to route traffic to your distribution, one with a value of @A@ and one with a value of @AAAA@ .      * __AWS Elastic Beanstalk environment that has a regionalized subdomain__ : @A@      * __ELB load balancers:__ @A@ | @AAAA@      * __Amazon S3 buckets:__ @A@      * __Another resource record set in this hosted zone:__ Specify the type of the resource record set that you're creating the alias for. All values are supported except @NS@ and @SOA@ . rrsType :: Lens' ResourceRecordSet RecordType-rrsType = lens _rrsType (\ s a -> s{_rrsType = a});+rrsType = lens _rrsType (\ s a -> s{_rrsType = a})  instance FromXML ResourceRecordSet where         parseXML x@@ -1367,20 +1511,20 @@     :: ResourceTagSet resourceTagSet =   ResourceTagSet'-  {_rtsResourceId = Nothing, _rtsResourceType = Nothing, _rtsTags = Nothing}+    {_rtsResourceId = Nothing, _rtsResourceType = Nothing, _rtsTags = Nothing}   -- | The ID for the specified resource. rtsResourceId :: Lens' ResourceTagSet (Maybe Text)-rtsResourceId = lens _rtsResourceId (\ s a -> s{_rtsResourceId = a});+rtsResourceId = lens _rtsResourceId (\ s a -> s{_rtsResourceId = a})  -- | The type of the resource.     * The resource type for health checks is @healthcheck@ .     * The resource type for hosted zones is @hostedzone@ . rtsResourceType :: Lens' ResourceTagSet (Maybe TagResourceType)-rtsResourceType = lens _rtsResourceType (\ s a -> s{_rtsResourceType = a});+rtsResourceType = lens _rtsResourceType (\ s a -> s{_rtsResourceType = a})  -- | The tags associated with the specified resource. rtsTags :: Lens' ResourceTagSet (Maybe (NonEmpty Tag))-rtsTags = lens _rtsTags (\ s a -> s{_rtsTags = a}) . mapping _List1;+rtsTags = lens _rtsTags (\ s a -> s{_rtsTags = a}) . mapping _List1  instance FromXML ResourceTagSet where         parseXML x@@ -1393,6 +1537,49 @@  instance NFData ResourceTagSet where +-- | A complex type that contains the type of limit that you specified in the request and the current value for that limit.+--+--+--+-- /See:/ 'reusableDelegationSetLimit' smart constructor.+data ReusableDelegationSetLimit = ReusableDelegationSetLimit'+  { _rdslType  :: !ReusableDelegationSetLimitType+  , _rdslValue :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReusableDelegationSetLimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdslType' - The limit that you requested: @MAX_ZONES_BY_REUSABLE_DELEGATION_SET@ , the maximum number of hosted zones that you can associate with the specified reusable delegation set.+--+-- * 'rdslValue' - The current value for the @MAX_ZONES_BY_REUSABLE_DELEGATION_SET@ limit.+reusableDelegationSetLimit+    :: ReusableDelegationSetLimitType -- ^ 'rdslType'+    -> Natural -- ^ 'rdslValue'+    -> ReusableDelegationSetLimit+reusableDelegationSetLimit pType_ pValue_ =+  ReusableDelegationSetLimit' {_rdslType = pType_, _rdslValue = _Nat # pValue_}+++-- | The limit that you requested: @MAX_ZONES_BY_REUSABLE_DELEGATION_SET@ , the maximum number of hosted zones that you can associate with the specified reusable delegation set.+rdslType :: Lens' ReusableDelegationSetLimit ReusableDelegationSetLimitType+rdslType = lens _rdslType (\ s a -> s{_rdslType = a})++-- | The current value for the @MAX_ZONES_BY_REUSABLE_DELEGATION_SET@ limit.+rdslValue :: Lens' ReusableDelegationSetLimit Natural+rdslValue = lens _rdslValue (\ s a -> s{_rdslValue = a}) . _Nat++instance FromXML ReusableDelegationSetLimit where+        parseXML x+          = ReusableDelegationSetLimit' <$>+              (x .@ "Type") <*> (x .@ "Value")++instance Hashable ReusableDelegationSetLimit where++instance NFData ReusableDelegationSetLimit where+ -- | A complex type that contains the status that one Amazon Route 53 health checker reports and the time of the health check. -- --@@ -1418,11 +1605,11 @@  -- | A description of the status of the health check endpoint as reported by one of the Amazon Route 53 health checkers. srStatus :: Lens' StatusReport (Maybe Text)-srStatus = lens _srStatus (\ s a -> s{_srStatus = a});+srStatus = lens _srStatus (\ s a -> s{_srStatus = a})  -- | The date and time that the health checker performed the health check in <https://en.wikipedia.org/wiki/ISO_8601 ISO 8601 format> and Coordinated Universal Time (UTC). For example, the value @2017-03-27T17:48:16.751Z@ represents March 27, 2017 at 17:48:16.751 UTC. srCheckedTime :: Lens' StatusReport (Maybe UTCTime)-srCheckedTime = lens _srCheckedTime (\ s a -> s{_srCheckedTime = a}) . mapping _Time;+srCheckedTime = lens _srCheckedTime (\ s a -> s{_srCheckedTime = a}) . mapping _Time  instance FromXML StatusReport where         parseXML x@@ -1458,11 +1645,11 @@  -- | The value of @Value@ depends on the operation that you want to perform:     * __Add a tag to a health check or hosted zone__ : @Value@ is the value that you want to give the new tag.     * __Edit a tag__ : @Value@ is the new value that you want to assign the tag. tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  -- | The value of @Key@ depends on the operation that you want to perform:     * __Add a tag to a health check or hosted zone__ : @Key@ is the name that you want to give the new tag.     * __Edit a tag__ : @Key@ is the name of the tag that you want to change the @Value@ for.     * __Delete a key__ : @Key@ is the name of the tag you want to remove.     * __Give a name to a health check__ : Edit the default @Name@ tag. In the Amazon Route 53 console, the list of your health checks includes a __Name__ column that lets you see the name that you've given to each health check. tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  instance FromXML Tag where         parseXML x@@ -1515,38 +1702,38 @@     -> TrafficPolicy trafficPolicy pId_ pVersion_ pName_ pType_ pDocument_ =   TrafficPolicy'-  { _tpComment = Nothing-  , _tpId = pId_-  , _tpVersion = _Nat # pVersion_-  , _tpName = pName_-  , _tpType = pType_-  , _tpDocument = pDocument_-  }+    { _tpComment = Nothing+    , _tpId = pId_+    , _tpVersion = _Nat # pVersion_+    , _tpName = pName_+    , _tpType = pType_+    , _tpDocument = pDocument_+    }   -- | The comment that you specify in the @CreateTrafficPolicy@ request, if any. tpComment :: Lens' TrafficPolicy (Maybe Text)-tpComment = lens _tpComment (\ s a -> s{_tpComment = a});+tpComment = lens _tpComment (\ s a -> s{_tpComment = a})  -- | The ID that Amazon Route 53 assigned to a traffic policy when you created it. tpId :: Lens' TrafficPolicy Text-tpId = lens _tpId (\ s a -> s{_tpId = a});+tpId = lens _tpId (\ s a -> s{_tpId = a})  -- | The version number that Amazon Route 53 assigns to a traffic policy. For a new traffic policy, the value of @Version@ is always 1. tpVersion :: Lens' TrafficPolicy Natural-tpVersion = lens _tpVersion (\ s a -> s{_tpVersion = a}) . _Nat;+tpVersion = lens _tpVersion (\ s a -> s{_tpVersion = a}) . _Nat  -- | The name that you specified when you created the traffic policy. tpName :: Lens' TrafficPolicy Text-tpName = lens _tpName (\ s a -> s{_tpName = a});+tpName = lens _tpName (\ s a -> s{_tpName = a})  -- | The DNS type of the resource record sets that Amazon Route 53 creates when you use a traffic policy to create a traffic policy instance. tpType :: Lens' TrafficPolicy RecordType-tpType = lens _tpType (\ s a -> s{_tpType = a});+tpType = lens _tpType (\ s a -> s{_tpType = a})  -- | The definition of a traffic policy in JSON format. You specify the JSON document to use for a new traffic policy in the @CreateTrafficPolicy@ request. For more information about the JSON format, see <http://docs.aws.amazon.com/Route53/latest/APIReference/api-policies-traffic-policy-document-format.html Traffic Policy Document Format> . tpDocument :: Lens' TrafficPolicy Text-tpDocument = lens _tpDocument (\ s a -> s{_tpDocument = a});+tpDocument = lens _tpDocument (\ s a -> s{_tpDocument = a})  instance FromXML TrafficPolicy where         parseXML x@@ -1613,53 +1800,53 @@     -> TrafficPolicyInstance trafficPolicyInstance pId_ pHostedZoneId_ pName_ pTTL_ pState_ pMessage_ pTrafficPolicyId_ pTrafficPolicyVersion_ pTrafficPolicyType_ =   TrafficPolicyInstance'-  { _tpiId = pId_-  , _tpiHostedZoneId = pHostedZoneId_-  , _tpiName = pName_-  , _tpiTTL = _Nat # pTTL_-  , _tpiState = pState_-  , _tpiMessage = pMessage_-  , _tpiTrafficPolicyId = pTrafficPolicyId_-  , _tpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_-  , _tpiTrafficPolicyType = pTrafficPolicyType_-  }+    { _tpiId = pId_+    , _tpiHostedZoneId = pHostedZoneId_+    , _tpiName = pName_+    , _tpiTTL = _Nat # pTTL_+    , _tpiState = pState_+    , _tpiMessage = pMessage_+    , _tpiTrafficPolicyId = pTrafficPolicyId_+    , _tpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_+    , _tpiTrafficPolicyType = pTrafficPolicyType_+    }   -- | The ID that Amazon Route 53 assigned to the new traffic policy instance. tpiId :: Lens' TrafficPolicyInstance Text-tpiId = lens _tpiId (\ s a -> s{_tpiId = a});+tpiId = lens _tpiId (\ s a -> s{_tpiId = a})  -- | The ID of the hosted zone that Amazon Route 53 created resource record sets in. tpiHostedZoneId :: Lens' TrafficPolicyInstance ResourceId-tpiHostedZoneId = lens _tpiHostedZoneId (\ s a -> s{_tpiHostedZoneId = a});+tpiHostedZoneId = lens _tpiHostedZoneId (\ s a -> s{_tpiHostedZoneId = a})  -- | The DNS name, such as www.example.com, for which Amazon Route 53 responds to queries by using the resource record sets that are associated with this traffic policy instance. tpiName :: Lens' TrafficPolicyInstance Text-tpiName = lens _tpiName (\ s a -> s{_tpiName = a});+tpiName = lens _tpiName (\ s a -> s{_tpiName = a})  -- | The TTL that Amazon Route 53 assigned to all of the resource record sets that it created in the specified hosted zone. tpiTTL :: Lens' TrafficPolicyInstance Natural-tpiTTL = lens _tpiTTL (\ s a -> s{_tpiTTL = a}) . _Nat;+tpiTTL = lens _tpiTTL (\ s a -> s{_tpiTTL = a}) . _Nat  -- | The value of @State@ is one of the following values:     * Applied    * Amazon Route 53 has finished creating resource record sets, and changes have propagated to all Amazon Route 53 edge locations.     * Creating    * Amazon Route 53 is creating the resource record sets. Use @GetTrafficPolicyInstance@ to confirm that the @CreateTrafficPolicyInstance@ request completed successfully.     * Failed    * Amazon Route 53 wasn't able to create or update the resource record sets. When the value of @State@ is @Failed@ , see @Message@ for an explanation of what caused the request to fail. tpiState :: Lens' TrafficPolicyInstance Text-tpiState = lens _tpiState (\ s a -> s{_tpiState = a});+tpiState = lens _tpiState (\ s a -> s{_tpiState = a})  -- | If @State@ is @Failed@ , an explanation of the reason for the failure. If @State@ is another value, @Message@ is empty. tpiMessage :: Lens' TrafficPolicyInstance Text-tpiMessage = lens _tpiMessage (\ s a -> s{_tpiMessage = a});+tpiMessage = lens _tpiMessage (\ s a -> s{_tpiMessage = a})  -- | The ID of the traffic policy that Amazon Route 53 used to create resource record sets in the specified hosted zone. tpiTrafficPolicyId :: Lens' TrafficPolicyInstance Text-tpiTrafficPolicyId = lens _tpiTrafficPolicyId (\ s a -> s{_tpiTrafficPolicyId = a});+tpiTrafficPolicyId = lens _tpiTrafficPolicyId (\ s a -> s{_tpiTrafficPolicyId = a})  -- | The version of the traffic policy that Amazon Route 53 used to create resource record sets in the specified hosted zone. tpiTrafficPolicyVersion :: Lens' TrafficPolicyInstance Natural-tpiTrafficPolicyVersion = lens _tpiTrafficPolicyVersion (\ s a -> s{_tpiTrafficPolicyVersion = a}) . _Nat;+tpiTrafficPolicyVersion = lens _tpiTrafficPolicyVersion (\ s a -> s{_tpiTrafficPolicyVersion = a}) . _Nat  -- | The DNS type that Amazon Route 53 assigned to all of the resource record sets that it created for this traffic policy instance. tpiTrafficPolicyType :: Lens' TrafficPolicyInstance RecordType-tpiTrafficPolicyType = lens _tpiTrafficPolicyType (\ s a -> s{_tpiTrafficPolicyType = a});+tpiTrafficPolicyType = lens _tpiTrafficPolicyType (\ s a -> s{_tpiTrafficPolicyType = a})  instance FromXML TrafficPolicyInstance where         parseXML x@@ -1713,33 +1900,33 @@     -> TrafficPolicySummary trafficPolicySummary pId_ pName_ pType_ pLatestVersion_ pTrafficPolicyCount_ =   TrafficPolicySummary'-  { _tpsId = pId_-  , _tpsName = pName_-  , _tpsType = pType_-  , _tpsLatestVersion = _Nat # pLatestVersion_-  , _tpsTrafficPolicyCount = _Nat # pTrafficPolicyCount_-  }+    { _tpsId = pId_+    , _tpsName = pName_+    , _tpsType = pType_+    , _tpsLatestVersion = _Nat # pLatestVersion_+    , _tpsTrafficPolicyCount = _Nat # pTrafficPolicyCount_+    }   -- | The ID that Amazon Route 53 assigned to the traffic policy when you created it. tpsId :: Lens' TrafficPolicySummary Text-tpsId = lens _tpsId (\ s a -> s{_tpsId = a});+tpsId = lens _tpsId (\ s a -> s{_tpsId = a})  -- | The name that you specified for the traffic policy when you created it. tpsName :: Lens' TrafficPolicySummary Text-tpsName = lens _tpsName (\ s a -> s{_tpsName = a});+tpsName = lens _tpsName (\ s a -> s{_tpsName = a})  -- | The DNS type of the resource record sets that Amazon Route 53 creates when you use a traffic policy to create a traffic policy instance. tpsType :: Lens' TrafficPolicySummary RecordType-tpsType = lens _tpsType (\ s a -> s{_tpsType = a});+tpsType = lens _tpsType (\ s a -> s{_tpsType = a})  -- | The version number of the latest version of the traffic policy. tpsLatestVersion :: Lens' TrafficPolicySummary Natural-tpsLatestVersion = lens _tpsLatestVersion (\ s a -> s{_tpsLatestVersion = a}) . _Nat;+tpsLatestVersion = lens _tpsLatestVersion (\ s a -> s{_tpsLatestVersion = a}) . _Nat  -- | The number of traffic policies that are associated with the current AWS account. tpsTrafficPolicyCount :: Lens' TrafficPolicySummary Natural-tpsTrafficPolicyCount = lens _tpsTrafficPolicyCount (\ s a -> s{_tpsTrafficPolicyCount = a}) . _Nat;+tpsTrafficPolicyCount = lens _tpsTrafficPolicyCount (\ s a -> s{_tpsTrafficPolicyCount = a}) . _Nat  instance FromXML TrafficPolicySummary where         parseXML x@@ -1777,11 +1964,11 @@  -- | (Private hosted zones only) The region in which you created an Amazon VPC. vpcVPCRegion :: Lens' VPC (Maybe VPCRegion)-vpcVPCRegion = lens _vpcVPCRegion (\ s a -> s{_vpcVPCRegion = a});+vpcVPCRegion = lens _vpcVPCRegion (\ s a -> s{_vpcVPCRegion = a})  -- | Undocumented member. vpcVPCId :: Lens' VPC (Maybe Text)-vpcVPCId = lens _vpcVPCId (\ s a -> s{_vpcVPCId = a});+vpcVPCId = lens _vpcVPCId (\ s a -> s{_vpcVPCId = a})  instance FromXML VPC where         parseXML x

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Route53.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -20,6 +20,45 @@ import Network.AWS.Prelude import Network.AWS.Route53.Internal +data AccountLimitType+  = MaxHealthChecksByOwner+  | MaxHostedZonesByOwner+  | MaxReusableDelegationSetsByOwner+  | MaxTrafficPoliciesByOwner+  | MaxTrafficPolicyInstancesByOwner+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText AccountLimitType where+    parser = takeLowerText >>= \case+        "max_health_checks_by_owner" -> pure MaxHealthChecksByOwner+        "max_hosted_zones_by_owner" -> pure MaxHostedZonesByOwner+        "max_reusable_delegation_sets_by_owner" -> pure MaxReusableDelegationSetsByOwner+        "max_traffic_policies_by_owner" -> pure MaxTrafficPoliciesByOwner+        "max_traffic_policy_instances_by_owner" -> pure MaxTrafficPolicyInstancesByOwner+        e -> fromTextError $ "Failure parsing AccountLimitType from value: '" <> e+           <> "'. Accepted values: max_health_checks_by_owner, max_hosted_zones_by_owner, max_reusable_delegation_sets_by_owner, max_traffic_policies_by_owner, max_traffic_policy_instances_by_owner"++instance ToText AccountLimitType where+    toText = \case+        MaxHealthChecksByOwner -> "MAX_HEALTH_CHECKS_BY_OWNER"+        MaxHostedZonesByOwner -> "MAX_HOSTED_ZONES_BY_OWNER"+        MaxReusableDelegationSetsByOwner -> "MAX_REUSABLE_DELEGATION_SETS_BY_OWNER"+        MaxTrafficPoliciesByOwner -> "MAX_TRAFFIC_POLICIES_BY_OWNER"+        MaxTrafficPolicyInstancesByOwner -> "MAX_TRAFFIC_POLICY_INSTANCES_BY_OWNER"++instance Hashable     AccountLimitType+instance NFData       AccountLimitType+instance ToByteString AccountLimitType+instance ToQuery      AccountLimitType+instance ToHeader     AccountLimitType++instance FromXML AccountLimitType where+    parseXML = parseXMLText "AccountLimitType"++instance ToXML AccountLimitType where+    toXML = toXMLText+ data ChangeAction   = Create   | Delete@@ -80,6 +119,7 @@ data CloudWatchRegion   = CWRApNortheast1   | CWRApNortheast2+  | CWRApNortheast3   | CWRApSouth1   | CWRApSoutheast1   | CWRApSoutheast2@@ -87,6 +127,7 @@   | CWREuCentral1   | CWREuWest1   | CWREuWest2+  | CWREuWest3   | CWRSaEast1   | CWRUsEast1   | CWRUsEast2@@ -99,6 +140,7 @@     parser = takeLowerText >>= \case         "ap-northeast-1" -> pure CWRApNortheast1         "ap-northeast-2" -> pure CWRApNortheast2+        "ap-northeast-3" -> pure CWRApNortheast3         "ap-south-1" -> pure CWRApSouth1         "ap-southeast-1" -> pure CWRApSoutheast1         "ap-southeast-2" -> pure CWRApSoutheast2@@ -106,18 +148,20 @@         "eu-central-1" -> pure CWREuCentral1         "eu-west-1" -> pure CWREuWest1         "eu-west-2" -> pure CWREuWest2+        "eu-west-3" -> pure CWREuWest3         "sa-east-1" -> pure CWRSaEast1         "us-east-1" -> pure CWRUsEast1         "us-east-2" -> pure CWRUsEast2         "us-west-1" -> pure CWRUsWest1         "us-west-2" -> pure CWRUsWest2         e -> fromTextError $ "Failure parsing CloudWatchRegion from value: '" <> e-           <> "'. Accepted values: ap-northeast-1, ap-northeast-2, ap-south-1, ap-southeast-1, ap-southeast-2, ca-central-1, eu-central-1, eu-west-1, eu-west-2, sa-east-1, us-east-1, us-east-2, us-west-1, us-west-2"+           <> "'. Accepted values: ap-northeast-1, ap-northeast-2, ap-northeast-3, ap-south-1, ap-southeast-1, ap-southeast-2, ca-central-1, eu-central-1, eu-west-1, eu-west-2, eu-west-3, sa-east-1, us-east-1, us-east-2, us-west-1, us-west-2"  instance ToText CloudWatchRegion where     toText = \case         CWRApNortheast1 -> "ap-northeast-1"         CWRApNortheast2 -> "ap-northeast-2"+        CWRApNortheast3 -> "ap-northeast-3"         CWRApSouth1 -> "ap-south-1"         CWRApSoutheast1 -> "ap-southeast-1"         CWRApSoutheast2 -> "ap-southeast-2"@@ -125,6 +169,7 @@         CWREuCentral1 -> "eu-central-1"         CWREuWest1 -> "eu-west-1"         CWREuWest2 -> "eu-west-2"+        CWREuWest3 -> "eu-west-3"         CWRSaEast1 -> "sa-east-1"         CWRUsEast1 -> "us-east-1"         CWRUsEast2 -> "us-east-2"@@ -299,6 +344,36 @@ instance ToXML HealthCheckType where     toXML = toXMLText +data HostedZoneLimitType+  = MaxRrsetsByZone+  | MaxVPCsAssociatedByZone+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText HostedZoneLimitType where+    parser = takeLowerText >>= \case+        "max_rrsets_by_zone" -> pure MaxRrsetsByZone+        "max_vpcs_associated_by_zone" -> pure MaxVPCsAssociatedByZone+        e -> fromTextError $ "Failure parsing HostedZoneLimitType from value: '" <> e+           <> "'. Accepted values: max_rrsets_by_zone, max_vpcs_associated_by_zone"++instance ToText HostedZoneLimitType where+    toText = \case+        MaxRrsetsByZone -> "MAX_RRSETS_BY_ZONE"+        MaxVPCsAssociatedByZone -> "MAX_VPCS_ASSOCIATED_BY_ZONE"++instance Hashable     HostedZoneLimitType+instance NFData       HostedZoneLimitType+instance ToByteString HostedZoneLimitType+instance ToQuery      HostedZoneLimitType+instance ToHeader     HostedZoneLimitType++instance FromXML HostedZoneLimitType where+    parseXML = parseXMLText "HostedZoneLimitType"++instance ToXML HostedZoneLimitType where+    toXML = toXMLText+ data InsufficientDataHealthStatus   = Healthy   | LastKnownStatus@@ -425,6 +500,33 @@ instance ToXML ResettableElementName where     toXML = toXMLText +data ReusableDelegationSetLimitType =+  MaxZonesByReusableDelegationSet+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ReusableDelegationSetLimitType where+    parser = takeLowerText >>= \case+        "max_zones_by_reusable_delegation_set" -> pure MaxZonesByReusableDelegationSet+        e -> fromTextError $ "Failure parsing ReusableDelegationSetLimitType from value: '" <> e+           <> "'. Accepted values: max_zones_by_reusable_delegation_set"++instance ToText ReusableDelegationSetLimitType where+    toText = \case+        MaxZonesByReusableDelegationSet -> "MAX_ZONES_BY_REUSABLE_DELEGATION_SET"++instance Hashable     ReusableDelegationSetLimitType+instance NFData       ReusableDelegationSetLimitType+instance ToByteString ReusableDelegationSetLimitType+instance ToQuery      ReusableDelegationSetLimitType+instance ToHeader     ReusableDelegationSetLimitType++instance FromXML ReusableDelegationSetLimitType where+    parseXML = parseXMLText "ReusableDelegationSetLimitType"++instance ToXML ReusableDelegationSetLimitType where+    toXML = toXMLText+ data Statistic   = Average   | Maximum@@ -494,6 +596,7 @@ data VPCRegion   = ApNortheast1   | ApNortheast2+  | ApNortheast3   | ApSouth1   | ApSoutheast1   | ApSoutheast2@@ -502,6 +605,7 @@   | EuCentral1   | EuWest1   | EuWest2+  | EuWest3   | SaEast1   | UsEast1   | UsEast2@@ -514,6 +618,7 @@     parser = takeLowerText >>= \case         "ap-northeast-1" -> pure ApNortheast1         "ap-northeast-2" -> pure ApNortheast2+        "ap-northeast-3" -> pure ApNortheast3         "ap-south-1" -> pure ApSouth1         "ap-southeast-1" -> pure ApSoutheast1         "ap-southeast-2" -> pure ApSoutheast2@@ -522,18 +627,20 @@         "eu-central-1" -> pure EuCentral1         "eu-west-1" -> pure EuWest1         "eu-west-2" -> pure EuWest2+        "eu-west-3" -> pure EuWest3         "sa-east-1" -> pure SaEast1         "us-east-1" -> pure UsEast1         "us-east-2" -> pure UsEast2         "us-west-1" -> pure UsWest1         "us-west-2" -> pure UsWest2         e -> fromTextError $ "Failure parsing VPCRegion from value: '" <> e-           <> "'. Accepted values: ap-northeast-1, ap-northeast-2, ap-south-1, ap-southeast-1, ap-southeast-2, ca-central-1, cn-north-1, eu-central-1, eu-west-1, eu-west-2, sa-east-1, us-east-1, us-east-2, us-west-1, us-west-2"+           <> "'. Accepted values: ap-northeast-1, ap-northeast-2, ap-northeast-3, ap-south-1, ap-southeast-1, ap-southeast-2, ca-central-1, cn-north-1, eu-central-1, eu-west-1, eu-west-2, eu-west-3, sa-east-1, us-east-1, us-east-2, us-west-1, us-west-2"  instance ToText VPCRegion where     toText = \case         ApNortheast1 -> "ap-northeast-1"         ApNortheast2 -> "ap-northeast-2"+        ApNortheast3 -> "ap-northeast-3"         ApSouth1 -> "ap-south-1"         ApSoutheast1 -> "ap-southeast-1"         ApSoutheast2 -> "ap-southeast-2"@@ -542,6 +649,7 @@         EuCentral1 -> "eu-central-1"         EuWest1 -> "eu-west-1"         EuWest2 -> "eu-west-2"+        EuWest3 -> "eu-west-3"         SaEast1 -> "sa-east-1"         UsEast1 -> "us-east-1"         UsEast2 -> "us-east-2"

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.UpdateHealthCheck--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -96,7 +96,7 @@ -- -- * 'uhcEnableSNI' - Specify whether you want Amazon Route 53 to send the value of @FullyQualifiedDomainName@ to the endpoint in the @client_hello@ message during @TLS@ negotiation. This allows the endpoint to respond to @HTTPS@ health check requests with the applicable SSL/TLS certificate. Some endpoints require that HTTPS requests include the host name in the @client_hello@ message. If you don't enable SNI, the status of the health check will be SSL alert @handshake_failure@ . A health check can also have that status for other reasons. If SNI is enabled and you're still getting the error, check the SSL/TLS configuration on your endpoint and confirm that your certificate is valid. The SSL/TLS certificate on your endpoint includes a domain name in the @Common Name@ field and possibly several more in the @Subject Alternative Names@ field. One of the domain names in the certificate should match the value that you specify for @FullyQualifiedDomainName@ . If the endpoint responds to the @client_hello@ message with a certificate that does not include the domain name that you specified in @FullyQualifiedDomainName@ , a health checker will retry the handshake. In the second attempt, the health checker will omit @FullyQualifiedDomainName@ from the @client_hello@ message. ----- * 'uhcResetElements' - A complex type that contains one @ResetElement@ element for each element that you want to reset to the default value. Valid values for @ResetElement@ include the following:     * @ChildHealthChecks@ : Amazon Route 53 resets 'HealthCheckConfig$ChildHealthChecks' to null.     * @FullyQualifiedDomainName@ : Amazon Route 53 resets 'HealthCheckConfig$FullyQualifiedDomainName' to null.     * @Regions@ : Amazon Route 53 resets the 'HealthCheckConfig$Regions' list to the default set of regions.      * @ResourcePath@ : Amazon Route 53 resets 'HealthCheckConfig$ResourcePath' to null.+-- * 'uhcResetElements' - A complex type that contains one @ResettableElementName@ element for each element that you want to reset to the default value. Valid values for @ResettableElementName@ include the following:     * @ChildHealthChecks@ : Amazon Route 53 resets 'HealthCheckConfig$ChildHealthChecks' to null.     * @FullyQualifiedDomainName@ : Amazon Route 53 resets 'HealthCheckConfig$FullyQualifiedDomainName' to null.     * @Regions@ : Amazon Route 53 resets the 'HealthCheckConfig$Regions' list to the default set of regions.      * @ResourcePath@ : Amazon Route 53 resets 'HealthCheckConfig$ResourcePath' to null. -- -- * 'uhcSearchString' - If the value of @Type@ is @HTTP_STR_MATCH@ or @HTTP_STR_MATCH@ , the string that you want Amazon Route 53 to search for in the response body from the specified resource. If the string appears in the response body, Amazon Route 53 considers the resource healthy. (You can't change the value of @Type@ when you update a health check.) --@@ -126,88 +126,88 @@     -> UpdateHealthCheck updateHealthCheck pHealthCheckId_ =   UpdateHealthCheck'-  { _uhcFailureThreshold = Nothing-  , _uhcIPAddress = Nothing-  , _uhcEnableSNI = Nothing-  , _uhcResetElements = Nothing-  , _uhcSearchString = Nothing-  , _uhcHealthThreshold = Nothing-  , _uhcRegions = Nothing-  , _uhcResourcePath = Nothing-  , _uhcInsufficientDataHealthStatus = Nothing-  , _uhcHealthCheckVersion = Nothing-  , _uhcAlarmIdentifier = Nothing-  , _uhcInverted = Nothing-  , _uhcFullyQualifiedDomainName = Nothing-  , _uhcChildHealthChecks = Nothing-  , _uhcPort = Nothing-  , _uhcHealthCheckId = pHealthCheckId_-  }+    { _uhcFailureThreshold = Nothing+    , _uhcIPAddress = Nothing+    , _uhcEnableSNI = Nothing+    , _uhcResetElements = Nothing+    , _uhcSearchString = Nothing+    , _uhcHealthThreshold = Nothing+    , _uhcRegions = Nothing+    , _uhcResourcePath = Nothing+    , _uhcInsufficientDataHealthStatus = Nothing+    , _uhcHealthCheckVersion = Nothing+    , _uhcAlarmIdentifier = Nothing+    , _uhcInverted = Nothing+    , _uhcFullyQualifiedDomainName = Nothing+    , _uhcChildHealthChecks = Nothing+    , _uhcPort = Nothing+    , _uhcHealthCheckId = pHealthCheckId_+    }   -- | The number of consecutive health checks that an endpoint must pass or fail for Amazon Route 53 to change the current status of the endpoint from unhealthy to healthy or vice versa. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/dns-failover-determining-health-of-endpoints.html How Amazon Route 53 Determines Whether an Endpoint Is Healthy> in the /Amazon Route 53 Developer Guide/ . If you don't specify a value for @FailureThreshold@ , the default value is three health checks. uhcFailureThreshold :: Lens' UpdateHealthCheck (Maybe Natural)-uhcFailureThreshold = lens _uhcFailureThreshold (\ s a -> s{_uhcFailureThreshold = a}) . mapping _Nat;+uhcFailureThreshold = lens _uhcFailureThreshold (\ s a -> s{_uhcFailureThreshold = a}) . mapping _Nat  -- | The IPv4 or IPv6 IP address for the endpoint that you want Amazon Route 53 to perform health checks on. If you don't specify a value for @IPAddress@ , Amazon Route 53 sends a DNS request to resolve the domain name that you specify in @FullyQualifiedDomainName@ at the interval that you specify in @RequestInterval@ . Using an IP address that is returned by DNS, Amazon Route 53 then checks the health of the endpoint. Use one of the following formats for the value of @IPAddress@ :      * __IPv4 address__ : four values between 0 and 255, separated by periods (.), for example, @192.0.2.44@ .     * __IPv6 address__ : eight groups of four hexadecimal values, separated by colons (:), for example, @2001:0db8:85a3:0000:0000:abcd:0001:2345@ . You can also shorten IPv6 addresses as described in RFC 5952, for example, @2001:db8:85a3::abcd:1:2345@ . If the endpoint is an EC2 instance, we recommend that you create an Elastic IP address, associate it with your EC2 instance, and specify the Elastic IP address for @IPAddress@ . This ensures that the IP address of your instance never changes. For more information, see the applicable documentation:     * Linux: <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses (EIP)> in the /Amazon EC2 User Guide for Linux Instances/      * Windows: <http://docs.aws.amazon.com/AWSEC2/latest/WindowsGuide/elastic-ip-addresses-eip.html Elastic IP Addresses (EIP)> in the /Amazon EC2 User Guide for Windows Instances/  For more information, see 'UpdateHealthCheckRequest$FullyQualifiedDomainName' . Constraints: Amazon Route 53 can't check the health of endpoints for which the IP address is in local, private, non-routable, or multicast ranges. For more information about IP addresses for which you can't create health checks, see the following documents:     * <https://tools.ietf.org/html/rfc5735 RFC 5735, Special Use IPv4 Addresses>      * <https://tools.ietf.org/html/rfc6598 RFC 6598, IANA-Reserved IPv4 Prefix for Shared Address Space>      * <https://tools.ietf.org/html/rfc5156 RFC 5156, Special-Use IPv6 Addresses> uhcIPAddress :: Lens' UpdateHealthCheck (Maybe Text)-uhcIPAddress = lens _uhcIPAddress (\ s a -> s{_uhcIPAddress = a});+uhcIPAddress = lens _uhcIPAddress (\ s a -> s{_uhcIPAddress = a})  -- | Specify whether you want Amazon Route 53 to send the value of @FullyQualifiedDomainName@ to the endpoint in the @client_hello@ message during @TLS@ negotiation. This allows the endpoint to respond to @HTTPS@ health check requests with the applicable SSL/TLS certificate. Some endpoints require that HTTPS requests include the host name in the @client_hello@ message. If you don't enable SNI, the status of the health check will be SSL alert @handshake_failure@ . A health check can also have that status for other reasons. If SNI is enabled and you're still getting the error, check the SSL/TLS configuration on your endpoint and confirm that your certificate is valid. The SSL/TLS certificate on your endpoint includes a domain name in the @Common Name@ field and possibly several more in the @Subject Alternative Names@ field. One of the domain names in the certificate should match the value that you specify for @FullyQualifiedDomainName@ . If the endpoint responds to the @client_hello@ message with a certificate that does not include the domain name that you specified in @FullyQualifiedDomainName@ , a health checker will retry the handshake. In the second attempt, the health checker will omit @FullyQualifiedDomainName@ from the @client_hello@ message. uhcEnableSNI :: Lens' UpdateHealthCheck (Maybe Bool)-uhcEnableSNI = lens _uhcEnableSNI (\ s a -> s{_uhcEnableSNI = a});+uhcEnableSNI = lens _uhcEnableSNI (\ s a -> s{_uhcEnableSNI = a}) --- | A complex type that contains one @ResetElement@ element for each element that you want to reset to the default value. Valid values for @ResetElement@ include the following:     * @ChildHealthChecks@ : Amazon Route 53 resets 'HealthCheckConfig$ChildHealthChecks' to null.     * @FullyQualifiedDomainName@ : Amazon Route 53 resets 'HealthCheckConfig$FullyQualifiedDomainName' to null.     * @Regions@ : Amazon Route 53 resets the 'HealthCheckConfig$Regions' list to the default set of regions.      * @ResourcePath@ : Amazon Route 53 resets 'HealthCheckConfig$ResourcePath' to null.+-- | A complex type that contains one @ResettableElementName@ element for each element that you want to reset to the default value. Valid values for @ResettableElementName@ include the following:     * @ChildHealthChecks@ : Amazon Route 53 resets 'HealthCheckConfig$ChildHealthChecks' to null.     * @FullyQualifiedDomainName@ : Amazon Route 53 resets 'HealthCheckConfig$FullyQualifiedDomainName' to null.     * @Regions@ : Amazon Route 53 resets the 'HealthCheckConfig$Regions' list to the default set of regions.      * @ResourcePath@ : Amazon Route 53 resets 'HealthCheckConfig$ResourcePath' to null. uhcResetElements :: Lens' UpdateHealthCheck [ResettableElementName]-uhcResetElements = lens _uhcResetElements (\ s a -> s{_uhcResetElements = a}) . _Default . _Coerce;+uhcResetElements = lens _uhcResetElements (\ s a -> s{_uhcResetElements = a}) . _Default . _Coerce  -- | If the value of @Type@ is @HTTP_STR_MATCH@ or @HTTP_STR_MATCH@ , the string that you want Amazon Route 53 to search for in the response body from the specified resource. If the string appears in the response body, Amazon Route 53 considers the resource healthy. (You can't change the value of @Type@ when you update a health check.) uhcSearchString :: Lens' UpdateHealthCheck (Maybe Text)-uhcSearchString = lens _uhcSearchString (\ s a -> s{_uhcSearchString = a});+uhcSearchString = lens _uhcSearchString (\ s a -> s{_uhcSearchString = a})  -- | The number of child health checks that are associated with a @CALCULATED@ health that Amazon Route 53 must consider healthy for the @CALCULATED@ health check to be considered healthy. To specify the child health checks that you want to associate with a @CALCULATED@ health check, use the @ChildHealthChecks@ and @ChildHealthCheck@ elements. Note the following:     * If you specify a number greater than the number of child health checks, Amazon Route 53 always considers this health check to be unhealthy.     * If you specify @0@ , Amazon Route 53 always considers this health check to be healthy. uhcHealthThreshold :: Lens' UpdateHealthCheck (Maybe Natural)-uhcHealthThreshold = lens _uhcHealthThreshold (\ s a -> s{_uhcHealthThreshold = a}) . mapping _Nat;+uhcHealthThreshold = lens _uhcHealthThreshold (\ s a -> s{_uhcHealthThreshold = a}) . mapping _Nat  -- | A complex type that contains one @Region@ element for each region that you want Amazon Route 53 health checkers to check the specified endpoint from. uhcRegions :: Lens' UpdateHealthCheck (Maybe (NonEmpty HealthCheckRegion))-uhcRegions = lens _uhcRegions (\ s a -> s{_uhcRegions = a}) . mapping _List1;+uhcRegions = lens _uhcRegions (\ s a -> s{_uhcRegions = a}) . mapping _List1  -- | The path that you want Amazon Route 53 to request when performing health checks. The path can be any value for which your endpoint will return an HTTP status code of 2xx or 3xx when the endpoint is healthy, for example the file /docs/route53-health-check.html.  Specify this value only if you want to change it. uhcResourcePath :: Lens' UpdateHealthCheck (Maybe Text)-uhcResourcePath = lens _uhcResourcePath (\ s a -> s{_uhcResourcePath = a});+uhcResourcePath = lens _uhcResourcePath (\ s a -> s{_uhcResourcePath = a})  -- | When CloudWatch has insufficient data about the metric to determine the alarm state, the status that you want Amazon Route 53 to assign to the health check:     * @Healthy@ : Amazon Route 53 considers the health check to be healthy.     * @Unhealthy@ : Amazon Route 53 considers the health check to be unhealthy.     * @LastKnownStatus@ : Amazon Route 53 uses the status of the health check from the last time CloudWatch had sufficient data to determine the alarm state. For new health checks that have no last known status, the default status for the health check is healthy. uhcInsufficientDataHealthStatus :: Lens' UpdateHealthCheck (Maybe InsufficientDataHealthStatus)-uhcInsufficientDataHealthStatus = lens _uhcInsufficientDataHealthStatus (\ s a -> s{_uhcInsufficientDataHealthStatus = a});+uhcInsufficientDataHealthStatus = lens _uhcInsufficientDataHealthStatus (\ s a -> s{_uhcInsufficientDataHealthStatus = a})  -- | A sequential counter that Amazon Route 53 sets to @1@ when you create a health check and increments by 1 each time you update settings for the health check. We recommend that you use @GetHealthCheck@ or @ListHealthChecks@ to get the current value of @HealthCheckVersion@ for the health check that you want to update, and that you include that value in your @UpdateHealthCheck@ request. This prevents Amazon Route 53 from overwriting an intervening update:     * If the value in the @UpdateHealthCheck@ request matches the value of @HealthCheckVersion@ in the health check, Amazon Route 53 updates the health check with the new settings.     * If the value of @HealthCheckVersion@ in the health check is greater, the health check was changed after you got the version number. Amazon Route 53 does not update the health check, and it returns a @HealthCheckVersionMismatch@ error. uhcHealthCheckVersion :: Lens' UpdateHealthCheck (Maybe Natural)-uhcHealthCheckVersion = lens _uhcHealthCheckVersion (\ s a -> s{_uhcHealthCheckVersion = a}) . mapping _Nat;+uhcHealthCheckVersion = lens _uhcHealthCheckVersion (\ s a -> s{_uhcHealthCheckVersion = a}) . mapping _Nat  -- | Undocumented member. uhcAlarmIdentifier :: Lens' UpdateHealthCheck (Maybe AlarmIdentifier)-uhcAlarmIdentifier = lens _uhcAlarmIdentifier (\ s a -> s{_uhcAlarmIdentifier = a});+uhcAlarmIdentifier = lens _uhcAlarmIdentifier (\ s a -> s{_uhcAlarmIdentifier = a})  -- | Specify whether you want Amazon Route 53 to invert the status of a health check, for example, to consider a health check unhealthy when it otherwise would be considered healthy. uhcInverted :: Lens' UpdateHealthCheck (Maybe Bool)-uhcInverted = lens _uhcInverted (\ s a -> s{_uhcInverted = a});+uhcInverted = lens _uhcInverted (\ s a -> s{_uhcInverted = a})  -- | Amazon Route 53 behavior depends on whether you specify a value for @IPAddress@ . __If you specify a value for__ @IPAddress@ : Amazon Route 53 sends health check requests to the specified IPv4 or IPv6 address and passes the value of @FullyQualifiedDomainName@ in the @Host@ header for all health checks except TCP health checks. This is typically the fully qualified DNS name of the endpoint on which you want Amazon Route 53 to perform health checks. When Amazon Route 53 checks the health of an endpoint, here is how it constructs the @Host@ header:     * If you specify a value of @80@ for @Port@ and @HTTP@ or @HTTP_STR_MATCH@ for @Type@ , Amazon Route 53 passes the value of @FullyQualifiedDomainName@ to the endpoint in the @Host@ header.     * If you specify a value of @443@ for @Port@ and @HTTPS@ or @HTTPS_STR_MATCH@ for @Type@ , Amazon Route 53 passes the value of @FullyQualifiedDomainName@ to the endpoint in the @Host@ header.     * If you specify another value for @Port@ and any value except @TCP@ for @Type@ , Amazon Route 53 passes /@FullyQualifiedDomainName@ :@Port@ / to the endpoint in the @Host@ header. If you don't specify a value for @FullyQualifiedDomainName@ , Amazon Route 53 substitutes the value of @IPAddress@ in the @Host@ header in each of the above cases. __If you don't specify a value for__ @IPAddress@ : If you don't specify a value for @IPAddress@ , Amazon Route 53 sends a DNS request to the domain that you specify in @FullyQualifiedDomainName@ at the interval you specify in @RequestInterval@ . Using an IPv4 address that is returned by DNS, Amazon Route 53 then checks the health of the endpoint. If you want to check the health of weighted, latency, or failover resource record sets and you choose to specify the endpoint only by @FullyQualifiedDomainName@ , 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-2-www.example.com@ ), not the name of the resource record sets (www.example.com). /Important:/ In this configuration, if the value of @FullyQualifiedDomainName@ matches the name of the resource record sets and you then associate the health check with those resource record sets, health check results will be unpredictable. In addition, if the value of @Type@ is @HTTP@ , @HTTPS@ , @HTTP_STR_MATCH@ , or @HTTPS_STR_MATCH@ , Amazon Route 53 passes the value of @FullyQualifiedDomainName@ in the @Host@ header, as it does when you specify a value for @IPAddress@ . If the value of @Type@ is @TCP@ , Amazon Route 53 doesn't pass a @Host@ header. uhcFullyQualifiedDomainName :: Lens' UpdateHealthCheck (Maybe Text)-uhcFullyQualifiedDomainName = lens _uhcFullyQualifiedDomainName (\ s a -> s{_uhcFullyQualifiedDomainName = a});+uhcFullyQualifiedDomainName = lens _uhcFullyQualifiedDomainName (\ s a -> s{_uhcFullyQualifiedDomainName = a})  -- | A complex type that contains one @ChildHealthCheck@ element for each health check that you want to associate with a @CALCULATED@ health check. uhcChildHealthChecks :: Lens' UpdateHealthCheck [Text]-uhcChildHealthChecks = lens _uhcChildHealthChecks (\ s a -> s{_uhcChildHealthChecks = a}) . _Default . _Coerce;+uhcChildHealthChecks = lens _uhcChildHealthChecks (\ s a -> s{_uhcChildHealthChecks = a}) . _Default . _Coerce  -- | The port on the endpoint on which you want Amazon Route 53 to perform health checks. uhcPort :: Lens' UpdateHealthCheck (Maybe Natural)-uhcPort = lens _uhcPort (\ s a -> s{_uhcPort = a}) . mapping _Nat;+uhcPort = lens _uhcPort (\ s a -> s{_uhcPort = a}) . mapping _Nat  -- | The ID for the health check for which you want detailed information. When you created the health check, @CreateHealthCheck@ returned the ID in the response, in the @HealthCheckId@ element. uhcHealthCheckId :: Lens' UpdateHealthCheck Text-uhcHealthCheckId = lens _uhcHealthCheckId (\ s a -> s{_uhcHealthCheckId = a});+uhcHealthCheckId = lens _uhcHealthCheckId (\ s a -> s{_uhcHealthCheckId = a})  instance AWSRequest UpdateHealthCheck where         type Rs UpdateHealthCheck = UpdateHealthCheckResponse@@ -286,15 +286,15 @@     -> UpdateHealthCheckResponse updateHealthCheckResponse pResponseStatus_ pHealthCheck_ =   UpdateHealthCheckResponse'-  {_uhcrsResponseStatus = pResponseStatus_, _uhcrsHealthCheck = pHealthCheck_}+    {_uhcrsResponseStatus = pResponseStatus_, _uhcrsHealthCheck = pHealthCheck_}   -- | -- | The response status code. uhcrsResponseStatus :: Lens' UpdateHealthCheckResponse Int-uhcrsResponseStatus = lens _uhcrsResponseStatus (\ s a -> s{_uhcrsResponseStatus = a});+uhcrsResponseStatus = lens _uhcrsResponseStatus (\ s a -> s{_uhcrsResponseStatus = a})  -- | Undocumented member. uhcrsHealthCheck :: Lens' UpdateHealthCheckResponse HealthCheck-uhcrsHealthCheck = lens _uhcrsHealthCheck (\ s a -> s{_uhcrsHealthCheck = a});+uhcrsHealthCheck = lens _uhcrsHealthCheck (\ s a -> s{_uhcrsHealthCheck = a})  instance NFData UpdateHealthCheckResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.UpdateHostedZoneComment--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,11 +72,11 @@  -- | The new comment for the hosted zone. If you don't specify a value for @Comment@ , Amazon Route 53 deletes the existing value of the @Comment@ element, if any. uhzcComment :: Lens' UpdateHostedZoneComment (Maybe Text)-uhzcComment = lens _uhzcComment (\ s a -> s{_uhzcComment = a});+uhzcComment = lens _uhzcComment (\ s a -> s{_uhzcComment = a})  -- | The ID for the hosted zone that you want to update the comment for. uhzcId :: Lens' UpdateHostedZoneComment ResourceId-uhzcId = lens _uhzcId (\ s a -> s{_uhzcId = a});+uhzcId = lens _uhzcId (\ s a -> s{_uhzcId = a})  instance AWSRequest UpdateHostedZoneComment where         type Rs UpdateHostedZoneComment =@@ -135,15 +135,15 @@     -> UpdateHostedZoneCommentResponse updateHostedZoneCommentResponse pResponseStatus_ pHostedZone_ =   UpdateHostedZoneCommentResponse'-  {_uhzcrsResponseStatus = pResponseStatus_, _uhzcrsHostedZone = pHostedZone_}+    {_uhzcrsResponseStatus = pResponseStatus_, _uhzcrsHostedZone = pHostedZone_}   -- | -- | The response status code. uhzcrsResponseStatus :: Lens' UpdateHostedZoneCommentResponse Int-uhzcrsResponseStatus = lens _uhzcrsResponseStatus (\ s a -> s{_uhzcrsResponseStatus = a});+uhzcrsResponseStatus = lens _uhzcrsResponseStatus (\ s a -> s{_uhzcrsResponseStatus = a})  -- | Undocumented member. uhzcrsHostedZone :: Lens' UpdateHostedZoneCommentResponse HostedZone-uhzcrsHostedZone = lens _uhzcrsHostedZone (\ s a -> s{_uhzcrsHostedZone = a});+uhzcrsHostedZone = lens _uhzcrsHostedZone (\ s a -> s{_uhzcrsHostedZone = a})  instance NFData UpdateHostedZoneCommentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.UpdateTrafficPolicyComment--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,20 +74,20 @@     -> UpdateTrafficPolicyComment updateTrafficPolicyComment pId_ pVersion_ pComment_ =   UpdateTrafficPolicyComment'-  {_utpcId = pId_, _utpcVersion = _Nat # pVersion_, _utpcComment = pComment_}+    {_utpcId = pId_, _utpcVersion = _Nat # pVersion_, _utpcComment = pComment_}   -- | The value of @Id@ for the traffic policy that you want to update the comment for. utpcId :: Lens' UpdateTrafficPolicyComment Text-utpcId = lens _utpcId (\ s a -> s{_utpcId = a});+utpcId = lens _utpcId (\ s a -> s{_utpcId = a})  -- | The value of @Version@ for the traffic policy that you want to update the comment for. utpcVersion :: Lens' UpdateTrafficPolicyComment Natural-utpcVersion = lens _utpcVersion (\ s a -> s{_utpcVersion = a}) . _Nat;+utpcVersion = lens _utpcVersion (\ s a -> s{_utpcVersion = a}) . _Nat  -- | The new comment for the specified traffic policy and version. utpcComment :: Lens' UpdateTrafficPolicyComment Text-utpcComment = lens _utpcComment (\ s a -> s{_utpcComment = a});+utpcComment = lens _utpcComment (\ s a -> s{_utpcComment = a})  instance AWSRequest UpdateTrafficPolicyComment where         type Rs UpdateTrafficPolicyComment =@@ -148,18 +148,18 @@     -> UpdateTrafficPolicyCommentResponse updateTrafficPolicyCommentResponse pResponseStatus_ pTrafficPolicy_ =   UpdateTrafficPolicyCommentResponse'-  { _utpcrsResponseStatus = pResponseStatus_-  , _utpcrsTrafficPolicy = pTrafficPolicy_-  }+    { _utpcrsResponseStatus = pResponseStatus_+    , _utpcrsTrafficPolicy = pTrafficPolicy_+    }   -- | -- | The response status code. utpcrsResponseStatus :: Lens' UpdateTrafficPolicyCommentResponse Int-utpcrsResponseStatus = lens _utpcrsResponseStatus (\ s a -> s{_utpcrsResponseStatus = a});+utpcrsResponseStatus = lens _utpcrsResponseStatus (\ s a -> s{_utpcrsResponseStatus = a})  -- | A complex type that contains settings for the specified traffic policy. utpcrsTrafficPolicy :: Lens' UpdateTrafficPolicyCommentResponse TrafficPolicy-utpcrsTrafficPolicy = lens _utpcrsTrafficPolicy (\ s a -> s{_utpcrsTrafficPolicy = a});+utpcrsTrafficPolicy = lens _utpcrsTrafficPolicy (\ s a -> s{_utpcrsTrafficPolicy = a})  instance NFData UpdateTrafficPolicyCommentResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Route53.UpdateTrafficPolicyInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -89,28 +89,28 @@     -> UpdateTrafficPolicyInstance updateTrafficPolicyInstance pId_ pTTL_ pTrafficPolicyId_ pTrafficPolicyVersion_ =   UpdateTrafficPolicyInstance'-  { _utpiId = pId_-  , _utpiTTL = _Nat # pTTL_-  , _utpiTrafficPolicyId = pTrafficPolicyId_-  , _utpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_-  }+    { _utpiId = pId_+    , _utpiTTL = _Nat # pTTL_+    , _utpiTrafficPolicyId = pTrafficPolicyId_+    , _utpiTrafficPolicyVersion = _Nat # pTrafficPolicyVersion_+    }   -- | The ID of the traffic policy instance that you want to update. utpiId :: Lens' UpdateTrafficPolicyInstance Text-utpiId = lens _utpiId (\ s a -> s{_utpiId = a});+utpiId = lens _utpiId (\ s a -> s{_utpiId = a})  -- | The TTL that you want Amazon Route 53 to assign to all of the updated resource record sets. utpiTTL :: Lens' UpdateTrafficPolicyInstance Natural-utpiTTL = lens _utpiTTL (\ s a -> s{_utpiTTL = a}) . _Nat;+utpiTTL = lens _utpiTTL (\ s a -> s{_utpiTTL = a}) . _Nat  -- | The ID of the traffic policy that you want Amazon Route 53 to use to update resource record sets for the specified traffic policy instance. utpiTrafficPolicyId :: Lens' UpdateTrafficPolicyInstance Text-utpiTrafficPolicyId = lens _utpiTrafficPolicyId (\ s a -> s{_utpiTrafficPolicyId = a});+utpiTrafficPolicyId = lens _utpiTrafficPolicyId (\ s a -> s{_utpiTrafficPolicyId = a})  -- | The version of the traffic policy that you want Amazon Route 53 to use to update resource record sets for the specified traffic policy instance. utpiTrafficPolicyVersion :: Lens' UpdateTrafficPolicyInstance Natural-utpiTrafficPolicyVersion = lens _utpiTrafficPolicyVersion (\ s a -> s{_utpiTrafficPolicyVersion = a}) . _Nat;+utpiTrafficPolicyVersion = lens _utpiTrafficPolicyVersion (\ s a -> s{_utpiTrafficPolicyVersion = a}) . _Nat  instance AWSRequest UpdateTrafficPolicyInstance where         type Rs UpdateTrafficPolicyInstance =@@ -174,18 +174,18 @@     -> UpdateTrafficPolicyInstanceResponse updateTrafficPolicyInstanceResponse pResponseStatus_ pTrafficPolicyInstance_ =   UpdateTrafficPolicyInstanceResponse'-  { _utpirsResponseStatus = pResponseStatus_-  , _utpirsTrafficPolicyInstance = pTrafficPolicyInstance_-  }+    { _utpirsResponseStatus = pResponseStatus_+    , _utpirsTrafficPolicyInstance = pTrafficPolicyInstance_+    }   -- | -- | The response status code. utpirsResponseStatus :: Lens' UpdateTrafficPolicyInstanceResponse Int-utpirsResponseStatus = lens _utpirsResponseStatus (\ s a -> s{_utpirsResponseStatus = a});+utpirsResponseStatus = lens _utpirsResponseStatus (\ s a -> s{_utpirsResponseStatus = a})  -- | A complex type that contains settings for the updated traffic policy instance. utpirsTrafficPolicyInstance :: Lens' UpdateTrafficPolicyInstanceResponse TrafficPolicyInstance-utpirsTrafficPolicyInstance = lens _utpirsTrafficPolicyInstance (\ s a -> s{_utpirsTrafficPolicyInstance = a});+utpirsTrafficPolicyInstance = lens _utpirsTrafficPolicyInstance (\ s a -> s{_utpirsTrafficPolicyInstance = a})  instance NFData UpdateTrafficPolicyInstanceResponse          where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.Route53.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -25,14 +25,14 @@ resourceRecordSetsChanged :: Wait GetChange resourceRecordSetsChanged =   Wait-  { _waitName = "ResourceRecordSetsChanged"-  , _waitAttempts = 60-  , _waitDelay = 30-  , _waitAcceptors =-      [ matchAll-          "INSYNC"-          AcceptSuccess-          (gcrsChangeInfo . ciStatus . to toTextCI)-      ]-  }+    { _waitName = "ResourceRecordSetsChanged"+    , _waitAttempts = 60+    , _waitDelay = 30+    , _waitAcceptors =+        [ matchAll+            "INSYNC"+            AcceptSuccess+            (gcrsChangeInfo . ciStatus . to toTextCI)+        ]+    } 

@@ -8,7 +8,7 @@  -- | -- Module      : Network.AWS.Route53.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.Route53--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -28,7 +28,10 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ requestAssociateVPCWithHostedZone $+--         [ requestGetHostedZoneLimit $+--             getHostedZoneLimit+--+--         , requestAssociateVPCWithHostedZone $ --             associateVPCWithHostedZone -- --         , requestDeleteTrafficPolicy $@@ -133,6 +136,9 @@ --         , requestGetHostedZoneCount $ --             getHostedZoneCount --+--         , requestGetAccountLimit $+--             getAccountLimit+-- --         , requestDeleteQueryLoggingConfig $ --             deleteQueryLoggingConfig --@@ -154,6 +160,9 @@ --         , requestGetHealthCheckStatus $ --             getHealthCheckStatus --+--         , requestGetReusableDelegationSetLimit $+--             getReusableDelegationSetLimit+-- --         , requestCreateTrafficPolicyVersion $ --             createTrafficPolicyVersion --@@ -190,7 +199,10 @@ --           ]  --     , testGroup "response"---         [ responseAssociateVPCWithHostedZone $+--         [ responseGetHostedZoneLimit $+--             getHostedZoneLimitResponse+--+--         , responseAssociateVPCWithHostedZone $ --             associateVPCWithHostedZoneResponse -- --         , responseDeleteTrafficPolicy $@@ -295,6 +307,9 @@ --         , responseGetHostedZoneCount $ --             getHostedZoneCountResponse --+--         , responseGetAccountLimit $+--             getAccountLimitResponse+-- --         , responseDeleteQueryLoggingConfig $ --             deleteQueryLoggingConfigResponse --@@ -316,6 +331,9 @@ --         , responseGetHealthCheckStatus $ --             getHealthCheckStatusResponse --+--         , responseGetReusableDelegationSetLimit $+--             getReusableDelegationSetLimitResponse+-- --         , responseCreateTrafficPolicyVersion $ --             createTrafficPolicyVersionResponse --@@ -354,6 +372,11 @@  -- Requests +requestGetHostedZoneLimit :: GetHostedZoneLimit -> TestTree+requestGetHostedZoneLimit = req+    "GetHostedZoneLimit"+    "fixture/GetHostedZoneLimit.yaml"+ requestAssociateVPCWithHostedZone :: AssociateVPCWithHostedZone -> TestTree requestAssociateVPCWithHostedZone = req     "AssociateVPCWithHostedZone"@@ -529,6 +552,11 @@     "GetHostedZoneCount"     "fixture/GetHostedZoneCount.yaml" +requestGetAccountLimit :: GetAccountLimit -> TestTree+requestGetAccountLimit = req+    "GetAccountLimit"+    "fixture/GetAccountLimit.yaml"+ requestDeleteQueryLoggingConfig :: DeleteQueryLoggingConfig -> TestTree requestDeleteQueryLoggingConfig = req     "DeleteQueryLoggingConfig"@@ -564,6 +592,11 @@     "GetHealthCheckStatus"     "fixture/GetHealthCheckStatus.yaml" +requestGetReusableDelegationSetLimit :: GetReusableDelegationSetLimit -> TestTree+requestGetReusableDelegationSetLimit = req+    "GetReusableDelegationSetLimit"+    "fixture/GetReusableDelegationSetLimit.yaml"+ requestCreateTrafficPolicyVersion :: CreateTrafficPolicyVersion -> TestTree requestCreateTrafficPolicyVersion = req     "CreateTrafficPolicyVersion"@@ -621,6 +654,13 @@  -- Responses +responseGetHostedZoneLimit :: GetHostedZoneLimitResponse -> TestTree+responseGetHostedZoneLimit = res+    "GetHostedZoneLimitResponse"+    "fixture/GetHostedZoneLimitResponse.proto"+    route53+    (Proxy :: Proxy GetHostedZoneLimit)+ responseAssociateVPCWithHostedZone :: AssociateVPCWithHostedZoneResponse -> TestTree responseAssociateVPCWithHostedZone = res     "AssociateVPCWithHostedZoneResponse"@@ -866,6 +906,13 @@     route53     (Proxy :: Proxy GetHostedZoneCount) +responseGetAccountLimit :: GetAccountLimitResponse -> TestTree+responseGetAccountLimit = res+    "GetAccountLimitResponse"+    "fixture/GetAccountLimitResponse.proto"+    route53+    (Proxy :: Proxy GetAccountLimit)+ responseDeleteQueryLoggingConfig :: DeleteQueryLoggingConfigResponse -> TestTree responseDeleteQueryLoggingConfig = res     "DeleteQueryLoggingConfigResponse"@@ -914,6 +961,13 @@     "fixture/GetHealthCheckStatusResponse.proto"     route53     (Proxy :: Proxy GetHealthCheckStatus)++responseGetReusableDelegationSetLimit :: GetReusableDelegationSetLimitResponse -> TestTree+responseGetReusableDelegationSetLimit = res+    "GetReusableDelegationSetLimitResponse"+    "fixture/GetReusableDelegationSetLimitResponse.proto"+    route53+    (Proxy :: Proxy GetReusableDelegationSetLimit)  responseCreateTrafficPolicyVersion :: CreateTrafficPolicyVersionResponse -> TestTree responseCreateTrafficPolicyVersion = res

@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.Route53--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.Route53.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or