amazonka-route53 0.3.6.1 → 1.0.0

raw patch · 43 files changed

+6933/−5168 lines, 43 filesdep +amazonka-route53dep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-route53, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +20/−7
• amazonka-route53.cabal +52/−13
• gen/Network/AWS/Route53.hs +431/−66
• gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +128/−109
• gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +133/−107
• gen/Network/AWS/Route53/ChangeTagsForResource.hs +122/−94
• gen/Network/AWS/Route53/CreateHealthCheck.hs +129/−103
• gen/Network/AWS/Route53/CreateHostedZone.hs +201/−176
• gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +127/−107
• gen/Network/AWS/Route53/DeleteHealthCheck.hs +87/−70
• gen/Network/AWS/Route53/DeleteHostedZone.hs +99/−88
• gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +86/−67
• gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +129/−108
• gen/Network/AWS/Route53/GetChange.hs +98/−92
• gen/Network/AWS/Route53/GetCheckerIPRanges.hs +114/−0
• gen/Network/AWS/Route53/GetCheckerIpRanges.hs +0/−107
• gen/Network/AWS/Route53/GetGeoLocation.hs +121/−110
• gen/Network/AWS/Route53/GetHealthCheck.hs +91/−81
• gen/Network/AWS/Route53/GetHealthCheckCount.hs +85/−72
• gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +102/−97
• gen/Network/AWS/Route53/GetHealthCheckStatus.hs +98/−95
• gen/Network/AWS/Route53/GetHostedZone.hs +111/−102
• gen/Network/AWS/Route53/GetHostedZoneCount.hs +85/−72
• gen/Network/AWS/Route53/GetReusableDelegationSet.hs +94/−85
• gen/Network/AWS/Route53/ListGeoLocations.hs +199/−183
• gen/Network/AWS/Route53/ListHealthChecks.hs +176/−146
• gen/Network/AWS/Route53/ListHostedZones.hs +185/−153
• gen/Network/AWS/Route53/ListHostedZonesByName.hs +207/−179
• gen/Network/AWS/Route53/ListResourceRecordSets.hs +240/−227
• gen/Network/AWS/Route53/ListReusableDelegationSets.hs +172/−146
• gen/Network/AWS/Route53/ListTagsForResource.hs +102/−92
• gen/Network/AWS/Route53/ListTagsForResources.hs +113/−101
• gen/Network/AWS/Route53/Types.hs +423/−1661
• gen/Network/AWS/Route53/Types/Product.hs +1171/−0
• gen/Network/AWS/Route53/Types/Sum.hs +271/−0
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +174/−159
• gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +105/−86
• gen/Network/AWS/Route53/Waiters.hs +35/−0
• src/Network/AWS/Route53/Internal.hs +5/−7
• test/Main.hs +21/−0
• test/Test/AWS/Gen/Route53.hs +549/−0
• test/Test/AWS/Route53.hs +26/−0
• test/Test/AWS/Route53/Internal.hs +16/−0

@@ -1,23 +1,36 @@ # Amazon Route 53 SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description  Amazon Route 53 is a scalable Domain Name System (DNS) web service. It-provides secure and reliable routing to your infrastructure that uses Amazon-Web Services (AWS) products, such as Amazon Elastic Compute Cloud (Amazon-EC2), Elastic Load Balancing, or Amazon Simple Storage Service (Amazon S3).-You can also use Amazon Route 53 to route users to your infrastructure-outside of AWS.+provides secure and reliable routing to your infrastructure that uses+Amazon Web Services (AWS) products, such as Amazon Elastic Compute Cloud+(Amazon EC2), Elastic Load Balancing, or Amazon Simple Storage Service+(Amazon S3). You can also use Amazon Route 53 to route users to your+infrastructure outside of AWS.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-route53) and the [AWS API Reference](http://docs.aws.amazon.com/Route53/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,12 +1,12 @@ name:                  amazonka-route53-version:               0.3.6.1+version:               1.0.0 synopsis:              Amazon Route 53 SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md@@ -14,17 +14,25 @@  description:     Amazon Route 53 is a scalable Domain Name System (DNS) web service. It-    provides secure and reliable routing to your infrastructure that uses Amazon-    Web Services (AWS) products, such as Amazon Elastic Compute Cloud (Amazon-    EC2), Elastic Load Balancing, or Amazon Simple Storage Service (Amazon S3).-    You can also use Amazon Route 53 to route users to your infrastructure-    outside of AWS.-+    provides secure and reliable routing to your infrastructure that uses+    Amazon Web Services (AWS) products, such as Amazon Elastic Compute Cloud+    (Amazon EC2), Elastic Load Balancing, or Amazon Simple Storage Service+    (Amazon S3). You can also use Amazon Route 53 to route users to your+    infrastructure outside of AWS.     .-    /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.Route53" and the <http://docs.aws.amazon.com/Route53/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -49,7 +57,7 @@         , Network.AWS.Route53.DeleteReusableDelegationSet         , Network.AWS.Route53.DisassociateVPCFromHostedZone         , Network.AWS.Route53.GetChange-        , Network.AWS.Route53.GetCheckerIpRanges+        , Network.AWS.Route53.GetCheckerIPRanges         , Network.AWS.Route53.GetGeoLocation         , Network.AWS.Route53.GetHealthCheck         , Network.AWS.Route53.GetHealthCheckCount@@ -69,10 +77,41 @@         , Network.AWS.Route53.Types         , Network.AWS.Route53.UpdateHealthCheck         , Network.AWS.Route53.UpdateHostedZoneComment+        , Network.AWS.Route53.Waiters      other-modules:           Network.AWS.Route53.Internal+        , Network.AWS.Route53.Types.Product+        , Network.AWS.Route53.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-route53-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.Route53+        , Test.AWS.Gen.Route53+        , Test.AWS.Route53.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-route53 == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,83 +1,448 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.Route53--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon Route 53 is a scalable Domain Name System (DNS) web service. It--- provides secure and reliable routing to your infrastructure that uses Amazon--- Web Services (AWS) products, such as Amazon Elastic Compute Cloud (Amazon--- EC2), Elastic Load Balancing, or Amazon Simple Storage Service (Amazon S3).--- You can also use Amazon Route 53 to route users to your infrastructure--- outside of AWS.+-- Amazon Route 53 is a scalable Domain Name System (DNS) web service. It+-- provides secure and reliable routing to your infrastructure that uses+-- Amazon Web Services (AWS) products, such as Amazon Elastic Compute Cloud+-- (Amazon EC2), Elastic Load Balancing, or Amazon Simple Storage Service+-- (Amazon S3). You can also use Amazon Route 53 to route users to your+-- infrastructure outside of AWS.+--+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.Route53-    ( module Network.AWS.Route53.AssociateVPCWithHostedZone+    (+    -- * Service+      Route53++    -- * Errors+    -- $errors++    -- ** HealthCheckVersionMismatch+    , _HealthCheckVersionMismatch++    -- ** InvalidInput+    , _InvalidInput++    -- ** HostedZoneNotEmpty+    , _HostedZoneNotEmpty++    -- ** InvalidArgument+    , _InvalidArgument++    -- ** DelegationSetAlreadyReusable+    , _DelegationSetAlreadyReusable++    -- ** PriorRequestNotComplete+    , _PriorRequestNotComplete++    -- ** InvalidChangeBatch+    , _InvalidChangeBatch++    -- ** InvalidDomainName+    , _InvalidDomainName++    -- ** DelegationSetNotReusable+    , _DelegationSetNotReusable++    -- ** HealthCheckAlreadyExists+    , _HealthCheckAlreadyExists++    -- ** HostedZoneNotFound+    , _HostedZoneNotFound++    -- ** DelegationSetInUse+    , _DelegationSetInUse++    -- ** NoSuchDelegationSet+    , _NoSuchDelegationSet++    -- ** NoSuchGeoLocation+    , _NoSuchGeoLocation++    -- ** DelegationSetNotAvailable+    , _DelegationSetNotAvailable++    -- ** VPCAssociationNotFound+    , _VPCAssociationNotFound++    -- ** ThrottlingException+    , _ThrottlingException++    -- ** NoSuchChange+    , _NoSuchChange++    -- ** LimitsExceeded+    , _LimitsExceeded++    -- ** IncompatibleVersion+    , _IncompatibleVersion++    -- ** NoSuchHostedZone+    , _NoSuchHostedZone++    -- ** TooManyHostedZones+    , _TooManyHostedZones++    -- ** PublicZoneVPCAssociation+    , _PublicZoneVPCAssociation++    -- ** ConflictingDomainExists+    , _ConflictingDomainExists++    -- ** LastVPCAssociation+    , _LastVPCAssociation++    -- ** HealthCheckInUse+    , _HealthCheckInUse++    -- ** DelegationSetAlreadyCreated+    , _DelegationSetAlreadyCreated++    -- ** TooManyHealthChecks+    , _TooManyHealthChecks++    -- ** NoSuchHealthCheck+    , _NoSuchHealthCheck++    -- ** HostedZoneAlreadyExists+    , _HostedZoneAlreadyExists++    -- ** InvalidVPCId+    , _InvalidVPCId++    -- * Waiters+    -- $waiters++    -- ** ResourceRecordSetsChanged+    , resourceRecordSetsChanged++    -- * Operations+    -- $operations++    -- ** AssociateVPCWithHostedZone+    , module Network.AWS.Route53.AssociateVPCWithHostedZone++    -- ** GetHealthCheckLastFailureReason+    , module Network.AWS.Route53.GetHealthCheckLastFailureReason++    -- ** ListHostedZonesByName+    , module Network.AWS.Route53.ListHostedZonesByName++    -- ** DeleteReusableDelegationSet+    , module Network.AWS.Route53.DeleteReusableDelegationSet++    -- ** ListReusableDelegationSets+    , module Network.AWS.Route53.ListReusableDelegationSets++    -- ** GetCheckerIPRanges+    , module Network.AWS.Route53.GetCheckerIPRanges++    -- ** ListTagsForResource+    , module Network.AWS.Route53.ListTagsForResource++    -- ** ChangeResourceRecordSets     , module Network.AWS.Route53.ChangeResourceRecordSets-    , module Network.AWS.Route53.ChangeTagsForResource-    , module Network.AWS.Route53.CreateHealthCheck++    -- ** GetChange+    , module Network.AWS.Route53.GetChange++    -- ** CreateHostedZone     , module Network.AWS.Route53.CreateHostedZone-    , module Network.AWS.Route53.CreateReusableDelegationSet++    -- ** DeleteHealthCheck     , module Network.AWS.Route53.DeleteHealthCheck-    , module Network.AWS.Route53.DeleteHostedZone-    , module Network.AWS.Route53.DeleteReusableDelegationSet++    -- ** UpdateHealthCheck+    , module Network.AWS.Route53.UpdateHealthCheck++    -- ** ChangeTagsForResource+    , module Network.AWS.Route53.ChangeTagsForResource++    -- ** CreateHealthCheck+    , module Network.AWS.Route53.CreateHealthCheck++    -- ** ListHostedZones (Paginated)+    , module Network.AWS.Route53.ListHostedZones++    -- ** DisassociateVPCFromHostedZone     , module Network.AWS.Route53.DisassociateVPCFromHostedZone-    , module Network.AWS.Route53.GetChange-    , module Network.AWS.Route53.GetCheckerIpRanges-    , module Network.AWS.Route53.GetGeoLocation++    -- ** GetHostedZone+    , module Network.AWS.Route53.GetHostedZone++    -- ** ListGeoLocations+    , module Network.AWS.Route53.ListGeoLocations++    -- ** GetHealthCheck     , module Network.AWS.Route53.GetHealthCheck++    -- ** ListResourceRecordSets (Paginated)+    , module Network.AWS.Route53.ListResourceRecordSets++    -- ** GetHealthCheckCount     , module Network.AWS.Route53.GetHealthCheckCount-    , module Network.AWS.Route53.GetHealthCheckLastFailureReason-    , module Network.AWS.Route53.GetHealthCheckStatus-    , module Network.AWS.Route53.GetHostedZone++    -- ** CreateReusableDelegationSet+    , module Network.AWS.Route53.CreateReusableDelegationSet++    -- ** GetHostedZoneCount     , module Network.AWS.Route53.GetHostedZoneCount++    -- ** GetReusableDelegationSet     , module Network.AWS.Route53.GetReusableDelegationSet-    , module Network.AWS.Route53.ListGeoLocations++    -- ** UpdateHostedZoneComment+    , module Network.AWS.Route53.UpdateHostedZoneComment++    -- ** GetHealthCheckStatus+    , module Network.AWS.Route53.GetHealthCheckStatus++    -- ** ListHealthChecks (Paginated)     , module Network.AWS.Route53.ListHealthChecks-    , module Network.AWS.Route53.ListHostedZones-    , module Network.AWS.Route53.ListHostedZonesByName-    , module Network.AWS.Route53.ListResourceRecordSets-    , module Network.AWS.Route53.ListReusableDelegationSets-    , module Network.AWS.Route53.ListTagsForResource++    -- ** DeleteHostedZone+    , module Network.AWS.Route53.DeleteHostedZone++    -- ** GetGeoLocation+    , module Network.AWS.Route53.GetGeoLocation++    -- ** ListTagsForResources     , module Network.AWS.Route53.ListTagsForResources-    , module Network.AWS.Route53.Types-    , module Network.AWS.Route53.UpdateHealthCheck-    , module Network.AWS.Route53.UpdateHostedZoneComment++    -- * Types++    -- ** Re-exported Types+    , module Network.AWS.Route53.Internal++    -- ** ChangeAction+    , ChangeAction (..)++    -- ** ChangeStatus+    , ChangeStatus (..)++    -- ** Failover+    , Failover (..)++    -- ** HealthCheckType+    , HealthCheckType (..)++    -- ** RecordType+    , RecordType (..)++    -- ** TagResourceType+    , TagResourceType (..)++    -- ** VPCRegion+    , VPCRegion (..)++    -- ** AliasTarget+    , AliasTarget+    , aliasTarget+    , atHostedZoneId+    , atDNSName+    , atEvaluateTargetHealth++    -- ** Change+    , Change+    , change+    , cAction+    , cResourceRecordSet++    -- ** ChangeBatch+    , ChangeBatch+    , changeBatch+    , cbComment+    , cbChanges++    -- ** ChangeInfo+    , ChangeInfo+    , changeInfo+    , ciComment+    , ciId+    , ciStatus+    , ciSubmittedAt++    -- ** DelegationSet+    , DelegationSet+    , delegationSet+    , dsId+    , dsCallerReference+    , dsNameServers++    -- ** GeoLocation+    , GeoLocation+    , geoLocation+    , glSubdivisionCode+    , glCountryCode+    , glContinentCode++    -- ** GeoLocationDetails+    , GeoLocationDetails+    , geoLocationDetails+    , gldSubdivisionName+    , gldSubdivisionCode+    , gldCountryName+    , gldCountryCode+    , gldContinentCode+    , gldContinentName++    -- ** HealthCheck+    , HealthCheck+    , healthCheck+    , hcId+    , hcCallerReference+    , hcHealthCheckConfig+    , hcHealthCheckVersion++    -- ** HealthCheckConfig+    , HealthCheckConfig+    , healthCheckConfig+    , hccIPAddress+    , hccFailureThreshold+    , hccSearchString+    , hccResourcePath+    , hccFullyQualifiedDomainName+    , hccRequestInterval+    , hccPort+    , hccType++    -- ** HealthCheckObservation+    , HealthCheckObservation+    , healthCheckObservation+    , hcoIPAddress+    , hcoStatusReport++    -- ** HostedZone+    , HostedZone+    , hostedZone+    , hzConfig+    , hzResourceRecordSetCount+    , hzId+    , hzName+    , hzCallerReference++    -- ** HostedZoneConfig+    , HostedZoneConfig+    , hostedZoneConfig+    , hzcPrivateZone+    , hzcComment++    -- ** ResourceRecord+    , ResourceRecord+    , resourceRecord+    , rrValue++    -- ** ResourceRecordSet+    , ResourceRecordSet+    , resourceRecordSet+    , rrsResourceRecords+    , rrsTTL+    , rrsAliasTarget+    , rrsWeight+    , rrsSetIdentifier+    , rrsFailover+    , rrsHealthCheckId+    , rrsRegion+    , rrsGeoLocation+    , rrsName+    , rrsType++    -- ** ResourceTagSet+    , ResourceTagSet+    , resourceTagSet+    , rtsResourceId+    , rtsResourceType+    , rtsTags++    -- ** StatusReport+    , StatusReport+    , statusReport+    , srStatus+    , srCheckedTime++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** VPC+    , VPC+    , vpc+    , vpcVPCRegion+    , vpcVPCId     ) where -import Network.AWS.Route53.AssociateVPCWithHostedZone-import Network.AWS.Route53.ChangeResourceRecordSets-import Network.AWS.Route53.ChangeTagsForResource-import Network.AWS.Route53.CreateHealthCheck-import Network.AWS.Route53.CreateHostedZone-import Network.AWS.Route53.CreateReusableDelegationSet-import Network.AWS.Route53.DeleteHealthCheck-import Network.AWS.Route53.DeleteHostedZone-import Network.AWS.Route53.DeleteReusableDelegationSet-import Network.AWS.Route53.DisassociateVPCFromHostedZone-import Network.AWS.Route53.GetChange-import Network.AWS.Route53.GetCheckerIpRanges-import Network.AWS.Route53.GetGeoLocation-import Network.AWS.Route53.GetHealthCheck-import Network.AWS.Route53.GetHealthCheckCount-import Network.AWS.Route53.GetHealthCheckLastFailureReason-import Network.AWS.Route53.GetHealthCheckStatus-import Network.AWS.Route53.GetHostedZone-import Network.AWS.Route53.GetHostedZoneCount-import Network.AWS.Route53.GetReusableDelegationSet-import Network.AWS.Route53.ListGeoLocations-import Network.AWS.Route53.ListHealthChecks-import Network.AWS.Route53.ListHostedZones-import Network.AWS.Route53.ListHostedZonesByName-import Network.AWS.Route53.ListResourceRecordSets-import Network.AWS.Route53.ListReusableDelegationSets-import Network.AWS.Route53.ListTagsForResource-import Network.AWS.Route53.ListTagsForResources-import Network.AWS.Route53.Types-import Network.AWS.Route53.UpdateHealthCheck-import Network.AWS.Route53.UpdateHostedZoneComment+import           Network.AWS.Route53.AssociateVPCWithHostedZone+import           Network.AWS.Route53.ChangeResourceRecordSets+import           Network.AWS.Route53.ChangeTagsForResource+import           Network.AWS.Route53.CreateHealthCheck+import           Network.AWS.Route53.CreateHostedZone+import           Network.AWS.Route53.CreateReusableDelegationSet+import           Network.AWS.Route53.DeleteHealthCheck+import           Network.AWS.Route53.DeleteHostedZone+import           Network.AWS.Route53.DeleteReusableDelegationSet+import           Network.AWS.Route53.DisassociateVPCFromHostedZone+import           Network.AWS.Route53.GetChange+import           Network.AWS.Route53.GetCheckerIPRanges+import           Network.AWS.Route53.GetGeoLocation+import           Network.AWS.Route53.GetHealthCheck+import           Network.AWS.Route53.GetHealthCheckCount+import           Network.AWS.Route53.GetHealthCheckLastFailureReason+import           Network.AWS.Route53.GetHealthCheckStatus+import           Network.AWS.Route53.GetHostedZone+import           Network.AWS.Route53.GetHostedZoneCount+import           Network.AWS.Route53.GetReusableDelegationSet+import           Network.AWS.Route53.Internal+import           Network.AWS.Route53.ListGeoLocations+import           Network.AWS.Route53.ListHealthChecks+import           Network.AWS.Route53.ListHostedZones+import           Network.AWS.Route53.ListHostedZonesByName+import           Network.AWS.Route53.ListResourceRecordSets+import           Network.AWS.Route53.ListReusableDelegationSets+import           Network.AWS.Route53.ListTagsForResource+import           Network.AWS.Route53.ListTagsForResources+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.UpdateHealthCheck+import           Network.AWS.Route53.UpdateHostedZoneComment+import           Network.AWS.Route53.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'Route53'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,149 +1,168 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AssociateVPCWithHostedZone--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action associates a VPC with an hosted zone.+-- This action associates a VPC with an hosted zone. ----- To associate a VPC with an hosted zone, send a 'POST' request to the '2013-04-01/hostedzone//hosted zone ID//associatevpc resource. The request body must include an XML--- document with a 'AssociateVPCWithHostedZoneRequest' element. The response--- returns the 'AssociateVPCWithHostedZoneResponse' element that contains 'ChangeInfo' for you to track the progress of the 'AssociateVPCWithHostedZoneRequest' you--- made. See 'GetChange' operation for how to track the progress of your change.+-- To associate a VPC with an hosted zone, send a 'POST' request to the+-- '2013-04-01\/hostedzone\/hosted zone ID\/associatevpc' resource. The+-- request body must include an XML document with a+-- 'AssociateVPCWithHostedZoneRequest' element. The response returns the+-- 'AssociateVPCWithHostedZoneResponse' element that contains 'ChangeInfo'+-- for you to track the progress of the 'AssociateVPCWithHostedZoneRequest'+-- you made. See 'GetChange' operation for how to track the progress of+-- your change. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_AssociateVPCWithHostedZone.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_AssociateVPCWithHostedZone.html AWS API Reference> for AssociateVPCWithHostedZone. module Network.AWS.Route53.AssociateVPCWithHostedZone     (-    -- * Request-      AssociateVPCWithHostedZone-    -- ** Request constructor-    , associateVPCWithHostedZone-    -- ** Request lenses-    , avpcwhzComment-    , avpcwhzHostedZoneId-    , avpcwhzVPC+    -- * Creating a Request+      associateVPCWithHostedZone+    , AssociateVPCWithHostedZone+    -- * Request Lenses+    , avwhzComment+    , avwhzHostedZoneId+    , avwhzVPC -    -- * Response-    , AssociateVPCWithHostedZoneResponse-    -- ** Response constructor+    -- * Destructuring the Response     , associateVPCWithHostedZoneResponse-    -- ** Response lenses-    , avpcwhzrChangeInfo+    , AssociateVPCWithHostedZoneResponse+    -- * Response Lenses+    , avwhzrsStatus+    , avwhzrsChangeInfo     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data AssociateVPCWithHostedZone = AssociateVPCWithHostedZone-    { _avpcwhzComment      :: Maybe Text-    , _avpcwhzHostedZoneId :: Text-    , _avpcwhzVPC          :: VPC-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'AssociateVPCWithHostedZone' constructor.+-- | A complex type that contains information about the request to associate+-- a VPC with an hosted zone. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'associateVPCWithHostedZone' smart constructor.+data AssociateVPCWithHostedZone = AssociateVPCWithHostedZone'+    { _avwhzComment      :: !(Maybe Text)+    , _avwhzHostedZoneId :: !Text+    , _avwhzVPC          :: !VPC+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateVPCWithHostedZone' with the minimum fields required to make a request. ----- * 'avpcwhzComment' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'avpcwhzHostedZoneId' @::@ 'Text'+-- * 'avwhzComment' ----- * 'avpcwhzVPC' @::@ 'VPC'+-- * 'avwhzHostedZoneId' ---associateVPCWithHostedZone :: Text -- ^ 'avpcwhzHostedZoneId'-                           -> VPC -- ^ 'avpcwhzVPC'-                           -> AssociateVPCWithHostedZone-associateVPCWithHostedZone p1 p2 = AssociateVPCWithHostedZone-    { _avpcwhzHostedZoneId = p1-    , _avpcwhzVPC          = p2-    , _avpcwhzComment      = Nothing+-- * 'avwhzVPC'+associateVPCWithHostedZone+    :: Text -- ^ 'avwhzHostedZoneId'+    -> VPC -- ^ 'avwhzVPC'+    -> AssociateVPCWithHostedZone+associateVPCWithHostedZone pHostedZoneId_ pVPC_ =+    AssociateVPCWithHostedZone'+    { _avwhzComment = Nothing+    , _avwhzHostedZoneId = pHostedZoneId_+    , _avwhzVPC = pVPC_     } --- | /Optional:/ Any comments you want to include about a 'AssociateVPCWithHostedZoneRequest'.-avpcwhzComment :: Lens' AssociateVPCWithHostedZone (Maybe Text)-avpcwhzComment = lens _avpcwhzComment (\s a -> s { _avpcwhzComment = a })+-- | /Optional:/ Any comments you want to include about a+-- 'AssociateVPCWithHostedZoneRequest'.+avwhzComment :: Lens' AssociateVPCWithHostedZone (Maybe Text)+avwhzComment = lens _avwhzComment (\ s a -> s{_avwhzComment = a});  -- | The ID of the hosted zone you want to associate your VPC with. ----- Note that you cannot associate a VPC with a hosted zone that doesn't have an--- existing VPC association.-avpcwhzHostedZoneId :: Lens' AssociateVPCWithHostedZone Text-avpcwhzHostedZoneId =-    lens _avpcwhzHostedZoneId (\s a -> s { _avpcwhzHostedZoneId = a })+-- Note that you cannot associate a VPC with a hosted zone that doesn\'t+-- have an existing VPC association.+avwhzHostedZoneId :: Lens' AssociateVPCWithHostedZone Text+avwhzHostedZoneId = lens _avwhzHostedZoneId (\ s a -> s{_avwhzHostedZoneId = a});  -- | The VPC that you want your hosted zone to be associated with.-avpcwhzVPC :: Lens' AssociateVPCWithHostedZone VPC-avpcwhzVPC = lens _avpcwhzVPC (\s a -> s { _avpcwhzVPC = a })+avwhzVPC :: Lens' AssociateVPCWithHostedZone VPC+avwhzVPC = lens _avwhzVPC (\ s a -> s{_avwhzVPC = a}); -newtype AssociateVPCWithHostedZoneResponse = AssociateVPCWithHostedZoneResponse-    { _avpcwhzrChangeInfo :: ChangeInfo-    } deriving (Eq, Read, Show)+instance AWSRequest AssociateVPCWithHostedZone where+        type Sv AssociateVPCWithHostedZone = Route53+        type Rs AssociateVPCWithHostedZone =+             AssociateVPCWithHostedZoneResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 AssociateVPCWithHostedZoneResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) --- | 'AssociateVPCWithHostedZoneResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'avpcwhzrChangeInfo' @::@ 'ChangeInfo'----associateVPCWithHostedZoneResponse :: ChangeInfo -- ^ 'avpcwhzrChangeInfo'-                                   -> AssociateVPCWithHostedZoneResponse-associateVPCWithHostedZoneResponse p1 = AssociateVPCWithHostedZoneResponse-    { _avpcwhzrChangeInfo = p1-    }+instance ToElement AssociateVPCWithHostedZone where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}AssociateVPCWithHostedZoneRequest" --- | A complex type that contains the ID, the status, and the date and time of--- your 'AssociateVPCWithHostedZoneRequest'.-avpcwhzrChangeInfo :: Lens' AssociateVPCWithHostedZoneResponse ChangeInfo-avpcwhzrChangeInfo =-    lens _avpcwhzrChangeInfo (\s a -> s { _avpcwhzrChangeInfo = a })+instance ToHeaders AssociateVPCWithHostedZone where+        toHeaders = const mempty  instance ToPath AssociateVPCWithHostedZone where-    toPath AssociateVPCWithHostedZone{..} = mconcat-        [ "/2013-04-01/hostedzone/"-        , toText _avpcwhzHostedZoneId-        , "/associatevpc"-        ]+        toPath AssociateVPCWithHostedZone'{..}+          = mconcat+              ["/2013-04-01/hostedzone/", toBS _avwhzHostedZoneId,+               "/associatevpc"]  instance ToQuery AssociateVPCWithHostedZone where-    toQuery = const mempty--instance ToHeaders AssociateVPCWithHostedZone+        toQuery = const mempty -instance ToXMLRoot AssociateVPCWithHostedZone where-    toXMLRoot AssociateVPCWithHostedZone{..} = namespaced ns "AssociateVPCWithHostedZone"-        [ "VPC"     =@ _avpcwhzVPC-        , "Comment" =@ _avpcwhzComment-        ]+instance ToXML AssociateVPCWithHostedZone where+        toXML AssociateVPCWithHostedZone'{..}+          = mconcat+              ["Comment" @= _avwhzComment, "VPC" @= _avwhzVPC] -instance ToXML AssociateVPCWithHostedZone+-- | A complex type containing the response information for the request.+--+-- /See:/ 'associateVPCWithHostedZoneResponse' smart constructor.+data AssociateVPCWithHostedZoneResponse = AssociateVPCWithHostedZoneResponse'+    { _avwhzrsStatus     :: !Int+    , _avwhzrsChangeInfo :: !ChangeInfo+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AssociateVPCWithHostedZone where-    type Sv AssociateVPCWithHostedZone = Route53-    type Rs AssociateVPCWithHostedZone = AssociateVPCWithHostedZoneResponse+-- | Creates a value of 'AssociateVPCWithHostedZoneResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'avwhzrsStatus'+--+-- * 'avwhzrsChangeInfo'+associateVPCWithHostedZoneResponse+    :: Int -- ^ 'avwhzrsStatus'+    -> ChangeInfo -- ^ 'avwhzrsChangeInfo'+    -> AssociateVPCWithHostedZoneResponse+associateVPCWithHostedZoneResponse pStatus_ pChangeInfo_ =+    AssociateVPCWithHostedZoneResponse'+    { _avwhzrsStatus = pStatus_+    , _avwhzrsChangeInfo = pChangeInfo_+    } -    request  = post-    response = xmlResponse+-- | The response status code.+avwhzrsStatus :: Lens' AssociateVPCWithHostedZoneResponse Int+avwhzrsStatus = lens _avwhzrsStatus (\ s a -> s{_avwhzrsStatus = a}); -instance FromXML AssociateVPCWithHostedZoneResponse where-    parseXML x = AssociateVPCWithHostedZoneResponse-        <$> x .@  "ChangeInfo"+-- | A complex type that contains the ID, the status, and the date and time+-- of your 'AssociateVPCWithHostedZoneRequest'.+avwhzrsChangeInfo :: Lens' AssociateVPCWithHostedZoneResponse ChangeInfo+avwhzrsChangeInfo = lens _avwhzrsChangeInfo (\ s a -> s{_avwhzrsChangeInfo = a});

@@ -1,153 +1,179 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.ChangeResourceRecordSets--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Use this action to create or change your authoritative DNS information. To--- use this action, send a 'POST' request to the '2013-04-01/hostedzone//hosted ZoneID//rrset resource. The request body must include an XML document with a 'ChangeResourceRecordSetsRequest' element.+-- Use this action to create or change your authoritative DNS information.+-- To use this action, send a 'POST' request to the+-- '2013-04-01\/hostedzone\/hosted Zone ID\/rrset' resource. The request+-- body must include an XML document with a+-- 'ChangeResourceRecordSetsRequest' element. -- -- Changes are a list of change items and are considered transactional. For--- more information on transactional changes, also known as change batches, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/RRSchanges.html#RRSchanges_API Creating, Changing, and Deleting Resource Record Sets Using the Route 53 API> in the /Amazon Route 53 Developer Guide/.+-- more information on transactional changes, also known as change batches,+-- see+-- <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/RRSchanges.html#RRSchanges_API Creating, Changing, and Deleting Resource Record Sets Using the Route 53 API>+-- in the /Amazon Route 53 Developer Guide/. -- -- Due to the nature of transactional changes, you cannot delete the same--- resource record set more than once in a single change batch. If you attempt--- to delete the same change batch more than once, Route 53 returns an 'InvalidChangeBatch' error. In response to a 'ChangeResourceRecordSets' request, your DNS data is--- changed on all Route 53 DNS servers. Initially, the status of a change is 'PENDING'. This means the change has not yet propagated to all the authoritative Route--- 53 DNS servers. When the change is propagated to all hosts, the change--- returns a status of 'INSYNC'.+-- resource record set more than once in a single change batch. If you+-- attempt to delete the same change batch more than once, Route 53 returns+-- an 'InvalidChangeBatch' error. --+-- In response to a 'ChangeResourceRecordSets' request, your DNS data is+-- changed on all Route 53 DNS servers. Initially, the status of a change+-- is 'PENDING'. This means the change has not yet propagated to all the+-- authoritative Route 53 DNS servers. When the change is propagated to all+-- hosts, the change returns a status of 'INSYNC'.+-- -- Note the following limitations on a 'ChangeResourceRecordSets' request: -- -- - A request cannot contain more than 100 Change elements. -- -- - A request cannot contain more than 1000 ResourceRecord elements. ----- The sum of the number of characters (including spaces) in all 'Value' elements--- in a request cannot exceed 32,000 characters.+-- The sum of the number of characters (including spaces) in all 'Value'+-- elements in a request cannot exceed 32,000 characters. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ChangeResourceRecordSets.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ChangeResourceRecordSets.html AWS API Reference> for ChangeResourceRecordSets. module Network.AWS.Route53.ChangeResourceRecordSets     (-    -- * Request-      ChangeResourceRecordSets-    -- ** Request constructor-    , changeResourceRecordSets-    -- ** Request lenses-    , crrsChangeBatch+    -- * Creating a Request+      changeResourceRecordSets+    , ChangeResourceRecordSets+    -- * Request Lenses     , crrsHostedZoneId+    , crrsChangeBatch -    -- * Response-    , ChangeResourceRecordSetsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , changeResourceRecordSetsResponse-    -- ** Response lenses-    , crrsrChangeInfo+    , ChangeResourceRecordSetsResponse+    -- * Response Lenses+    , crrsrsStatus+    , crrsrsChangeInfo     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data ChangeResourceRecordSets = ChangeResourceRecordSets-    { _crrsChangeBatch  :: ChangeBatch-    , _crrsHostedZoneId :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'ChangeResourceRecordSets' constructor.+-- | A complex type that contains a change batch. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'changeResourceRecordSets' smart constructor.+data ChangeResourceRecordSets = ChangeResourceRecordSets'+    { _crrsHostedZoneId :: !Text+    , _crrsChangeBatch  :: !ChangeBatch+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ChangeResourceRecordSets' with the minimum fields required to make a request. ----- * 'crrsChangeBatch' @::@ 'ChangeBatch'+-- Use one of the following lenses to modify other fields as desired: ----- * 'crrsHostedZoneId' @::@ 'Text'+-- * 'crrsHostedZoneId' ---changeResourceRecordSets :: Text -- ^ 'crrsHostedZoneId'-                         -> ChangeBatch -- ^ 'crrsChangeBatch'-                         -> ChangeResourceRecordSets-changeResourceRecordSets p1 p2 = ChangeResourceRecordSets-    { _crrsHostedZoneId = p1-    , _crrsChangeBatch  = p2+-- * 'crrsChangeBatch'+changeResourceRecordSets+    :: Text -- ^ 'crrsHostedZoneId'+    -> ChangeBatch -- ^ 'crrsChangeBatch'+    -> ChangeResourceRecordSets+changeResourceRecordSets pHostedZoneId_ pChangeBatch_ =+    ChangeResourceRecordSets'+    { _crrsHostedZoneId = pHostedZoneId_+    , _crrsChangeBatch = pChangeBatch_     } --- | A complex type that contains an optional comment and the 'Changes' element.-crrsChangeBatch :: Lens' ChangeResourceRecordSets ChangeBatch-crrsChangeBatch = lens _crrsChangeBatch (\s a -> s { _crrsChangeBatch = a })---- | The ID of the hosted zone that contains the resource record sets that you--- want to change.+-- | The ID of the hosted zone that contains the resource record sets that+-- you want to change. crrsHostedZoneId :: Lens' ChangeResourceRecordSets Text-crrsHostedZoneId = lens _crrsHostedZoneId (\s a -> s { _crrsHostedZoneId = a })+crrsHostedZoneId = lens _crrsHostedZoneId (\ s a -> s{_crrsHostedZoneId = a}); -newtype ChangeResourceRecordSetsResponse = ChangeResourceRecordSetsResponse-    { _crrsrChangeInfo :: ChangeInfo-    } deriving (Eq, Read, Show)+-- | A complex type that contains an optional comment and the 'Changes'+-- element.+crrsChangeBatch :: Lens' ChangeResourceRecordSets ChangeBatch+crrsChangeBatch = lens _crrsChangeBatch (\ s a -> s{_crrsChangeBatch = a}); --- | 'ChangeResourceRecordSetsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'crrsrChangeInfo' @::@ 'ChangeInfo'----changeResourceRecordSetsResponse :: ChangeInfo -- ^ 'crrsrChangeInfo'-                                 -> ChangeResourceRecordSetsResponse-changeResourceRecordSetsResponse p1 = ChangeResourceRecordSetsResponse-    { _crrsrChangeInfo = p1-    }+instance AWSRequest ChangeResourceRecordSets where+        type Sv ChangeResourceRecordSets = Route53+        type Rs ChangeResourceRecordSets =+             ChangeResourceRecordSetsResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 ChangeResourceRecordSetsResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) --- | 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.-crrsrChangeInfo :: Lens' ChangeResourceRecordSetsResponse ChangeInfo-crrsrChangeInfo = lens _crrsrChangeInfo (\s a -> s { _crrsrChangeInfo = a })+instance ToElement ChangeResourceRecordSets where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}ChangeResourceRecordSetsRequest" +instance ToHeaders ChangeResourceRecordSets where+        toHeaders = const mempty+ instance ToPath ChangeResourceRecordSets where-    toPath ChangeResourceRecordSets{..} = mconcat-        [ "/2013-04-01/hostedzone/"-        , toText _crrsHostedZoneId-        , "/rrset/"-        ]+        toPath ChangeResourceRecordSets'{..}+          = mconcat+              ["/2013-04-01/hostedzone/", toBS _crrsHostedZoneId,+               "/rrset/"]  instance ToQuery ChangeResourceRecordSets where-    toQuery = const mempty--instance ToHeaders ChangeResourceRecordSets+        toQuery = const mempty -instance ToXMLRoot ChangeResourceRecordSets where-    toXMLRoot ChangeResourceRecordSets{..} = namespaced ns "ChangeResourceRecordSets"-        [ "ChangeBatch" =@ _crrsChangeBatch-        ]+instance ToXML ChangeResourceRecordSets where+        toXML ChangeResourceRecordSets'{..}+          = mconcat ["ChangeBatch" @= _crrsChangeBatch] -instance ToXML ChangeResourceRecordSets+-- | A complex type containing the response for the request.+--+-- /See:/ 'changeResourceRecordSetsResponse' smart constructor.+data ChangeResourceRecordSetsResponse = ChangeResourceRecordSetsResponse'+    { _crrsrsStatus     :: !Int+    , _crrsrsChangeInfo :: !ChangeInfo+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ChangeResourceRecordSets where-    type Sv ChangeResourceRecordSets = Route53-    type Rs ChangeResourceRecordSets = ChangeResourceRecordSetsResponse+-- | Creates a value of 'ChangeResourceRecordSetsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crrsrsStatus'+--+-- * 'crrsrsChangeInfo'+changeResourceRecordSetsResponse+    :: Int -- ^ 'crrsrsStatus'+    -> ChangeInfo -- ^ 'crrsrsChangeInfo'+    -> ChangeResourceRecordSetsResponse+changeResourceRecordSetsResponse pStatus_ pChangeInfo_ =+    ChangeResourceRecordSetsResponse'+    { _crrsrsStatus = pStatus_+    , _crrsrsChangeInfo = pChangeInfo_+    } -    request  = post-    response = xmlResponse+-- | The response status code.+crrsrsStatus :: Lens' ChangeResourceRecordSetsResponse Int+crrsrsStatus = lens _crrsrsStatus (\ s a -> s{_crrsrsStatus = a}); -instance FromXML ChangeResourceRecordSetsResponse where-    parseXML x = ChangeResourceRecordSetsResponse-        <$> x .@  "ChangeInfo"+-- | 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});

@@ -1,96 +1,94 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.ChangeTagsForResource--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ChangeTagsForResource.html>+-- Undocumented operation.+--+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ChangeTagsForResource.html AWS API Reference> for ChangeTagsForResource. module Network.AWS.Route53.ChangeTagsForResource     (-    -- * Request-      ChangeTagsForResource-    -- ** Request constructor-    , changeTagsForResource-    -- ** Request lenses-    , ctfrAddTags+    -- * Creating a Request+      changeTagsForResource+    , ChangeTagsForResource+    -- * Request Lenses     , ctfrRemoveTagKeys-    , ctfrResourceId+    , ctfrAddTags     , ctfrResourceType+    , ctfrResourceId -    -- * Response-    , ChangeTagsForResourceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , changeTagsForResourceResponse+    , ChangeTagsForResourceResponse+    -- * Response Lenses+    , ctfrrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data ChangeTagsForResource = ChangeTagsForResource-    { _ctfrAddTags       :: List1 "Tag" Tag-    , _ctfrRemoveTagKeys :: List1 "Key" Text-    , _ctfrResourceId    :: Text-    , _ctfrResourceType  :: TagResourceType-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'ChangeTagsForResource' constructor.+-- | A complex type containing information about a request to add, change, or+-- delete the tags that are associated with a resource. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'changeTagsForResource' smart constructor.+data ChangeTagsForResource = ChangeTagsForResource'+    { _ctfrRemoveTagKeys :: !(Maybe (List1 Text))+    , _ctfrAddTags       :: !(Maybe (List1 Tag))+    , _ctfrResourceType  :: !TagResourceType+    , _ctfrResourceId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ChangeTagsForResource' with the minimum fields required to make a request. ----- * 'ctfrAddTags' @::@ 'NonEmpty' 'Tag'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ctfrRemoveTagKeys' @::@ 'NonEmpty' 'Text'+-- * 'ctfrRemoveTagKeys' ----- * 'ctfrResourceId' @::@ 'Text'+-- * 'ctfrAddTags' ----- * 'ctfrResourceType' @::@ 'TagResourceType'+-- * 'ctfrResourceType' ---changeTagsForResource :: TagResourceType -- ^ 'ctfrResourceType'-                      -> Text -- ^ 'ctfrResourceId'-                      -> NonEmpty Tag -- ^ 'ctfrAddTags'-                      -> NonEmpty Text -- ^ 'ctfrRemoveTagKeys'-                      -> ChangeTagsForResource-changeTagsForResource p1 p2 p3 p4 = ChangeTagsForResource-    { _ctfrResourceType  = p1-    , _ctfrResourceId    = p2-    , _ctfrAddTags       = withIso _List1 (const id) p3-    , _ctfrRemoveTagKeys = withIso _List1 (const id) p4+-- * 'ctfrResourceId'+changeTagsForResource+    :: TagResourceType -- ^ 'ctfrResourceType'+    -> Text -- ^ 'ctfrResourceId'+    -> ChangeTagsForResource+changeTagsForResource pResourceType_ pResourceId_ =+    ChangeTagsForResource'+    { _ctfrRemoveTagKeys = Nothing+    , _ctfrAddTags = Nothing+    , _ctfrResourceType = pResourceType_+    , _ctfrResourceId = pResourceId_     } --- | A complex type that contains a list of 'Tag' elements. Each 'Tag' element--- identifies a tag that you want to add or update for the specified resource.-ctfrAddTags :: Lens' ChangeTagsForResource (NonEmpty Tag)-ctfrAddTags = lens _ctfrAddTags (\s a -> s { _ctfrAddTags = a }) . _List1---- | A list of 'Tag' keys that you want to remove from the specified resource.-ctfrRemoveTagKeys :: Lens' ChangeTagsForResource (NonEmpty Text)-ctfrRemoveTagKeys =-    lens _ctfrRemoveTagKeys (\s a -> s { _ctfrRemoveTagKeys = a })-        . _List1+-- | A list of 'Tag' keys that you want to remove from the specified+-- resource.+ctfrRemoveTagKeys :: Lens' ChangeTagsForResource (Maybe (NonEmpty Text))+ctfrRemoveTagKeys = lens _ctfrRemoveTagKeys (\ s a -> s{_ctfrRemoveTagKeys = a}) . mapping _List1; --- | 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 })+-- | A complex type that contains a list of 'Tag' elements. Each 'Tag'+-- element identifies a tag that you want to add or update for the+-- specified resource.+ctfrAddTags :: Lens' ChangeTagsForResource (Maybe (NonEmpty Tag))+ctfrAddTags = lens _ctfrAddTags (\ s a -> s{_ctfrAddTags = a}) . mapping _List1;  -- | The type of the resource. --@@ -98,39 +96,69 @@ -- -- - 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}); -data ChangeTagsForResourceResponse = ChangeTagsForResourceResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | 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}); --- | 'ChangeTagsForResourceResponse' constructor.-changeTagsForResourceResponse :: ChangeTagsForResourceResponse-changeTagsForResourceResponse = ChangeTagsForResourceResponse+instance AWSRequest ChangeTagsForResource where+        type Sv ChangeTagsForResource = Route53+        type Rs ChangeTagsForResource =+             ChangeTagsForResourceResponse+        request = postXML+        response+          = receiveEmpty+              (\ s h x ->+                 ChangeTagsForResourceResponse' <$>+                   (pure (fromEnum s))) +instance ToElement ChangeTagsForResource where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}ChangeTagsForResourceRequest"++instance ToHeaders ChangeTagsForResource where+        toHeaders = const mempty+ instance ToPath ChangeTagsForResource where-    toPath ChangeTagsForResource{..} = mconcat-        [ "/2013-04-01/tags/"-        , toText _ctfrResourceType-        , "/"-        , toText _ctfrResourceId-        ]+        toPath ChangeTagsForResource'{..}+          = mconcat+              ["/2013-04-01/tags/", toBS _ctfrResourceType, "/",+               toBS _ctfrResourceId]  instance ToQuery ChangeTagsForResource where-    toQuery = const mempty--instance ToHeaders ChangeTagsForResource+        toQuery = const mempty -instance ToXMLRoot ChangeTagsForResource where-    toXMLRoot ChangeTagsForResource{..} = namespaced ns "ChangeTagsForResource"-        [ "AddTags"       =@ _ctfrAddTags-        , "RemoveTagKeys" =@ _ctfrRemoveTagKeys-        ]+instance ToXML ChangeTagsForResource where+        toXML ChangeTagsForResource'{..}+          = mconcat+              ["RemoveTagKeys" @=+                 toXML (toXMLList "Key" <$> _ctfrRemoveTagKeys),+               "AddTags" @=+                 toXML (toXMLList "Tag" <$> _ctfrAddTags)] -instance ToXML ChangeTagsForResource+-- | Empty response for the request.+--+-- /See:/ 'changeTagsForResourceResponse' smart constructor.+newtype ChangeTagsForResourceResponse = ChangeTagsForResourceResponse'+    { _ctfrrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ChangeTagsForResource where-    type Sv ChangeTagsForResource = Route53-    type Rs ChangeTagsForResource = ChangeTagsForResourceResponse+-- | Creates a value of 'ChangeTagsForResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctfrrsStatus'+changeTagsForResourceResponse+    :: Int -- ^ 'ctfrrsStatus'+    -> ChangeTagsForResourceResponse+changeTagsForResourceResponse pStatus_ =+    ChangeTagsForResourceResponse'+    { _ctfrrsStatus = pStatus_+    } -    request  = post-    response = nullResponse ChangeTagsForResourceResponse+-- | The response status code.+ctfrrsStatus :: Lens' ChangeTagsForResourceResponse Int+ctfrrsStatus = lens _ctfrrsStatus (\ s a -> s{_ctfrrsStatus = a});

@@ -1,144 +1,170 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateHealthCheck--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action creates a new health check.+-- This action creates a new health check. ----- To create a new health check, send a 'POST' request to the '2013-04-01/healthcheck' resource. The request body must include an XML document with a 'CreateHealthCheckRequest' element. The response returns the 'CreateHealthCheckResponse' element that--- contains metadata about the health check.+-- To create a new health check, send a 'POST' request to the+-- '2013-04-01\/healthcheck' resource. The request body must include an XML+-- document with a 'CreateHealthCheckRequest' element. The response returns+-- the 'CreateHealthCheckResponse' element that contains metadata about the+-- health check. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_CreateHealthCheck.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_CreateHealthCheck.html AWS API Reference> for CreateHealthCheck. module Network.AWS.Route53.CreateHealthCheck     (-    -- * Request-      CreateHealthCheck-    -- ** Request constructor-    , createHealthCheck-    -- ** Request lenses+    -- * Creating a Request+      createHealthCheck+    , CreateHealthCheck+    -- * Request Lenses     , chcCallerReference     , chcHealthCheckConfig -    -- * Response-    , CreateHealthCheckResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createHealthCheckResponse-    -- ** Response lenses-    , chcrHealthCheck-    , chcrLocation+    , CreateHealthCheckResponse+    -- * Response Lenses+    , chcrsStatus+    , chcrsHealthCheck+    , chcrsLocation     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data CreateHealthCheck = CreateHealthCheck-    { _chcCallerReference   :: Text-    , _chcHealthCheckConfig :: HealthCheckConfig-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'CreateHealthCheck' constructor.+-- | >A complex type that contains information about the request to create a+-- health check. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createHealthCheck' smart constructor.+data CreateHealthCheck = CreateHealthCheck'+    { _chcCallerReference   :: !Text+    , _chcHealthCheckConfig :: !HealthCheckConfig+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateHealthCheck' with the minimum fields required to make a request. ----- * 'chcCallerReference' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'chcHealthCheckConfig' @::@ 'HealthCheckConfig'+-- * 'chcCallerReference' ---createHealthCheck :: Text -- ^ 'chcCallerReference'-                  -> HealthCheckConfig -- ^ 'chcHealthCheckConfig'-                  -> CreateHealthCheck-createHealthCheck p1 p2 = CreateHealthCheck-    { _chcCallerReference   = p1-    , _chcHealthCheckConfig = p2+-- * 'chcHealthCheckConfig'+createHealthCheck+    :: Text -- ^ 'chcCallerReference'+    -> HealthCheckConfig -- ^ 'chcHealthCheckConfig'+    -> CreateHealthCheck+createHealthCheck pCallerReference_ pHealthCheckConfig_ =+    CreateHealthCheck'+    { _chcCallerReference = pCallerReference_+    , _chcHealthCheckConfig = pHealthCheckConfig_     } --- | A unique string that identifies the request and that allows failed 'CreateHealthCheck' requests to be retried without the risk of executing the operation twice.--- You must use a unique 'CallerReference' string every time you create a health--- check. 'CallerReference' can be any unique string; you might choose to use a--- string that identifies your project.+-- | A unique string that identifies the request and that allows failed+-- 'CreateHealthCheck' requests to be retried without the risk of executing+-- the operation twice. You must use a unique 'CallerReference' string+-- every time you create a health check. 'CallerReference' can be any+-- unique string; you might choose to use a string that identifies your+-- project. ----- Valid characters are any Unicode code points that are legal in an XML 1.0--- document. The UTF-8 encoding of the value must be less than 128 bytes.+-- Valid characters are any Unicode code points that are legal in an XML+-- 1.0 document. The UTF-8 encoding of the value must be less than 128+-- bytes. 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 health check configuration. chcHealthCheckConfig :: Lens' CreateHealthCheck HealthCheckConfig-chcHealthCheckConfig =-    lens _chcHealthCheckConfig (\s a -> s { _chcHealthCheckConfig = a })--data CreateHealthCheckResponse = CreateHealthCheckResponse-    { _chcrHealthCheck :: HealthCheck-    , _chcrLocation    :: Text-    } deriving (Eq, Read, Show)+chcHealthCheckConfig = lens _chcHealthCheckConfig (\ s a -> s{_chcHealthCheckConfig = a}); --- | 'CreateHealthCheckResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'chcrHealthCheck' @::@ 'HealthCheck'------ * 'chcrLocation' @::@ 'Text'----createHealthCheckResponse :: HealthCheck -- ^ 'chcrHealthCheck'-                          -> Text -- ^ 'chcrLocation'-                          -> CreateHealthCheckResponse-createHealthCheckResponse p1 p2 = CreateHealthCheckResponse-    { _chcrHealthCheck = p1-    , _chcrLocation    = p2-    }+instance AWSRequest CreateHealthCheck where+        type Sv CreateHealthCheck = Route53+        type Rs CreateHealthCheck = CreateHealthCheckResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 CreateHealthCheckResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "HealthCheck") <*>+                     (h .# "Location")) --- | A complex type that contains identifying information about the health check.-chcrHealthCheck :: Lens' CreateHealthCheckResponse HealthCheck-chcrHealthCheck = lens _chcrHealthCheck (\s a -> s { _chcrHealthCheck = a })+instance ToElement CreateHealthCheck where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}CreateHealthCheckRequest" --- | The unique URL representing the new health check.-chcrLocation :: Lens' CreateHealthCheckResponse Text-chcrLocation = lens _chcrLocation (\s a -> s { _chcrLocation = a })+instance ToHeaders CreateHealthCheck where+        toHeaders = const mempty  instance ToPath CreateHealthCheck where-    toPath = const "/2013-04-01/healthcheck"+        toPath = const "/2013-04-01/healthcheck"  instance ToQuery CreateHealthCheck where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders CreateHealthCheck+instance ToXML CreateHealthCheck where+        toXML CreateHealthCheck'{..}+          = mconcat+              ["CallerReference" @= _chcCallerReference,+               "HealthCheckConfig" @= _chcHealthCheckConfig] -instance ToXMLRoot CreateHealthCheck where-    toXMLRoot CreateHealthCheck{..} = namespaced ns "CreateHealthCheck"-        [ "CallerReference"   =@ _chcCallerReference-        , "HealthCheckConfig" =@ _chcHealthCheckConfig-        ]+-- | A complex type containing the response information for the new health+-- check.+--+-- /See:/ 'createHealthCheckResponse' smart constructor.+data CreateHealthCheckResponse = CreateHealthCheckResponse'+    { _chcrsStatus      :: !Int+    , _chcrsHealthCheck :: !HealthCheck+    , _chcrsLocation    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToXML CreateHealthCheck+-- | Creates a value of 'CreateHealthCheckResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'chcrsStatus'+--+-- * 'chcrsHealthCheck'+--+-- * 'chcrsLocation'+createHealthCheckResponse+    :: Int -- ^ 'chcrsStatus'+    -> HealthCheck -- ^ 'chcrsHealthCheck'+    -> Text -- ^ 'chcrsLocation'+    -> CreateHealthCheckResponse+createHealthCheckResponse pStatus_ pHealthCheck_ pLocation_ =+    CreateHealthCheckResponse'+    { _chcrsStatus = pStatus_+    , _chcrsHealthCheck = pHealthCheck_+    , _chcrsLocation = pLocation_+    } -instance AWSRequest CreateHealthCheck where-    type Sv CreateHealthCheck = Route53-    type Rs CreateHealthCheck = CreateHealthCheckResponse+-- | The response status code.+chcrsStatus :: Lens' CreateHealthCheckResponse Int+chcrsStatus = lens _chcrsStatus (\ s a -> s{_chcrsStatus = a}); -    request  = post-    response = xmlHeaderResponse $ \h x -> CreateHealthCheckResponse-        <$> x .@  "HealthCheck"-        <*> h ~:  "Location"+-- | A complex type that contains identifying information about the health+-- check.+chcrsHealthCheck :: Lens' CreateHealthCheckResponse HealthCheck+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});

@@ -1,235 +1,260 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateHostedZone--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action creates a new hosted zone.+-- This action creates a new hosted zone. ----- To create a new hosted zone, send a 'POST' request to the '2013-04-01/hostedzone'--- resource. The request body must include an XML document with a 'CreateHostedZoneRequest' element. The response returns the 'CreateHostedZoneResponse' element that--- contains metadata about the hosted zone.+-- To create a new hosted zone, send a 'POST' request to the+-- '2013-04-01\/hostedzone' resource. The request body must include an XML+-- document with a 'CreateHostedZoneRequest' element. The response returns+-- the 'CreateHostedZoneResponse' element that contains metadata about the+-- hosted zone. ----- Route 53 automatically creates a default SOA record and four NS records for--- the zone. The NS records in the hosted zone are the name servers you give--- your registrar to delegate your domain to. For more information about SOA and--- NS records, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/SOA-NSrecords.html NS and SOA Records that Route 53 Creates for a Hosted Zone> in--- the /Amazon Route 53 Developer Guide/.+-- Route 53 automatically creates a default SOA record and four NS records+-- for the zone. The NS records in the hosted zone are the name servers you+-- give your registrar to delegate your domain to. For more information+-- about SOA and NS records, see+-- <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/SOA-NSrecords.html NS and SOA Records that Route 53 Creates for a Hosted Zone>+-- in the /Amazon Route 53 Developer Guide/. ----- When you create a zone, its initial status is 'PENDING'. This means that it is--- not yet available on all DNS servers. The status of the zone changes to 'INSYNC'--- when the NS and SOA records are available on all Route 53 DNS servers.+-- When you create a zone, its initial status is 'PENDING'. This means that+-- it is not yet available on all DNS servers. The status of the zone+-- changes to 'INSYNC' when the NS and SOA records are available on all+-- Route 53 DNS servers. -- -- When trying to create a hosted zone using a reusable delegation set, you--- could specify an optional DelegationSetId, and Route53 would assign those 4--- NS records for the zone, instead of alloting a new one.+-- could specify an optional DelegationSetId, and Route53 would assign+-- those 4 NS records for the zone, instead of alloting a new one. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_CreateHostedZone.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_CreateHostedZone.html AWS API Reference> for CreateHostedZone. module Network.AWS.Route53.CreateHostedZone     (-    -- * Request-      CreateHostedZone-    -- ** Request constructor-    , createHostedZone-    -- ** Request lenses-    , chzCallerReference+    -- * Creating a Request+      createHostedZone+    , CreateHostedZone+    -- * Request Lenses     , chzDelegationSetId     , chzHostedZoneConfig-    , chzName     , chzVPC+    , chzName+    , chzCallerReference -    -- * Response-    , CreateHostedZoneResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createHostedZoneResponse-    -- ** Response lenses-    , chzrChangeInfo-    , chzrDelegationSet-    , chzrHostedZone-    , chzrLocation-    , chzrVPC+    , CreateHostedZoneResponse+    -- * Response Lenses+    , chzrsVPC+    , chzrsStatus+    , chzrsHostedZone+    , chzrsChangeInfo+    , chzrsDelegationSet+    , chzrsLocation     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data CreateHostedZone = CreateHostedZone-    { _chzCallerReference  :: Text-    , _chzDelegationSetId  :: Maybe Text-    , _chzHostedZoneConfig :: Maybe HostedZoneConfig-    , _chzName             :: Text-    , _chzVPC              :: Maybe VPC-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'CreateHostedZone' constructor.+-- | A complex type that contains information about the request to create a+-- hosted zone. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createHostedZone' smart constructor.+data CreateHostedZone = CreateHostedZone'+    { _chzDelegationSetId  :: !(Maybe Text)+    , _chzHostedZoneConfig :: !(Maybe HostedZoneConfig)+    , _chzVPC              :: !(Maybe VPC)+    , _chzName             :: !Text+    , _chzCallerReference  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateHostedZone' with the minimum fields required to make a request. ----- * 'chzCallerReference' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'chzDelegationSetId' @::@ 'Maybe' 'Text'+-- * 'chzDelegationSetId' ----- * 'chzHostedZoneConfig' @::@ 'Maybe' 'HostedZoneConfig'+-- * 'chzHostedZoneConfig' ----- * 'chzName' @::@ 'Text'+-- * 'chzVPC' ----- * 'chzVPC' @::@ 'Maybe' 'VPC'+-- * 'chzName' ---createHostedZone :: Text -- ^ 'chzName'-                 -> Text -- ^ 'chzCallerReference'-                 -> CreateHostedZone-createHostedZone p1 p2 = CreateHostedZone-    { _chzName             = p1-    , _chzCallerReference  = p2-    , _chzVPC              = Nothing+-- * 'chzCallerReference'+createHostedZone+    :: Text -- ^ 'chzName'+    -> Text -- ^ 'chzCallerReference'+    -> CreateHostedZone+createHostedZone pName_ pCallerReference_ =+    CreateHostedZone'+    { _chzDelegationSetId = Nothing     , _chzHostedZoneConfig = Nothing-    , _chzDelegationSetId  = Nothing+    , _chzVPC = Nothing+    , _chzName = pName_+    , _chzCallerReference = pCallerReference_     } --- | A unique string that identifies the request and that allows failed 'CreateHostedZone' requests to be retried without the risk of executing the operation twice.--- You must use a unique 'CallerReference' string every time you create a hosted--- zone. 'CallerReference' can be any unique string; you might choose to use a--- string that identifies your project, such as 'DNSMigration_01'.------ Valid characters are any Unicode code points that are legal in an XML 1.0--- document. The UTF-8 encoding of the value must be less than 128 bytes.-chzCallerReference :: Lens' CreateHostedZone Text-chzCallerReference =-    lens _chzCallerReference (\s a -> s { _chzCallerReference = a })---- | The delegation set id of the reusable delgation set whose NS records you want--- to assign to the new hosted zone.+-- | The delegation set id of the reusable delgation set whose NS records you+-- want to assign to the new hosted zone. chzDelegationSetId :: Lens' CreateHostedZone (Maybe Text)-chzDelegationSetId =-    lens _chzDelegationSetId (\s a -> s { _chzDelegationSetId = a })+chzDelegationSetId = lens _chzDelegationSetId (\ s a -> s{_chzDelegationSetId = a});  -- | A complex type that contains an optional comment about your hosted zone. 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. This must be a fully-specified domain, for example,--- www.example.com. The trailing dot is optional; Route 53 assumes that the--- domain name is fully qualified. This means that Route 53 treats+-- | The VPC that you want your hosted zone to be associated with. By+-- providing this parameter, your newly created hosted cannot be resolved+-- anywhere other than the given VPC.+chzVPC :: Lens' CreateHostedZone (Maybe VPC)+chzVPC = lens _chzVPC (\ s a -> s{_chzVPC = a});++-- | The name of the domain. This must be a fully-specified domain, for+-- example, www.example.com. The trailing dot is optional; Route 53 assumes+-- that the domain name is fully qualified. This means that Route 53 treats -- www.example.com (without a trailing dot) and www.example.com. (with a -- trailing dot) as identical. ----- This is the name you have registered with your DNS registrar. You should ask--- your registrar to change the authoritative name servers for your domain to--- the set of 'NameServers' elements returned in 'DelegationSet'.+-- This is the name you have registered with your DNS registrar. You should+-- ask your registrar to change the authoritative name servers for your+-- domain to the set of 'NameServers' elements returned in 'DelegationSet'. chzName :: Lens' CreateHostedZone Text-chzName = lens _chzName (\s a -> s { _chzName = a })+chzName = lens _chzName (\ s a -> s{_chzName = a}); --- | The VPC that you want your hosted zone to be associated with. By providing--- this parameter, your newly created hosted cannot be resolved anywhere other--- than the given VPC.-chzVPC :: Lens' CreateHostedZone (Maybe VPC)-chzVPC = lens _chzVPC (\s a -> s { _chzVPC = a })+-- | A unique string that identifies the request and that allows failed+-- 'CreateHostedZone' requests to be retried without the risk of executing+-- the operation twice. You must use a unique 'CallerReference' string+-- every time you create a hosted zone. 'CallerReference' can be any unique+-- string; you might choose to use a string that identifies your project,+-- such as 'DNSMigration_01'.+--+-- Valid characters are any Unicode code points that are legal in an XML+-- 1.0 document. The UTF-8 encoding of the value must be less than 128+-- bytes.+chzCallerReference :: Lens' CreateHostedZone Text+chzCallerReference = lens _chzCallerReference (\ s a -> s{_chzCallerReference = a}); -data CreateHostedZoneResponse = CreateHostedZoneResponse-    { _chzrChangeInfo    :: ChangeInfo-    , _chzrDelegationSet :: DelegationSet-    , _chzrHostedZone    :: HostedZone-    , _chzrLocation      :: Text-    , _chzrVPC           :: Maybe VPC-    } deriving (Eq, Read, Show)+instance AWSRequest CreateHostedZone where+        type Sv CreateHostedZone = Route53+        type Rs CreateHostedZone = CreateHostedZoneResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 CreateHostedZoneResponse' <$>+                   (x .@? "VPC") <*> (pure (fromEnum s)) <*>+                     (x .@ "HostedZone")+                     <*> (x .@ "ChangeInfo")+                     <*> (x .@ "DelegationSet")+                     <*> (h .# "Location")) --- | 'CreateHostedZoneResponse' constructor.+instance ToElement CreateHostedZone where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}CreateHostedZoneRequest"++instance ToHeaders CreateHostedZone where+        toHeaders = const mempty++instance ToPath CreateHostedZone where+        toPath = const "/2013-04-01/hostedzone"++instance ToQuery CreateHostedZone where+        toQuery = const mempty++instance ToXML CreateHostedZone where+        toXML CreateHostedZone'{..}+          = mconcat+              ["DelegationSetId" @= _chzDelegationSetId,+               "HostedZoneConfig" @= _chzHostedZoneConfig,+               "VPC" @= _chzVPC, "Name" @= _chzName,+               "CallerReference" @= _chzCallerReference]++-- | A complex type containing the response information for the new hosted+-- zone. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createHostedZoneResponse' smart constructor.+data CreateHostedZoneResponse = CreateHostedZoneResponse'+    { _chzrsVPC           :: !(Maybe VPC)+    , _chzrsStatus        :: !Int+    , _chzrsHostedZone    :: !HostedZone+    , _chzrsChangeInfo    :: !ChangeInfo+    , _chzrsDelegationSet :: !DelegationSet+    , _chzrsLocation      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateHostedZoneResponse' with the minimum fields required to make a request. ----- * 'chzrChangeInfo' @::@ 'ChangeInfo'+-- Use one of the following lenses to modify other fields as desired: ----- * 'chzrDelegationSet' @::@ 'DelegationSet'+-- * 'chzrsVPC' ----- * 'chzrHostedZone' @::@ 'HostedZone'+-- * 'chzrsStatus' ----- * 'chzrLocation' @::@ 'Text'+-- * 'chzrsHostedZone' ----- * 'chzrVPC' @::@ 'Maybe' 'VPC'+-- * 'chzrsChangeInfo' ---createHostedZoneResponse :: HostedZone -- ^ 'chzrHostedZone'-                         -> ChangeInfo -- ^ 'chzrChangeInfo'-                         -> DelegationSet -- ^ 'chzrDelegationSet'-                         -> Text -- ^ 'chzrLocation'-                         -> CreateHostedZoneResponse-createHostedZoneResponse p1 p2 p3 p4 = CreateHostedZoneResponse-    { _chzrHostedZone    = p1-    , _chzrChangeInfo    = p2-    , _chzrDelegationSet = p3-    , _chzrLocation      = p4-    , _chzrVPC           = Nothing+-- * 'chzrsDelegationSet'+--+-- * 'chzrsLocation'+createHostedZoneResponse+    :: Int -- ^ 'chzrsStatus'+    -> HostedZone -- ^ 'chzrsHostedZone'+    -> ChangeInfo -- ^ 'chzrsChangeInfo'+    -> DelegationSet -- ^ 'chzrsDelegationSet'+    -> Text -- ^ 'chzrsLocation'+    -> CreateHostedZoneResponse+createHostedZoneResponse pStatus_ pHostedZone_ pChangeInfo_ pDelegationSet_ pLocation_ =+    CreateHostedZoneResponse'+    { _chzrsVPC = Nothing+    , _chzrsStatus = pStatus_+    , _chzrsHostedZone = pHostedZone_+    , _chzrsChangeInfo = pChangeInfo_+    , _chzrsDelegationSet = pDelegationSet_+    , _chzrsLocation = pLocation_     } --- | A complex type that contains information about the request to create a hosted--- zone. This includes an ID that you use when you call the 'GetChange' action to--- get the current status of the change request.-chzrChangeInfo :: Lens' CreateHostedZoneResponse ChangeInfo-chzrChangeInfo = lens _chzrChangeInfo (\s a -> s { _chzrChangeInfo = a })---- | A complex type that contains name server information.-chzrDelegationSet :: Lens' CreateHostedZoneResponse DelegationSet-chzrDelegationSet =-    lens _chzrDelegationSet (\s a -> s { _chzrDelegationSet = a })---- | A complex type that contains identifying information about the hosted zone.-chzrHostedZone :: Lens' CreateHostedZoneResponse HostedZone-chzrHostedZone = lens _chzrHostedZone (\s a -> s { _chzrHostedZone = a })---- | The unique URL representing the new hosted zone.-chzrLocation :: Lens' CreateHostedZoneResponse Text-chzrLocation = lens _chzrLocation (\s a -> s { _chzrLocation = a })--chzrVPC :: Lens' CreateHostedZoneResponse (Maybe VPC)-chzrVPC = lens _chzrVPC (\s a -> s { _chzrVPC = a })--instance ToPath CreateHostedZone where-    toPath = const "/2013-04-01/hostedzone"--instance ToQuery CreateHostedZone where-    toQuery = const mempty+-- | Undocumented member.+chzrsVPC :: Lens' CreateHostedZoneResponse (Maybe VPC)+chzrsVPC = lens _chzrsVPC (\ s a -> s{_chzrsVPC = a}); -instance ToHeaders CreateHostedZone+-- | The response status code.+chzrsStatus :: Lens' CreateHostedZoneResponse Int+chzrsStatus = lens _chzrsStatus (\ s a -> s{_chzrsStatus = a}); -instance ToXMLRoot CreateHostedZone where-    toXMLRoot CreateHostedZone{..} = namespaced ns "CreateHostedZone"-        [ "Name"             =@ _chzName-        , "VPC"              =@ _chzVPC-        , "CallerReference"  =@ _chzCallerReference-        , "HostedZoneConfig" =@ _chzHostedZoneConfig-        , "DelegationSetId"  =@ _chzDelegationSetId-        ]+-- | A complex type that contains identifying information about the hosted+-- zone.+chzrsHostedZone :: Lens' CreateHostedZoneResponse HostedZone+chzrsHostedZone = lens _chzrsHostedZone (\ s a -> s{_chzrsHostedZone = a}); -instance ToXML CreateHostedZone+-- | A complex type that contains information about the request to create a+-- hosted zone. This includes an ID that you use when you call the+-- GetChange action to get the current status of the change request.+chzrsChangeInfo :: Lens' CreateHostedZoneResponse ChangeInfo+chzrsChangeInfo = lens _chzrsChangeInfo (\ s a -> s{_chzrsChangeInfo = a}); -instance AWSRequest CreateHostedZone where-    type Sv CreateHostedZone = Route53-    type Rs CreateHostedZone = CreateHostedZoneResponse+-- | A complex type that contains name server information.+chzrsDelegationSet :: Lens' CreateHostedZoneResponse DelegationSet+chzrsDelegationSet = lens _chzrsDelegationSet (\ s a -> s{_chzrsDelegationSet = a}); -    request  = post-    response = xmlHeaderResponse $ \h x -> CreateHostedZoneResponse-        <$> x .@  "ChangeInfo"-        <*> x .@  "DelegationSet"-        <*> x .@  "HostedZone"-        <*> h ~:  "Location"-        <*> x .@? "VPC"+-- | The unique URL representing the new hosted zone.+chzrsLocation :: Lens' CreateHostedZoneResponse Text+chzrsLocation = lens _chzrsLocation (\ s a -> s{_chzrsLocation = a});

@@ -1,147 +1,167 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateReusableDelegationSet--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action creates a reusable delegationSet.+-- This action creates a reusable delegationSet. ----- To create a new reusable delegationSet, send a 'POST' request to the '2013-04-01/delegationset' resource. The request body must include an XML document with a 'CreateReusableDelegationSetRequest' element. The response returns the 'CreateReusableDelegationSetResponse'--- element that contains metadata about the delegationSet.+-- To create a new reusable delegationSet, send a 'POST' request to the+-- '2013-04-01\/delegationset' resource. The request body must include an+-- XML document with a 'CreateReusableDelegationSetRequest' element. The+-- response returns the 'CreateReusableDelegationSetResponse' element that+-- contains metadata about the delegationSet. -- -- If the optional parameter HostedZoneId is specified, it marks the -- delegationSet associated with that particular hosted zone as reusable. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_CreateReusableDelegationSet.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_CreateReusableDelegationSet.html AWS API Reference> for CreateReusableDelegationSet. module Network.AWS.Route53.CreateReusableDelegationSet     (-    -- * Request-      CreateReusableDelegationSet-    -- ** Request constructor-    , createReusableDelegationSet-    -- ** Request lenses-    , crdsCallerReference+    -- * Creating a Request+      createReusableDelegationSet+    , CreateReusableDelegationSet+    -- * Request Lenses     , crdsHostedZoneId+    , crdsCallerReference -    -- * Response-    , CreateReusableDelegationSetResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createReusableDelegationSetResponse-    -- ** Response lenses-    , crdsrDelegationSet-    , crdsrLocation+    , CreateReusableDelegationSetResponse+    -- * Response Lenses+    , crdsrsStatus+    , crdsrsDelegationSet+    , crdsrsLocation     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -data CreateReusableDelegationSet = CreateReusableDelegationSet-    { _crdsCallerReference :: Text-    , _crdsHostedZoneId    :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'createReusableDelegationSet' smart constructor.+data CreateReusableDelegationSet = CreateReusableDelegationSet'+    { _crdsHostedZoneId    :: !(Maybe Text)+    , _crdsCallerReference :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateReusableDelegationSet' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateReusableDelegationSet' with the minimum fields required to make a request. ----- * 'crdsCallerReference' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'crdsHostedZoneId' @::@ 'Maybe' 'Text'+-- * 'crdsHostedZoneId' ---createReusableDelegationSet :: Text -- ^ 'crdsCallerReference'-                            -> CreateReusableDelegationSet-createReusableDelegationSet p1 = CreateReusableDelegationSet-    { _crdsCallerReference = p1-    , _crdsHostedZoneId    = Nothing+-- * 'crdsCallerReference'+createReusableDelegationSet+    :: Text -- ^ 'crdsCallerReference'+    -> CreateReusableDelegationSet+createReusableDelegationSet pCallerReference_ =+    CreateReusableDelegationSet'+    { _crdsHostedZoneId = Nothing+    , _crdsCallerReference = pCallerReference_     } --- | A unique string that identifies the request and that allows failed 'CreateReusableDelegationSet' requests to be retried without the risk of executing the operation twice.--- You must use a unique 'CallerReference' string every time you create a reusable--- delegation set. 'CallerReference' can be any unique string; you might choose to--- use a string that identifies your project, such as 'DNSMigration_01'.------ Valid characters are any Unicode code points that are legal in an XML 1.0--- document. The UTF-8 encoding of the value must be less than 128 bytes.-crdsCallerReference :: Lens' CreateReusableDelegationSet Text-crdsCallerReference =-    lens _crdsCallerReference (\s a -> s { _crdsCallerReference = a })---- | The ID of the hosted zone whose delegation set you want to mark as reusable.--- It is an optional parameter.+-- | The ID of the hosted zone whose delegation set you want to mark as+-- reusable. It is an optional parameter. crdsHostedZoneId :: Lens' CreateReusableDelegationSet (Maybe Text)-crdsHostedZoneId = lens _crdsHostedZoneId (\s a -> s { _crdsHostedZoneId = a })--data CreateReusableDelegationSetResponse = CreateReusableDelegationSetResponse-    { _crdsrDelegationSet :: DelegationSet-    , _crdsrLocation      :: Text-    } deriving (Eq, Read, Show)+crdsHostedZoneId = lens _crdsHostedZoneId (\ s a -> s{_crdsHostedZoneId = a}); --- | 'CreateReusableDelegationSetResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'crdsrDelegationSet' @::@ 'DelegationSet'------ * 'crdsrLocation' @::@ 'Text'+-- | A unique string that identifies the request and that allows failed+-- 'CreateReusableDelegationSet' requests to be retried without the risk of+-- executing the operation twice. You must use a unique 'CallerReference'+-- string every time you create a reusable delegation set.+-- 'CallerReference' can be any unique string; you might choose to use a+-- string that identifies your project, such as 'DNSMigration_01'. ---createReusableDelegationSetResponse :: DelegationSet -- ^ 'crdsrDelegationSet'-                                    -> Text -- ^ 'crdsrLocation'-                                    -> CreateReusableDelegationSetResponse-createReusableDelegationSetResponse p1 p2 = CreateReusableDelegationSetResponse-    { _crdsrDelegationSet = p1-    , _crdsrLocation      = p2-    }+-- Valid characters are any Unicode code points that are legal in an XML+-- 1.0 document. The UTF-8 encoding of the value must be less than 128+-- bytes.+crdsCallerReference :: Lens' CreateReusableDelegationSet Text+crdsCallerReference = lens _crdsCallerReference (\ s a -> s{_crdsCallerReference = a}); --- | A complex type that contains name server information.-crdsrDelegationSet :: Lens' CreateReusableDelegationSetResponse DelegationSet-crdsrDelegationSet =-    lens _crdsrDelegationSet (\s a -> s { _crdsrDelegationSet = a })+instance AWSRequest CreateReusableDelegationSet where+        type Sv CreateReusableDelegationSet = Route53+        type Rs CreateReusableDelegationSet =+             CreateReusableDelegationSetResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 CreateReusableDelegationSetResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "DelegationSet") <*>+                     (h .# "Location")) --- | The unique URL representing the new reusbale delegation set.-crdsrLocation :: Lens' CreateReusableDelegationSetResponse Text-crdsrLocation = lens _crdsrLocation (\s a -> s { _crdsrLocation = a })+instance ToElement CreateReusableDelegationSet where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}CreateReusableDelegationSetRequest" +instance ToHeaders CreateReusableDelegationSet where+        toHeaders = const mempty+ instance ToPath CreateReusableDelegationSet where-    toPath = const "/2013-04-01/delegationset"+        toPath = const "/2013-04-01/delegationset"  instance ToQuery CreateReusableDelegationSet where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders CreateReusableDelegationSet+instance ToXML CreateReusableDelegationSet where+        toXML CreateReusableDelegationSet'{..}+          = mconcat+              ["HostedZoneId" @= _crdsHostedZoneId,+               "CallerReference" @= _crdsCallerReference] -instance ToXMLRoot CreateReusableDelegationSet where-    toXMLRoot CreateReusableDelegationSet{..} = namespaced ns "CreateReusableDelegationSet"-        [ "CallerReference" =@ _crdsCallerReference-        , "HostedZoneId"    =@ _crdsHostedZoneId-        ]+-- | /See:/ 'createReusableDelegationSetResponse' smart constructor.+data CreateReusableDelegationSetResponse = CreateReusableDelegationSetResponse'+    { _crdsrsStatus        :: !Int+    , _crdsrsDelegationSet :: !DelegationSet+    , _crdsrsLocation      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToXML CreateReusableDelegationSet+-- | Creates a value of 'CreateReusableDelegationSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crdsrsStatus'+--+-- * 'crdsrsDelegationSet'+--+-- * 'crdsrsLocation'+createReusableDelegationSetResponse+    :: Int -- ^ 'crdsrsStatus'+    -> DelegationSet -- ^ 'crdsrsDelegationSet'+    -> Text -- ^ 'crdsrsLocation'+    -> CreateReusableDelegationSetResponse+createReusableDelegationSetResponse pStatus_ pDelegationSet_ pLocation_ =+    CreateReusableDelegationSetResponse'+    { _crdsrsStatus = pStatus_+    , _crdsrsDelegationSet = pDelegationSet_+    , _crdsrsLocation = pLocation_+    } -instance AWSRequest CreateReusableDelegationSet where-    type Sv CreateReusableDelegationSet = Route53-    type Rs CreateReusableDelegationSet = CreateReusableDelegationSetResponse+-- | The response status code.+crdsrsStatus :: Lens' CreateReusableDelegationSetResponse Int+crdsrsStatus = lens _crdsrsStatus (\ s a -> s{_crdsrsStatus = a}); -    request  = post-    response = xmlHeaderResponse $ \h x -> CreateReusableDelegationSetResponse-        <$> x .@  "DelegationSet"-        <*> h ~:  "Location"+-- | A complex type that contains name server information.+crdsrsDelegationSet :: Lens' CreateReusableDelegationSetResponse DelegationSet+crdsrsDelegationSet = lens _crdsrsDelegationSet (\ s a -> s{_crdsrsDelegationSet = a});++-- | The unique URL representing the new reusbale delegation set.+crdsrsLocation :: Lens' CreateReusableDelegationSetResponse Text+crdsrsLocation = lens _crdsrsLocation (\ s a -> s{_crdsrsLocation = a});

@@ -1,105 +1,122 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteHealthCheck--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action deletes a health check. To delete a health check, send a 'DELETE'--- request to the '2013-04-01/healthcheck//health check ID/ resource.+-- This action deletes a health check. To delete a health check, send a+-- 'DELETE' request to the '2013-04-01\/healthcheck\/health check ID'+-- resource. -- -- You can delete a health check only if there are no resource record sets--- associated with this health check. If resource record sets are associated--- with this health check, you must disassociate them before you can delete your--- health check. If you try to delete a health check that is associated with--- resource record sets, Route 53 will deny your request with a 'HealthCheckInUse'--- error. For information about disassociating the records from your health--- check, see 'ChangeResourceRecordSets'.+-- associated with this health check. If resource record sets are+-- associated with this health check, you must disassociate them before you+-- can delete your health check. If you try to delete a health check that+-- is associated with resource record sets, Route 53 will deny your request+-- with a 'HealthCheckInUse' error. For information about disassociating+-- the records from your health check, see ChangeResourceRecordSets. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DeleteHealthCheck.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DeleteHealthCheck.html AWS API Reference> for DeleteHealthCheck. module Network.AWS.Route53.DeleteHealthCheck     (-    -- * Request-      DeleteHealthCheck-    -- ** Request constructor-    , deleteHealthCheck-    -- ** Request lenses+    -- * Creating a Request+      deleteHealthCheck+    , DeleteHealthCheck+    -- * Request Lenses     , dhcHealthCheckId -    -- * Response-    , DeleteHealthCheckResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteHealthCheckResponse+    , DeleteHealthCheckResponse+    -- * Response Lenses+    , dhcrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype DeleteHealthCheck = DeleteHealthCheck+-- | A complex type containing the request information for delete health+-- check.+--+-- /See:/ 'deleteHealthCheck' smart constructor.+newtype DeleteHealthCheck = DeleteHealthCheck'     { _dhcHealthCheckId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteHealthCheck' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteHealthCheck' with the minimum fields required to make a request. ----- * 'dhcHealthCheckId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteHealthCheck :: Text -- ^ 'dhcHealthCheckId'-                  -> DeleteHealthCheck-deleteHealthCheck p1 = DeleteHealthCheck-    { _dhcHealthCheckId = p1+-- * 'dhcHealthCheckId'+deleteHealthCheck+    :: Text -- ^ 'dhcHealthCheckId'+    -> DeleteHealthCheck+deleteHealthCheck pHealthCheckId_ =+    DeleteHealthCheck'+    { _dhcHealthCheckId = pHealthCheckId_     }  -- | The ID of the health check to delete. dhcHealthCheckId :: Lens' DeleteHealthCheck Text-dhcHealthCheckId = lens _dhcHealthCheckId (\s a -> s { _dhcHealthCheckId = a })+dhcHealthCheckId = lens _dhcHealthCheckId (\ s a -> s{_dhcHealthCheckId = a}); -data DeleteHealthCheckResponse = DeleteHealthCheckResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteHealthCheck where+        type Sv DeleteHealthCheck = Route53+        type Rs DeleteHealthCheck = DeleteHealthCheckResponse+        request = delete+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteHealthCheckResponse' <$> (pure (fromEnum s))) --- | 'DeleteHealthCheckResponse' constructor.-deleteHealthCheckResponse :: DeleteHealthCheckResponse-deleteHealthCheckResponse = DeleteHealthCheckResponse+instance ToHeaders DeleteHealthCheck where+        toHeaders = const mempty  instance ToPath DeleteHealthCheck where-    toPath DeleteHealthCheck{..} = mconcat-        [ "/2013-04-01/healthcheck/"-        , toText _dhcHealthCheckId-        ]+        toPath DeleteHealthCheck'{..}+          = mconcat+              ["/2013-04-01/healthcheck/", toBS _dhcHealthCheckId]  instance ToQuery DeleteHealthCheck where-    toQuery = const mempty--instance ToHeaders DeleteHealthCheck--instance ToXMLRoot DeleteHealthCheck where-    toXMLRoot = const (namespaced ns "DeleteHealthCheck" [])+        toQuery = const mempty -instance ToXML DeleteHealthCheck+-- | Empty response for the request.+--+-- /See:/ 'deleteHealthCheckResponse' smart constructor.+newtype DeleteHealthCheckResponse = DeleteHealthCheckResponse'+    { _dhcrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteHealthCheck where-    type Sv DeleteHealthCheck = Route53-    type Rs DeleteHealthCheck = DeleteHealthCheckResponse+-- | Creates a value of 'DeleteHealthCheckResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhcrsStatus'+deleteHealthCheckResponse+    :: Int -- ^ 'dhcrsStatus'+    -> DeleteHealthCheckResponse+deleteHealthCheckResponse pStatus_ =+    DeleteHealthCheckResponse'+    { _dhcrsStatus = pStatus_+    } -    request  = delete-    response = nullResponse DeleteHealthCheckResponse+-- | The response status code.+dhcrsStatus :: Lens' DeleteHealthCheckResponse Int+dhcrsStatus = lens _dhcrsStatus (\ s a -> s{_dhcrsStatus = a});

@@ -1,126 +1,137 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteHostedZone--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action deletes a hosted zone. To delete a hosted zone, send a 'DELETE'--- request to the '2013-04-01/hostedzone//hosted zone ID/ resource.+-- This action deletes a hosted zone. To delete a hosted zone, send a+-- 'DELETE' request to the '2013-04-01\/hostedzone\/hosted zone ID'+-- resource. ----- For more information about deleting a hosted zone, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DeleteHostedZone.html Deleting a Hosted Zone>+-- For more information about deleting a hosted zone, see+-- <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DeleteHostedZone.html Deleting a Hosted Zone> -- in the /Amazon Route 53 Developer Guide/. -- -- You can delete a hosted zone only if there are no resource record sets--- other than the default SOA record and NS resource record sets. If your hosted--- zone contains other resource record sets, you must delete them before you can--- delete your hosted zone. If you try to delete a hosted zone that contains--- other resource record sets, Route 53 will deny your request with a 'HostedZoneNotEmpty' error. For information about deleting records from your hosted zone, see 'ChangeResourceRecordSets'.+-- other than the default SOA record and NS resource record sets. If your+-- hosted zone contains other resource record sets, you must delete them+-- before you can delete your hosted zone. If you try to delete a hosted+-- zone that contains other resource record sets, Route 53 will deny your+-- request with a 'HostedZoneNotEmpty' error. For information about+-- deleting records from your hosted zone, see ChangeResourceRecordSets. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DeleteHostedZone.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DeleteHostedZone.html AWS API Reference> for DeleteHostedZone. module Network.AWS.Route53.DeleteHostedZone     (-    -- * Request-      DeleteHostedZone-    -- ** Request constructor-    , deleteHostedZone-    -- ** Request lenses+    -- * Creating a Request+      deleteHostedZone+    , DeleteHostedZone+    -- * Request Lenses     , dhzId -    -- * Response-    , DeleteHostedZoneResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteHostedZoneResponse-    -- ** Response lenses-    , dhzrChangeInfo+    , DeleteHostedZoneResponse+    -- * Response Lenses+    , dhzrsStatus+    , dhzrsChangeInfo     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype DeleteHostedZone = DeleteHostedZone+-- | A complex type that contains information about the hosted zone that you+-- want to delete.+--+-- /See:/ 'deleteHostedZone' smart constructor.+newtype DeleteHostedZone = DeleteHostedZone'     { _dhzId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteHostedZone' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteHostedZone' with the minimum fields required to make a request. ----- * 'dhzId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteHostedZone :: Text -- ^ 'dhzId'-                 -> DeleteHostedZone-deleteHostedZone p1 = DeleteHostedZone-    { _dhzId = p1+-- * 'dhzId'+deleteHostedZone+    :: Text -- ^ 'dhzId'+    -> DeleteHostedZone+deleteHostedZone pId_ =+    DeleteHostedZone'+    { _dhzId = pId_     }  -- | The ID of the hosted zone you want to delete. dhzId :: Lens' DeleteHostedZone Text-dhzId = lens _dhzId (\s a -> s { _dhzId = a })--newtype DeleteHostedZoneResponse = DeleteHostedZoneResponse-    { _dhzrChangeInfo :: ChangeInfo-    } deriving (Eq, Read, Show)+dhzId = lens _dhzId (\ s a -> s{_dhzId = a}); --- | 'DeleteHostedZoneResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dhzrChangeInfo' @::@ 'ChangeInfo'----deleteHostedZoneResponse :: ChangeInfo -- ^ 'dhzrChangeInfo'-                         -> DeleteHostedZoneResponse-deleteHostedZoneResponse p1 = DeleteHostedZoneResponse-    { _dhzrChangeInfo = p1-    }+instance AWSRequest DeleteHostedZone where+        type Sv DeleteHostedZone = Route53+        type Rs DeleteHostedZone = DeleteHostedZoneResponse+        request = delete+        response+          = receiveXML+              (\ s h x ->+                 DeleteHostedZoneResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) --- | A complex type that contains the ID, the status, and the date and time of--- your delete request.-dhzrChangeInfo :: Lens' DeleteHostedZoneResponse ChangeInfo-dhzrChangeInfo = lens _dhzrChangeInfo (\s a -> s { _dhzrChangeInfo = a })+instance ToHeaders DeleteHostedZone where+        toHeaders = const mempty  instance ToPath DeleteHostedZone where-    toPath DeleteHostedZone{..} = mconcat-        [ "/2013-04-01/hostedzone/"-        , toText _dhzId-        ]+        toPath DeleteHostedZone'{..}+          = mconcat ["/2013-04-01/hostedzone/", toBS _dhzId]  instance ToQuery DeleteHostedZone where-    toQuery = const mempty--instance ToHeaders DeleteHostedZone--instance ToXMLRoot DeleteHostedZone where-    toXMLRoot = const (namespaced ns "DeleteHostedZone" [])+        toQuery = const mempty -instance ToXML DeleteHostedZone+-- | A complex type containing the response information for the request.+--+-- /See:/ 'deleteHostedZoneResponse' smart constructor.+data DeleteHostedZoneResponse = DeleteHostedZoneResponse'+    { _dhzrsStatus     :: !Int+    , _dhzrsChangeInfo :: !ChangeInfo+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteHostedZone where-    type Sv DeleteHostedZone = Route53-    type Rs DeleteHostedZone = DeleteHostedZoneResponse+-- | Creates a value of 'DeleteHostedZoneResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhzrsStatus'+--+-- * 'dhzrsChangeInfo'+deleteHostedZoneResponse+    :: Int -- ^ 'dhzrsStatus'+    -> ChangeInfo -- ^ 'dhzrsChangeInfo'+    -> DeleteHostedZoneResponse+deleteHostedZoneResponse pStatus_ pChangeInfo_ =+    DeleteHostedZoneResponse'+    { _dhzrsStatus = pStatus_+    , _dhzrsChangeInfo = pChangeInfo_+    } -    request  = delete-    response = xmlResponse+-- | The response status code.+dhzrsStatus :: Lens' DeleteHostedZoneResponse Int+dhzrsStatus = lens _dhzrsStatus (\ s a -> s{_dhzrsStatus = a}); -instance FromXML DeleteHostedZoneResponse where-    parseXML x = DeleteHostedZoneResponse-        <$> x .@  "ChangeInfo"+-- | A complex type that contains the ID, the status, and the date and time+-- of your delete request.+dhzrsChangeInfo :: Lens' DeleteHostedZoneResponse ChangeInfo+dhzrsChangeInfo = lens _dhzrsChangeInfo (\ s a -> s{_dhzrsChangeInfo = a});

@@ -1,103 +1,122 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteReusableDelegationSet--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action deletes a reusable delegation set. To delete a reusable--- delegation set, send a 'DELETE' request to the '2013-04-01/delegationset//delegation set ID/ resource.+-- This action deletes a reusable delegation set. To delete a reusable+-- delegation set, send a 'DELETE' request to the+-- '2013-04-01\/delegationset\/delegation set ID' resource. -- -- You can delete a reusable delegation set only if there are no associated -- hosted zones. If your reusable delegation set contains associated hosted--- zones, you must delete them before you can delete your reusable delegation--- set. If you try to delete a reusable delegation set that contains associated--- hosted zones, Route 53 will deny your request with a 'DelegationSetInUse' error.+-- zones, you must delete them before you can delete your reusable+-- delegation set. If you try to delete a reusable delegation set that+-- contains associated hosted zones, Route 53 will deny your request with a+-- 'DelegationSetInUse' error. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DeleteReusableDelegationSet.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DeleteReusableDelegationSet.html AWS API Reference> for DeleteReusableDelegationSet. module Network.AWS.Route53.DeleteReusableDelegationSet     (-    -- * Request-      DeleteReusableDelegationSet-    -- ** Request constructor-    , deleteReusableDelegationSet-    -- ** Request lenses+    -- * Creating a Request+      deleteReusableDelegationSet+    , DeleteReusableDelegationSet+    -- * Request Lenses     , drdsId -    -- * Response-    , DeleteReusableDelegationSetResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteReusableDelegationSetResponse+    , DeleteReusableDelegationSetResponse+    -- * Response Lenses+    , drdsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype DeleteReusableDelegationSet = DeleteReusableDelegationSet+-- | A complex type containing the information for the delete request.+--+-- /See:/ 'deleteReusableDelegationSet' smart constructor.+newtype DeleteReusableDelegationSet = DeleteReusableDelegationSet'     { _drdsId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteReusableDelegationSet' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteReusableDelegationSet' with the minimum fields required to make a request. ----- * 'drdsId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteReusableDelegationSet :: Text -- ^ 'drdsId'-                            -> DeleteReusableDelegationSet-deleteReusableDelegationSet p1 = DeleteReusableDelegationSet-    { _drdsId = p1+-- * 'drdsId'+deleteReusableDelegationSet+    :: Text -- ^ 'drdsId'+    -> DeleteReusableDelegationSet+deleteReusableDelegationSet pId_ =+    DeleteReusableDelegationSet'+    { _drdsId = pId_     }  -- | The ID of the reusable delegation set you want to delete. drdsId :: Lens' DeleteReusableDelegationSet Text-drdsId = lens _drdsId (\s a -> s { _drdsId = a })+drdsId = lens _drdsId (\ s a -> s{_drdsId = a}); -data DeleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteReusableDelegationSet where+        type Sv DeleteReusableDelegationSet = Route53+        type Rs DeleteReusableDelegationSet =+             DeleteReusableDelegationSetResponse+        request = delete+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteReusableDelegationSetResponse' <$>+                   (pure (fromEnum s))) --- | 'DeleteReusableDelegationSetResponse' constructor.-deleteReusableDelegationSetResponse :: DeleteReusableDelegationSetResponse-deleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse+instance ToHeaders DeleteReusableDelegationSet where+        toHeaders = const mempty  instance ToPath DeleteReusableDelegationSet where-    toPath DeleteReusableDelegationSet{..} = mconcat-        [ "/2013-04-01/delegationset/"-        , toText _drdsId-        ]+        toPath DeleteReusableDelegationSet'{..}+          = mconcat+              ["/2013-04-01/delegationset/", toBS _drdsId]  instance ToQuery DeleteReusableDelegationSet where-    toQuery = const mempty--instance ToHeaders DeleteReusableDelegationSet--instance ToXMLRoot DeleteReusableDelegationSet where-    toXMLRoot = const (namespaced ns "DeleteReusableDelegationSet" [])+        toQuery = const mempty -instance ToXML DeleteReusableDelegationSet+-- | Empty response for the request.+--+-- /See:/ 'deleteReusableDelegationSetResponse' smart constructor.+newtype DeleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse'+    { _drdsrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteReusableDelegationSet where-    type Sv DeleteReusableDelegationSet = Route53-    type Rs DeleteReusableDelegationSet = DeleteReusableDelegationSetResponse+-- | Creates a value of 'DeleteReusableDelegationSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drdsrsStatus'+deleteReusableDelegationSetResponse+    :: Int -- ^ 'drdsrsStatus'+    -> DeleteReusableDelegationSetResponse+deleteReusableDelegationSetResponse pStatus_ =+    DeleteReusableDelegationSetResponse'+    { _drdsrsStatus = pStatus_+    } -    request  = delete-    response = nullResponse DeleteReusableDelegationSetResponse+-- | The response status code.+drdsrsStatus :: Lens' DeleteReusableDelegationSetResponse Int+drdsrsStatus = lens _drdsrsStatus (\ s a -> s{_drdsrsStatus = a});

@@ -1,149 +1,170 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DisassociateVPCFromHostedZone--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action disassociates a VPC from an hosted zone.+-- This action disassociates a VPC from an hosted zone. ----- To disassociate a VPC to a hosted zone, send a 'POST' request to the '2013-04-01/hostedzone//hosted zone ID//disassociatevpc resource. The request body must include an XML--- document with a 'DisassociateVPCFromHostedZoneRequest' element. The response--- returns the 'DisassociateVPCFromHostedZoneResponse' element that contains 'ChangeInfo' for you to track the progress of the 'DisassociateVPCFromHostedZoneRequest'--- you made. See 'GetChange' operation for how to track the progress of your--- change.+-- To disassociate a VPC to a hosted zone, send a 'POST' request to the+-- '2013-04-01\/hostedzone\/hosted zone ID\/disassociatevpc' resource. The+-- request body must include an XML document with a+-- 'DisassociateVPCFromHostedZoneRequest' element. The response returns the+-- 'DisassociateVPCFromHostedZoneResponse' element that contains+-- 'ChangeInfo' for you to track the progress of the+-- 'DisassociateVPCFromHostedZoneRequest' you made. See 'GetChange'+-- operation for how to track the progress of your change. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DisassociateVPCFromHostedZone.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_DisassociateVPCFromHostedZone.html AWS API Reference> for DisassociateVPCFromHostedZone. module Network.AWS.Route53.DisassociateVPCFromHostedZone     (-    -- * Request-      DisassociateVPCFromHostedZone-    -- ** Request constructor-    , disassociateVPCFromHostedZone-    -- ** Request lenses-    , dvpcfhzComment-    , dvpcfhzHostedZoneId-    , dvpcfhzVPC+    -- * Creating a Request+      disassociateVPCFromHostedZone+    , DisassociateVPCFromHostedZone+    -- * Request Lenses+    , dvfhzComment+    , dvfhzHostedZoneId+    , dvfhzVPC -    -- * Response-    , DisassociateVPCFromHostedZoneResponse-    -- ** Response constructor+    -- * Destructuring the Response     , disassociateVPCFromHostedZoneResponse-    -- ** Response lenses-    , dvpcfhzrChangeInfo+    , DisassociateVPCFromHostedZoneResponse+    -- * Response Lenses+    , dvfhzrsStatus+    , dvfhzrsChangeInfo     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data DisassociateVPCFromHostedZone = DisassociateVPCFromHostedZone-    { _dvpcfhzComment      :: Maybe Text-    , _dvpcfhzHostedZoneId :: Text-    , _dvpcfhzVPC          :: VPC-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'DisassociateVPCFromHostedZone' constructor.+-- | A complex type that contains information about the request to+-- disassociate a VPC from an hosted zone. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'disassociateVPCFromHostedZone' smart constructor.+data DisassociateVPCFromHostedZone = DisassociateVPCFromHostedZone'+    { _dvfhzComment      :: !(Maybe Text)+    , _dvfhzHostedZoneId :: !Text+    , _dvfhzVPC          :: !VPC+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociateVPCFromHostedZone' with the minimum fields required to make a request. ----- * 'dvpcfhzComment' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dvpcfhzHostedZoneId' @::@ 'Text'+-- * 'dvfhzComment' ----- * 'dvpcfhzVPC' @::@ 'VPC'+-- * 'dvfhzHostedZoneId' ---disassociateVPCFromHostedZone :: Text -- ^ 'dvpcfhzHostedZoneId'-                              -> VPC -- ^ 'dvpcfhzVPC'-                              -> DisassociateVPCFromHostedZone-disassociateVPCFromHostedZone p1 p2 = DisassociateVPCFromHostedZone-    { _dvpcfhzHostedZoneId = p1-    , _dvpcfhzVPC          = p2-    , _dvpcfhzComment      = Nothing+-- * 'dvfhzVPC'+disassociateVPCFromHostedZone+    :: Text -- ^ 'dvfhzHostedZoneId'+    -> VPC -- ^ 'dvfhzVPC'+    -> DisassociateVPCFromHostedZone+disassociateVPCFromHostedZone pHostedZoneId_ pVPC_ =+    DisassociateVPCFromHostedZone'+    { _dvfhzComment = Nothing+    , _dvfhzHostedZoneId = pHostedZoneId_+    , _dvfhzVPC = pVPC_     } --- | /Optional:/ Any comments you want to include about a 'DisassociateVPCFromHostedZoneRequest'.-dvpcfhzComment :: Lens' DisassociateVPCFromHostedZone (Maybe Text)-dvpcfhzComment = lens _dvpcfhzComment (\s a -> s { _dvpcfhzComment = a })+-- | /Optional:/ Any comments you want to include about a+-- 'DisassociateVPCFromHostedZoneRequest'.+dvfhzComment :: Lens' DisassociateVPCFromHostedZone (Maybe Text)+dvfhzComment = lens _dvfhzComment (\ s a -> s{_dvfhzComment = a});  -- | The ID of the hosted zone you want to disassociate your VPC from. -- -- Note that you cannot disassociate the last VPC from a hosted zone.-dvpcfhzHostedZoneId :: Lens' DisassociateVPCFromHostedZone Text-dvpcfhzHostedZoneId =-    lens _dvpcfhzHostedZoneId (\s a -> s { _dvpcfhzHostedZoneId = a })+dvfhzHostedZoneId :: Lens' DisassociateVPCFromHostedZone Text+dvfhzHostedZoneId = lens _dvfhzHostedZoneId (\ s a -> s{_dvfhzHostedZoneId = a});  -- | The VPC that you want your hosted zone to be disassociated from.-dvpcfhzVPC :: Lens' DisassociateVPCFromHostedZone VPC-dvpcfhzVPC = lens _dvpcfhzVPC (\s a -> s { _dvpcfhzVPC = a })+dvfhzVPC :: Lens' DisassociateVPCFromHostedZone VPC+dvfhzVPC = lens _dvfhzVPC (\ s a -> s{_dvfhzVPC = a}); -newtype DisassociateVPCFromHostedZoneResponse = DisassociateVPCFromHostedZoneResponse-    { _dvpcfhzrChangeInfo :: ChangeInfo-    } deriving (Eq, Read, Show)+instance AWSRequest DisassociateVPCFromHostedZone+         where+        type Sv DisassociateVPCFromHostedZone = Route53+        type Rs DisassociateVPCFromHostedZone =+             DisassociateVPCFromHostedZoneResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 DisassociateVPCFromHostedZoneResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) --- | 'DisassociateVPCFromHostedZoneResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dvpcfhzrChangeInfo' @::@ 'ChangeInfo'----disassociateVPCFromHostedZoneResponse :: ChangeInfo -- ^ 'dvpcfhzrChangeInfo'-                                      -> DisassociateVPCFromHostedZoneResponse-disassociateVPCFromHostedZoneResponse p1 = DisassociateVPCFromHostedZoneResponse-    { _dvpcfhzrChangeInfo = p1-    }+instance ToElement DisassociateVPCFromHostedZone+         where+        toElement+          = mkElement+              "{https://route53.amazonaws.com/doc/2013-04-01/}DisassociateVPCFromHostedZoneRequest" --- | A complex type that contains the ID, the status, and the date and time of--- your 'DisassociateVPCFromHostedZoneRequest'.-dvpcfhzrChangeInfo :: Lens' DisassociateVPCFromHostedZoneResponse ChangeInfo-dvpcfhzrChangeInfo =-    lens _dvpcfhzrChangeInfo (\s a -> s { _dvpcfhzrChangeInfo = a })+instance ToHeaders DisassociateVPCFromHostedZone+         where+        toHeaders = const mempty  instance ToPath DisassociateVPCFromHostedZone where-    toPath DisassociateVPCFromHostedZone{..} = mconcat-        [ "/2013-04-01/hostedzone/"-        , toText _dvpcfhzHostedZoneId-        , "/disassociatevpc"-        ]+        toPath DisassociateVPCFromHostedZone'{..}+          = mconcat+              ["/2013-04-01/hostedzone/", toBS _dvfhzHostedZoneId,+               "/disassociatevpc"]  instance ToQuery DisassociateVPCFromHostedZone where-    toQuery = const mempty--instance ToHeaders DisassociateVPCFromHostedZone+        toQuery = const mempty -instance ToXMLRoot DisassociateVPCFromHostedZone where-    toXMLRoot DisassociateVPCFromHostedZone{..} = namespaced ns "DisassociateVPCFromHostedZone"-        [ "VPC"     =@ _dvpcfhzVPC-        , "Comment" =@ _dvpcfhzComment-        ]+instance ToXML DisassociateVPCFromHostedZone where+        toXML DisassociateVPCFromHostedZone'{..}+          = mconcat+              ["Comment" @= _dvfhzComment, "VPC" @= _dvfhzVPC] -instance ToXML DisassociateVPCFromHostedZone+-- | A complex type containing the response information for the request.+--+-- /See:/ 'disassociateVPCFromHostedZoneResponse' smart constructor.+data DisassociateVPCFromHostedZoneResponse = DisassociateVPCFromHostedZoneResponse'+    { _dvfhzrsStatus     :: !Int+    , _dvfhzrsChangeInfo :: !ChangeInfo+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DisassociateVPCFromHostedZone where-    type Sv DisassociateVPCFromHostedZone = Route53-    type Rs DisassociateVPCFromHostedZone = DisassociateVPCFromHostedZoneResponse+-- | Creates a value of 'DisassociateVPCFromHostedZoneResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvfhzrsStatus'+--+-- * 'dvfhzrsChangeInfo'+disassociateVPCFromHostedZoneResponse+    :: Int -- ^ 'dvfhzrsStatus'+    -> ChangeInfo -- ^ 'dvfhzrsChangeInfo'+    -> DisassociateVPCFromHostedZoneResponse+disassociateVPCFromHostedZoneResponse pStatus_ pChangeInfo_ =+    DisassociateVPCFromHostedZoneResponse'+    { _dvfhzrsStatus = pStatus_+    , _dvfhzrsChangeInfo = pChangeInfo_+    } -    request  = post-    response = xmlResponse+-- | The response status code.+dvfhzrsStatus :: Lens' DisassociateVPCFromHostedZoneResponse Int+dvfhzrsStatus = lens _dvfhzrsStatus (\ s a -> s{_dvfhzrsStatus = a}); -instance FromXML DisassociateVPCFromHostedZoneResponse where-    parseXML x = DisassociateVPCFromHostedZoneResponse-        <$> x .@  "ChangeInfo"+-- | A complex type that contains the ID, the status, and the date and time+-- of your 'DisassociateVPCFromHostedZoneRequest'.+dvfhzrsChangeInfo :: Lens' DisassociateVPCFromHostedZoneResponse ChangeInfo+dvfhzrsChangeInfo = lens _dvfhzrsChangeInfo (\ s a -> s{_dvfhzrsChangeInfo = a});

@@ -1,127 +1,133 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetChange--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action returns the current status of a change batch request. The status--- is one of the following values:+-- This action returns the current status of a change batch request. The+-- status is one of the following values: ----- - 'PENDING' indicates that the changes in this request have not replicated to--- all Route 53 DNS servers. This is the initial status of all change batch--- requests.+-- - 'PENDING' indicates that the changes in this request have not+-- replicated to all Route 53 DNS servers. This is the initial status of+-- all change batch requests. ----- - 'INSYNC' indicates that the changes have replicated to all Amazon Route 53--- DNS servers.+-- - 'INSYNC' indicates that the changes have replicated to all Amazon+-- Route 53 DNS servers. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetChange.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetChange.html AWS API Reference> for GetChange. module Network.AWS.Route53.GetChange     (-    -- * Request-      GetChange-    -- ** Request constructor-    , getChange-    -- ** Request lenses+    -- * Creating a Request+      getChange+    , GetChange+    -- * Request Lenses     , gcId -    -- * Response-    , GetChangeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getChangeResponse-    -- ** Response lenses-    , gcrChangeInfo+    , GetChangeResponse+    -- * Response Lenses+    , gcrsStatus+    , gcrsChangeInfo     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype GetChange = GetChange+-- | The input for a GetChange request.+--+-- /See:/ 'getChange' smart constructor.+newtype GetChange = GetChange'     { _gcId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetChange' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetChange' with the minimum fields required to make a request. ----- * 'gcId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getChange :: Text -- ^ 'gcId'-          -> GetChange-getChange p1 = GetChange-    { _gcId = p1+-- * 'gcId'+getChange+    :: Text -- ^ 'gcId'+    -> GetChange+getChange pId_ =+    GetChange'+    { _gcId = pId_     } --- | The ID of the change batch request. The value that you specify here is the--- value that 'ChangeResourceRecordSets' returned in the Id element when you--- submitted the request.+-- | The ID of the change batch request. The value that you specify here is+-- the value that 'ChangeResourceRecordSets' returned in the Id element+-- when you submitted the request. gcId :: Lens' GetChange Text-gcId = lens _gcId (\s a -> s { _gcId = a })--newtype GetChangeResponse = GetChangeResponse-    { _gcrChangeInfo :: ChangeInfo-    } deriving (Eq, Read, Show)+gcId = lens _gcId (\ s a -> s{_gcId = a}); --- | 'GetChangeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gcrChangeInfo' @::@ 'ChangeInfo'----getChangeResponse :: ChangeInfo -- ^ 'gcrChangeInfo'-                  -> GetChangeResponse-getChangeResponse p1 = GetChangeResponse-    { _gcrChangeInfo = p1-    }+instance AWSRequest GetChange where+        type Sv GetChange = Route53+        type Rs GetChange = GetChangeResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetChangeResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "ChangeInfo")) --- | A complex type that contains information about the specified change batch,--- including the change batch ID, the status of the change, and the date and--- time of the request.-gcrChangeInfo :: Lens' GetChangeResponse ChangeInfo-gcrChangeInfo = lens _gcrChangeInfo (\s a -> s { _gcrChangeInfo = a })+instance ToHeaders GetChange where+        toHeaders = const mempty  instance ToPath GetChange where-    toPath GetChange{..} = mconcat-        [ "/2013-04-01/change/"-        , toText _gcId-        ]+        toPath GetChange'{..}+          = mconcat ["/2013-04-01/change/", toBS _gcId]  instance ToQuery GetChange where-    toQuery = const mempty--instance ToHeaders GetChange--instance ToXMLRoot GetChange where-    toXMLRoot = const (namespaced ns "GetChange" [])+        toQuery = const mempty -instance ToXML GetChange+-- | A complex type that contains the 'ChangeInfo' element.+--+-- /See:/ 'getChangeResponse' smart constructor.+data GetChangeResponse = GetChangeResponse'+    { _gcrsStatus     :: !Int+    , _gcrsChangeInfo :: !ChangeInfo+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetChange where-    type Sv GetChange = Route53-    type Rs GetChange = GetChangeResponse+-- | Creates a value of 'GetChangeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcrsStatus'+--+-- * 'gcrsChangeInfo'+getChangeResponse+    :: Int -- ^ 'gcrsStatus'+    -> ChangeInfo -- ^ 'gcrsChangeInfo'+    -> GetChangeResponse+getChangeResponse pStatus_ pChangeInfo_ =+    GetChangeResponse'+    { _gcrsStatus = pStatus_+    , _gcrsChangeInfo = pChangeInfo_+    } -    request  = get-    response = xmlResponse+-- | The response status code.+gcrsStatus :: Lens' GetChangeResponse Int+gcrsStatus = lens _gcrsStatus (\ s a -> s{_gcrsStatus = a}); -instance FromXML GetChangeResponse where-    parseXML x = GetChangeResponse-        <$> x .@  "ChangeInfo"+-- | A complex type that contains information about the specified change+-- batch, including the change batch ID, the status of the change, and the+-- date and time of the request.+gcrsChangeInfo :: Lens' GetChangeResponse ChangeInfo+gcrsChangeInfo = lens _gcrsChangeInfo (\ s a -> s{_gcrsChangeInfo = a});

@@ -0,0 +1,114 @@+{-# 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.GetCheckerIPRanges+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- To retrieve a list of the IP ranges used by Amazon Route 53 health+-- checkers to check the health of your resources, send a 'GET' request to+-- the '2013-04-01\/checkeripranges' resource. You can use these IP+-- addresses to configure router and firewall rules to allow health+-- checkers to check the health of your resources.+--+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetCheckerIPRanges.html AWS API Reference> for GetCheckerIPRanges.+module Network.AWS.Route53.GetCheckerIPRanges+    (+    -- * Creating a Request+      getCheckerIPRanges+    , GetCheckerIPRanges++    -- * Destructuring the Response+    , getCheckerIPRangesResponse+    , GetCheckerIPRangesResponse+    -- * Response Lenses+    , gcirrsStatus+    , gcirrsCheckerIPRanges+    ) where++import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product++-- | Empty request.+--+-- /See:/ 'getCheckerIPRanges' smart constructor.+data GetCheckerIPRanges =+    GetCheckerIPRanges'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetCheckerIPRanges' with the minimum fields required to make a request.+--+getCheckerIPRanges+    :: GetCheckerIPRanges+getCheckerIPRanges = GetCheckerIPRanges'++instance AWSRequest GetCheckerIPRanges where+        type Sv GetCheckerIPRanges = Route53+        type Rs GetCheckerIPRanges =+             GetCheckerIPRangesResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetCheckerIPRangesResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "CheckerIpRanges" .!@ mempty >>=+                        parseXMLList "member"))++instance ToHeaders GetCheckerIPRanges where+        toHeaders = const mempty++instance ToPath GetCheckerIPRanges where+        toPath = const "/2013-04-01/checkeripranges"++instance ToQuery GetCheckerIPRanges where+        toQuery = const mempty++-- | A complex type that contains the 'CheckerIpRanges' element.+--+-- /See:/ 'getCheckerIPRangesResponse' smart constructor.+data GetCheckerIPRangesResponse = GetCheckerIPRangesResponse'+    { _gcirrsStatus          :: !Int+    , _gcirrsCheckerIPRanges :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetCheckerIPRangesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcirrsStatus'+--+-- * 'gcirrsCheckerIPRanges'+getCheckerIPRangesResponse+    :: Int -- ^ 'gcirrsStatus'+    -> GetCheckerIPRangesResponse+getCheckerIPRangesResponse pStatus_ =+    GetCheckerIPRangesResponse'+    { _gcirrsStatus = pStatus_+    , _gcirrsCheckerIPRanges = mempty+    }++-- | The response status code.+gcirrsStatus :: Lens' GetCheckerIPRangesResponse Int+gcirrsStatus = lens _gcirrsStatus (\ s a -> s{_gcirrsStatus = a});++-- | A complex type that contains sorted list of IP ranges in CIDR format for+-- Amazon Route 53 health checkers.+gcirrsCheckerIPRanges :: Lens' GetCheckerIPRangesResponse [Text]+gcirrsCheckerIPRanges = lens _gcirrsCheckerIPRanges (\ s a -> s{_gcirrsCheckerIPRanges = a}) . _Coerce;

@@ -1,107 +0,0 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Network.AWS.Route53.GetCheckerIpRanges--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve a list of the IP ranges used by Amazon Route 53 health checkers--- to check the health of your resources, send a 'GET' request to the '2013-04-01/checkeripranges' resource. You can use these IP addresses to configure router and firewall--- rules to allow health checkers to check the health of your resources.------ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetCheckerIpRanges.html>-module Network.AWS.Route53.GetCheckerIpRanges-    (-    -- * Request-      GetCheckerIpRanges-    -- ** Request constructor-    , getCheckerIpRanges--    -- * Response-    , GetCheckerIpRangesResponse-    -- ** Response constructor-    , getCheckerIpRangesResponse-    -- ** Response lenses-    , gcirrCheckerIpRanges-    ) where--import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data GetCheckerIpRanges = GetCheckerIpRanges-    deriving (Eq, Ord, Read, Show, Generic)---- | 'GetCheckerIpRanges' constructor.-getCheckerIpRanges :: GetCheckerIpRanges-getCheckerIpRanges = GetCheckerIpRanges--newtype GetCheckerIpRangesResponse = GetCheckerIpRangesResponse-    { _gcirrCheckerIpRanges :: List "CheckerIpRanges" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList GetCheckerIpRangesResponse where-    type Item GetCheckerIpRangesResponse = Text--    fromList = GetCheckerIpRangesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _gcirrCheckerIpRanges---- | 'GetCheckerIpRangesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gcirrCheckerIpRanges' @::@ ['Text']----getCheckerIpRangesResponse :: GetCheckerIpRangesResponse-getCheckerIpRangesResponse = GetCheckerIpRangesResponse-    { _gcirrCheckerIpRanges = mempty-    }---- | A complex type that contains sorted list of IP ranges in CIDR format for--- Amazon Route 53 health checkers.-gcirrCheckerIpRanges :: Lens' GetCheckerIpRangesResponse [Text]-gcirrCheckerIpRanges =-    lens _gcirrCheckerIpRanges (\s a -> s { _gcirrCheckerIpRanges = a })-        . _List--instance ToPath GetCheckerIpRanges where-    toPath = const "/2013-04-01/checkeripranges"--instance ToQuery GetCheckerIpRanges where-    toQuery = const mempty--instance ToHeaders GetCheckerIpRanges--instance ToXMLRoot GetCheckerIpRanges where-    toXMLRoot = const (namespaced ns "GetCheckerIpRanges" [])--instance ToXML GetCheckerIpRanges--instance AWSRequest GetCheckerIpRanges where-    type Sv GetCheckerIpRanges = Route53-    type Rs GetCheckerIpRanges = GetCheckerIpRangesResponse--    request  = get-    response = xmlResponse--instance FromXML GetCheckerIpRangesResponse where-    parseXML x = GetCheckerIpRangesResponse-        <$> x .@? "CheckerIpRanges" .!@ mempty

@@ -1,149 +1,160 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetGeoLocation--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve a single geo location, send a 'GET' request to the '2013-04-01/geolocation' resource with one of these options: continentcode | countrycode |--- countrycode and subdivisioncode.+-- To retrieve a single geo location, send a 'GET' request to the+-- '2013-04-01\/geolocation' resource with one of these options:+-- continentcode | countrycode | countrycode and subdivisioncode. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetGeoLocation.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetGeoLocation.html AWS API Reference> for GetGeoLocation. module Network.AWS.Route53.GetGeoLocation     (-    -- * Request-      GetGeoLocation-    -- ** Request constructor-    , getGeoLocation-    -- ** Request lenses-    , gglContinentCode-    , gglCountryCode+    -- * Creating a Request+      getGeoLocation+    , GetGeoLocation+    -- * Request Lenses     , gglSubdivisionCode+    , gglCountryCode+    , gglContinentCode -    -- * Response-    , GetGeoLocationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getGeoLocationResponse-    -- ** Response lenses-    , gglrGeoLocationDetails+    , GetGeoLocationResponse+    -- * Response Lenses+    , gglrsStatus+    , gglrsGeoLocationDetails     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data GetGeoLocation = GetGeoLocation-    { _gglContinentCode   :: Maybe Text-    , _gglCountryCode     :: Maybe Text-    , _gglSubdivisionCode :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'GetGeoLocation' constructor.+-- | A complex type that contains information about the request to get a geo+-- location. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getGeoLocation' smart constructor.+data GetGeoLocation = GetGeoLocation'+    { _gglSubdivisionCode :: !(Maybe Text)+    , _gglCountryCode     :: !(Maybe Text)+    , _gglContinentCode   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetGeoLocation' with the minimum fields required to make a request. ----- * 'gglContinentCode' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'gglCountryCode' @::@ 'Maybe' 'Text'+-- * 'gglSubdivisionCode' ----- * 'gglSubdivisionCode' @::@ 'Maybe' 'Text'+-- * 'gglCountryCode' ---getGeoLocation :: GetGeoLocation-getGeoLocation = GetGeoLocation-    { _gglContinentCode   = Nothing-    , _gglCountryCode     = Nothing-    , _gglSubdivisionCode = Nothing+-- * 'gglContinentCode'+getGeoLocation+    :: GetGeoLocation+getGeoLocation =+    GetGeoLocation'+    { _gglSubdivisionCode = Nothing+    , _gglCountryCode = Nothing+    , _gglContinentCode = Nothing     } --- | The code for a continent geo location. Note: only continent locations have a--- continent code.------ Valid values: 'AF' | 'AN' | 'AS' | 'EU' | 'OC' | 'NA' | 'SA'------ Constraint: Specifying 'ContinentCode' with either 'CountryCode' or 'SubdivisionCode' returns an 'InvalidInput' error.-gglContinentCode :: Lens' GetGeoLocation (Maybe Text)-gglContinentCode = lens _gglContinentCode (\s a -> s { _gglContinentCode = a })---- | The code for a country geo location. The default location uses '*' for the--- country code and will match all locations that are not matched by a geo--- location.------ The default geo location uses a '*' for the country code. All other country--- codes follow the ISO 3166 two-character code.-gglCountryCode :: Lens' GetGeoLocation (Maybe Text)-gglCountryCode = lens _gglCountryCode (\s a -> s { _gglCountryCode = a })---- | The code for a country's subdivision (e.g., a province of Canada). A+-- | The code for a country\'s subdivision (e.g., a province of Canada). A -- subdivision code is only valid with the appropriate country code. ----- Constraint: Specifying 'SubdivisionCode' without 'CountryCode' returns an 'InvalidInput' error.+-- Constraint: Specifying 'SubdivisionCode' without 'CountryCode' returns+-- an InvalidInput error. gglSubdivisionCode :: Lens' GetGeoLocation (Maybe Text)-gglSubdivisionCode =-    lens _gglSubdivisionCode (\s a -> s { _gglSubdivisionCode = a })--newtype GetGeoLocationResponse = GetGeoLocationResponse-    { _gglrGeoLocationDetails :: GeoLocationDetails-    } deriving (Eq, Read, Show)+gglSubdivisionCode = lens _gglSubdivisionCode (\ s a -> s{_gglSubdivisionCode = a}); --- | 'GetGeoLocationResponse' constructor.+-- | The code for a country geo location. The default location uses \'*\' for+-- the country code and will match all locations that are not matched by a+-- geo location. ----- The fields accessible through corresponding lenses are:+-- The default geo location uses a '*' for the country code. All other+-- country codes follow the ISO 3166 two-character code.+gglCountryCode :: Lens' GetGeoLocation (Maybe Text)+gglCountryCode = lens _gglCountryCode (\ s a -> s{_gglCountryCode = a});++-- | The code for a continent geo location. Note: only continent locations+-- have a continent code. ----- * 'gglrGeoLocationDetails' @::@ 'GeoLocationDetails'+-- Valid values: 'AF' | 'AN' | 'AS' | 'EU' | 'OC' | 'NA' | 'SA' ---getGeoLocationResponse :: GeoLocationDetails -- ^ 'gglrGeoLocationDetails'-                       -> GetGeoLocationResponse-getGeoLocationResponse p1 = GetGeoLocationResponse-    { _gglrGeoLocationDetails = p1-    }+-- Constraint: Specifying 'ContinentCode' with either 'CountryCode' or+-- 'SubdivisionCode' returns an InvalidInput error.+gglContinentCode :: Lens' GetGeoLocation (Maybe Text)+gglContinentCode = lens _gglContinentCode (\ s a -> s{_gglContinentCode = a}); --- | A complex type that contains the information about the specified geo location.-gglrGeoLocationDetails :: Lens' GetGeoLocationResponse GeoLocationDetails-gglrGeoLocationDetails =-    lens _gglrGeoLocationDetails (\s a -> s { _gglrGeoLocationDetails = a })+instance AWSRequest GetGeoLocation where+        type Sv GetGeoLocation = Route53+        type Rs GetGeoLocation = GetGeoLocationResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetGeoLocationResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "GeoLocationDetails")) +instance ToHeaders GetGeoLocation where+        toHeaders = const mempty+ instance ToPath GetGeoLocation where-    toPath = const "/2013-04-01/geolocation"+        toPath = const "/2013-04-01/geolocation"  instance ToQuery GetGeoLocation where-    toQuery GetGeoLocation{..} = mconcat-        [ "continentcode"   =? _gglContinentCode-        , "countrycode"     =? _gglCountryCode-        , "subdivisioncode" =? _gglSubdivisionCode-        ]--instance ToHeaders GetGeoLocation--instance ToXMLRoot GetGeoLocation where-    toXMLRoot = const (namespaced ns "GetGeoLocation" [])+        toQuery GetGeoLocation'{..}+          = mconcat+              ["subdivisioncode" =: _gglSubdivisionCode,+               "countrycode" =: _gglCountryCode,+               "continentcode" =: _gglContinentCode] -instance ToXML GetGeoLocation+-- | A complex type containing information about the specified geo location.+--+-- /See:/ 'getGeoLocationResponse' smart constructor.+data GetGeoLocationResponse = GetGeoLocationResponse'+    { _gglrsStatus             :: !Int+    , _gglrsGeoLocationDetails :: !GeoLocationDetails+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetGeoLocation where-    type Sv GetGeoLocation = Route53-    type Rs GetGeoLocation = GetGeoLocationResponse+-- | Creates a value of 'GetGeoLocationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gglrsStatus'+--+-- * 'gglrsGeoLocationDetails'+getGeoLocationResponse+    :: Int -- ^ 'gglrsStatus'+    -> GeoLocationDetails -- ^ 'gglrsGeoLocationDetails'+    -> GetGeoLocationResponse+getGeoLocationResponse pStatus_ pGeoLocationDetails_ =+    GetGeoLocationResponse'+    { _gglrsStatus = pStatus_+    , _gglrsGeoLocationDetails = pGeoLocationDetails_+    } -    request  = get-    response = xmlResponse+-- | The response status code.+gglrsStatus :: Lens' GetGeoLocationResponse Int+gglrsStatus = lens _gglrsStatus (\ s a -> s{_gglrsStatus = a}); -instance FromXML GetGeoLocationResponse where-    parseXML x = GetGeoLocationResponse-        <$> x .@  "GeoLocationDetails"+-- | A complex type that contains the information about the specified geo+-- location.+gglrsGeoLocationDetails :: Lens' GetGeoLocationResponse GeoLocationDetails+gglrsGeoLocationDetails = lens _gglrsGeoLocationDetails (\ s a -> s{_gglrsGeoLocationDetails = a});

@@ -1,115 +1,125 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetHealthCheck--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve the health check, send a 'GET' request to the '2013-04-01/healthcheck//health check ID/ resource.+-- To retrieve the health check, send a 'GET' request to the+-- '2013-04-01\/healthcheck\/health check ID' resource. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheck.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheck.html AWS API Reference> for GetHealthCheck. module Network.AWS.Route53.GetHealthCheck     (-    -- * Request-      GetHealthCheck-    -- ** Request constructor-    , getHealthCheck-    -- ** Request lenses+    -- * Creating a Request+      getHealthCheck+    , GetHealthCheck+    -- * Request Lenses     , ghcHealthCheckId -    -- * Response-    , GetHealthCheckResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getHealthCheckResponse-    -- ** Response lenses-    , ghcrHealthCheck+    , GetHealthCheckResponse+    -- * Response Lenses+    , ghcrsStatus+    , ghcrsHealthCheck     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype GetHealthCheck = GetHealthCheck+-- | A complex type that contains information about the request to get a+-- health check.+--+-- /See:/ 'getHealthCheck' smart constructor.+newtype GetHealthCheck = GetHealthCheck'     { _ghcHealthCheckId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetHealthCheck' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetHealthCheck' with the minimum fields required to make a request. ----- * 'ghcHealthCheckId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getHealthCheck :: Text -- ^ 'ghcHealthCheckId'-               -> GetHealthCheck-getHealthCheck p1 = GetHealthCheck-    { _ghcHealthCheckId = p1+-- * 'ghcHealthCheckId'+getHealthCheck+    :: Text -- ^ 'ghcHealthCheckId'+    -> GetHealthCheck+getHealthCheck pHealthCheckId_ =+    GetHealthCheck'+    { _ghcHealthCheckId = pHealthCheckId_     }  -- | The ID of the health check to retrieve. ghcHealthCheckId :: Lens' GetHealthCheck Text-ghcHealthCheckId = lens _ghcHealthCheckId (\s a -> s { _ghcHealthCheckId = a })--newtype GetHealthCheckResponse = GetHealthCheckResponse-    { _ghcrHealthCheck :: HealthCheck-    } deriving (Eq, Read, Show)+ghcHealthCheckId = lens _ghcHealthCheckId (\ s a -> s{_ghcHealthCheckId = a}); --- | 'GetHealthCheckResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ghcrHealthCheck' @::@ 'HealthCheck'----getHealthCheckResponse :: HealthCheck -- ^ 'ghcrHealthCheck'-                       -> GetHealthCheckResponse-getHealthCheckResponse p1 = GetHealthCheckResponse-    { _ghcrHealthCheck = p1-    }+instance AWSRequest GetHealthCheck where+        type Sv GetHealthCheck = Route53+        type Rs GetHealthCheck = GetHealthCheckResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetHealthCheckResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "HealthCheck")) --- | A complex type that contains the information about the specified health check.-ghcrHealthCheck :: Lens' GetHealthCheckResponse HealthCheck-ghcrHealthCheck = lens _ghcrHealthCheck (\s a -> s { _ghcrHealthCheck = a })+instance ToHeaders GetHealthCheck where+        toHeaders = const mempty  instance ToPath GetHealthCheck where-    toPath GetHealthCheck{..} = mconcat-        [ "/2013-04-01/healthcheck/"-        , toText _ghcHealthCheckId-        ]+        toPath GetHealthCheck'{..}+          = mconcat+              ["/2013-04-01/healthcheck/", toBS _ghcHealthCheckId]  instance ToQuery GetHealthCheck where-    toQuery = const mempty--instance ToHeaders GetHealthCheck--instance ToXMLRoot GetHealthCheck where-    toXMLRoot = const (namespaced ns "GetHealthCheck" [])+        toQuery = const mempty -instance ToXML GetHealthCheck+-- | A complex type containing information about the specified health check.+--+-- /See:/ 'getHealthCheckResponse' smart constructor.+data GetHealthCheckResponse = GetHealthCheckResponse'+    { _ghcrsStatus      :: !Int+    , _ghcrsHealthCheck :: !HealthCheck+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetHealthCheck where-    type Sv GetHealthCheck = Route53-    type Rs GetHealthCheck = GetHealthCheckResponse+-- | Creates a value of 'GetHealthCheckResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghcrsStatus'+--+-- * 'ghcrsHealthCheck'+getHealthCheckResponse+    :: Int -- ^ 'ghcrsStatus'+    -> HealthCheck -- ^ 'ghcrsHealthCheck'+    -> GetHealthCheckResponse+getHealthCheckResponse pStatus_ pHealthCheck_ =+    GetHealthCheckResponse'+    { _ghcrsStatus = pStatus_+    , _ghcrsHealthCheck = pHealthCheck_+    } -    request  = get-    response = xmlResponse+-- | The response status code.+ghcrsStatus :: Lens' GetHealthCheckResponse Int+ghcrsStatus = lens _ghcrsStatus (\ s a -> s{_ghcrsStatus = a}); -instance FromXML GetHealthCheckResponse where-    parseXML x = GetHealthCheckResponse-        <$> x .@  "HealthCheck"+-- | A complex type that contains the information about the specified health+-- check.+ghcrsHealthCheck :: Lens' GetHealthCheckResponse HealthCheck+ghcrsHealthCheck = lens _ghcrsHealthCheck (\ s a -> s{_ghcrsHealthCheck = a});

@@ -1,98 +1,111 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetHealthCheckCount--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve a count of all your health checks, send a 'GET' request to the '2013-04-01/healthcheckcount' resource.+-- To retrieve a count of all your health checks, send a 'GET' request to+-- the '2013-04-01\/healthcheckcount' resource. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheckCount.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheckCount.html AWS API Reference> for GetHealthCheckCount. module Network.AWS.Route53.GetHealthCheckCount     (-    -- * Request-      GetHealthCheckCount-    -- ** Request constructor-    , getHealthCheckCount+    -- * Creating a Request+      getHealthCheckCount+    , GetHealthCheckCount -    -- * Response-    , GetHealthCheckCountResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getHealthCheckCountResponse-    -- ** Response lenses-    , ghccrHealthCheckCount+    , GetHealthCheckCountResponse+    -- * Response Lenses+    , ghccrsStatus+    , ghccrsHealthCheckCount     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data GetHealthCheckCount = GetHealthCheckCount-    deriving (Eq, Ord, Read, Show, Generic)---- | 'GetHealthCheckCount' constructor.-getHealthCheckCount :: GetHealthCheckCount-getHealthCheckCount = GetHealthCheckCount--newtype GetHealthCheckCountResponse = GetHealthCheckCountResponse-    { _ghccrHealthCheckCount :: Integer-    } deriving (Eq, Ord, Read, Show, Enum, Num, Integral, Real)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'GetHealthCheckCountResponse' constructor.------ The fields accessible through corresponding lenses are:+-- | To retrieve a count of all your health checks, send a 'GET' request to+-- the '2013-04-01\/healthcheckcount' resource. ----- * 'ghccrHealthCheckCount' @::@ 'Integer'+-- /See:/ 'getHealthCheckCount' smart constructor.+data GetHealthCheckCount =+    GetHealthCheckCount'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetHealthCheckCount' with the minimum fields required to make a request. ---getHealthCheckCountResponse :: Integer -- ^ 'ghccrHealthCheckCount'-                            -> GetHealthCheckCountResponse-getHealthCheckCountResponse p1 = GetHealthCheckCountResponse-    { _ghccrHealthCheckCount = p1-    }+getHealthCheckCount+    :: GetHealthCheckCount+getHealthCheckCount = GetHealthCheckCount' --- | The number of health checks associated with the current AWS account.-ghccrHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer-ghccrHealthCheckCount =-    lens _ghccrHealthCheckCount (\s a -> s { _ghccrHealthCheckCount = a })+instance AWSRequest GetHealthCheckCount where+        type Sv GetHealthCheckCount = Route53+        type Rs GetHealthCheckCount =+             GetHealthCheckCountResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetHealthCheckCountResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "HealthCheckCount")) +instance ToHeaders GetHealthCheckCount where+        toHeaders = const mempty+ instance ToPath GetHealthCheckCount where-    toPath = const "/2013-04-01/healthcheckcount"+        toPath = const "/2013-04-01/healthcheckcount"  instance ToQuery GetHealthCheckCount where-    toQuery = const mempty--instance ToHeaders GetHealthCheckCount--instance ToXMLRoot GetHealthCheckCount where-    toXMLRoot = const (namespaced ns "GetHealthCheckCount" [])+        toQuery = const mempty -instance ToXML GetHealthCheckCount+-- | A complex type that contains the count of health checks associated with+-- the current AWS account.+--+-- /See:/ 'getHealthCheckCountResponse' smart constructor.+data GetHealthCheckCountResponse = GetHealthCheckCountResponse'+    { _ghccrsStatus           :: !Int+    , _ghccrsHealthCheckCount :: !Integer+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetHealthCheckCount where-    type Sv GetHealthCheckCount = Route53-    type Rs GetHealthCheckCount = GetHealthCheckCountResponse+-- | Creates a value of 'GetHealthCheckCountResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghccrsStatus'+--+-- * 'ghccrsHealthCheckCount'+getHealthCheckCountResponse+    :: Int -- ^ 'ghccrsStatus'+    -> Integer -- ^ 'ghccrsHealthCheckCount'+    -> GetHealthCheckCountResponse+getHealthCheckCountResponse pStatus_ pHealthCheckCount_ =+    GetHealthCheckCountResponse'+    { _ghccrsStatus = pStatus_+    , _ghccrsHealthCheckCount = pHealthCheckCount_+    } -    request  = get-    response = xmlResponse+-- | The response status code.+ghccrsStatus :: Lens' GetHealthCheckCountResponse Int+ghccrsStatus = lens _ghccrsStatus (\ s a -> s{_ghccrsStatus = a}); -instance FromXML GetHealthCheckCountResponse where-    parseXML x = GetHealthCheckCountResponse-        <$> x .@  "HealthCheckCount"+-- | The number of health checks associated with the current AWS account.+ghccrsHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer+ghccrsHealthCheckCount = lens _ghccrsHealthCheckCount (\ s a -> s{_ghccrsHealthCheckCount = a});

@@ -1,130 +1,135 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetHealthCheckLastFailureReason--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | If you want to learn why a health check is currently failing or why it failed--- most recently (if at all), you can get the failure reason for the most recent--- failure. Send a 'GET' request to the '2013-04-01/healthcheck//health check ID//lastfailurereason--- resource.+-- If you want to learn why a health check is currently failing or why it+-- failed most recently (if at all), you can get the failure reason for the+-- most recent failure. Send a 'GET' request to the+-- '2013-04-01\/healthcheck\/health check ID\/lastfailurereason' resource. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheckLastFailureReason.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheckLastFailureReason.html AWS API Reference> for GetHealthCheckLastFailureReason. module Network.AWS.Route53.GetHealthCheckLastFailureReason     (-    -- * Request-      GetHealthCheckLastFailureReason-    -- ** Request constructor-    , getHealthCheckLastFailureReason-    -- ** Request lenses+    -- * Creating a Request+      getHealthCheckLastFailureReason+    , GetHealthCheckLastFailureReason+    -- * Request Lenses     , ghclfrHealthCheckId -    -- * Response-    , GetHealthCheckLastFailureReasonResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getHealthCheckLastFailureReasonResponse-    -- ** Response lenses-    , ghclfrrHealthCheckObservations+    , GetHealthCheckLastFailureReasonResponse+    -- * Response Lenses+    , ghclfrrsStatus+    , ghclfrrsHealthCheckObservations     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype GetHealthCheckLastFailureReason = GetHealthCheckLastFailureReason+-- | A complex type that contains information about the request to get the+-- most recent failure reason for a health check.+--+-- /See:/ 'getHealthCheckLastFailureReason' smart constructor.+newtype GetHealthCheckLastFailureReason = GetHealthCheckLastFailureReason'     { _ghclfrHealthCheckId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetHealthCheckLastFailureReason' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetHealthCheckLastFailureReason' with the minimum fields required to make a request. ----- * 'ghclfrHealthCheckId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getHealthCheckLastFailureReason :: Text -- ^ 'ghclfrHealthCheckId'-                                -> GetHealthCheckLastFailureReason-getHealthCheckLastFailureReason p1 = GetHealthCheckLastFailureReason-    { _ghclfrHealthCheckId = p1+-- * 'ghclfrHealthCheckId'+getHealthCheckLastFailureReason+    :: Text -- ^ 'ghclfrHealthCheckId'+    -> GetHealthCheckLastFailureReason+getHealthCheckLastFailureReason pHealthCheckId_ =+    GetHealthCheckLastFailureReason'+    { _ghclfrHealthCheckId = pHealthCheckId_     } --- | The ID of the health check for which you want to retrieve the reason for the--- most recent failure.+-- | The ID of the health check for which you want to retrieve the reason for+-- the most recent failure. ghclfrHealthCheckId :: Lens' GetHealthCheckLastFailureReason Text-ghclfrHealthCheckId =-    lens _ghclfrHealthCheckId (\s a -> s { _ghclfrHealthCheckId = a })+ghclfrHealthCheckId = lens _ghclfrHealthCheckId (\ s a -> s{_ghclfrHealthCheckId = a}); -newtype GetHealthCheckLastFailureReasonResponse = GetHealthCheckLastFailureReasonResponse-    { _ghclfrrHealthCheckObservations :: List "HealthCheckObservation" HealthCheckObservation-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance AWSRequest GetHealthCheckLastFailureReason+         where+        type Sv GetHealthCheckLastFailureReason = Route53+        type Rs GetHealthCheckLastFailureReason =+             GetHealthCheckLastFailureReasonResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetHealthCheckLastFailureReasonResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "HealthCheckObservations" .!@ mempty >>=+                        parseXMLList "HealthCheckObservation")) -instance GHC.Exts.IsList GetHealthCheckLastFailureReasonResponse where-    type Item GetHealthCheckLastFailureReasonResponse = HealthCheckObservation+instance ToHeaders GetHealthCheckLastFailureReason+         where+        toHeaders = const mempty -    fromList = GetHealthCheckLastFailureReasonResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _ghclfrrHealthCheckObservations+instance ToPath GetHealthCheckLastFailureReason where+        toPath GetHealthCheckLastFailureReason'{..}+          = mconcat+              ["/2013-04-01/healthcheck/",+               toBS _ghclfrHealthCheckId, "/lastfailurereason"] --- | 'GetHealthCheckLastFailureReasonResponse' constructor.+instance ToQuery GetHealthCheckLastFailureReason+         where+        toQuery = const mempty++-- | A complex type that contains information about the most recent failure+-- for the specified health check. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getHealthCheckLastFailureReasonResponse' smart constructor.+data GetHealthCheckLastFailureReasonResponse = GetHealthCheckLastFailureReasonResponse'+    { _ghclfrrsStatus                  :: !Int+    , _ghclfrrsHealthCheckObservations :: ![HealthCheckObservation]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetHealthCheckLastFailureReasonResponse' with the minimum fields required to make a request. ----- * 'ghclfrrHealthCheckObservations' @::@ ['HealthCheckObservation']+-- Use one of the following lenses to modify other fields as desired: ---getHealthCheckLastFailureReasonResponse :: GetHealthCheckLastFailureReasonResponse-getHealthCheckLastFailureReasonResponse = GetHealthCheckLastFailureReasonResponse-    { _ghclfrrHealthCheckObservations = mempty+-- * 'ghclfrrsStatus'+--+-- * 'ghclfrrsHealthCheckObservations'+getHealthCheckLastFailureReasonResponse+    :: Int -- ^ 'ghclfrrsStatus'+    -> GetHealthCheckLastFailureReasonResponse+getHealthCheckLastFailureReasonResponse pStatus_ =+    GetHealthCheckLastFailureReasonResponse'+    { _ghclfrrsStatus = pStatus_+    , _ghclfrrsHealthCheckObservations = mempty     } --- | A list that contains one 'HealthCheckObservation' element for each Route 53--- health checker.-ghclfrrHealthCheckObservations :: Lens' GetHealthCheckLastFailureReasonResponse [HealthCheckObservation]-ghclfrrHealthCheckObservations =-    lens _ghclfrrHealthCheckObservations-        (\s a -> s { _ghclfrrHealthCheckObservations = a })-            . _List--instance ToPath GetHealthCheckLastFailureReason where-    toPath GetHealthCheckLastFailureReason{..} = mconcat-        [ "/2013-04-01/healthcheck/"-        , toText _ghclfrHealthCheckId-        , "/lastfailurereason"-        ]--instance ToQuery GetHealthCheckLastFailureReason where-    toQuery = const mempty--instance ToHeaders GetHealthCheckLastFailureReason--instance ToXMLRoot GetHealthCheckLastFailureReason where-    toXMLRoot = const (namespaced ns "GetHealthCheckLastFailureReason" [])--instance ToXML GetHealthCheckLastFailureReason--instance AWSRequest GetHealthCheckLastFailureReason where-    type Sv GetHealthCheckLastFailureReason = Route53-    type Rs GetHealthCheckLastFailureReason = GetHealthCheckLastFailureReasonResponse--    request  = get-    response = xmlResponse+-- | The response status code.+ghclfrrsStatus :: Lens' GetHealthCheckLastFailureReasonResponse Int+ghclfrrsStatus = lens _ghclfrrsStatus (\ s a -> s{_ghclfrrsStatus = a}); -instance FromXML GetHealthCheckLastFailureReasonResponse where-    parseXML x = GetHealthCheckLastFailureReasonResponse-        <$> x .@? "HealthCheckObservations" .!@ mempty+-- | A list that contains one 'HealthCheckObservation' element for each Route+-- 53 health checker.+ghclfrrsHealthCheckObservations :: Lens' GetHealthCheckLastFailureReasonResponse [HealthCheckObservation]+ghclfrrsHealthCheckObservations = lens _ghclfrrsHealthCheckObservations (\ s a -> s{_ghclfrrsHealthCheckObservations = a}) . _Coerce;

@@ -1,128 +1,131 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetHealthCheckStatus--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve the health check status, send a 'GET' request to the '2013-04-01/healthcheck//health check ID//status resource. You can use this call to get a health--- check's current status.+-- To retrieve the health check status, send a 'GET' request to the+-- '2013-04-01\/healthcheck\/health check ID\/status' resource. You can use+-- this call to get a health check\'s current status. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheckStatus.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHealthCheckStatus.html AWS API Reference> for GetHealthCheckStatus. module Network.AWS.Route53.GetHealthCheckStatus     (-    -- * Request-      GetHealthCheckStatus-    -- ** Request constructor-    , getHealthCheckStatus-    -- ** Request lenses+    -- * Creating a Request+      getHealthCheckStatus+    , GetHealthCheckStatus+    -- * Request Lenses     , ghcsHealthCheckId -    -- * Response-    , GetHealthCheckStatusResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getHealthCheckStatusResponse-    -- ** Response lenses-    , ghcsrHealthCheckObservations+    , GetHealthCheckStatusResponse+    -- * Response Lenses+    , ghcsrsStatus+    , ghcsrsHealthCheckObservations     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype GetHealthCheckStatus = GetHealthCheckStatus+-- | A complex type that contains information about the request to get health+-- check status for a health check.+--+-- /See:/ 'getHealthCheckStatus' smart constructor.+newtype GetHealthCheckStatus = GetHealthCheckStatus'     { _ghcsHealthCheckId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetHealthCheckStatus' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetHealthCheckStatus' with the minimum fields required to make a request. ----- * 'ghcsHealthCheckId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getHealthCheckStatus :: Text -- ^ 'ghcsHealthCheckId'-                     -> GetHealthCheckStatus-getHealthCheckStatus p1 = GetHealthCheckStatus-    { _ghcsHealthCheckId = p1+-- * 'ghcsHealthCheckId'+getHealthCheckStatus+    :: Text -- ^ 'ghcsHealthCheckId'+    -> GetHealthCheckStatus+getHealthCheckStatus pHealthCheckId_ =+    GetHealthCheckStatus'+    { _ghcsHealthCheckId = pHealthCheckId_     } --- | The ID of the health check for which you want to retrieve the most recent--- status.+-- | The ID of the health check for which you want to retrieve the most+-- recent status. ghcsHealthCheckId :: Lens' GetHealthCheckStatus Text-ghcsHealthCheckId =-    lens _ghcsHealthCheckId (\s a -> s { _ghcsHealthCheckId = a })--newtype GetHealthCheckStatusResponse = GetHealthCheckStatusResponse-    { _ghcsrHealthCheckObservations :: List "HealthCheckObservation" HealthCheckObservation-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList GetHealthCheckStatusResponse where-    type Item GetHealthCheckStatusResponse = HealthCheckObservation--    fromList = GetHealthCheckStatusResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _ghcsrHealthCheckObservations+ghcsHealthCheckId = lens _ghcsHealthCheckId (\ s a -> s{_ghcsHealthCheckId = a}); --- | 'GetHealthCheckStatusResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ghcsrHealthCheckObservations' @::@ ['HealthCheckObservation']----getHealthCheckStatusResponse :: GetHealthCheckStatusResponse-getHealthCheckStatusResponse = GetHealthCheckStatusResponse-    { _ghcsrHealthCheckObservations = mempty-    }+instance AWSRequest GetHealthCheckStatus where+        type Sv GetHealthCheckStatus = Route53+        type Rs GetHealthCheckStatus =+             GetHealthCheckStatusResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetHealthCheckStatusResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "HealthCheckObservations" .!@ mempty >>=+                        parseXMLList "HealthCheckObservation")) --- | A list that contains one 'HealthCheckObservation' element for each Route 53--- health checker.-ghcsrHealthCheckObservations :: Lens' GetHealthCheckStatusResponse [HealthCheckObservation]-ghcsrHealthCheckObservations =-    lens _ghcsrHealthCheckObservations-        (\s a -> s { _ghcsrHealthCheckObservations = a })-            . _List+instance ToHeaders GetHealthCheckStatus where+        toHeaders = const mempty  instance ToPath GetHealthCheckStatus where-    toPath GetHealthCheckStatus{..} = mconcat-        [ "/2013-04-01/healthcheck/"-        , toText _ghcsHealthCheckId-        , "/status"-        ]+        toPath GetHealthCheckStatus'{..}+          = mconcat+              ["/2013-04-01/healthcheck/", toBS _ghcsHealthCheckId,+               "/status"]  instance ToQuery GetHealthCheckStatus where-    toQuery = const mempty--instance ToHeaders GetHealthCheckStatus--instance ToXMLRoot GetHealthCheckStatus where-    toXMLRoot = const (namespaced ns "GetHealthCheckStatus" [])+        toQuery = const mempty -instance ToXML GetHealthCheckStatus+-- | A complex type that contains information about the status of the+-- specified health check.+--+-- /See:/ 'getHealthCheckStatusResponse' smart constructor.+data GetHealthCheckStatusResponse = GetHealthCheckStatusResponse'+    { _ghcsrsStatus                  :: !Int+    , _ghcsrsHealthCheckObservations :: ![HealthCheckObservation]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetHealthCheckStatus where-    type Sv GetHealthCheckStatus = Route53-    type Rs GetHealthCheckStatus = GetHealthCheckStatusResponse+-- | Creates a value of 'GetHealthCheckStatusResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghcsrsStatus'+--+-- * 'ghcsrsHealthCheckObservations'+getHealthCheckStatusResponse+    :: Int -- ^ 'ghcsrsStatus'+    -> GetHealthCheckStatusResponse+getHealthCheckStatusResponse pStatus_ =+    GetHealthCheckStatusResponse'+    { _ghcsrsStatus = pStatus_+    , _ghcsrsHealthCheckObservations = mempty+    } -    request  = get-    response = xmlResponse+-- | The response status code.+ghcsrsStatus :: Lens' GetHealthCheckStatusResponse Int+ghcsrsStatus = lens _ghcsrsStatus (\ s a -> s{_ghcsrsStatus = a}); -instance FromXML GetHealthCheckStatusResponse where-    parseXML x = GetHealthCheckStatusResponse-        <$> x .@? "HealthCheckObservations" .!@ mempty+-- | A list that contains one 'HealthCheckObservation' element for each Route+-- 53 health checker.+ghcsrsHealthCheckObservations :: Lens' GetHealthCheckStatusResponse [HealthCheckObservation]+ghcsrsHealthCheckObservations = lens _ghcsrsHealthCheckObservations (\ s a -> s{_ghcsrsHealthCheckObservations = a}) . _Coerce;

@@ -1,141 +1,150 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetHostedZone--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve the delegation set for a hosted zone, send a 'GET' request to the '2013-04-01/hostedzone//hosted zone ID/ resource. The delegation set is the four Route 53 name servers--- that were assigned to the hosted zone when you created it.+-- To retrieve the delegation set for a hosted zone, send a 'GET' request+-- to the '2013-04-01\/hostedzone\/hosted zone ID' resource. The delegation+-- set is the four Route 53 name servers that were assigned to the hosted+-- zone when you created it. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHostedZone.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHostedZone.html AWS API Reference> for GetHostedZone. module Network.AWS.Route53.GetHostedZone     (-    -- * Request-      GetHostedZone-    -- ** Request constructor-    , getHostedZone-    -- ** Request lenses+    -- * Creating a Request+      getHostedZone+    , GetHostedZone+    -- * Request Lenses     , ghzId -    -- * Response-    , GetHostedZoneResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getHostedZoneResponse-    -- ** Response lenses-    , ghzrDelegationSet-    , ghzrHostedZone-    , ghzrVPCs+    , GetHostedZoneResponse+    -- * Response Lenses+    , ghzrsVPCs+    , ghzrsDelegationSet+    , ghzrsStatus+    , ghzrsHostedZone     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype GetHostedZone = GetHostedZone+-- | The input for a GetHostedZone request.+--+-- /See:/ 'getHostedZone' smart constructor.+newtype GetHostedZone = GetHostedZone'     { _ghzId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetHostedZone' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetHostedZone' with the minimum fields required to make a request. ----- * 'ghzId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getHostedZone :: Text -- ^ 'ghzId'-              -> GetHostedZone-getHostedZone p1 = GetHostedZone-    { _ghzId = p1+-- * 'ghzId'+getHostedZone+    :: Text -- ^ 'ghzId'+    -> GetHostedZone+getHostedZone pId_ =+    GetHostedZone'+    { _ghzId = pId_     }  -- | The ID of the hosted zone for which you want to get a list of the name -- servers in the delegation set. ghzId :: Lens' GetHostedZone Text-ghzId = lens _ghzId (\s a -> s { _ghzId = a })+ghzId = lens _ghzId (\ s a -> s{_ghzId = a}); -data GetHostedZoneResponse = GetHostedZoneResponse-    { _ghzrDelegationSet :: Maybe DelegationSet-    , _ghzrHostedZone    :: HostedZone-    , _ghzrVPCs          :: List1 "VPC" VPC-    } deriving (Eq, Read, Show)+instance AWSRequest GetHostedZone where+        type Sv GetHostedZone = Route53+        type Rs GetHostedZone = GetHostedZoneResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetHostedZoneResponse' <$>+                   (x .@? "VPCs" .!@ mempty >>=+                      may (parseXMLList1 "VPC"))+                     <*> (x .@? "DelegationSet")+                     <*> (pure (fromEnum s))+                     <*> (x .@ "HostedZone")) --- | 'GetHostedZoneResponse' constructor.+instance ToHeaders GetHostedZone where+        toHeaders = const mempty++instance ToPath GetHostedZone where+        toPath GetHostedZone'{..}+          = mconcat ["/2013-04-01/hostedzone/", toBS _ghzId]++instance ToQuery GetHostedZone where+        toQuery = const mempty++-- | A complex type containing information about the specified hosted zone. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getHostedZoneResponse' smart constructor.+data GetHostedZoneResponse = GetHostedZoneResponse'+    { _ghzrsVPCs          :: !(Maybe (List1 VPC))+    , _ghzrsDelegationSet :: !(Maybe DelegationSet)+    , _ghzrsStatus        :: !Int+    , _ghzrsHostedZone    :: !HostedZone+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetHostedZoneResponse' with the minimum fields required to make a request. ----- * 'ghzrDelegationSet' @::@ 'Maybe' 'DelegationSet'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ghzrHostedZone' @::@ 'HostedZone'+-- * 'ghzrsVPCs' ----- * 'ghzrVPCs' @::@ 'NonEmpty' 'VPC'+-- * 'ghzrsDelegationSet' ---getHostedZoneResponse :: HostedZone -- ^ 'ghzrHostedZone'-                      -> NonEmpty VPC -- ^ 'ghzrVPCs'-                      -> GetHostedZoneResponse-getHostedZoneResponse p1 p2 = GetHostedZoneResponse-    { _ghzrHostedZone    = p1-    , _ghzrVPCs          = withIso _List1 (const id) p2-    , _ghzrDelegationSet = Nothing+-- * 'ghzrsStatus'+--+-- * 'ghzrsHostedZone'+getHostedZoneResponse+    :: Int -- ^ 'ghzrsStatus'+    -> HostedZone -- ^ 'ghzrsHostedZone'+    -> GetHostedZoneResponse+getHostedZoneResponse pStatus_ pHostedZone_ =+    GetHostedZoneResponse'+    { _ghzrsVPCs = Nothing+    , _ghzrsDelegationSet = Nothing+    , _ghzrsStatus = pStatus_+    , _ghzrsHostedZone = pHostedZone_     } --- | A complex type that contains information about the name servers for the--- specified hosted zone.-ghzrDelegationSet :: Lens' GetHostedZoneResponse (Maybe DelegationSet)-ghzrDelegationSet =-    lens _ghzrDelegationSet (\s a -> s { _ghzrDelegationSet = a })---- | A complex type that contains the information about the specified hosted zone.-ghzrHostedZone :: Lens' GetHostedZoneResponse HostedZone-ghzrHostedZone = lens _ghzrHostedZone (\s a -> s { _ghzrHostedZone = a })- -- | A complex type that contains information about VPCs associated with the -- specified hosted zone.-ghzrVPCs :: Lens' GetHostedZoneResponse (NonEmpty VPC)-ghzrVPCs = lens _ghzrVPCs (\s a -> s { _ghzrVPCs = a }) . _List1--instance ToPath GetHostedZone where-    toPath GetHostedZone{..} = mconcat-        [ "/2013-04-01/hostedzone/"-        , toText _ghzId-        ]--instance ToQuery GetHostedZone where-    toQuery = const mempty--instance ToHeaders GetHostedZone--instance ToXMLRoot GetHostedZone where-    toXMLRoot = const (namespaced ns "GetHostedZone" [])--instance ToXML GetHostedZone+ghzrsVPCs :: Lens' GetHostedZoneResponse (Maybe (NonEmpty VPC))+ghzrsVPCs = lens _ghzrsVPCs (\ s a -> s{_ghzrsVPCs = a}) . mapping _List1; -instance AWSRequest GetHostedZone where-    type Sv GetHostedZone = Route53-    type Rs GetHostedZone = GetHostedZoneResponse+-- | A complex type that contains information about the name servers for the+-- specified hosted zone.+ghzrsDelegationSet :: Lens' GetHostedZoneResponse (Maybe DelegationSet)+ghzrsDelegationSet = lens _ghzrsDelegationSet (\ s a -> s{_ghzrsDelegationSet = a}); -    request  = get-    response = xmlResponse+-- | The response status code.+ghzrsStatus :: Lens' GetHostedZoneResponse Int+ghzrsStatus = lens _ghzrsStatus (\ s a -> s{_ghzrsStatus = a}); -instance FromXML GetHostedZoneResponse where-    parseXML x = GetHostedZoneResponse-        <$> x .@? "DelegationSet"-        <*> x .@  "HostedZone"-        <*> x .@  "VPCs"+-- | A complex type that contains the information about the specified hosted+-- zone.+ghzrsHostedZone :: Lens' GetHostedZoneResponse HostedZone+ghzrsHostedZone = lens _ghzrsHostedZone (\ s a -> s{_ghzrsHostedZone = a});

@@ -1,98 +1,111 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetHostedZoneCount--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve a count of all your hosted zones, send a 'GET' request to the '2013-04-01/hostedzonecount' resource.+-- To retrieve a count of all your hosted zones, send a 'GET' request to+-- the '2013-04-01\/hostedzonecount' resource. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHostedZoneCount.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetHostedZoneCount.html AWS API Reference> for GetHostedZoneCount. module Network.AWS.Route53.GetHostedZoneCount     (-    -- * Request-      GetHostedZoneCount-    -- ** Request constructor-    , getHostedZoneCount+    -- * Creating a Request+      getHostedZoneCount+    , GetHostedZoneCount -    -- * Response-    , GetHostedZoneCountResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getHostedZoneCountResponse-    -- ** Response lenses-    , ghzcrHostedZoneCount+    , GetHostedZoneCountResponse+    -- * Response Lenses+    , ghzcrsStatus+    , ghzcrsHostedZoneCount     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data GetHostedZoneCount = GetHostedZoneCount-    deriving (Eq, Ord, Read, Show, Generic)---- | 'GetHostedZoneCount' constructor.-getHostedZoneCount :: GetHostedZoneCount-getHostedZoneCount = GetHostedZoneCount--newtype GetHostedZoneCountResponse = GetHostedZoneCountResponse-    { _ghzcrHostedZoneCount :: Integer-    } deriving (Eq, Ord, Read, Show, Enum, Num, Integral, Real)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'GetHostedZoneCountResponse' constructor.------ The fields accessible through corresponding lenses are:+-- | To retrieve a count of all your hosted zones, send a 'GET' request to+-- the '2013-04-01\/hostedzonecount' resource. ----- * 'ghzcrHostedZoneCount' @::@ 'Integer'+-- /See:/ 'getHostedZoneCount' smart constructor.+data GetHostedZoneCount =+    GetHostedZoneCount'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetHostedZoneCount' with the minimum fields required to make a request. ---getHostedZoneCountResponse :: Integer -- ^ 'ghzcrHostedZoneCount'-                           -> GetHostedZoneCountResponse-getHostedZoneCountResponse p1 = GetHostedZoneCountResponse-    { _ghzcrHostedZoneCount = p1-    }+getHostedZoneCount+    :: GetHostedZoneCount+getHostedZoneCount = GetHostedZoneCount' --- | The number of hosted zones associated with the current AWS account.-ghzcrHostedZoneCount :: Lens' GetHostedZoneCountResponse Integer-ghzcrHostedZoneCount =-    lens _ghzcrHostedZoneCount (\s a -> s { _ghzcrHostedZoneCount = a })+instance AWSRequest GetHostedZoneCount where+        type Sv GetHostedZoneCount = Route53+        type Rs GetHostedZoneCount =+             GetHostedZoneCountResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetHostedZoneCountResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "HostedZoneCount")) +instance ToHeaders GetHostedZoneCount where+        toHeaders = const mempty+ instance ToPath GetHostedZoneCount where-    toPath = const "/2013-04-01/hostedzonecount"+        toPath = const "/2013-04-01/hostedzonecount"  instance ToQuery GetHostedZoneCount where-    toQuery = const mempty--instance ToHeaders GetHostedZoneCount--instance ToXMLRoot GetHostedZoneCount where-    toXMLRoot = const (namespaced ns "GetHostedZoneCount" [])+        toQuery = const mempty -instance ToXML GetHostedZoneCount+-- | A complex type that contains the count of hosted zones associated with+-- the current AWS account.+--+-- /See:/ 'getHostedZoneCountResponse' smart constructor.+data GetHostedZoneCountResponse = GetHostedZoneCountResponse'+    { _ghzcrsStatus          :: !Int+    , _ghzcrsHostedZoneCount :: !Integer+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetHostedZoneCount where-    type Sv GetHostedZoneCount = Route53-    type Rs GetHostedZoneCount = GetHostedZoneCountResponse+-- | Creates a value of 'GetHostedZoneCountResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghzcrsStatus'+--+-- * 'ghzcrsHostedZoneCount'+getHostedZoneCountResponse+    :: Int -- ^ 'ghzcrsStatus'+    -> Integer -- ^ 'ghzcrsHostedZoneCount'+    -> GetHostedZoneCountResponse+getHostedZoneCountResponse pStatus_ pHostedZoneCount_ =+    GetHostedZoneCountResponse'+    { _ghzcrsStatus = pStatus_+    , _ghzcrsHostedZoneCount = pHostedZoneCount_+    } -    request  = get-    response = xmlResponse+-- | The response status code.+ghzcrsStatus :: Lens' GetHostedZoneCountResponse Int+ghzcrsStatus = lens _ghzcrsStatus (\ s a -> s{_ghzcrsStatus = a}); -instance FromXML GetHostedZoneCountResponse where-    parseXML x = GetHostedZoneCountResponse-        <$> x .@  "HostedZoneCount"+-- | The number of hosted zones associated with the current AWS account.+ghzcrsHostedZoneCount :: Lens' GetHostedZoneCountResponse Integer+ghzcrsHostedZoneCount = lens _ghzcrsHostedZoneCount (\ s a -> s{_ghzcrsHostedZoneCount = a});

@@ -1,118 +1,127 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.GetReusableDelegationSet--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve the reusable delegation set, send a 'GET' request to the '2013-04-01/delegationset//delegation set ID/ resource.+-- To retrieve the reusable delegation set, send a 'GET' request to the+-- '2013-04-01\/delegationset\/delegation set ID' resource. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetReusableDelegationSet.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_GetReusableDelegationSet.html AWS API Reference> for GetReusableDelegationSet. module Network.AWS.Route53.GetReusableDelegationSet     (-    -- * Request-      GetReusableDelegationSet-    -- ** Request constructor-    , getReusableDelegationSet-    -- ** Request lenses+    -- * Creating a Request+      getReusableDelegationSet+    , GetReusableDelegationSet+    -- * Request Lenses     , grdsId -    -- * Response-    , GetReusableDelegationSetResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getReusableDelegationSetResponse-    -- ** Response lenses-    , grdsrDelegationSet+    , GetReusableDelegationSetResponse+    -- * Response Lenses+    , grdsrsStatus+    , grdsrsDelegationSet     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product -newtype GetReusableDelegationSet = GetReusableDelegationSet+-- | The input for a GetReusableDelegationSet request.+--+-- /See:/ 'getReusableDelegationSet' smart constructor.+newtype GetReusableDelegationSet = GetReusableDelegationSet'     { _grdsId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetReusableDelegationSet' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetReusableDelegationSet' with the minimum fields required to make a request. ----- * 'grdsId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getReusableDelegationSet :: Text -- ^ 'grdsId'-                         -> GetReusableDelegationSet-getReusableDelegationSet p1 = GetReusableDelegationSet-    { _grdsId = p1+-- * 'grdsId'+getReusableDelegationSet+    :: Text -- ^ 'grdsId'+    -> GetReusableDelegationSet+getReusableDelegationSet pId_ =+    GetReusableDelegationSet'+    { _grdsId = pId_     } --- | The ID of the reusable delegation set for which you want to get a list of the--- name server.+-- | The ID of the reusable delegation set for which you want to get a list+-- of the name server. grdsId :: Lens' GetReusableDelegationSet Text-grdsId = lens _grdsId (\s a -> s { _grdsId = a })--newtype GetReusableDelegationSetResponse = GetReusableDelegationSetResponse-    { _grdsrDelegationSet :: DelegationSet-    } deriving (Eq, Read, Show)+grdsId = lens _grdsId (\ s a -> s{_grdsId = a}); --- | 'GetReusableDelegationSetResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'grdsrDelegationSet' @::@ 'DelegationSet'----getReusableDelegationSetResponse :: DelegationSet -- ^ 'grdsrDelegationSet'-                                 -> GetReusableDelegationSetResponse-getReusableDelegationSetResponse p1 = GetReusableDelegationSetResponse-    { _grdsrDelegationSet = p1-    }+instance AWSRequest GetReusableDelegationSet where+        type Sv GetReusableDelegationSet = Route53+        type Rs GetReusableDelegationSet =+             GetReusableDelegationSetResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 GetReusableDelegationSetResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "DelegationSet")) --- | A complex type that contains the information about the nameservers for the--- specified delegation set ID.-grdsrDelegationSet :: Lens' GetReusableDelegationSetResponse DelegationSet-grdsrDelegationSet =-    lens _grdsrDelegationSet (\s a -> s { _grdsrDelegationSet = a })+instance ToHeaders GetReusableDelegationSet where+        toHeaders = const mempty  instance ToPath GetReusableDelegationSet where-    toPath GetReusableDelegationSet{..} = mconcat-        [ "/2013-04-01/delegationset/"-        , toText _grdsId-        ]+        toPath GetReusableDelegationSet'{..}+          = mconcat+              ["/2013-04-01/delegationset/", toBS _grdsId]  instance ToQuery GetReusableDelegationSet where-    toQuery = const mempty--instance ToHeaders GetReusableDelegationSet--instance ToXMLRoot GetReusableDelegationSet where-    toXMLRoot = const (namespaced ns "GetReusableDelegationSet" [])+        toQuery = const mempty -instance ToXML GetReusableDelegationSet+-- | A complex type containing information about the specified reusable+-- delegation set.+--+-- /See:/ 'getReusableDelegationSetResponse' smart constructor.+data GetReusableDelegationSetResponse = GetReusableDelegationSetResponse'+    { _grdsrsStatus        :: !Int+    , _grdsrsDelegationSet :: !DelegationSet+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetReusableDelegationSet where-    type Sv GetReusableDelegationSet = Route53-    type Rs GetReusableDelegationSet = GetReusableDelegationSetResponse+-- | Creates a value of 'GetReusableDelegationSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdsrsStatus'+--+-- * 'grdsrsDelegationSet'+getReusableDelegationSetResponse+    :: Int -- ^ 'grdsrsStatus'+    -> DelegationSet -- ^ 'grdsrsDelegationSet'+    -> GetReusableDelegationSetResponse+getReusableDelegationSetResponse pStatus_ pDelegationSet_ =+    GetReusableDelegationSetResponse'+    { _grdsrsStatus = pStatus_+    , _grdsrsDelegationSet = pDelegationSet_+    } -    request  = get-    response = xmlResponse+-- | The response status code.+grdsrsStatus :: Lens' GetReusableDelegationSetResponse Int+grdsrsStatus = lens _grdsrsStatus (\ s a -> s{_grdsrsStatus = a}); -instance FromXML GetReusableDelegationSetResponse where-    parseXML x = GetReusableDelegationSetResponse-        <$> x .@  "DelegationSet"+-- | A complex type that contains the information about the nameservers for+-- the specified delegation set ID.+grdsrsDelegationSet :: Lens' GetReusableDelegationSetResponse DelegationSet+grdsrsDelegationSet = lens _grdsrsDelegationSet (\ s a -> s{_grdsrsDelegationSet = a});

@@ -1,237 +1,253 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.ListGeoLocations--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve a list of supported geo locations, send a 'GET' request to the '2013-04-01/geolocations' resource. The response to this request includes a 'GeoLocationDetailsList'--- element with zero, one, or multiple 'GeoLocationDetails' child elements. The--- list is sorted by country code, and then subdivision code, followed by--- continents at the end of the list.+-- To retrieve a list of supported geo locations, send a 'GET' request to+-- the '2013-04-01\/geolocations' resource. The response to this request+-- includes a 'GeoLocationDetailsList' element with zero, one, or multiple+-- 'GeoLocationDetails' child elements. The list is sorted by country code,+-- and then subdivision code, followed by continents at the end of the+-- list. -- -- By default, the list of geo locations is displayed on a single page. You--- can control the length of the page that is displayed by using the 'MaxItems'--- parameter. If the list is truncated, 'IsTruncated' will be set to /true/ and a--- combination of 'NextContinentCode, NextCountryCode, NextSubdivisionCode' will--- be populated. You can pass these as parameters to 'StartContinentCode,StartCountryCode, StartSubdivisionCode' to control the geo location that the--- list begins with.+-- can control the length of the page that is displayed by using the+-- 'MaxItems' parameter. If the list is truncated, 'IsTruncated' will be+-- set to /true/ and a combination of+-- 'NextContinentCode, NextCountryCode, NextSubdivisionCode' will be+-- populated. You can pass these as parameters to+-- 'StartContinentCode, StartCountryCode, StartSubdivisionCode' to control+-- the geo location that the list begins with. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ListGeoLocations.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ListGeoLocations.html AWS API Reference> for ListGeoLocations. module Network.AWS.Route53.ListGeoLocations     (-    -- * Request-      ListGeoLocations-    -- ** Request constructor-    , listGeoLocations-    -- ** Request lenses+    -- * Creating a Request+      listGeoLocations+    , ListGeoLocations+    -- * Request Lenses+    , lglStartSubdivisionCode     , lglMaxItems-    , lglStartContinentCode     , lglStartCountryCode-    , lglStartSubdivisionCode+    , lglStartContinentCode -    -- * Response-    , ListGeoLocationsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listGeoLocationsResponse-    -- ** Response lenses-    , lglrGeoLocationDetailsList-    , lglrIsTruncated-    , lglrMaxItems-    , lglrNextContinentCode-    , lglrNextCountryCode-    , lglrNextSubdivisionCode+    , ListGeoLocationsResponse+    -- * Response Lenses+    , lglrsNextContinentCode+    , lglrsNextCountryCode+    , lglrsNextSubdivisionCode+    , lglrsStatus+    , lglrsGeoLocationDetailsList+    , lglrsIsTruncated+    , lglrsMaxItems     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data ListGeoLocations = ListGeoLocations-    { _lglMaxItems             :: Maybe Text-    , _lglStartContinentCode   :: Maybe Text-    , _lglStartCountryCode     :: Maybe Text-    , _lglStartSubdivisionCode :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'ListGeoLocations' constructor.+-- | The input for a ListGeoLocations request. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listGeoLocations' smart constructor.+data ListGeoLocations = ListGeoLocations'+    { _lglStartSubdivisionCode :: !(Maybe Text)+    , _lglMaxItems             :: !(Maybe Text)+    , _lglStartCountryCode     :: !(Maybe Text)+    , _lglStartContinentCode   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListGeoLocations' with the minimum fields required to make a request. ----- * 'lglMaxItems' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'lglStartContinentCode' @::@ 'Maybe' 'Text'+-- * 'lglStartSubdivisionCode' ----- * 'lglStartCountryCode' @::@ 'Maybe' 'Text'+-- * 'lglMaxItems' ----- * 'lglStartSubdivisionCode' @::@ 'Maybe' 'Text'+-- * 'lglStartCountryCode' ---listGeoLocations :: ListGeoLocations-listGeoLocations = ListGeoLocations-    { _lglStartContinentCode   = Nothing-    , _lglStartCountryCode     = Nothing-    , _lglStartSubdivisionCode = Nothing-    , _lglMaxItems             = Nothing+-- * 'lglStartContinentCode'+listGeoLocations+    :: ListGeoLocations+listGeoLocations =+    ListGeoLocations'+    { _lglStartSubdivisionCode = Nothing+    , _lglMaxItems = Nothing+    , _lglStartCountryCode = Nothing+    , _lglStartContinentCode = Nothing     } +-- | The first subdivision code in the lexicographic ordering of geo+-- locations that you want the 'ListGeoLocations' request to list.+--+-- Constraint: Specifying 'SubdivisionCode' without 'CountryCode' returns+-- an InvalidInput error.+lglStartSubdivisionCode :: Lens' ListGeoLocations (Maybe Text)+lglStartSubdivisionCode = lens _lglStartSubdivisionCode (\ s a -> s{_lglStartSubdivisionCode = a});+ -- | The maximum number of geo locations you want in the response body. lglMaxItems :: Lens' ListGeoLocations (Maybe Text)-lglMaxItems = lens _lglMaxItems (\s a -> s { _lglMaxItems = a })+lglMaxItems = lens _lglMaxItems (\ s a -> s{_lglMaxItems = a}); --- | The first continent code in the lexicographic ordering of geo locations that--- you want the 'ListGeoLocations' request to list. For non-continent geo--- locations, this should be null.+-- | The first country code in the lexicographic ordering of geo locations+-- that you want the 'ListGeoLocations' request to list. --+-- The default geo location uses a '*' for the country code. All other+-- country codes follow the ISO 3166 two-character code.+lglStartCountryCode :: Lens' ListGeoLocations (Maybe Text)+lglStartCountryCode = lens _lglStartCountryCode (\ s a -> s{_lglStartCountryCode = a});++-- | The first continent code in the lexicographic ordering of geo locations+-- that you want the 'ListGeoLocations' request to list. For non-continent+-- geo locations, this should be null.+-- -- Valid values: 'AF' | 'AN' | 'AS' | 'EU' | 'OC' | 'NA' | 'SA' ----- Constraint: Specifying 'ContinentCode' with either 'CountryCode' or 'SubdivisionCode' returns an 'InvalidInput' error.+-- Constraint: Specifying 'ContinentCode' with either 'CountryCode' or+-- 'SubdivisionCode' returns an InvalidInput error. lglStartContinentCode :: Lens' ListGeoLocations (Maybe Text)-lglStartContinentCode =-    lens _lglStartContinentCode (\s a -> s { _lglStartContinentCode = a })+lglStartContinentCode = lens _lglStartContinentCode (\ s a -> s{_lglStartContinentCode = a}); --- | The first country code in the lexicographic ordering of geo locations that--- you want the 'ListGeoLocations' request to list.------ The default geo location uses a '*' for the country code. All other country--- codes follow the ISO 3166 two-character code.-lglStartCountryCode :: Lens' ListGeoLocations (Maybe Text)-lglStartCountryCode =-    lens _lglStartCountryCode (\s a -> s { _lglStartCountryCode = a })+instance AWSRequest ListGeoLocations where+        type Sv ListGeoLocations = Route53+        type Rs ListGeoLocations = ListGeoLocationsResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 ListGeoLocationsResponse' <$>+                   (x .@? "NextContinentCode") <*>+                     (x .@? "NextCountryCode")+                     <*> (x .@? "NextSubdivisionCode")+                     <*> (pure (fromEnum s))+                     <*>+                     (x .@? "GeoLocationDetailsList" .!@ mempty >>=+                        parseXMLList "GeoLocationDetails")+                     <*> (x .@ "IsTruncated")+                     <*> (x .@ "MaxItems")) --- | The first subdivision code in the lexicographic ordering of geo locations--- that you want the 'ListGeoLocations' request to list.------ Constraint: Specifying 'SubdivisionCode' without 'CountryCode' returns an 'InvalidInput' error.-lglStartSubdivisionCode :: Lens' ListGeoLocations (Maybe Text)-lglStartSubdivisionCode =-    lens _lglStartSubdivisionCode (\s a -> s { _lglStartSubdivisionCode = a })+instance ToHeaders ListGeoLocations where+        toHeaders = const mempty -data ListGeoLocationsResponse = ListGeoLocationsResponse-    { _lglrGeoLocationDetailsList :: List "GeoLocationDetails" GeoLocationDetails-    , _lglrIsTruncated            :: Bool-    , _lglrMaxItems               :: Text-    , _lglrNextContinentCode      :: Maybe Text-    , _lglrNextCountryCode        :: Maybe Text-    , _lglrNextSubdivisionCode    :: Maybe Text-    } deriving (Eq, Read, Show)+instance ToPath ListGeoLocations where+        toPath = const "/2013-04-01/geolocations" --- | 'ListGeoLocationsResponse' constructor.+instance ToQuery ListGeoLocations where+        toQuery ListGeoLocations'{..}+          = mconcat+              ["startsubdivisioncode" =: _lglStartSubdivisionCode,+               "maxitems" =: _lglMaxItems,+               "startcountrycode" =: _lglStartCountryCode,+               "startcontinentcode" =: _lglStartContinentCode]++-- | A complex type that contains information about the geo locations that+-- are returned by the request and information about the response. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listGeoLocationsResponse' smart constructor.+data ListGeoLocationsResponse = ListGeoLocationsResponse'+    { _lglrsNextContinentCode      :: !(Maybe Text)+    , _lglrsNextCountryCode        :: !(Maybe Text)+    , _lglrsNextSubdivisionCode    :: !(Maybe Text)+    , _lglrsStatus                 :: !Int+    , _lglrsGeoLocationDetailsList :: ![GeoLocationDetails]+    , _lglrsIsTruncated            :: !Bool+    , _lglrsMaxItems               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListGeoLocationsResponse' with the minimum fields required to make a request. ----- * 'lglrGeoLocationDetailsList' @::@ ['GeoLocationDetails']+-- Use one of the following lenses to modify other fields as desired: ----- * 'lglrIsTruncated' @::@ 'Bool'+-- * 'lglrsNextContinentCode' ----- * 'lglrMaxItems' @::@ 'Text'+-- * 'lglrsNextCountryCode' ----- * 'lglrNextContinentCode' @::@ 'Maybe' 'Text'+-- * 'lglrsNextSubdivisionCode' ----- * 'lglrNextCountryCode' @::@ 'Maybe' 'Text'+-- * 'lglrsStatus' ----- * 'lglrNextSubdivisionCode' @::@ 'Maybe' 'Text'+-- * 'lglrsGeoLocationDetailsList' ---listGeoLocationsResponse :: Bool -- ^ 'lglrIsTruncated'-                         -> Text -- ^ 'lglrMaxItems'-                         -> ListGeoLocationsResponse-listGeoLocationsResponse p1 p2 = ListGeoLocationsResponse-    { _lglrIsTruncated            = p1-    , _lglrMaxItems               = p2-    , _lglrGeoLocationDetailsList = mempty-    , _lglrNextContinentCode      = Nothing-    , _lglrNextCountryCode        = Nothing-    , _lglrNextSubdivisionCode    = Nothing-    }---- | A complex type that contains information about the geo locations that are--- returned by the request.-lglrGeoLocationDetailsList :: Lens' ListGeoLocationsResponse [GeoLocationDetails]-lglrGeoLocationDetailsList =-    lens _lglrGeoLocationDetailsList-        (\s a -> s { _lglrGeoLocationDetailsList = a })-            . _List---- | A flag that indicates whether there are more geo locations to be listed. If--- your results were truncated, you can make a follow-up request for the next--- page of results by using the values included in the 'ListGeoLocationsResponse$NextContinentCode', 'ListGeoLocationsResponse$NextCountryCode' and 'ListGeoLocationsResponse$NextSubdivisionCode' elements.+-- * 'lglrsIsTruncated' ----- Valid Values: 'true' | 'false'-lglrIsTruncated :: Lens' ListGeoLocationsResponse Bool-lglrIsTruncated = lens _lglrIsTruncated (\s a -> s { _lglrIsTruncated = a })---- | The maximum number of records you requested. The maximum value of 'MaxItems' is--- 100.-lglrMaxItems :: Lens' ListGeoLocationsResponse Text-lglrMaxItems = lens _lglrMaxItems (\s a -> s { _lglrMaxItems = a })---- | If the results were truncated, the continent code of the next geo location in--- the list. This element is present only if 'ListGeoLocationsResponse$IsTruncated'--- is true and the next geo location to list is a continent location.-lglrNextContinentCode :: Lens' ListGeoLocationsResponse (Maybe Text)-lglrNextContinentCode =-    lens _lglrNextContinentCode (\s a -> s { _lglrNextContinentCode = a })---- | If the results were truncated, the country code of the next geo location in--- the list. This element is present only if 'ListGeoLocationsResponse$IsTruncated'--- is true and the next geo location to list is not a continent location.-lglrNextCountryCode :: Lens' ListGeoLocationsResponse (Maybe Text)-lglrNextCountryCode =-    lens _lglrNextCountryCode (\s a -> s { _lglrNextCountryCode = a })---- | If the results were truncated, the subdivision code of the next geo location--- in the list. This element is present only if 'ListGeoLocationsResponse$IsTruncated' is true and the next geo location has a subdivision.-lglrNextSubdivisionCode :: Lens' ListGeoLocationsResponse (Maybe Text)-lglrNextSubdivisionCode =-    lens _lglrNextSubdivisionCode (\s a -> s { _lglrNextSubdivisionCode = a })--instance ToPath ListGeoLocations where-    toPath = const "/2013-04-01/geolocations"+-- * 'lglrsMaxItems'+listGeoLocationsResponse+    :: Int -- ^ 'lglrsStatus'+    -> Bool -- ^ 'lglrsIsTruncated'+    -> Text -- ^ 'lglrsMaxItems'+    -> ListGeoLocationsResponse+listGeoLocationsResponse pStatus_ pIsTruncated_ pMaxItems_ =+    ListGeoLocationsResponse'+    { _lglrsNextContinentCode = Nothing+    , _lglrsNextCountryCode = Nothing+    , _lglrsNextSubdivisionCode = Nothing+    , _lglrsStatus = pStatus_+    , _lglrsGeoLocationDetailsList = mempty+    , _lglrsIsTruncated = pIsTruncated_+    , _lglrsMaxItems = pMaxItems_+    } -instance ToQuery ListGeoLocations where-    toQuery ListGeoLocations{..} = mconcat-        [ "maxitems"             =? _lglMaxItems-        , "startcontinentcode"   =? _lglStartContinentCode-        , "startcountrycode"     =? _lglStartCountryCode-        , "startsubdivisioncode" =? _lglStartSubdivisionCode-        ]+-- | If the results were truncated, the continent code of the next geo+-- location in the list. This element is present only if+-- ListGeoLocationsResponse$IsTruncated is true and the next geo location+-- to list is a continent location.+lglrsNextContinentCode :: Lens' ListGeoLocationsResponse (Maybe Text)+lglrsNextContinentCode = lens _lglrsNextContinentCode (\ s a -> s{_lglrsNextContinentCode = a}); -instance ToHeaders ListGeoLocations+-- | If the results were truncated, the country code of the next geo location+-- in the list. This element is present only if+-- ListGeoLocationsResponse$IsTruncated is true and the next geo location+-- to list is not a continent location.+lglrsNextCountryCode :: Lens' ListGeoLocationsResponse (Maybe Text)+lglrsNextCountryCode = lens _lglrsNextCountryCode (\ s a -> s{_lglrsNextCountryCode = a}); -instance ToXMLRoot ListGeoLocations where-    toXMLRoot = const (namespaced ns "ListGeoLocations" [])+-- | If the results were truncated, the subdivision code of the next geo+-- location in the list. This element is present only if+-- ListGeoLocationsResponse$IsTruncated is true and the next geo location+-- has a subdivision.+lglrsNextSubdivisionCode :: Lens' ListGeoLocationsResponse (Maybe Text)+lglrsNextSubdivisionCode = lens _lglrsNextSubdivisionCode (\ s a -> s{_lglrsNextSubdivisionCode = a}); -instance ToXML ListGeoLocations+-- | The response status code.+lglrsStatus :: Lens' ListGeoLocationsResponse Int+lglrsStatus = lens _lglrsStatus (\ s a -> s{_lglrsStatus = a}); -instance AWSRequest ListGeoLocations where-    type Sv ListGeoLocations = Route53-    type Rs ListGeoLocations = ListGeoLocationsResponse+-- | A complex type that contains information about the geo locations that+-- are returned by the request.+lglrsGeoLocationDetailsList :: Lens' ListGeoLocationsResponse [GeoLocationDetails]+lglrsGeoLocationDetailsList = lens _lglrsGeoLocationDetailsList (\ s a -> s{_lglrsGeoLocationDetailsList = a}) . _Coerce; -    request  = get-    response = xmlResponse+-- | A flag that indicates whether there are more geo locations to be listed.+-- If your results were truncated, you can make a follow-up request for the+-- next page of results by using the values included in the+-- ListGeoLocationsResponse$NextContinentCode,+-- ListGeoLocationsResponse$NextCountryCode and+-- ListGeoLocationsResponse$NextSubdivisionCode elements.+--+-- Valid Values: 'true' | 'false'+lglrsIsTruncated :: Lens' ListGeoLocationsResponse Bool+lglrsIsTruncated = lens _lglrsIsTruncated (\ s a -> s{_lglrsIsTruncated = a}); -instance FromXML ListGeoLocationsResponse where-    parseXML x = ListGeoLocationsResponse-        <$> x .@? "GeoLocationDetailsList" .!@ mempty-        <*> x .@  "IsTruncated"-        <*> x .@  "MaxItems"-        <*> x .@? "NextContinentCode"-        <*> x .@? "NextCountryCode"-        <*> x .@? "NextSubdivisionCode"+-- | The maximum number of records you requested. The maximum value of+-- 'MaxItems' is 100.+lglrsMaxItems :: Lens' ListGeoLocationsResponse Text+lglrsMaxItems = lens _lglrsMaxItems (\ s a -> s{_lglrsMaxItems = a});

@@ -1,189 +1,219 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.ListHealthChecks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | To retrieve a list of your health checks, send a 'GET' request to the '2013-04-01/healthcheck' resource. The response to this request includes a 'HealthChecks' element with--- zero, one, or multiple 'HealthCheck' child elements. By default, the list of--- health checks is displayed on a single page. You can control the length of--- the page that is displayed by using the 'MaxItems' parameter. You can use the 'Marker' parameter to control the health check that the list begins with.+-- To retrieve a list of your health checks, send a 'GET' request to the+-- '2013-04-01\/healthcheck' resource. The response to this request+-- includes a 'HealthChecks' element with zero, one, or multiple+-- 'HealthCheck' child elements. By default, the list of health checks is+-- displayed on a single page. You can control the length of the page that+-- is displayed by using the 'MaxItems' parameter. You can use the 'Marker'+-- parameter to control the health check that the list begins with. -- -- 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. ----- <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ListHealthChecks.html>+-- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/API_ListHealthChecks.html AWS API Reference> for ListHealthChecks.+--+-- This operation returns paginated results. module Network.AWS.Route53.ListHealthChecks     (-    -- * Request-      ListHealthChecks-    -- ** Request constructor-    , listHealthChecks-    -- ** Request lenses-    , lhcMarker+    -- * Creating a Request+      listHealthChecks+    , ListHealthChecks+    -- * Request Lenses     , lhcMaxItems+    , lhcMarker -    -- * Response-    , ListHealthChecksResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listHealthChecksResponse-    -- ** Response lenses-    , lhcrHealthChecks-    , lhcrIsTruncated-    , lhcrMarker-    , lhcrMaxItems-    , lhcrNextMarker+    , ListHealthChecksResponse+    -- * Response Lenses+    , lhcrsNextMarker+    , lhcrsStatus+    , lhcrsHealthChecks+    , lhcrsMarker+    , lhcrsIsTruncated+    , lhcrsMaxItems     ) where -import Network.AWS.Prelude-import Network.AWS.Request.RestXML-import Network.AWS.Route53.Types-import qualified GHC.Exts--data ListHealthChecks = ListHealthChecks-    { _lhcMarker   :: Maybe Text-    , _lhcMaxItems :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53.Types+import           Network.AWS.Route53.Types.Product --- | 'ListHealthChecks' constructor.+-- | To retrieve a list of your health checks, send a 'GET' request to the+-- '2013-04-01\/healthcheck' resource. The response to this request+-- includes a 'HealthChecks' element with zero or more 'HealthCheck' child+-- elements. By default, the list of health checks is displayed on a single+-- page. You can control the length of the page that is displayed by using+-- the 'MaxItems' parameter. You can use the 'Marker' parameter to control+-- the health check that the list begins with. ----- The fields accessible through corresponding lenses are:+-- Route 53 returns a maximum of 100 items. If you set 'MaxItems' to a+-- value greater than 100, Route 53 returns only the first 100. ----- * 'lhcMarker' @::@ 'Maybe' 'Text'+-- /See:/ 'listHealthChecks' smart constructor.+data ListHealthChecks = ListHealthChecks'+    { _lhcMaxItems :: !(Maybe Text)+    , _lhcMarker   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListHealthChecks' with the minimum fields required to make a request. ----- * 'lhcMaxItems' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ---listHealthChecks :: ListHealthChecks-listHealthChecks = ListHealthChecks-    { _lhcMarker   = Nothing-    , _lhcMaxItems = Nothing+-- * 'lhcMaxItems'+--+-- * 'lhcMarker'+listHealthChecks+    :: ListHealthChecks+listHealthChecks =+    ListHealthChecks'+    { _lhcMaxItems = Nothing+    , _lhcMarker = Nothing     } --- | If the request returned more than one page of results, submit another request--- and specify the value of 'NextMarker' from the last response in the 'marker'--- parameter to get the next page of results.+-- | Specify the maximum number of health checks to return per page of+-- results.+lhcMaxItems :: Lens' ListHealthChecks (Maybe Text)+lhcMaxItems = lens _lhcMaxItems (\ s a -> s{_lhcMaxItems = a});++-- | If the request returned more than one page of results, submit another+-- request and specify the value of 'NextMarker' from the last response in+-- the 'marker' parameter to get the next page of results. lhcMarker :: Lens' ListHealthChecks (Maybe Text)-lhcMarker = lens _lhcMarker (\s a -> s { _lhcMarker = a })+lhcMarker = lens _lhcMarker (\ s a -> s{_lhcMarker = a}); --- | Specify the maximum number of health checks to return per page of results.-lhcMaxItems :: Lens' ListHealthChecks (Maybe Text)-lhcMaxItems = lens _lhcMaxItems (\s a -> s { _lhcMaxItems = a })+instance AWSPager ListHealthChecks where+        page rq rs+          | stop (rs ^. lhcrsIsTruncated) = Nothing+          | isNothing (rs ^. lhcrsNextMarker) = Nothing+          | otherwise =+            Just $ rq & lhcMarker .~ rs ^. lhcrsNextMarker -data ListHealthChecksResponse = ListHealthChecksResponse-    { _lhcrHealthChecks :: List "HealthCheck" HealthCheck-    , _lhcrIsTruncated  :: Bool-    , _lhcrMarker       :: Text-    , _lhcrMaxItems     :: Text-    , _lhcrNextMarker   :: Maybe Text-    } deriving (Eq, Read, Show)+instance AWSRequest ListHealthChecks where+        type Sv ListHealthChecks = Route53+        type Rs ListHealthChecks = ListHealthChecksResponse+        request = get+        response+          = receiveXML+              (\ s h x ->+                 ListHealthChecksResponse' <$>+                   (x .@? "NextMarker") <*> (pure (fromEnum s)) <*>+                     (x .@? "HealthChecks" .!@ mempty >>=+                        parseXMLList "HealthCheck")+                     <*> (x .@ "Marker")+                     <*> (x .@ "IsTruncated")+                     <*> (x .@ "MaxItems")) --- | 'ListHealthChecksResponse' constructor.+instance ToHeaders ListHealthChecks where+        toHeaders = const mempty++instance ToPath ListHealthChecks where+        toPath = const "/2013-04-01/healthcheck"++instance ToQuery ListHealthChecks where+        toQuery ListHealthChecks'{..}+          = mconcat+              ["maxitems" =: _lhcMaxItems, "marker" =: _lhcMarker]++-- | A complex type that contains the response for the request. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listHealthChecksResponse' smart constructor.+data ListHealthChecksResponse = ListHealthChecksResponse'+    { _lhcrsNextMarker   :: !(Maybe Text)+    , _lhcrsStatus       :: !Int+    , _lhcrsHealthChecks :: ![HealthCheck]+    , _lhcrsMarker       :: !Text+    , _lhcrsIsTruncated  :: !Bool+    , _lhcrsMaxItems     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListHealthChecksResponse' with the minimum fields required to make a request. ----- * 'lhcrHealthChecks' @::@ ['HealthCheck']+-- Use one of the following lenses to modify other fields as desired: ----- * 'lhcrIsTruncated' @::@ 'Bool'+-- * 'lhcrsNextMarker' ----- * 'lhcrMarker' @::@ 'Text'+-- * 'lhcrsStatus' ----- * 'lhcrMaxItems' @::@ 'Text'+-- * 'lhcrsHealthChecks' ----- * 'lhcrNextMarker' @::@ 'Maybe' 'Text'+-- * 'lhcrsMarker' ---listHealthChecksResponse :: Text -- ^ 'lhcrMarker'-                         -> Bool -- ^ 'lhcrIsTruncated'-                         -> Text -- ^ 'lhcrMaxItems'-                         -> ListHealthChecksResponse-listHealthChecksResponse p1 p2 p3 = ListHealthChecksResponse-    { _lhcrMarker       = p1-    , _lhcrIsTruncated  = p2-    , _lhcrMaxItems     = p3-    , _lhcrHealthChecks = mempty-    , _lhcrNextMarker   = Nothing-    }---- | A complex type that contains information about the health checks associated--- with the current AWS account.-lhcrHealthChecks :: Lens' ListHealthChecksResponse [HealthCheck]-lhcrHealthChecks = lens _lhcrHealthChecks (\s a -> s { _lhcrHealthChecks = a }) . _List---- | A flag indicating whether there are more health checks to be listed. If your--- results were truncated, you can make a follow-up request for the next page of--- results by using the 'Marker' element.+-- * 'lhcrsIsTruncated' ----- Valid Values: 'true' | 'false'-lhcrIsTruncated :: Lens' ListHealthChecksResponse Bool-lhcrIsTruncated = lens _lhcrIsTruncated (\s a -> s { _lhcrIsTruncated = a })---- | If the request returned more than one page of results, submit another request--- and specify the value of 'NextMarker' from the last response in the 'marker'--- parameter to get the next page of results.-lhcrMarker :: Lens' ListHealthChecksResponse Text-lhcrMarker = lens _lhcrMarker (\s a -> s { _lhcrMarker = a })---- | The maximum number of health checks to be included in the response body. If--- the number of health checks associated with this AWS account exceeds 'MaxItems', the value of--- 'ListHealthChecksResponse$IsTruncated' in the response is 'true'. Call 'ListHealthChecks' again and specify the value of 'ListHealthChecksResponse$NextMarker' in the 'ListHostedZonesRequest$Marker' element to get the next page of results.-lhcrMaxItems :: Lens' ListHealthChecksResponse Text-lhcrMaxItems = lens _lhcrMaxItems (\s a -> s { _lhcrMaxItems = a })---- | Indicates where to continue listing health checks. If 'ListHealthChecksResponse$IsTruncated' is 'true', make another request to 'ListHealthChecks' and include the value of--- the 'NextMarker' element in the 'Marker' element to get the next page of results.-lhcrNextMarker :: Lens' ListHealthChecksResponse (Maybe Text)-lhcrNextMarker = lens _lhcrNextMarker (\s a -> s { _lhcrNextMarker = a })--instance ToPath ListHealthChecks where-    toPath = const "/2013-04-01/healthcheck"--instance ToQuery ListHealthChecks where-    toQuery ListHealthChecks{..} = mconcat-        [ "marker"   =? _lhcMarker-        , "maxitems" =? _lhcMaxItems-        ]--instance ToHeaders ListHealthChecks+-- * 'lhcrsMaxItems'+listHealthChecksResponse+    :: Int -- ^ 'lhcrsStatus'+    -> Text -- ^ 'lhcrsMarker'+    -> Bool -- ^ 'lhcrsIsTruncated'+    -> Text -- ^ 'lhcrsMaxItems'+    -> ListHealthChecksResponse+listHealthChecksResponse pStatus_ pMarker_ pIsTruncated_ pMaxItems_ =+    ListHealthChecksResponse'+    { _lhcrsNextMarker = Nothing+    , _lhcrsStatus = pStatus_+    , _lhcrsHealthChecks = mempty+    , _lhcrsMarker = pMarker_+    , _lhcrsIsTruncated = pIsTruncated_+    , _lhcrsMaxItems = pMaxItems_+    } -instance ToXMLRoot ListHealthChecks where-    toXMLRoot = const (namespaced ns "ListHealthChecks" [])+-- | Indicates where to continue listing health checks. If+-- ListHealthChecksResponse$IsTruncated is 'true', make another request to+-- 'ListHealthChecks' and include the value of the 'NextMarker' element in+-- the 'Marker' element to get the next page of results.+lhcrsNextMarker :: Lens' ListHealthChecksResponse (Maybe Text)+lhcrsNextMarker = lens _lhcrsNextMarker (\ s a -> s{_lhcrsNextMarker = a}); -instance ToXML ListHealthChecks+-- | The response status code.+lhcrsStatus :: Lens' ListHealthChecksResponse Int+lhcrsStatus = lens _lhcrsStatus (\ s a -> s{_lhcrsStatus = a}); -instance AWSRequest ListHealthChecks where-    type Sv ListHealthChecks = Route53-    type Rs ListHealthChecks = ListHealthChecksResponse+-- | A complex type that contains information about the health checks+-- associated with the current AWS account.+lhcrsHealthChecks :: Lens' ListHealthChecksResponse [HealthCheck]+lhcrsHealthChecks = lens _lhcrsHealthChecks (\ s a -> s{_lhcrsHealthChecks = a}) . _Coerce; -    request  = get-    response = xmlResponse+-- | If the request returned more than one page of results, submit another+-- request and specify the value of 'NextMarker' from the last response in+-- the 'marker' parameter to get the next page of results.+lhcrsMarker :: Lens' ListHealthChecksResponse Text+lhcrsMarker = lens _lhcrsMarker (\ s a -> s{_lhcrsMarker = a}); -instance FromXML ListHealthChecksResponse where-    parseXML x = ListHealthChecksResponse-        <$> x .@? "HealthChecks" .!@ mempty-        <*> x .@  "IsTruncated"-        <*> x .@  "Marker"-        <*> x .@  "MaxItems"-        <*> x .@? "NextMarker"+-- | A flag indicating whether there are more health checks to be listed. If+-- your results were truncated, you can make a follow-up request for the+-- next page of results by using the 'Marker' element.+--+-- Valid Values: 'true' | 'false'+lhcrsIsTruncated :: Lens' ListHealthChecksResponse Bool+lhcrsIsTruncated = lens _lhcrsIsTruncated (\ s a -> s{_lhcrsIsTruncated = a}); -instance AWSPager ListHealthChecks where-    page rq rs-        | stop (rs ^. lhcrIsTruncated) = Nothing-        | otherwise = Just $ rq-            & lhcMarker .~ rs ^. lhcrNextMarker+-- | The maximum number of health checks to be included in the response body.+-- If the number of health checks associated with this AWS account exceeds+-- 'MaxItems', the value of ListHealthChecksResponse$IsTruncated in the+-- response is 'true'. Call 'ListHealthChecks' again and specify the value+-- of ListHealthChecksResponse$NextMarker in the+-- ListHostedZonesRequest$Marker element to get the next page of results.+lhcrsMaxItems :: Lens' ListHealthChecksResponse Text+lhcrsMaxItems = lens _lhcrsMaxItems (\ s a -> s{_lhcrsMaxItems = a});