amazonka-route53 1.2.0.2 → 1.3.0

raw patch · 36 files changed

+585/−583 lines, 36 filesdep ~amazonka-coredep ~amazonka-route53dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53.cabal +5/−5
• gen/Network/AWS/Route53.hs +39/−39
• gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +9/−9
• gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +9/−9
• gen/Network/AWS/Route53/ChangeTagsForResource.hs +8/−8
• gen/Network/AWS/Route53/CreateHealthCheck.hs +10/−10
• gen/Network/AWS/Route53/CreateHostedZone.hs +24/−23
• gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +10/−10
• gen/Network/AWS/Route53/DeleteHealthCheck.hs +8/−8
• gen/Network/AWS/Route53/DeleteHostedZone.hs +9/−9
• gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +8/−8
• gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +9/−9
• gen/Network/AWS/Route53/GetChange.hs +9/−9
• gen/Network/AWS/Route53/GetCheckerIPRanges.hs +8/−8
• gen/Network/AWS/Route53/GetGeoLocation.hs +8/−8
• gen/Network/AWS/Route53/GetHealthCheck.hs +9/−9
• gen/Network/AWS/Route53/GetHealthCheckCount.hs +8/−8
• gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +8/−8
• gen/Network/AWS/Route53/GetHealthCheckStatus.hs +8/−8
• gen/Network/AWS/Route53/GetHostedZone.hs +11/−11
• gen/Network/AWS/Route53/GetHostedZoneCount.hs +8/−8
• gen/Network/AWS/Route53/GetReusableDelegationSet.hs +9/−9
• gen/Network/AWS/Route53/ListGeoLocations.hs +8/−8
• gen/Network/AWS/Route53/ListHealthChecks.hs +28/−28
• gen/Network/AWS/Route53/ListHostedZones.hs +26/−26
• gen/Network/AWS/Route53/ListHostedZonesByName.hs +8/−8
• gen/Network/AWS/Route53/ListResourceRecordSets.hs +8/−8
• gen/Network/AWS/Route53/ListReusableDelegationSets.hs +22/−22
• gen/Network/AWS/Route53/ListTagsForResource.hs +8/−8
• gen/Network/AWS/Route53/ListTagsForResources.hs +8/−8
• gen/Network/AWS/Route53/Types.hs +43/−43
• gen/Network/AWS/Route53/Types/Product.hs +29/−28
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +24/−24
• gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +9/−9
• test/Test/AWS/Gen/Route53.hs +129/−129

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-route53-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Route 53 SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -85,7 +85,7 @@         , Network.AWS.Route53.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-route53-test@@ -105,9 +105,9 @@         , Test.AWS.Route53.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-route53 == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-route53 == 1.3.0.*         , base         , bytestring         , lens

@@ -48,14 +48,11 @@     -- ** InvalidChangeBatch     , _InvalidChangeBatch -    -- ** InvalidDomainName-    , _InvalidDomainName-     -- ** DelegationSetNotReusable     , _DelegationSetNotReusable -    -- ** HealthCheckAlreadyExists-    , _HealthCheckAlreadyExists+    -- ** InvalidDomainName+    , _InvalidDomainName      -- ** HostedZoneNotFound     , _HostedZoneNotFound@@ -66,6 +63,9 @@     -- ** NoSuchDelegationSet     , _NoSuchDelegationSet +    -- ** HealthCheckAlreadyExists+    , _HealthCheckAlreadyExists+     -- ** NoSuchGeoLocation     , _NoSuchGeoLocation @@ -87,39 +87,39 @@     -- ** IncompatibleVersion     , _IncompatibleVersion +    -- ** PublicZoneVPCAssociation+    , _PublicZoneVPCAssociation+     -- ** NoSuchHostedZone     , _NoSuchHostedZone      -- ** TooManyHostedZones     , _TooManyHostedZones -    -- ** PublicZoneVPCAssociation-    , _PublicZoneVPCAssociation+    -- ** HealthCheckInUse+    , _HealthCheckInUse +    -- ** DelegationSetAlreadyCreated+    , _DelegationSetAlreadyCreated+     -- ** ConflictingDomainExists     , _ConflictingDomainExists      -- ** LastVPCAssociation     , _LastVPCAssociation -    -- ** HealthCheckInUse-    , _HealthCheckInUse--    -- ** DelegationSetAlreadyCreated-    , _DelegationSetAlreadyCreated-     -- ** TooManyHealthChecks     , _TooManyHealthChecks      -- ** NoSuchHealthCheck     , _NoSuchHealthCheck -    -- ** HostedZoneAlreadyExists-    , _HostedZoneAlreadyExists-     -- ** InvalidVPCId     , _InvalidVPCId +    -- ** HostedZoneAlreadyExists+    , _HostedZoneAlreadyExists+     -- * Waiters     -- $waiters @@ -132,32 +132,29 @@     -- ** AssociateVPCWithHostedZone     , module Network.AWS.Route53.AssociateVPCWithHostedZone +    -- ** GetCheckerIPRanges+    , module Network.AWS.Route53.GetCheckerIPRanges+     -- ** GetHealthCheckLastFailureReason     , module Network.AWS.Route53.GetHealthCheckLastFailureReason -    -- ** ListHostedZonesByName-    , module Network.AWS.Route53.ListHostedZonesByName-     -- ** DeleteReusableDelegationSet     , module Network.AWS.Route53.DeleteReusableDelegationSet +    -- ** ListHostedZonesByName+    , module Network.AWS.Route53.ListHostedZonesByName+     -- ** ListReusableDelegationSets     , module Network.AWS.Route53.ListReusableDelegationSets -    -- ** GetCheckerIPRanges-    , module Network.AWS.Route53.GetCheckerIPRanges-     -- ** ListTagsForResource     , module Network.AWS.Route53.ListTagsForResource -    -- ** ChangeResourceRecordSets-    , module Network.AWS.Route53.ChangeResourceRecordSets-     -- ** GetChange     , module Network.AWS.Route53.GetChange -    -- ** CreateHostedZone-    , module Network.AWS.Route53.CreateHostedZone+    -- ** ChangeResourceRecordSets+    , module Network.AWS.Route53.ChangeResourceRecordSets      -- ** DeleteHealthCheck     , module Network.AWS.Route53.DeleteHealthCheck@@ -165,36 +162,39 @@     -- ** UpdateHealthCheck     , module Network.AWS.Route53.UpdateHealthCheck -    -- ** ChangeTagsForResource-    , module Network.AWS.Route53.ChangeTagsForResource+    -- ** CreateHostedZone+    , module Network.AWS.Route53.CreateHostedZone +    -- ** DisassociateVPCFromHostedZone+    , module Network.AWS.Route53.DisassociateVPCFromHostedZone+     -- ** CreateHealthCheck     , module Network.AWS.Route53.CreateHealthCheck +    -- ** ChangeTagsForResource+    , module Network.AWS.Route53.ChangeTagsForResource+     -- ** ListHostedZones (Paginated)     , module Network.AWS.Route53.ListHostedZones -    -- ** DisassociateVPCFromHostedZone-    , module Network.AWS.Route53.DisassociateVPCFromHostedZone+    -- ** ListGeoLocations+    , module Network.AWS.Route53.ListGeoLocations      -- ** 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-     -- ** CreateReusableDelegationSet     , module Network.AWS.Route53.CreateReusableDelegationSet +    -- ** GetHealthCheckCount+    , module Network.AWS.Route53.GetHealthCheckCount+     -- ** GetHostedZoneCount     , module Network.AWS.Route53.GetHostedZoneCount @@ -307,8 +307,8 @@     -- ** HealthCheckConfig     , HealthCheckConfig     , healthCheckConfig-    , hccIPAddress     , hccFailureThreshold+    , hccIPAddress     , hccSearchString     , hccResourcePath     , hccFullyQualifiedDomainName@@ -345,8 +345,8 @@     -- ** ResourceRecordSet     , ResourceRecordSet     , resourceRecordSet-    , rrsResourceRecords     , rrsTTL+    , rrsResourceRecords     , rrsAliasTarget     , rrsWeight     , rrsSetIdentifier

@@ -44,7 +44,7 @@     , associateVPCWithHostedZoneResponse     , AssociateVPCWithHostedZoneResponse     -- * Response Lenses-    , avwhzrsStatus+    , avwhzrsResponseStatus     , avwhzrsChangeInfo     ) where @@ -136,30 +136,30 @@ -- -- /See:/ 'associateVPCWithHostedZoneResponse' smart constructor. data AssociateVPCWithHostedZoneResponse = AssociateVPCWithHostedZoneResponse'-    { _avwhzrsStatus     :: !Int-    , _avwhzrsChangeInfo :: !ChangeInfo+    { _avwhzrsResponseStatus :: !Int+    , _avwhzrsChangeInfo     :: !ChangeInfo     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AssociateVPCWithHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'avwhzrsStatus'+-- * 'avwhzrsResponseStatus' -- -- * 'avwhzrsChangeInfo' associateVPCWithHostedZoneResponse-    :: Int -- ^ 'avwhzrsStatus'+    :: Int -- ^ 'avwhzrsResponseStatus'     -> ChangeInfo -- ^ 'avwhzrsChangeInfo'     -> AssociateVPCWithHostedZoneResponse-associateVPCWithHostedZoneResponse pStatus_ pChangeInfo_ =+associateVPCWithHostedZoneResponse pResponseStatus_ pChangeInfo_ =     AssociateVPCWithHostedZoneResponse'-    { _avwhzrsStatus = pStatus_+    { _avwhzrsResponseStatus = pResponseStatus_     , _avwhzrsChangeInfo = pChangeInfo_     }  -- | The response status code.-avwhzrsStatus :: Lens' AssociateVPCWithHostedZoneResponse Int-avwhzrsStatus = lens _avwhzrsStatus (\ s a -> s{_avwhzrsStatus = a});+avwhzrsResponseStatus :: Lens' AssociateVPCWithHostedZoneResponse Int+avwhzrsResponseStatus = lens _avwhzrsResponseStatus (\ s a -> s{_avwhzrsResponseStatus = a});  -- | A complex type that contains the ID, the status, and the date and time -- of your 'AssociateVPCWithHostedZoneRequest'.

@@ -64,7 +64,7 @@     , changeResourceRecordSetsResponse     , ChangeResourceRecordSetsResponse     -- * Response Lenses-    , crrsrsStatus+    , crrsrsResponseStatus     , crrsrsChangeInfo     ) where @@ -144,30 +144,30 @@ -- -- /See:/ 'changeResourceRecordSetsResponse' smart constructor. data ChangeResourceRecordSetsResponse = ChangeResourceRecordSetsResponse'-    { _crrsrsStatus     :: !Int-    , _crrsrsChangeInfo :: !ChangeInfo+    { _crrsrsResponseStatus :: !Int+    , _crrsrsChangeInfo     :: !ChangeInfo     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ChangeResourceRecordSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crrsrsStatus'+-- * 'crrsrsResponseStatus' -- -- * 'crrsrsChangeInfo' changeResourceRecordSetsResponse-    :: Int -- ^ 'crrsrsStatus'+    :: Int -- ^ 'crrsrsResponseStatus'     -> ChangeInfo -- ^ 'crrsrsChangeInfo'     -> ChangeResourceRecordSetsResponse-changeResourceRecordSetsResponse pStatus_ pChangeInfo_ =+changeResourceRecordSetsResponse pResponseStatus_ pChangeInfo_ =     ChangeResourceRecordSetsResponse'-    { _crrsrsStatus = pStatus_+    { _crrsrsResponseStatus = pResponseStatus_     , _crrsrsChangeInfo = pChangeInfo_     }  -- | The response status code.-crrsrsStatus :: Lens' ChangeResourceRecordSetsResponse Int-crrsrsStatus = lens _crrsrsStatus (\ s a -> s{_crrsrsStatus = a});+crrsrsResponseStatus :: Lens' ChangeResourceRecordSetsResponse Int+crrsrsResponseStatus = lens _crrsrsResponseStatus (\ s a -> s{_crrsrsResponseStatus = a});  -- | A complex type that contains information about changes made to your -- hosted zone.

@@ -36,7 +36,7 @@     , changeTagsForResourceResponse     , ChangeTagsForResourceResponse     -- * Response Lenses-    , ctfrrsStatus+    , ctfrrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -142,22 +142,22 @@ -- -- /See:/ 'changeTagsForResourceResponse' smart constructor. newtype ChangeTagsForResourceResponse = ChangeTagsForResourceResponse'-    { _ctfrrsStatus :: Int+    { _ctfrrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ChangeTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctfrrsStatus'+-- * 'ctfrrsResponseStatus' changeTagsForResourceResponse-    :: Int -- ^ 'ctfrrsStatus'+    :: Int -- ^ 'ctfrrsResponseStatus'     -> ChangeTagsForResourceResponse-changeTagsForResourceResponse pStatus_ =+changeTagsForResourceResponse pResponseStatus_ =     ChangeTagsForResourceResponse'-    { _ctfrrsStatus = pStatus_+    { _ctfrrsResponseStatus = pResponseStatus_     }  -- | The response status code.-ctfrrsStatus :: Lens' ChangeTagsForResourceResponse Int-ctfrrsStatus = lens _ctfrrsStatus (\ s a -> s{_ctfrrsStatus = a});+ctfrrsResponseStatus :: Lens' ChangeTagsForResourceResponse Int+ctfrrsResponseStatus = lens _ctfrrsResponseStatus (\ s a -> s{_ctfrrsResponseStatus = a});

@@ -40,7 +40,7 @@     , createHealthCheckResponse     , CreateHealthCheckResponse     -- * Response Lenses-    , chcrsStatus+    , chcrsResponseStatus     , chcrsHealthCheck     , chcrsLocation     ) where@@ -129,35 +129,35 @@ -- -- /See:/ 'createHealthCheckResponse' smart constructor. data CreateHealthCheckResponse = CreateHealthCheckResponse'-    { _chcrsStatus      :: !Int-    , _chcrsHealthCheck :: !HealthCheck-    , _chcrsLocation    :: !Text+    { _chcrsResponseStatus :: !Int+    , _chcrsHealthCheck    :: !HealthCheck+    , _chcrsLocation       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chcrsStatus'+-- * 'chcrsResponseStatus' -- -- * 'chcrsHealthCheck' -- -- * 'chcrsLocation' createHealthCheckResponse-    :: Int -- ^ 'chcrsStatus'+    :: Int -- ^ 'chcrsResponseStatus'     -> HealthCheck -- ^ 'chcrsHealthCheck'     -> Text -- ^ 'chcrsLocation'     -> CreateHealthCheckResponse-createHealthCheckResponse pStatus_ pHealthCheck_ pLocation_ =+createHealthCheckResponse pResponseStatus_ pHealthCheck_ pLocation_ =     CreateHealthCheckResponse'-    { _chcrsStatus = pStatus_+    { _chcrsResponseStatus = pResponseStatus_     , _chcrsHealthCheck = pHealthCheck_     , _chcrsLocation = pLocation_     }  -- | The response status code.-chcrsStatus :: Lens' CreateHealthCheckResponse Int-chcrsStatus = lens _chcrsStatus (\ s a -> s{_chcrsStatus = a});+chcrsResponseStatus :: Lens' CreateHealthCheckResponse Int+chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});  -- | A complex type that contains identifying information about the health -- check.

@@ -50,8 +50,8 @@     , CreateHostedZone     -- * Request Lenses     , chzDelegationSetId-    , chzHostedZoneConfig     , chzVPC+    , chzHostedZoneConfig     , chzName     , chzCallerReference @@ -60,7 +60,7 @@     , CreateHostedZoneResponse     -- * Response Lenses     , chzrsVPC-    , chzrsStatus+    , chzrsResponseStatus     , chzrsHostedZone     , chzrsChangeInfo     , chzrsDelegationSet@@ -79,8 +79,8 @@ -- /See:/ 'createHostedZone' smart constructor. data CreateHostedZone = CreateHostedZone'     { _chzDelegationSetId  :: !(Maybe Text)-    , _chzHostedZoneConfig :: !(Maybe HostedZoneConfig)     , _chzVPC              :: !(Maybe VPC)+    , _chzHostedZoneConfig :: !(Maybe HostedZoneConfig)     , _chzName             :: !Text     , _chzCallerReference  :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -91,10 +91,10 @@ -- -- * 'chzDelegationSetId' ----- * 'chzHostedZoneConfig'--- -- * 'chzVPC' --+-- * 'chzHostedZoneConfig'+-- -- * 'chzName' -- -- * 'chzCallerReference'@@ -105,8 +105,8 @@ createHostedZone pName_ pCallerReference_ =     CreateHostedZone'     { _chzDelegationSetId = Nothing-    , _chzHostedZoneConfig = Nothing     , _chzVPC = Nothing+    , _chzHostedZoneConfig = Nothing     , _chzName = pName_     , _chzCallerReference = pCallerReference_     }@@ -116,16 +116,16 @@ chzDelegationSetId :: Lens' CreateHostedZone (Maybe Text) 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});- -- | 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 complex type that contains an optional comment about your hosted zone.+chzHostedZoneConfig :: Lens' CreateHostedZone (Maybe HostedZoneConfig)+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@@ -182,8 +182,9 @@         toXML CreateHostedZone'{..}           = mconcat               ["DelegationSetId" @= _chzDelegationSetId,+               "VPC" @= _chzVPC,                "HostedZoneConfig" @= _chzHostedZoneConfig,-               "VPC" @= _chzVPC, "Name" @= _chzName,+               "Name" @= _chzName,                "CallerReference" @= _chzCallerReference]  -- | A complex type containing the response information for the new hosted@@ -191,12 +192,12 @@ -- -- /See:/ 'createHostedZoneResponse' smart constructor. data CreateHostedZoneResponse = CreateHostedZoneResponse'-    { _chzrsVPC           :: !(Maybe VPC)-    , _chzrsStatus        :: !Int-    , _chzrsHostedZone    :: !HostedZone-    , _chzrsChangeInfo    :: !ChangeInfo-    , _chzrsDelegationSet :: !DelegationSet-    , _chzrsLocation      :: !Text+    { _chzrsVPC            :: !(Maybe VPC)+    , _chzrsResponseStatus :: !Int+    , _chzrsHostedZone     :: !HostedZone+    , _chzrsChangeInfo     :: !ChangeInfo+    , _chzrsDelegationSet  :: !DelegationSet+    , _chzrsLocation       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateHostedZoneResponse' with the minimum fields required to make a request.@@ -205,7 +206,7 @@ -- -- * 'chzrsVPC' ----- * 'chzrsStatus'+-- * 'chzrsResponseStatus' -- -- * 'chzrsHostedZone' --@@ -215,16 +216,16 @@ -- -- * 'chzrsLocation' createHostedZoneResponse-    :: Int -- ^ 'chzrsStatus'+    :: Int -- ^ 'chzrsResponseStatus'     -> HostedZone -- ^ 'chzrsHostedZone'     -> ChangeInfo -- ^ 'chzrsChangeInfo'     -> DelegationSet -- ^ 'chzrsDelegationSet'     -> Text -- ^ 'chzrsLocation'     -> CreateHostedZoneResponse-createHostedZoneResponse pStatus_ pHostedZone_ pChangeInfo_ pDelegationSet_ pLocation_ =+createHostedZoneResponse pResponseStatus_ pHostedZone_ pChangeInfo_ pDelegationSet_ pLocation_ =     CreateHostedZoneResponse'     { _chzrsVPC = Nothing-    , _chzrsStatus = pStatus_+    , _chzrsResponseStatus = pResponseStatus_     , _chzrsHostedZone = pHostedZone_     , _chzrsChangeInfo = pChangeInfo_     , _chzrsDelegationSet = pDelegationSet_@@ -236,8 +237,8 @@ chzrsVPC = lens _chzrsVPC (\ s a -> s{_chzrsVPC = a});  -- | The response status code.-chzrsStatus :: Lens' CreateHostedZoneResponse Int-chzrsStatus = lens _chzrsStatus (\ s a -> s{_chzrsStatus = a});+chzrsResponseStatus :: Lens' CreateHostedZoneResponse Int+chzrsResponseStatus = lens _chzrsResponseStatus (\ s a -> s{_chzrsResponseStatus = a});  -- | A complex type that contains identifying information about the hosted -- zone.

@@ -43,7 +43,7 @@     , createReusableDelegationSetResponse     , CreateReusableDelegationSetResponse     -- * Response Lenses-    , crdsrsStatus+    , crdsrsResponseStatus     , crdsrsDelegationSet     , crdsrsLocation     ) where@@ -127,35 +127,35 @@  -- | /See:/ 'createReusableDelegationSetResponse' smart constructor. data CreateReusableDelegationSetResponse = CreateReusableDelegationSetResponse'-    { _crdsrsStatus        :: !Int-    , _crdsrsDelegationSet :: !DelegationSet-    , _crdsrsLocation      :: !Text+    { _crdsrsResponseStatus :: !Int+    , _crdsrsDelegationSet  :: !DelegationSet+    , _crdsrsLocation       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateReusableDelegationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crdsrsStatus'+-- * 'crdsrsResponseStatus' -- -- * 'crdsrsDelegationSet' -- -- * 'crdsrsLocation' createReusableDelegationSetResponse-    :: Int -- ^ 'crdsrsStatus'+    :: Int -- ^ 'crdsrsResponseStatus'     -> DelegationSet -- ^ 'crdsrsDelegationSet'     -> Text -- ^ 'crdsrsLocation'     -> CreateReusableDelegationSetResponse-createReusableDelegationSetResponse pStatus_ pDelegationSet_ pLocation_ =+createReusableDelegationSetResponse pResponseStatus_ pDelegationSet_ pLocation_ =     CreateReusableDelegationSetResponse'-    { _crdsrsStatus = pStatus_+    { _crdsrsResponseStatus = pResponseStatus_     , _crdsrsDelegationSet = pDelegationSet_     , _crdsrsLocation = pLocation_     }  -- | The response status code.-crdsrsStatus :: Lens' CreateReusableDelegationSetResponse Int-crdsrsStatus = lens _crdsrsStatus (\ s a -> s{_crdsrsStatus = a});+crdsrsResponseStatus :: Lens' CreateReusableDelegationSetResponse Int+crdsrsResponseStatus = lens _crdsrsResponseStatus (\ s a -> s{_crdsrsResponseStatus = a});  -- | A complex type that contains name server information. crdsrsDelegationSet :: Lens' CreateReusableDelegationSetResponse DelegationSet

@@ -43,7 +43,7 @@     , deleteHealthCheckResponse     , DeleteHealthCheckResponse     -- * Response Lenses-    , dhcrsStatus+    , dhcrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -100,22 +100,22 @@ -- -- /See:/ 'deleteHealthCheckResponse' smart constructor. newtype DeleteHealthCheckResponse = DeleteHealthCheckResponse'-    { _dhcrsStatus :: Int+    { _dhcrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhcrsStatus'+-- * 'dhcrsResponseStatus' deleteHealthCheckResponse-    :: Int -- ^ 'dhcrsStatus'+    :: Int -- ^ 'dhcrsResponseStatus'     -> DeleteHealthCheckResponse-deleteHealthCheckResponse pStatus_ =+deleteHealthCheckResponse pResponseStatus_ =     DeleteHealthCheckResponse'-    { _dhcrsStatus = pStatus_+    { _dhcrsResponseStatus = pResponseStatus_     }  -- | The response status code.-dhcrsStatus :: Lens' DeleteHealthCheckResponse Int-dhcrsStatus = lens _dhcrsStatus (\ s a -> s{_dhcrsStatus = a});+dhcrsResponseStatus :: Lens' DeleteHealthCheckResponse Int+dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a});

@@ -47,7 +47,7 @@     , deleteHostedZoneResponse     , DeleteHostedZoneResponse     -- * Response Lenses-    , dhzrsStatus+    , dhzrsResponseStatus     , dhzrsChangeInfo     ) where @@ -105,30 +105,30 @@ -- -- /See:/ 'deleteHostedZoneResponse' smart constructor. data DeleteHostedZoneResponse = DeleteHostedZoneResponse'-    { _dhzrsStatus     :: !Int-    , _dhzrsChangeInfo :: !ChangeInfo+    { _dhzrsResponseStatus :: !Int+    , _dhzrsChangeInfo     :: !ChangeInfo     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhzrsStatus'+-- * 'dhzrsResponseStatus' -- -- * 'dhzrsChangeInfo' deleteHostedZoneResponse-    :: Int -- ^ 'dhzrsStatus'+    :: Int -- ^ 'dhzrsResponseStatus'     -> ChangeInfo -- ^ 'dhzrsChangeInfo'     -> DeleteHostedZoneResponse-deleteHostedZoneResponse pStatus_ pChangeInfo_ =+deleteHostedZoneResponse pResponseStatus_ pChangeInfo_ =     DeleteHostedZoneResponse'-    { _dhzrsStatus = pStatus_+    { _dhzrsResponseStatus = pResponseStatus_     , _dhzrsChangeInfo = pChangeInfo_     }  -- | The response status code.-dhzrsStatus :: Lens' DeleteHostedZoneResponse Int-dhzrsStatus = lens _dhzrsStatus (\ s a -> s{_dhzrsStatus = a});+dhzrsResponseStatus :: Lens' DeleteHostedZoneResponse Int+dhzrsResponseStatus = lens _dhzrsResponseStatus (\ s a -> s{_dhzrsResponseStatus = a});  -- | A complex type that contains the ID, the status, and the date and time -- of your delete request.

@@ -42,7 +42,7 @@     , deleteReusableDelegationSetResponse     , DeleteReusableDelegationSetResponse     -- * Response Lenses-    , drdsrsStatus+    , drdsrsResponseStatus     ) where  import           Network.AWS.Prelude@@ -100,22 +100,22 @@ -- -- /See:/ 'deleteReusableDelegationSetResponse' smart constructor. newtype DeleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse'-    { _drdsrsStatus :: Int+    { _drdsrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteReusableDelegationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drdsrsStatus'+-- * 'drdsrsResponseStatus' deleteReusableDelegationSetResponse-    :: Int -- ^ 'drdsrsStatus'+    :: Int -- ^ 'drdsrsResponseStatus'     -> DeleteReusableDelegationSetResponse-deleteReusableDelegationSetResponse pStatus_ =+deleteReusableDelegationSetResponse pResponseStatus_ =     DeleteReusableDelegationSetResponse'-    { _drdsrsStatus = pStatus_+    { _drdsrsResponseStatus = pResponseStatus_     }  -- | The response status code.-drdsrsStatus :: Lens' DeleteReusableDelegationSetResponse Int-drdsrsStatus = lens _drdsrsStatus (\ s a -> s{_drdsrsStatus = a});+drdsrsResponseStatus :: Lens' DeleteReusableDelegationSetResponse Int+drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a});

@@ -44,7 +44,7 @@     , disassociateVPCFromHostedZoneResponse     , DisassociateVPCFromHostedZoneResponse     -- * Response Lenses-    , dvfhzrsStatus+    , dvfhzrsResponseStatus     , dvfhzrsChangeInfo     ) where @@ -138,30 +138,30 @@ -- -- /See:/ 'disassociateVPCFromHostedZoneResponse' smart constructor. data DisassociateVPCFromHostedZoneResponse = DisassociateVPCFromHostedZoneResponse'-    { _dvfhzrsStatus     :: !Int-    , _dvfhzrsChangeInfo :: !ChangeInfo+    { _dvfhzrsResponseStatus :: !Int+    , _dvfhzrsChangeInfo     :: !ChangeInfo     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DisassociateVPCFromHostedZoneResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvfhzrsStatus'+-- * 'dvfhzrsResponseStatus' -- -- * 'dvfhzrsChangeInfo' disassociateVPCFromHostedZoneResponse-    :: Int -- ^ 'dvfhzrsStatus'+    :: Int -- ^ 'dvfhzrsResponseStatus'     -> ChangeInfo -- ^ 'dvfhzrsChangeInfo'     -> DisassociateVPCFromHostedZoneResponse-disassociateVPCFromHostedZoneResponse pStatus_ pChangeInfo_ =+disassociateVPCFromHostedZoneResponse pResponseStatus_ pChangeInfo_ =     DisassociateVPCFromHostedZoneResponse'-    { _dvfhzrsStatus = pStatus_+    { _dvfhzrsResponseStatus = pResponseStatus_     , _dvfhzrsChangeInfo = pChangeInfo_     }  -- | The response status code.-dvfhzrsStatus :: Lens' DisassociateVPCFromHostedZoneResponse Int-dvfhzrsStatus = lens _dvfhzrsStatus (\ s a -> s{_dvfhzrsStatus = a});+dvfhzrsResponseStatus :: Lens' DisassociateVPCFromHostedZoneResponse Int+dvfhzrsResponseStatus = lens _dvfhzrsResponseStatus (\ s a -> s{_dvfhzrsResponseStatus = a});  -- | A complex type that contains the ID, the status, and the date and time -- of your 'DisassociateVPCFromHostedZoneRequest'.

@@ -41,7 +41,7 @@     , getChangeResponse     , GetChangeResponse     -- * Response Lenses-    , gcrsStatus+    , gcrsResponseStatus     , gcrsChangeInfo     ) where @@ -100,30 +100,30 @@ -- -- /See:/ 'getChangeResponse' smart constructor. data GetChangeResponse = GetChangeResponse'-    { _gcrsStatus     :: !Int-    , _gcrsChangeInfo :: !ChangeInfo+    { _gcrsResponseStatus :: !Int+    , _gcrsChangeInfo     :: !ChangeInfo     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetChangeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcrsStatus'+-- * 'gcrsResponseStatus' -- -- * 'gcrsChangeInfo' getChangeResponse-    :: Int -- ^ 'gcrsStatus'+    :: Int -- ^ 'gcrsResponseStatus'     -> ChangeInfo -- ^ 'gcrsChangeInfo'     -> GetChangeResponse-getChangeResponse pStatus_ pChangeInfo_ =+getChangeResponse pResponseStatus_ pChangeInfo_ =     GetChangeResponse'-    { _gcrsStatus = pStatus_+    { _gcrsResponseStatus = pResponseStatus_     , _gcrsChangeInfo = pChangeInfo_     }  -- | The response status code.-gcrsStatus :: Lens' GetChangeResponse Int-gcrsStatus = lens _gcrsStatus (\ s a -> s{_gcrsStatus = a});+gcrsResponseStatus :: Lens' GetChangeResponse Int+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});  -- | A complex type that contains information about the specified change -- batch, including the change batch ID, the status of the change, and the

@@ -35,7 +35,7 @@     , getCheckerIPRangesResponse     , GetCheckerIPRangesResponse     -- * Response Lenses-    , gcirrsStatus+    , gcirrsResponseStatus     , gcirrsCheckerIPRanges     ) where @@ -83,7 +83,7 @@ -- -- /See:/ 'getCheckerIPRangesResponse' smart constructor. data GetCheckerIPRangesResponse = GetCheckerIPRangesResponse'-    { _gcirrsStatus          :: !Int+    { _gcirrsResponseStatus  :: !Int     , _gcirrsCheckerIPRanges :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -91,21 +91,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcirrsStatus'+-- * 'gcirrsResponseStatus' -- -- * 'gcirrsCheckerIPRanges' getCheckerIPRangesResponse-    :: Int -- ^ 'gcirrsStatus'+    :: Int -- ^ 'gcirrsResponseStatus'     -> GetCheckerIPRangesResponse-getCheckerIPRangesResponse pStatus_ =+getCheckerIPRangesResponse pResponseStatus_ =     GetCheckerIPRangesResponse'-    { _gcirrsStatus = pStatus_+    { _gcirrsResponseStatus = pResponseStatus_     , _gcirrsCheckerIPRanges = mempty     }  -- | The response status code.-gcirrsStatus :: Lens' GetCheckerIPRangesResponse Int-gcirrsStatus = lens _gcirrsStatus (\ s a -> s{_gcirrsStatus = a});+gcirrsResponseStatus :: Lens' GetCheckerIPRangesResponse Int+gcirrsResponseStatus = lens _gcirrsResponseStatus (\ s a -> s{_gcirrsResponseStatus = a});  -- | A complex type that contains sorted list of IP ranges in CIDR format for -- Amazon Route 53 health checkers.

@@ -37,7 +37,7 @@     , getGeoLocationResponse     , GetGeoLocationResponse     -- * Response Lenses-    , gglrsStatus+    , gglrsResponseStatus     , gglrsGeoLocationDetails     ) where @@ -128,7 +128,7 @@ -- -- /See:/ 'getGeoLocationResponse' smart constructor. data GetGeoLocationResponse = GetGeoLocationResponse'-    { _gglrsStatus             :: !Int+    { _gglrsResponseStatus     :: !Int     , _gglrsGeoLocationDetails :: !GeoLocationDetails     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -136,22 +136,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gglrsStatus'+-- * 'gglrsResponseStatus' -- -- * 'gglrsGeoLocationDetails' getGeoLocationResponse-    :: Int -- ^ 'gglrsStatus'+    :: Int -- ^ 'gglrsResponseStatus'     -> GeoLocationDetails -- ^ 'gglrsGeoLocationDetails'     -> GetGeoLocationResponse-getGeoLocationResponse pStatus_ pGeoLocationDetails_ =+getGeoLocationResponse pResponseStatus_ pGeoLocationDetails_ =     GetGeoLocationResponse'-    { _gglrsStatus = pStatus_+    { _gglrsResponseStatus = pResponseStatus_     , _gglrsGeoLocationDetails = pGeoLocationDetails_     }  -- | The response status code.-gglrsStatus :: Lens' GetGeoLocationResponse Int-gglrsStatus = lens _gglrsStatus (\ s a -> s{_gglrsStatus = a});+gglrsResponseStatus :: Lens' GetGeoLocationResponse Int+gglrsResponseStatus = lens _gglrsResponseStatus (\ s a -> s{_gglrsResponseStatus = a});  -- | A complex type that contains the information about the specified geo -- location.

@@ -34,7 +34,7 @@     , getHealthCheckResponse     , GetHealthCheckResponse     -- * Response Lenses-    , ghcrsStatus+    , ghcrsResponseStatus     , ghcrsHealthCheck     ) where @@ -93,30 +93,30 @@ -- -- /See:/ 'getHealthCheckResponse' smart constructor. data GetHealthCheckResponse = GetHealthCheckResponse'-    { _ghcrsStatus      :: !Int-    , _ghcrsHealthCheck :: !HealthCheck+    { _ghcrsResponseStatus :: !Int+    , _ghcrsHealthCheck    :: !HealthCheck     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghcrsStatus'+-- * 'ghcrsResponseStatus' -- -- * 'ghcrsHealthCheck' getHealthCheckResponse-    :: Int -- ^ 'ghcrsStatus'+    :: Int -- ^ 'ghcrsResponseStatus'     -> HealthCheck -- ^ 'ghcrsHealthCheck'     -> GetHealthCheckResponse-getHealthCheckResponse pStatus_ pHealthCheck_ =+getHealthCheckResponse pResponseStatus_ pHealthCheck_ =     GetHealthCheckResponse'-    { _ghcrsStatus = pStatus_+    { _ghcrsResponseStatus = pResponseStatus_     , _ghcrsHealthCheck = pHealthCheck_     }  -- | The response status code.-ghcrsStatus :: Lens' GetHealthCheckResponse Int-ghcrsStatus = lens _ghcrsStatus (\ s a -> s{_ghcrsStatus = a});+ghcrsResponseStatus :: Lens' GetHealthCheckResponse Int+ghcrsResponseStatus = lens _ghcrsResponseStatus (\ s a -> s{_ghcrsResponseStatus = a});  -- | A complex type that contains the information about the specified health -- check.

@@ -32,7 +32,7 @@     , getHealthCheckCountResponse     , GetHealthCheckCountResponse     -- * Response Lenses-    , ghccrsStatus+    , ghccrsResponseStatus     , ghccrsHealthCheckCount     ) where @@ -80,7 +80,7 @@ -- -- /See:/ 'getHealthCheckCountResponse' smart constructor. data GetHealthCheckCountResponse = GetHealthCheckCountResponse'-    { _ghccrsStatus           :: !Int+    { _ghccrsResponseStatus   :: !Int     , _ghccrsHealthCheckCount :: !Integer     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -88,22 +88,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghccrsStatus'+-- * 'ghccrsResponseStatus' -- -- * 'ghccrsHealthCheckCount' getHealthCheckCountResponse-    :: Int -- ^ 'ghccrsStatus'+    :: Int -- ^ 'ghccrsResponseStatus'     -> Integer -- ^ 'ghccrsHealthCheckCount'     -> GetHealthCheckCountResponse-getHealthCheckCountResponse pStatus_ pHealthCheckCount_ =+getHealthCheckCountResponse pResponseStatus_ pHealthCheckCount_ =     GetHealthCheckCountResponse'-    { _ghccrsStatus = pStatus_+    { _ghccrsResponseStatus = pResponseStatus_     , _ghccrsHealthCheckCount = pHealthCheckCount_     }  -- | The response status code.-ghccrsStatus :: Lens' GetHealthCheckCountResponse Int-ghccrsStatus = lens _ghccrsStatus (\ s a -> s{_ghccrsStatus = a});+ghccrsResponseStatus :: Lens' GetHealthCheckCountResponse Int+ghccrsResponseStatus = lens _ghccrsResponseStatus (\ s a -> s{_ghccrsResponseStatus = a});  -- | The number of health checks associated with the current AWS account. ghccrsHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer

@@ -36,7 +36,7 @@     , getHealthCheckLastFailureReasonResponse     , GetHealthCheckLastFailureReasonResponse     -- * Response Lenses-    , ghclfrrsStatus+    , ghclfrrsResponseStatus     , ghclfrrsHealthCheckObservations     ) where @@ -104,7 +104,7 @@ -- -- /See:/ 'getHealthCheckLastFailureReasonResponse' smart constructor. data GetHealthCheckLastFailureReasonResponse = GetHealthCheckLastFailureReasonResponse'-    { _ghclfrrsStatus                  :: !Int+    { _ghclfrrsResponseStatus          :: !Int     , _ghclfrrsHealthCheckObservations :: ![HealthCheckObservation]     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -112,21 +112,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghclfrrsStatus'+-- * 'ghclfrrsResponseStatus' -- -- * 'ghclfrrsHealthCheckObservations' getHealthCheckLastFailureReasonResponse-    :: Int -- ^ 'ghclfrrsStatus'+    :: Int -- ^ 'ghclfrrsResponseStatus'     -> GetHealthCheckLastFailureReasonResponse-getHealthCheckLastFailureReasonResponse pStatus_ =+getHealthCheckLastFailureReasonResponse pResponseStatus_ =     GetHealthCheckLastFailureReasonResponse'-    { _ghclfrrsStatus = pStatus_+    { _ghclfrrsResponseStatus = pResponseStatus_     , _ghclfrrsHealthCheckObservations = mempty     }  -- | The response status code.-ghclfrrsStatus :: Lens' GetHealthCheckLastFailureReasonResponse Int-ghclfrrsStatus = lens _ghclfrrsStatus (\ s a -> s{_ghclfrrsStatus = a});+ghclfrrsResponseStatus :: Lens' GetHealthCheckLastFailureReasonResponse Int+ghclfrrsResponseStatus = lens _ghclfrrsResponseStatus (\ s a -> s{_ghclfrrsResponseStatus = a});  -- | A list that contains one 'HealthCheckObservation' element for each Route -- 53 health checker.

@@ -35,7 +35,7 @@     , getHealthCheckStatusResponse     , GetHealthCheckStatusResponse     -- * Response Lenses-    , ghcsrsStatus+    , ghcsrsResponseStatus     , ghcsrsHealthCheckObservations     ) where @@ -100,7 +100,7 @@ -- -- /See:/ 'getHealthCheckStatusResponse' smart constructor. data GetHealthCheckStatusResponse = GetHealthCheckStatusResponse'-    { _ghcsrsStatus                  :: !Int+    { _ghcsrsResponseStatus          :: !Int     , _ghcsrsHealthCheckObservations :: ![HealthCheckObservation]     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -108,21 +108,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghcsrsStatus'+-- * 'ghcsrsResponseStatus' -- -- * 'ghcsrsHealthCheckObservations' getHealthCheckStatusResponse-    :: Int -- ^ 'ghcsrsStatus'+    :: Int -- ^ 'ghcsrsResponseStatus'     -> GetHealthCheckStatusResponse-getHealthCheckStatusResponse pStatus_ =+getHealthCheckStatusResponse pResponseStatus_ =     GetHealthCheckStatusResponse'-    { _ghcsrsStatus = pStatus_+    { _ghcsrsResponseStatus = pResponseStatus_     , _ghcsrsHealthCheckObservations = mempty     }  -- | The response status code.-ghcsrsStatus :: Lens' GetHealthCheckStatusResponse Int-ghcsrsStatus = lens _ghcsrsStatus (\ s a -> s{_ghcsrsStatus = a});+ghcsrsResponseStatus :: Lens' GetHealthCheckStatusResponse Int+ghcsrsResponseStatus = lens _ghcsrsResponseStatus (\ s a -> s{_ghcsrsResponseStatus = a});  -- | A list that contains one 'HealthCheckObservation' element for each Route -- 53 health checker.

@@ -38,7 +38,7 @@     -- * Response Lenses     , ghzrsVPCs     , ghzrsDelegationSet-    , ghzrsStatus+    , ghzrsResponseStatus     , ghzrsHostedZone     ) where @@ -100,10 +100,10 @@ -- -- /See:/ 'getHostedZoneResponse' smart constructor. data GetHostedZoneResponse = GetHostedZoneResponse'-    { _ghzrsVPCs          :: !(Maybe (List1 VPC))-    , _ghzrsDelegationSet :: !(Maybe DelegationSet)-    , _ghzrsStatus        :: !Int-    , _ghzrsHostedZone    :: !HostedZone+    { _ghzrsVPCs           :: !(Maybe (List1 VPC))+    , _ghzrsDelegationSet  :: !(Maybe DelegationSet)+    , _ghzrsResponseStatus :: !Int+    , _ghzrsHostedZone     :: !HostedZone     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetHostedZoneResponse' with the minimum fields required to make a request.@@ -114,18 +114,18 @@ -- -- * 'ghzrsDelegationSet' ----- * 'ghzrsStatus'+-- * 'ghzrsResponseStatus' -- -- * 'ghzrsHostedZone' getHostedZoneResponse-    :: Int -- ^ 'ghzrsStatus'+    :: Int -- ^ 'ghzrsResponseStatus'     -> HostedZone -- ^ 'ghzrsHostedZone'     -> GetHostedZoneResponse-getHostedZoneResponse pStatus_ pHostedZone_ =+getHostedZoneResponse pResponseStatus_ pHostedZone_ =     GetHostedZoneResponse'     { _ghzrsVPCs = Nothing     , _ghzrsDelegationSet = Nothing-    , _ghzrsStatus = pStatus_+    , _ghzrsResponseStatus = pResponseStatus_     , _ghzrsHostedZone = pHostedZone_     } @@ -140,8 +140,8 @@ ghzrsDelegationSet = lens _ghzrsDelegationSet (\ s a -> s{_ghzrsDelegationSet = a});  -- | The response status code.-ghzrsStatus :: Lens' GetHostedZoneResponse Int-ghzrsStatus = lens _ghzrsStatus (\ s a -> s{_ghzrsStatus = a});+ghzrsResponseStatus :: Lens' GetHostedZoneResponse Int+ghzrsResponseStatus = lens _ghzrsResponseStatus (\ s a -> s{_ghzrsResponseStatus = a});  -- | A complex type that contains the information about the specified hosted -- zone.

@@ -32,7 +32,7 @@     , getHostedZoneCountResponse     , GetHostedZoneCountResponse     -- * Response Lenses-    , ghzcrsStatus+    , ghzcrsResponseStatus     , ghzcrsHostedZoneCount     ) where @@ -80,7 +80,7 @@ -- -- /See:/ 'getHostedZoneCountResponse' smart constructor. data GetHostedZoneCountResponse = GetHostedZoneCountResponse'-    { _ghzcrsStatus          :: !Int+    { _ghzcrsResponseStatus  :: !Int     , _ghzcrsHostedZoneCount :: !Integer     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -88,22 +88,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghzcrsStatus'+-- * 'ghzcrsResponseStatus' -- -- * 'ghzcrsHostedZoneCount' getHostedZoneCountResponse-    :: Int -- ^ 'ghzcrsStatus'+    :: Int -- ^ 'ghzcrsResponseStatus'     -> Integer -- ^ 'ghzcrsHostedZoneCount'     -> GetHostedZoneCountResponse-getHostedZoneCountResponse pStatus_ pHostedZoneCount_ =+getHostedZoneCountResponse pResponseStatus_ pHostedZoneCount_ =     GetHostedZoneCountResponse'-    { _ghzcrsStatus = pStatus_+    { _ghzcrsResponseStatus = pResponseStatus_     , _ghzcrsHostedZoneCount = pHostedZoneCount_     }  -- | The response status code.-ghzcrsStatus :: Lens' GetHostedZoneCountResponse Int-ghzcrsStatus = lens _ghzcrsStatus (\ s a -> s{_ghzcrsStatus = a});+ghzcrsResponseStatus :: Lens' GetHostedZoneCountResponse Int+ghzcrsResponseStatus = lens _ghzcrsResponseStatus (\ s a -> s{_ghzcrsResponseStatus = a});  -- | The number of hosted zones associated with the current AWS account. ghzcrsHostedZoneCount :: Lens' GetHostedZoneCountResponse Integer

@@ -34,7 +34,7 @@     , getReusableDelegationSetResponse     , GetReusableDelegationSetResponse     -- * Response Lenses-    , grdsrsStatus+    , grdsrsResponseStatus     , grdsrsDelegationSet     ) where @@ -95,30 +95,30 @@ -- -- /See:/ 'getReusableDelegationSetResponse' smart constructor. data GetReusableDelegationSetResponse = GetReusableDelegationSetResponse'-    { _grdsrsStatus        :: !Int-    , _grdsrsDelegationSet :: !DelegationSet+    { _grdsrsResponseStatus :: !Int+    , _grdsrsDelegationSet  :: !DelegationSet     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetReusableDelegationSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'grdsrsStatus'+-- * 'grdsrsResponseStatus' -- -- * 'grdsrsDelegationSet' getReusableDelegationSetResponse-    :: Int -- ^ 'grdsrsStatus'+    :: Int -- ^ 'grdsrsResponseStatus'     -> DelegationSet -- ^ 'grdsrsDelegationSet'     -> GetReusableDelegationSetResponse-getReusableDelegationSetResponse pStatus_ pDelegationSet_ =+getReusableDelegationSetResponse pResponseStatus_ pDelegationSet_ =     GetReusableDelegationSetResponse'-    { _grdsrsStatus = pStatus_+    { _grdsrsResponseStatus = pResponseStatus_     , _grdsrsDelegationSet = pDelegationSet_     }  -- | The response status code.-grdsrsStatus :: Lens' GetReusableDelegationSetResponse Int-grdsrsStatus = lens _grdsrsStatus (\ s a -> s{_grdsrsStatus = a});+grdsrsResponseStatus :: Lens' GetReusableDelegationSetResponse Int+grdsrsResponseStatus = lens _grdsrsResponseStatus (\ s a -> s{_grdsrsResponseStatus = a});  -- | A complex type that contains the information about the nameservers for -- the specified delegation set ID.

@@ -53,7 +53,7 @@     , lglrsNextContinentCode     , lglrsNextCountryCode     , lglrsNextSubdivisionCode-    , lglrsStatus+    , lglrsResponseStatus     , lglrsGeoLocationDetailsList     , lglrsIsTruncated     , lglrsMaxItems@@ -166,7 +166,7 @@     { _lglrsNextContinentCode      :: !(Maybe Text)     , _lglrsNextCountryCode        :: !(Maybe Text)     , _lglrsNextSubdivisionCode    :: !(Maybe Text)-    , _lglrsStatus                 :: !Int+    , _lglrsResponseStatus         :: !Int     , _lglrsGeoLocationDetailsList :: ![GeoLocationDetails]     , _lglrsIsTruncated            :: !Bool     , _lglrsMaxItems               :: !Text@@ -182,7 +182,7 @@ -- -- * 'lglrsNextSubdivisionCode' ----- * 'lglrsStatus'+-- * 'lglrsResponseStatus' -- -- * 'lglrsGeoLocationDetailsList' --@@ -190,16 +190,16 @@ -- -- * 'lglrsMaxItems' listGeoLocationsResponse-    :: Int -- ^ 'lglrsStatus'+    :: Int -- ^ 'lglrsResponseStatus'     -> Bool -- ^ 'lglrsIsTruncated'     -> Text -- ^ 'lglrsMaxItems'     -> ListGeoLocationsResponse-listGeoLocationsResponse pStatus_ pIsTruncated_ pMaxItems_ =+listGeoLocationsResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =     ListGeoLocationsResponse'     { _lglrsNextContinentCode = Nothing     , _lglrsNextCountryCode = Nothing     , _lglrsNextSubdivisionCode = Nothing-    , _lglrsStatus = pStatus_+    , _lglrsResponseStatus = pResponseStatus_     , _lglrsGeoLocationDetailsList = mempty     , _lglrsIsTruncated = pIsTruncated_     , _lglrsMaxItems = pMaxItems_@@ -227,8 +227,8 @@ lglrsNextSubdivisionCode = lens _lglrsNextSubdivisionCode (\ s a -> s{_lglrsNextSubdivisionCode = a});  -- | The response status code.-lglrsStatus :: Lens' ListGeoLocationsResponse Int-lglrsStatus = lens _lglrsStatus (\ s a -> s{_lglrsStatus = a});+lglrsResponseStatus :: Lens' ListGeoLocationsResponse Int+lglrsResponseStatus = lens _lglrsResponseStatus (\ s a -> s{_lglrsResponseStatus = a});  -- | A complex type that contains information about the geo locations that -- are returned by the request.

@@ -38,15 +38,15 @@       listHealthChecks     , ListHealthChecks     -- * Request Lenses-    , lhcMaxItems     , lhcMarker+    , lhcMaxItems      -- * Destructuring the Response     , listHealthChecksResponse     , ListHealthChecksResponse     -- * Response Lenses     , lhcrsNextMarker-    , lhcrsStatus+    , lhcrsResponseStatus     , lhcrsHealthChecks     , lhcrsMarker     , lhcrsIsTruncated@@ -73,40 +73,40 @@ -- -- /See:/ 'listHealthChecks' smart constructor. data ListHealthChecks = ListHealthChecks'-    { _lhcMaxItems :: !(Maybe Text)-    , _lhcMarker   :: !(Maybe Text)+    { _lhcMarker   :: !(Maybe Text)+    , _lhcMaxItems :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListHealthChecks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhcMaxItems'--- -- * 'lhcMarker'+--+-- * 'lhcMaxItems' listHealthChecks     :: ListHealthChecks listHealthChecks =     ListHealthChecks'-    { _lhcMaxItems = Nothing-    , _lhcMarker = Nothing+    { _lhcMarker = Nothing+    , _lhcMaxItems = Nothing     } --- | 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}); +-- | 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+          | stop (rs ^. lhcrsNextMarker) = Nothing+          | stop (rs ^. lhcrsHealthChecks) = Nothing           | otherwise =             Just $ rq & lhcMarker .~ rs ^. lhcrsNextMarker @@ -133,18 +133,18 @@ instance ToQuery ListHealthChecks where         toQuery ListHealthChecks'{..}           = mconcat-              ["maxitems" =: _lhcMaxItems, "marker" =: _lhcMarker]+              ["marker" =: _lhcMarker, "maxitems" =: _lhcMaxItems]  -- | A complex type that contains the response for the request. -- -- /See:/ 'listHealthChecksResponse' smart constructor. data ListHealthChecksResponse = ListHealthChecksResponse'-    { _lhcrsNextMarker   :: !(Maybe Text)-    , _lhcrsStatus       :: !Int-    , _lhcrsHealthChecks :: ![HealthCheck]-    , _lhcrsMarker       :: !Text-    , _lhcrsIsTruncated  :: !Bool-    , _lhcrsMaxItems     :: !Text+    { _lhcrsNextMarker     :: !(Maybe Text)+    , _lhcrsResponseStatus :: !Int+    , _lhcrsHealthChecks   :: ![HealthCheck]+    , _lhcrsMarker         :: !Text+    , _lhcrsIsTruncated    :: !Bool+    , _lhcrsMaxItems       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListHealthChecksResponse' with the minimum fields required to make a request.@@ -153,7 +153,7 @@ -- -- * 'lhcrsNextMarker' ----- * 'lhcrsStatus'+-- * 'lhcrsResponseStatus' -- -- * 'lhcrsHealthChecks' --@@ -163,15 +163,15 @@ -- -- * 'lhcrsMaxItems' listHealthChecksResponse-    :: Int -- ^ 'lhcrsStatus'+    :: Int -- ^ 'lhcrsResponseStatus'     -> Text -- ^ 'lhcrsMarker'     -> Bool -- ^ 'lhcrsIsTruncated'     -> Text -- ^ 'lhcrsMaxItems'     -> ListHealthChecksResponse-listHealthChecksResponse pStatus_ pMarker_ pIsTruncated_ pMaxItems_ =+listHealthChecksResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ =     ListHealthChecksResponse'     { _lhcrsNextMarker = Nothing-    , _lhcrsStatus = pStatus_+    , _lhcrsResponseStatus = pResponseStatus_     , _lhcrsHealthChecks = mempty     , _lhcrsMarker = pMarker_     , _lhcrsIsTruncated = pIsTruncated_@@ -186,8 +186,8 @@ lhcrsNextMarker = lens _lhcrsNextMarker (\ s a -> s{_lhcrsNextMarker = a});  -- | The response status code.-lhcrsStatus :: Lens' ListHealthChecksResponse Int-lhcrsStatus = lens _lhcrsStatus (\ s a -> s{_lhcrsStatus = a});+lhcrsResponseStatus :: Lens' ListHealthChecksResponse Int+lhcrsResponseStatus = lens _lhcrsResponseStatus (\ s a -> s{_lhcrsResponseStatus = a});  -- | A complex type that contains information about the health checks -- associated with the current AWS account.

@@ -39,8 +39,8 @@     , ListHostedZones     -- * Request Lenses     , lhzDelegationSetId-    , lhzMaxItems     , lhzMarker+    , lhzMaxItems      -- * Destructuring the Response     , listHostedZonesResponse@@ -48,7 +48,7 @@     -- * Response Lenses     , lhzrsMarker     , lhzrsNextMarker-    , lhzrsStatus+    , lhzrsResponseStatus     , lhzrsHostedZones     , lhzrsIsTruncated     , lhzrsMaxItems@@ -78,8 +78,8 @@ -- /See:/ 'listHostedZones' smart constructor. data ListHostedZones = ListHostedZones'     { _lhzDelegationSetId :: !(Maybe Text)-    , _lhzMaxItems        :: !(Maybe Text)     , _lhzMarker          :: !(Maybe Text)+    , _lhzMaxItems        :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListHostedZones' with the minimum fields required to make a request.@@ -88,37 +88,37 @@ -- -- * 'lhzDelegationSetId' ----- * 'lhzMaxItems'--- -- * 'lhzMarker'+--+-- * 'lhzMaxItems' listHostedZones     :: ListHostedZones listHostedZones =     ListHostedZones'     { _lhzDelegationSetId = Nothing-    , _lhzMaxItems = Nothing     , _lhzMarker = Nothing+    , _lhzMaxItems = Nothing     }  -- | Undocumented member. lhzDelegationSetId :: Lens' ListHostedZones (Maybe Text) lhzDelegationSetId = lens _lhzDelegationSetId (\ s a -> s{_lhzDelegationSetId = a}); --- | Specify the maximum number of hosted zones to return per page of--- results.-lhzMaxItems :: Lens' ListHostedZones (Maybe Text)-lhzMaxItems = lens _lhzMaxItems (\ s a -> s{_lhzMaxItems = 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. lhzMarker :: Lens' ListHostedZones (Maybe Text) lhzMarker = lens _lhzMarker (\ s a -> s{_lhzMarker = a}); +-- | Specify the maximum number of hosted zones to return per page of+-- results.+lhzMaxItems :: Lens' ListHostedZones (Maybe Text)+lhzMaxItems = lens _lhzMaxItems (\ s a -> s{_lhzMaxItems = a});+ instance AWSPager ListHostedZones where         page rq rs-          | stop (rs ^. lhzrsIsTruncated) = Nothing-          | isNothing (rs ^. lhzrsNextMarker) = Nothing+          | stop (rs ^. lhzrsNextMarker) = Nothing+          | stop (rs ^. lhzrsHostedZones) = Nothing           | otherwise =             Just $ rq & lhzMarker .~ rs ^. lhzrsNextMarker @@ -147,18 +147,18 @@         toQuery ListHostedZones'{..}           = mconcat               ["delegationsetid" =: _lhzDelegationSetId,-               "maxitems" =: _lhzMaxItems, "marker" =: _lhzMarker]+               "marker" =: _lhzMarker, "maxitems" =: _lhzMaxItems]  -- | A complex type that contains the response for the request. -- -- /See:/ 'listHostedZonesResponse' smart constructor. data ListHostedZonesResponse = ListHostedZonesResponse'-    { _lhzrsMarker      :: !(Maybe Text)-    , _lhzrsNextMarker  :: !(Maybe Text)-    , _lhzrsStatus      :: !Int-    , _lhzrsHostedZones :: ![HostedZone]-    , _lhzrsIsTruncated :: !Bool-    , _lhzrsMaxItems    :: !Text+    { _lhzrsMarker         :: !(Maybe Text)+    , _lhzrsNextMarker     :: !(Maybe Text)+    , _lhzrsResponseStatus :: !Int+    , _lhzrsHostedZones    :: ![HostedZone]+    , _lhzrsIsTruncated    :: !Bool+    , _lhzrsMaxItems       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListHostedZonesResponse' with the minimum fields required to make a request.@@ -169,7 +169,7 @@ -- -- * 'lhzrsNextMarker' ----- * 'lhzrsStatus'+-- * 'lhzrsResponseStatus' -- -- * 'lhzrsHostedZones' --@@ -177,15 +177,15 @@ -- -- * 'lhzrsMaxItems' listHostedZonesResponse-    :: Int -- ^ 'lhzrsStatus'+    :: Int -- ^ 'lhzrsResponseStatus'     -> Bool -- ^ 'lhzrsIsTruncated'     -> Text -- ^ 'lhzrsMaxItems'     -> ListHostedZonesResponse-listHostedZonesResponse pStatus_ pIsTruncated_ pMaxItems_ =+listHostedZonesResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =     ListHostedZonesResponse'     { _lhzrsMarker = Nothing     , _lhzrsNextMarker = Nothing-    , _lhzrsStatus = pStatus_+    , _lhzrsResponseStatus = pResponseStatus_     , _lhzrsHostedZones = mempty     , _lhzrsIsTruncated = pIsTruncated_     , _lhzrsMaxItems = pMaxItems_@@ -205,8 +205,8 @@ lhzrsNextMarker = lens _lhzrsNextMarker (\ s a -> s{_lhzrsNextMarker = a});  -- | The response status code.-lhzrsStatus :: Lens' ListHostedZonesResponse Int-lhzrsStatus = lens _lhzrsStatus (\ s a -> s{_lhzrsStatus = a});+lhzrsResponseStatus :: Lens' ListHostedZonesResponse Int+lhzrsResponseStatus = lens _lhzrsResponseStatus (\ s a -> s{_lhzrsResponseStatus = a});  -- | A complex type that contains information about the hosted zones -- associated with the current AWS account.

@@ -49,7 +49,7 @@     , lhzbnrsNextHostedZoneId     , lhzbnrsDNSName     , lhzbnrsNextDNSName-    , lhzbnrsStatus+    , lhzbnrsResponseStatus     , lhzbnrsHostedZones     , lhzbnrsIsTruncated     , lhzbnrsMaxItems@@ -160,7 +160,7 @@     , _lhzbnrsNextHostedZoneId :: !(Maybe Text)     , _lhzbnrsDNSName          :: !(Maybe Text)     , _lhzbnrsNextDNSName      :: !(Maybe Text)-    , _lhzbnrsStatus           :: !Int+    , _lhzbnrsResponseStatus   :: !Int     , _lhzbnrsHostedZones      :: ![HostedZone]     , _lhzbnrsIsTruncated      :: !Bool     , _lhzbnrsMaxItems         :: !Text@@ -178,7 +178,7 @@ -- -- * 'lhzbnrsNextDNSName' ----- * 'lhzbnrsStatus'+-- * 'lhzbnrsResponseStatus' -- -- * 'lhzbnrsHostedZones' --@@ -186,17 +186,17 @@ -- -- * 'lhzbnrsMaxItems' listHostedZonesByNameResponse-    :: Int -- ^ 'lhzbnrsStatus'+    :: Int -- ^ 'lhzbnrsResponseStatus'     -> Bool -- ^ 'lhzbnrsIsTruncated'     -> Text -- ^ 'lhzbnrsMaxItems'     -> ListHostedZonesByNameResponse-listHostedZonesByNameResponse pStatus_ pIsTruncated_ pMaxItems_ =+listHostedZonesByNameResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =     ListHostedZonesByNameResponse'     { _lhzbnrsHostedZoneId = Nothing     , _lhzbnrsNextHostedZoneId = Nothing     , _lhzbnrsDNSName = Nothing     , _lhzbnrsNextDNSName = Nothing-    , _lhzbnrsStatus = pStatus_+    , _lhzbnrsResponseStatus = pResponseStatus_     , _lhzbnrsHostedZones = mempty     , _lhzbnrsIsTruncated = pIsTruncated_     , _lhzbnrsMaxItems = pMaxItems_@@ -231,8 +231,8 @@ lhzbnrsNextDNSName = lens _lhzbnrsNextDNSName (\ s a -> s{_lhzbnrsNextDNSName = a});  -- | The response status code.-lhzbnrsStatus :: Lens' ListHostedZonesByNameResponse Int-lhzbnrsStatus = lens _lhzbnrsStatus (\ s a -> s{_lhzbnrsStatus = a});+lhzbnrsResponseStatus :: Lens' ListHostedZonesByNameResponse Int+lhzbnrsResponseStatus = lens _lhzbnrsResponseStatus (\ s a -> s{_lhzbnrsResponseStatus = a});  -- | A complex type that contains information about the hosted zones -- associated with the current AWS account.

@@ -83,7 +83,7 @@     , lrrsrsNextRecordType     , lrrsrsNextRecordName     , lrrsrsNextRecordIdentifier-    , lrrsrsStatus+    , lrrsrsResponseStatus     , lrrsrsResourceRecordSets     , lrrsrsIsTruncated     , lrrsrsMaxItems@@ -227,7 +227,7 @@     { _lrrsrsNextRecordType       :: !(Maybe RecordType)     , _lrrsrsNextRecordName       :: !(Maybe Text)     , _lrrsrsNextRecordIdentifier :: !(Maybe Text)-    , _lrrsrsStatus               :: !Int+    , _lrrsrsResponseStatus       :: !Int     , _lrrsrsResourceRecordSets   :: ![ResourceRecordSet]     , _lrrsrsIsTruncated          :: !Bool     , _lrrsrsMaxItems             :: !Text@@ -243,7 +243,7 @@ -- -- * 'lrrsrsNextRecordIdentifier' ----- * 'lrrsrsStatus'+-- * 'lrrsrsResponseStatus' -- -- * 'lrrsrsResourceRecordSets' --@@ -251,16 +251,16 @@ -- -- * 'lrrsrsMaxItems' listResourceRecordSetsResponse-    :: Int -- ^ 'lrrsrsStatus'+    :: Int -- ^ 'lrrsrsResponseStatus'     -> Bool -- ^ 'lrrsrsIsTruncated'     -> Text -- ^ 'lrrsrsMaxItems'     -> ListResourceRecordSetsResponse-listResourceRecordSetsResponse pStatus_ pIsTruncated_ pMaxItems_ =+listResourceRecordSetsResponse pResponseStatus_ pIsTruncated_ pMaxItems_ =     ListResourceRecordSetsResponse'     { _lrrsrsNextRecordType = Nothing     , _lrrsrsNextRecordName = Nothing     , _lrrsrsNextRecordIdentifier = Nothing-    , _lrrsrsStatus = pStatus_+    , _lrrsrsResponseStatus = pResponseStatus_     , _lrrsrsResourceRecordSets = mempty     , _lrrsrsIsTruncated = pIsTruncated_     , _lrrsrsMaxItems = pMaxItems_@@ -285,8 +285,8 @@ lrrsrsNextRecordIdentifier = lens _lrrsrsNextRecordIdentifier (\ s a -> s{_lrrsrsNextRecordIdentifier = a});  -- | The response status code.-lrrsrsStatus :: Lens' ListResourceRecordSetsResponse Int-lrrsrsStatus = lens _lrrsrsStatus (\ s a -> s{_lrrsrsStatus = a});+lrrsrsResponseStatus :: Lens' ListResourceRecordSetsResponse Int+lrrsrsResponseStatus = lens _lrrsrsResponseStatus (\ s a -> s{_lrrsrsResponseStatus = a});  -- | A complex type that contains information about the resource record sets -- that are returned by the request.

@@ -37,15 +37,15 @@       listReusableDelegationSets     , ListReusableDelegationSets     -- * Request Lenses-    , lrdsMaxItems     , lrdsMarker+    , lrdsMaxItems      -- * Destructuring the Response     , listReusableDelegationSetsResponse     , ListReusableDelegationSetsResponse     -- * Response Lenses     , lrdsrsNextMarker-    , lrdsrsStatus+    , lrdsrsResponseStatus     , lrdsrsDelegationSets     , lrdsrsMarker     , lrdsrsIsTruncated@@ -72,36 +72,36 @@ -- -- /See:/ 'listReusableDelegationSets' smart constructor. data ListReusableDelegationSets = ListReusableDelegationSets'-    { _lrdsMaxItems :: !(Maybe Text)-    , _lrdsMarker   :: !(Maybe Text)+    { _lrdsMarker   :: !(Maybe Text)+    , _lrdsMaxItems :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListReusableDelegationSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrdsMaxItems'--- -- * 'lrdsMarker'+--+-- * 'lrdsMaxItems' listReusableDelegationSets     :: ListReusableDelegationSets listReusableDelegationSets =     ListReusableDelegationSets'-    { _lrdsMaxItems = Nothing-    , _lrdsMarker = Nothing+    { _lrdsMarker = Nothing+    , _lrdsMaxItems = Nothing     } --- | Specify the maximum number of reusable delegation sets to return per--- page of results.-lrdsMaxItems :: Lens' ListReusableDelegationSets (Maybe Text)-lrdsMaxItems = lens _lrdsMaxItems (\ s a -> s{_lrdsMaxItems = 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. lrdsMarker :: Lens' ListReusableDelegationSets (Maybe Text) lrdsMarker = lens _lrdsMarker (\ s a -> s{_lrdsMarker = a}); +-- | Specify the maximum number of reusable delegation sets to return per+-- page of results.+lrdsMaxItems :: Lens' ListReusableDelegationSets (Maybe Text)+lrdsMaxItems = lens _lrdsMaxItems (\ s a -> s{_lrdsMaxItems = a});+ instance AWSRequest ListReusableDelegationSets where         type Rs ListReusableDelegationSets =              ListReusableDelegationSetsResponse@@ -126,15 +126,15 @@ instance ToQuery ListReusableDelegationSets where         toQuery ListReusableDelegationSets'{..}           = mconcat-              ["maxitems" =: _lrdsMaxItems,-               "marker" =: _lrdsMarker]+              ["marker" =: _lrdsMarker,+               "maxitems" =: _lrdsMaxItems]  -- | A complex type that contains the response for the request. -- -- /See:/ 'listReusableDelegationSetsResponse' smart constructor. data ListReusableDelegationSetsResponse = ListReusableDelegationSetsResponse'     { _lrdsrsNextMarker     :: !(Maybe Text)-    , _lrdsrsStatus         :: !Int+    , _lrdsrsResponseStatus :: !Int     , _lrdsrsDelegationSets :: ![DelegationSet]     , _lrdsrsMarker         :: !Text     , _lrdsrsIsTruncated    :: !Bool@@ -147,7 +147,7 @@ -- -- * 'lrdsrsNextMarker' ----- * 'lrdsrsStatus'+-- * 'lrdsrsResponseStatus' -- -- * 'lrdsrsDelegationSets' --@@ -157,15 +157,15 @@ -- -- * 'lrdsrsMaxItems' listReusableDelegationSetsResponse-    :: Int -- ^ 'lrdsrsStatus'+    :: Int -- ^ 'lrdsrsResponseStatus'     -> Text -- ^ 'lrdsrsMarker'     -> Bool -- ^ 'lrdsrsIsTruncated'     -> Text -- ^ 'lrdsrsMaxItems'     -> ListReusableDelegationSetsResponse-listReusableDelegationSetsResponse pStatus_ pMarker_ pIsTruncated_ pMaxItems_ =+listReusableDelegationSetsResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ =     ListReusableDelegationSetsResponse'     { _lrdsrsNextMarker = Nothing-    , _lrdsrsStatus = pStatus_+    , _lrdsrsResponseStatus = pResponseStatus_     , _lrdsrsDelegationSets = mempty     , _lrdsrsMarker = pMarker_     , _lrdsrsIsTruncated = pIsTruncated_@@ -181,8 +181,8 @@ lrdsrsNextMarker = lens _lrdsrsNextMarker (\ s a -> s{_lrdsrsNextMarker = a});  -- | The response status code.-lrdsrsStatus :: Lens' ListReusableDelegationSetsResponse Int-lrdsrsStatus = lens _lrdsrsStatus (\ s a -> s{_lrdsrsStatus = a});+lrdsrsResponseStatus :: Lens' ListReusableDelegationSetsResponse Int+lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a});  -- | A complex type that contains information about the reusable delegation -- sets associated with the current AWS account.

@@ -34,7 +34,7 @@     , listTagsForResourceResponse     , ListTagsForResourceResponse     -- * Response Lenses-    , ltfrrsStatus+    , ltfrrsResponseStatus     , ltfrrsResourceTagSet     ) where @@ -108,7 +108,7 @@ -- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse'-    { _ltfrrsStatus         :: !Int+    { _ltfrrsResponseStatus :: !Int     , _ltfrrsResourceTagSet :: !ResourceTagSet     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -116,22 +116,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltfrrsStatus'+-- * 'ltfrrsResponseStatus' -- -- * 'ltfrrsResourceTagSet' listTagsForResourceResponse-    :: Int -- ^ 'ltfrrsStatus'+    :: Int -- ^ 'ltfrrsResponseStatus'     -> ResourceTagSet -- ^ 'ltfrrsResourceTagSet'     -> ListTagsForResourceResponse-listTagsForResourceResponse pStatus_ pResourceTagSet_ =+listTagsForResourceResponse pResponseStatus_ pResourceTagSet_ =     ListTagsForResourceResponse'-    { _ltfrrsStatus = pStatus_+    { _ltfrrsResponseStatus = pResponseStatus_     , _ltfrrsResourceTagSet = pResourceTagSet_     }  -- | The response status code.-ltfrrsStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsStatus = lens _ltfrrsStatus (\ s a -> s{_ltfrrsStatus = a});+ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});  -- | A 'ResourceTagSet' containing tags associated with the specified -- resource.

@@ -34,7 +34,7 @@     , listTagsForResourcesResponse     , ListTagsForResourcesResponse     -- * Response Lenses-    , lrsStatus+    , lrsResponseStatus     , lrsResourceTagSets     ) where @@ -120,7 +120,7 @@ -- -- /See:/ 'listTagsForResourcesResponse' smart constructor. data ListTagsForResourcesResponse = ListTagsForResourcesResponse'-    { _lrsStatus          :: !Int+    { _lrsResponseStatus  :: !Int     , _lrsResourceTagSets :: ![ResourceTagSet]     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -128,21 +128,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrsStatus'+-- * 'lrsResponseStatus' -- -- * 'lrsResourceTagSets' listTagsForResourcesResponse-    :: Int -- ^ 'lrsStatus'+    :: Int -- ^ 'lrsResponseStatus'     -> ListTagsForResourcesResponse-listTagsForResourcesResponse pStatus_ =+listTagsForResourcesResponse pResponseStatus_ =     ListTagsForResourcesResponse'-    { _lrsStatus = pStatus_+    { _lrsResponseStatus = pResponseStatus_     , _lrsResourceTagSets = mempty     }  -- | The response status code.-lrsStatus :: Lens' ListTagsForResourcesResponse Int-lrsStatus = lens _lrsStatus (\ s a -> s{_lrsStatus = a});+lrsResponseStatus :: Lens' ListTagsForResourcesResponse Int+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});  -- | A list of 'ResourceTagSet's containing tags associated with the -- specified resources.

@@ -23,12 +23,12 @@     , _DelegationSetAlreadyReusable     , _PriorRequestNotComplete     , _InvalidChangeBatch-    , _InvalidDomainName     , _DelegationSetNotReusable-    , _HealthCheckAlreadyExists+    , _InvalidDomainName     , _HostedZoneNotFound     , _DelegationSetInUse     , _NoSuchDelegationSet+    , _HealthCheckAlreadyExists     , _NoSuchGeoLocation     , _DelegationSetNotAvailable     , _VPCAssociationNotFound@@ -36,17 +36,17 @@     , _NoSuchChange     , _LimitsExceeded     , _IncompatibleVersion+    , _PublicZoneVPCAssociation     , _NoSuchHostedZone     , _TooManyHostedZones-    , _PublicZoneVPCAssociation-    , _ConflictingDomainExists-    , _LastVPCAssociation     , _HealthCheckInUse     , _DelegationSetAlreadyCreated+    , _ConflictingDomainExists+    , _LastVPCAssociation     , _TooManyHealthChecks     , _NoSuchHealthCheck-    , _HostedZoneAlreadyExists     , _InvalidVPCId+    , _HostedZoneAlreadyExists      -- * Re-exported Types     , module Network.AWS.Route53.Internal@@ -134,8 +134,8 @@     -- * HealthCheckConfig     , HealthCheckConfig     , healthCheckConfig-    , hccIPAddress     , hccFailureThreshold+    , hccIPAddress     , hccSearchString     , hccResourcePath     , hccFullyQualifiedDomainName@@ -172,8 +172,8 @@     -- * ResourceRecordSet     , ResourceRecordSet     , resourceRecordSet-    , rrsResourceRecords     , rrsTTL+    , rrsResourceRecords     , rrsAliasTarget     , rrsWeight     , rrsSetIdentifier@@ -286,21 +286,14 @@ _InvalidChangeBatch :: AsError a => Getting (First ServiceError) a ServiceError _InvalidChangeBatch = _ServiceError . hasCode "InvalidChangeBatch" --- | This error indicates that the specified domain name is not valid.-_InvalidDomainName :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidDomainName =-    _ServiceError . hasStatus 400 . hasCode "InvalidDomainName"- -- | The specified delegation set has not been marked as reusable. _DelegationSetNotReusable :: AsError a => Getting (First ServiceError) a ServiceError _DelegationSetNotReusable = _ServiceError . hasCode "DelegationSetNotReusable" --- | The health check you are trying to create already exists. Route 53--- returns this error when a health check has already been created with the--- specified 'CallerReference'.-_HealthCheckAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError-_HealthCheckAlreadyExists =-    _ServiceError . hasStatus 409 . hasCode "HealthCheckAlreadyExists"+-- | This error indicates that the specified domain name is not valid.+_InvalidDomainName :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidDomainName =+    _ServiceError . hasStatus 400 . hasCode "InvalidDomainName"  -- | The specified HostedZone cannot be found. _HostedZoneNotFound :: AsError a => Getting (First ServiceError) a ServiceError@@ -315,6 +308,13 @@ _NoSuchDelegationSet :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchDelegationSet = _ServiceError . hasCode "NoSuchDelegationSet" +-- | The health check you are trying to create already exists. Route 53+-- returns this error when a health check has already been created with the+-- specified 'CallerReference'.+_HealthCheckAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError+_HealthCheckAlreadyExists =+    _ServiceError . hasStatus 409 . hasCode "HealthCheckAlreadyExists"+ -- | The geo location you are trying to get does not exist. _NoSuchGeoLocation :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchGeoLocation =@@ -354,6 +354,13 @@ _IncompatibleVersion =     _ServiceError . hasStatus 400 . hasCode "IncompatibleVersion" +-- | The hosted zone you are trying to associate VPC with doesn\'t have any+-- VPC association. Route 53 currently doesn\'t support associate a VPC+-- with a public hosted zone.+_PublicZoneVPCAssociation :: AsError a => Getting (First ServiceError) a ServiceError+_PublicZoneVPCAssociation =+    _ServiceError . hasStatus 400 . hasCode "PublicZoneVPCAssociation"+ -- | Prism for NoSuchHostedZone' errors. _NoSuchHostedZone :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchHostedZone = _ServiceError . hasStatus 404 . hasCode "NoSuchHostedZone"@@ -366,24 +373,6 @@ _TooManyHostedZones =     _ServiceError . hasStatus 400 . hasCode "TooManyHostedZones" --- | The hosted zone you are trying to associate VPC with doesn\'t have any--- VPC association. Route 53 currently doesn\'t support associate a VPC--- with a public hosted zone.-_PublicZoneVPCAssociation :: AsError a => Getting (First ServiceError) a ServiceError-_PublicZoneVPCAssociation =-    _ServiceError . hasStatus 400 . hasCode "PublicZoneVPCAssociation"---- | Prism for ConflictingDomainExists' errors.-_ConflictingDomainExists :: AsError a => Getting (First ServiceError) a ServiceError-_ConflictingDomainExists = _ServiceError . hasCode "ConflictingDomainExists"---- | The VPC you are trying to disassociate from the hosted zone is the last--- the VPC that is associated with the hosted zone. Route 53 currently--- doesn\'t support disassociate the last VPC from the hosted zone.-_LastVPCAssociation :: AsError a => Getting (First ServiceError) a ServiceError-_LastVPCAssociation =-    _ServiceError . hasStatus 400 . hasCode "LastVPCAssociation"- -- | There are resource records associated with this health check. Before you -- can delete the health check, you must disassociate it from the resource -- record sets.@@ -396,6 +385,17 @@ _DelegationSetAlreadyCreated =     _ServiceError . hasCode "DelegationSetAlreadyCreated" +-- | Prism for ConflictingDomainExists' errors.+_ConflictingDomainExists :: AsError a => Getting (First ServiceError) a ServiceError+_ConflictingDomainExists = _ServiceError . hasCode "ConflictingDomainExists"++-- | The VPC you are trying to disassociate from the hosted zone is the last+-- the VPC that is associated with the hosted zone. Route 53 currently+-- doesn\'t support disassociate the last VPC from the hosted zone.+_LastVPCAssociation :: AsError a => Getting (First ServiceError) a ServiceError+_LastVPCAssociation =+    _ServiceError . hasStatus 400 . hasCode "LastVPCAssociation"+ -- | Prism for TooManyHealthChecks' errors. _TooManyHealthChecks :: AsError a => Getting (First ServiceError) a ServiceError _TooManyHealthChecks = _ServiceError . hasCode "TooManyHealthChecks"@@ -405,15 +405,15 @@ _NoSuchHealthCheck =     _ServiceError . hasStatus 404 . hasCode "NoSuchHealthCheck" +-- | The hosted zone you are trying to create for your VPC_ID does not belong+-- to you. Route 53 returns this error when the VPC specified by 'VPCId'+-- does not belong to you.+_InvalidVPCId :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidVPCId = _ServiceError . hasStatus 400 . hasCode "InvalidVPCId"+ -- | The hosted zone you are trying to create already exists. Route 53 -- returns this error when a hosted zone has already been created with the -- specified 'CallerReference'. _HostedZoneAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _HostedZoneAlreadyExists =     _ServiceError . hasStatus 409 . hasCode "HostedZoneAlreadyExists"---- | The hosted zone you are trying to create for your VPC_ID does not belong--- to you. Route 53 returns this error when the VPC specified by 'VPCId'--- does not belong to you.-_InvalidVPCId :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidVPCId = _ServiceError . hasStatus 400 . hasCode "InvalidVPCId"

@@ -526,8 +526,8 @@ -- -- /See:/ 'healthCheckConfig' smart constructor. data HealthCheckConfig = HealthCheckConfig'-    { _hccIPAddress                :: !(Maybe Text)-    , _hccFailureThreshold         :: !(Maybe Nat)+    { _hccFailureThreshold         :: !(Maybe Nat)+    , _hccIPAddress                :: !(Maybe Text)     , _hccSearchString             :: !(Maybe Text)     , _hccResourcePath             :: !(Maybe Text)     , _hccFullyQualifiedDomainName :: !(Maybe Text)@@ -540,10 +540,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'hccIPAddress'--- -- * 'hccFailureThreshold' --+-- * 'hccIPAddress'+-- -- * 'hccSearchString' -- -- * 'hccResourcePath'@@ -560,8 +560,8 @@     -> HealthCheckConfig healthCheckConfig pType_ =     HealthCheckConfig'-    { _hccIPAddress = Nothing-    , _hccFailureThreshold = Nothing+    { _hccFailureThreshold = Nothing+    , _hccIPAddress = Nothing     , _hccSearchString = Nothing     , _hccResourcePath = Nothing     , _hccFullyQualifiedDomainName = Nothing@@ -570,10 +570,6 @@     , _hccType = pType_     } --- | IP Address of the instance being checked.-hccIPAddress :: Lens' HealthCheckConfig (Maybe Text)-hccIPAddress = lens _hccIPAddress (\ s a -> s{_hccIPAddress = a});- -- | The number of consecutive health checks that an endpoint must pass or -- fail for Route 53 to change the current status of the endpoint from -- unhealthy to healthy or vice versa.@@ -584,6 +580,10 @@ hccFailureThreshold :: Lens' HealthCheckConfig (Maybe Natural) hccFailureThreshold = lens _hccFailureThreshold (\ s a -> s{_hccFailureThreshold = a}) . mapping _Nat; +-- | IP Address of the instance being checked.+hccIPAddress :: Lens' HealthCheckConfig (Maybe Text)+hccIPAddress = lens _hccIPAddress (\ s a -> s{_hccIPAddress = a});+ -- | A string to search for in the body of a health check response. Required -- for HTTP_STR_MATCH and HTTPS_STR_MATCH health checks. hccSearchString :: Lens' HealthCheckConfig (Maybe Text)@@ -623,7 +623,7 @@ instance FromXML HealthCheckConfig where         parseXML x           = HealthCheckConfig' <$>-              (x .@? "IPAddress") <*> (x .@? "FailureThreshold")+              (x .@? "FailureThreshold") <*> (x .@? "IPAddress")                 <*> (x .@? "SearchString")                 <*> (x .@? "ResourcePath")                 <*> (x .@? "FullyQualifiedDomainName")@@ -634,8 +634,8 @@ instance ToXML HealthCheckConfig where         toXML HealthCheckConfig'{..}           = mconcat-              ["IPAddress" @= _hccIPAddress,-               "FailureThreshold" @= _hccFailureThreshold,+              ["FailureThreshold" @= _hccFailureThreshold,+               "IPAddress" @= _hccIPAddress,                "SearchString" @= _hccSearchString,                "ResourcePath" @= _hccResourcePath,                "FullyQualifiedDomainName" @=@@ -840,8 +840,8 @@ -- -- /See:/ 'resourceRecordSet' smart constructor. data ResourceRecordSet = ResourceRecordSet'-    { _rrsResourceRecords :: !(Maybe (List1 ResourceRecord))-    , _rrsTTL             :: !(Maybe Nat)+    { _rrsTTL             :: !(Maybe Nat)+    , _rrsResourceRecords :: !(Maybe (List1 ResourceRecord))     , _rrsAliasTarget     :: !(Maybe AliasTarget)     , _rrsWeight          :: !(Maybe Nat)     , _rrsSetIdentifier   :: !(Maybe Text)@@ -857,10 +857,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rrsResourceRecords'--- -- * 'rrsTTL' --+-- * 'rrsResourceRecords'+-- -- * 'rrsAliasTarget' -- -- * 'rrsWeight'@@ -884,8 +884,8 @@     -> ResourceRecordSet resourceRecordSet pName_ pType_ =     ResourceRecordSet'-    { _rrsResourceRecords = Nothing-    , _rrsTTL = Nothing+    { _rrsTTL = Nothing+    , _rrsResourceRecords = Nothing     , _rrsAliasTarget = Nothing     , _rrsWeight = Nothing     , _rrsSetIdentifier = Nothing@@ -897,15 +897,15 @@     , _rrsType = pType_     } +-- | The cache time to live for the current resource record set.+rrsTTL :: Lens' ResourceRecordSet (Maybe Natural)+rrsTTL = lens _rrsTTL (\ s a -> s{_rrsTTL = a}) . mapping _Nat;+ -- | A complex type that contains the resource records for the current -- resource record set. rrsResourceRecords :: Lens' ResourceRecordSet (Maybe (NonEmpty ResourceRecord)) rrsResourceRecords = lens _rrsResourceRecords (\ s a -> s{_rrsResourceRecords = a}) . mapping _List1; --- | The cache time to live for the current resource record set.-rrsTTL :: Lens' ResourceRecordSet (Maybe Natural)-rrsTTL = lens _rrsTTL (\ s a -> s{_rrsTTL = a}) . mapping _Nat;- -- | /Alias resource record sets only:/ Information about the AWS resource to -- which you are redirecting traffic. rrsAliasTarget :: Lens' ResourceRecordSet (Maybe AliasTarget)@@ -973,9 +973,9 @@ instance FromXML ResourceRecordSet where         parseXML x           = ResourceRecordSet' <$>-              (x .@? "ResourceRecords" .!@ mempty >>=-                 may (parseXMLList1 "ResourceRecord"))-                <*> (x .@? "TTL")+              (x .@? "TTL") <*>+                (x .@? "ResourceRecords" .!@ mempty >>=+                   may (parseXMLList1 "ResourceRecord"))                 <*> (x .@? "AliasTarget")                 <*> (x .@? "Weight")                 <*> (x .@? "SetIdentifier")@@ -989,10 +989,11 @@ instance ToXML ResourceRecordSet where         toXML ResourceRecordSet'{..}           = mconcat-              ["ResourceRecords" @=+              ["TTL" @= _rrsTTL,+               "ResourceRecords" @=                  toXML                    (toXMLList "ResourceRecord" <$> _rrsResourceRecords),-               "TTL" @= _rrsTTL, "AliasTarget" @= _rrsAliasTarget,+               "AliasTarget" @= _rrsAliasTarget,                "Weight" @= _rrsWeight,                "SetIdentifier" @= _rrsSetIdentifier,                "Failover" @= _rrsFailover,

@@ -33,8 +33,8 @@       updateHealthCheck     , UpdateHealthCheck     -- * Request Lenses-    , uhcIPAddress     , uhcFailureThreshold+    , uhcIPAddress     , uhcSearchString     , uhcResourcePath     , uhcHealthCheckVersion@@ -46,7 +46,7 @@     , updateHealthCheckResponse     , UpdateHealthCheckResponse     -- * Response Lenses-    , uhcrsStatus+    , uhcrsResponseStatus     , uhcrsHealthCheck     ) where @@ -61,8 +61,8 @@ -- -- /See:/ 'updateHealthCheck' smart constructor. data UpdateHealthCheck = UpdateHealthCheck'-    { _uhcIPAddress                :: !(Maybe Text)-    , _uhcFailureThreshold         :: !(Maybe Nat)+    { _uhcFailureThreshold         :: !(Maybe Nat)+    , _uhcIPAddress                :: !(Maybe Text)     , _uhcSearchString             :: !(Maybe Text)     , _uhcResourcePath             :: !(Maybe Text)     , _uhcHealthCheckVersion       :: !(Maybe Nat)@@ -75,10 +75,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uhcIPAddress'--- -- * 'uhcFailureThreshold' --+-- * 'uhcIPAddress'+-- -- * 'uhcSearchString' -- -- * 'uhcResourcePath'@@ -95,8 +95,8 @@     -> UpdateHealthCheck updateHealthCheck pHealthCheckId_ =     UpdateHealthCheck'-    { _uhcIPAddress = Nothing-    , _uhcFailureThreshold = Nothing+    { _uhcFailureThreshold = Nothing+    , _uhcIPAddress = Nothing     , _uhcSearchString = Nothing     , _uhcResourcePath = Nothing     , _uhcHealthCheckVersion = Nothing@@ -105,12 +105,6 @@     , _uhcHealthCheckId = pHealthCheckId_     } --- | The IP address of the resource that you want to check.------ Specify this value only if you want to change it.-uhcIPAddress :: Lens' UpdateHealthCheck (Maybe Text)-uhcIPAddress = lens _uhcIPAddress (\ s a -> s{_uhcIPAddress = a});- -- | The number of consecutive health checks that an endpoint must pass or -- fail for Route 53 to change the current status of the endpoint from -- unhealthy to healthy or vice versa.@@ -123,6 +117,12 @@ uhcFailureThreshold :: Lens' UpdateHealthCheck (Maybe Natural) uhcFailureThreshold = lens _uhcFailureThreshold (\ s a -> s{_uhcFailureThreshold = a}) . mapping _Nat; +-- | The IP address of the resource that you want to check.+--+-- Specify this value only if you want to change it.+uhcIPAddress :: Lens' UpdateHealthCheck (Maybe Text)+uhcIPAddress = lens _uhcIPAddress (\ s a -> s{_uhcIPAddress = a});+ -- | If the value of 'Type' is 'HTTP_STR_MATCH' or 'HTTP_STR_MATCH', the -- string that you want Route 53 to search for in the response body from -- the specified resource. If the string appears in the response body,@@ -194,8 +194,8 @@ instance ToXML UpdateHealthCheck where         toXML UpdateHealthCheck'{..}           = mconcat-              ["IPAddress" @= _uhcIPAddress,-               "FailureThreshold" @= _uhcFailureThreshold,+              ["FailureThreshold" @= _uhcFailureThreshold,+               "IPAddress" @= _uhcIPAddress,                "SearchString" @= _uhcSearchString,                "ResourcePath" @= _uhcResourcePath,                "HealthCheckVersion" @= _uhcHealthCheckVersion,@@ -205,30 +205,30 @@  -- | /See:/ 'updateHealthCheckResponse' smart constructor. data UpdateHealthCheckResponse = UpdateHealthCheckResponse'-    { _uhcrsStatus      :: !Int-    , _uhcrsHealthCheck :: !HealthCheck+    { _uhcrsResponseStatus :: !Int+    , _uhcrsHealthCheck    :: !HealthCheck     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateHealthCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uhcrsStatus'+-- * 'uhcrsResponseStatus' -- -- * 'uhcrsHealthCheck' updateHealthCheckResponse-    :: Int -- ^ 'uhcrsStatus'+    :: Int -- ^ 'uhcrsResponseStatus'     -> HealthCheck -- ^ 'uhcrsHealthCheck'     -> UpdateHealthCheckResponse-updateHealthCheckResponse pStatus_ pHealthCheck_ =+updateHealthCheckResponse pResponseStatus_ pHealthCheck_ =     UpdateHealthCheckResponse'-    { _uhcrsStatus = pStatus_+    { _uhcrsResponseStatus = pResponseStatus_     , _uhcrsHealthCheck = pHealthCheck_     }  -- | The response status code.-uhcrsStatus :: Lens' UpdateHealthCheckResponse Int-uhcrsStatus = lens _uhcrsStatus (\ s a -> s{_uhcrsStatus = a});+uhcrsResponseStatus :: Lens' UpdateHealthCheckResponse Int+uhcrsResponseStatus = lens _uhcrsResponseStatus (\ s a -> s{_uhcrsResponseStatus = a});  -- | Undocumented member. uhcrsHealthCheck :: Lens' UpdateHealthCheckResponse HealthCheck

@@ -39,7 +39,7 @@     , updateHostedZoneCommentResponse     , UpdateHostedZoneCommentResponse     -- * Response Lenses-    , uhzcrsStatus+    , uhzcrsResponseStatus     , uhzcrsHostedZone     ) where @@ -116,30 +116,30 @@ -- -- /See:/ 'updateHostedZoneCommentResponse' smart constructor. data UpdateHostedZoneCommentResponse = UpdateHostedZoneCommentResponse'-    { _uhzcrsStatus     :: !Int-    , _uhzcrsHostedZone :: !HostedZone+    { _uhzcrsResponseStatus :: !Int+    , _uhzcrsHostedZone     :: !HostedZone     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateHostedZoneCommentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uhzcrsStatus'+-- * 'uhzcrsResponseStatus' -- -- * 'uhzcrsHostedZone' updateHostedZoneCommentResponse-    :: Int -- ^ 'uhzcrsStatus'+    :: Int -- ^ 'uhzcrsResponseStatus'     -> HostedZone -- ^ 'uhzcrsHostedZone'     -> UpdateHostedZoneCommentResponse-updateHostedZoneCommentResponse pStatus_ pHostedZone_ =+updateHostedZoneCommentResponse pResponseStatus_ pHostedZone_ =     UpdateHostedZoneCommentResponse'-    { _uhzcrsStatus = pStatus_+    { _uhzcrsResponseStatus = pResponseStatus_     , _uhzcrsHostedZone = pHostedZone_     }  -- | The response status code.-uhzcrsStatus :: Lens' UpdateHostedZoneCommentResponse Int-uhzcrsStatus = lens _uhzcrsStatus (\ s a -> s{_uhzcrsStatus = a});+uhzcrsResponseStatus :: Lens' UpdateHostedZoneCommentResponse Int+uhzcrsResponseStatus = lens _uhzcrsResponseStatus (\ s a -> s{_uhzcrsResponseStatus = a});  -- | Undocumented member. uhzcrsHostedZone :: Lens' UpdateHostedZoneCommentResponse HostedZone

@@ -31,32 +31,29 @@ --         [ testAssociateVPCWithHostedZone $ --             associateVPCWithHostedZone --+--         , testGetCheckerIPRanges $+--             getCheckerIPRanges+-- --         , testGetHealthCheckLastFailureReason $ --             getHealthCheckLastFailureReason -----         , testListHostedZonesByName $---             listHostedZonesByName--- --         , testDeleteReusableDelegationSet $ --             deleteReusableDelegationSet --+--         , testListHostedZonesByName $+--             listHostedZonesByName+-- --         , testListReusableDelegationSets $ --             listReusableDelegationSets -----         , testGetCheckerIPRanges $---             getCheckerIPRanges--- --         , testListTagsForResource $ --             listTagsForResource -----         , testChangeResourceRecordSets $---             changeResourceRecordSets--- --         , testGetChange $ --             getChange -----         , testCreateHostedZone $---             createHostedZone+--         , testChangeResourceRecordSets $+--             changeResourceRecordSets -- --         , testDeleteHealthCheck $ --             deleteHealthCheck@@ -64,36 +61,39 @@ --         , testUpdateHealthCheck $ --             updateHealthCheck -----         , testChangeTagsForResource $---             changeTagsForResource+--         , testCreateHostedZone $+--             createHostedZone --+--         , testDisassociateVPCFromHostedZone $+--             disassociateVPCFromHostedZone+-- --         , testCreateHealthCheck $ --             createHealthCheck --+--         , testChangeTagsForResource $+--             changeTagsForResource+-- --         , testListHostedZones $ --             listHostedZones -----         , testDisassociateVPCFromHostedZone $---             disassociateVPCFromHostedZone+--         , testListGeoLocations $+--             listGeoLocations -- --         , testGetHostedZone $ --             getHostedZone -----         , testListGeoLocations $---             listGeoLocations--- --         , testGetHealthCheck $ --             getHealthCheck -- --         , testListResourceRecordSets $ --             listResourceRecordSets -----         , testGetHealthCheckCount $---             getHealthCheckCount--- --         , testCreateReusableDelegationSet $ --             createReusableDelegationSet --+--         , testGetHealthCheckCount $+--             getHealthCheckCount+-- --         , testGetHostedZoneCount $ --             getHostedZoneCount --@@ -124,32 +124,29 @@ --         [ testAssociateVPCWithHostedZoneResponse $ --             associateVPCWithHostedZoneResponse --+--         , testGetCheckerIPRangesResponse $+--             getCheckerIPRangesResponse+-- --         , testGetHealthCheckLastFailureReasonResponse $ --             getHealthCheckLastFailureReasonResponse -----         , testListHostedZonesByNameResponse $---             listHostedZonesByNameResponse--- --         , testDeleteReusableDelegationSetResponse $ --             deleteReusableDelegationSetResponse --+--         , testListHostedZonesByNameResponse $+--             listHostedZonesByNameResponse+-- --         , testListReusableDelegationSetsResponse $ --             listReusableDelegationSetsResponse -----         , testGetCheckerIPRangesResponse $---             getCheckerIPRangesResponse--- --         , testListTagsForResourceResponse $ --             listTagsForResourceResponse -----         , testChangeResourceRecordSetsResponse $---             changeResourceRecordSetsResponse--- --         , testGetChangeResponse $ --             getChangeResponse -----         , testCreateHostedZoneResponse $---             createHostedZoneResponse+--         , testChangeResourceRecordSetsResponse $+--             changeResourceRecordSetsResponse -- --         , testDeleteHealthCheckResponse $ --             deleteHealthCheckResponse@@ -157,36 +154,39 @@ --         , testUpdateHealthCheckResponse $ --             updateHealthCheckResponse -----         , testChangeTagsForResourceResponse $---             changeTagsForResourceResponse+--         , testCreateHostedZoneResponse $+--             createHostedZoneResponse --+--         , testDisassociateVPCFromHostedZoneResponse $+--             disassociateVPCFromHostedZoneResponse+-- --         , testCreateHealthCheckResponse $ --             createHealthCheckResponse --+--         , testChangeTagsForResourceResponse $+--             changeTagsForResourceResponse+-- --         , testListHostedZonesResponse $ --             listHostedZonesResponse -----         , testDisassociateVPCFromHostedZoneResponse $---             disassociateVPCFromHostedZoneResponse+--         , testListGeoLocationsResponse $+--             listGeoLocationsResponse -- --         , testGetHostedZoneResponse $ --             getHostedZoneResponse -----         , testListGeoLocationsResponse $---             listGeoLocationsResponse--- --         , testGetHealthCheckResponse $ --             getHealthCheckResponse -- --         , testListResourceRecordSetsResponse $ --             listResourceRecordSetsResponse -----         , testGetHealthCheckCountResponse $---             getHealthCheckCountResponse--- --         , testCreateReusableDelegationSetResponse $ --             createReusableDelegationSetResponse --+--         , testGetHealthCheckCountResponse $+--             getHealthCheckCountResponse+-- --         , testGetHostedZoneCountResponse $ --             getHostedZoneCountResponse --@@ -221,50 +221,45 @@     "AssociateVPCWithHostedZone"     "fixture/AssociateVPCWithHostedZone.yaml" +testGetCheckerIPRanges :: GetCheckerIPRanges -> TestTree+testGetCheckerIPRanges = req+    "GetCheckerIPRanges"+    "fixture/GetCheckerIPRanges.yaml"+ testGetHealthCheckLastFailureReason :: GetHealthCheckLastFailureReason -> TestTree testGetHealthCheckLastFailureReason = req     "GetHealthCheckLastFailureReason"     "fixture/GetHealthCheckLastFailureReason.yaml" -testListHostedZonesByName :: ListHostedZonesByName -> TestTree-testListHostedZonesByName = req-    "ListHostedZonesByName"-    "fixture/ListHostedZonesByName.yaml"- testDeleteReusableDelegationSet :: DeleteReusableDelegationSet -> TestTree testDeleteReusableDelegationSet = req     "DeleteReusableDelegationSet"     "fixture/DeleteReusableDelegationSet.yaml" +testListHostedZonesByName :: ListHostedZonesByName -> TestTree+testListHostedZonesByName = req+    "ListHostedZonesByName"+    "fixture/ListHostedZonesByName.yaml"+ testListReusableDelegationSets :: ListReusableDelegationSets -> TestTree testListReusableDelegationSets = req     "ListReusableDelegationSets"     "fixture/ListReusableDelegationSets.yaml" -testGetCheckerIPRanges :: GetCheckerIPRanges -> TestTree-testGetCheckerIPRanges = req-    "GetCheckerIPRanges"-    "fixture/GetCheckerIPRanges.yaml"- testListTagsForResource :: ListTagsForResource -> TestTree testListTagsForResource = req     "ListTagsForResource"     "fixture/ListTagsForResource.yaml" -testChangeResourceRecordSets :: ChangeResourceRecordSets -> TestTree-testChangeResourceRecordSets = req-    "ChangeResourceRecordSets"-    "fixture/ChangeResourceRecordSets.yaml"- testGetChange :: GetChange -> TestTree testGetChange = req     "GetChange"     "fixture/GetChange.yaml" -testCreateHostedZone :: CreateHostedZone -> TestTree-testCreateHostedZone = req-    "CreateHostedZone"-    "fixture/CreateHostedZone.yaml"+testChangeResourceRecordSets :: ChangeResourceRecordSets -> TestTree+testChangeResourceRecordSets = req+    "ChangeResourceRecordSets"+    "fixture/ChangeResourceRecordSets.yaml"  testDeleteHealthCheck :: DeleteHealthCheck -> TestTree testDeleteHealthCheck = req@@ -276,36 +271,41 @@     "UpdateHealthCheck"     "fixture/UpdateHealthCheck.yaml" -testChangeTagsForResource :: ChangeTagsForResource -> TestTree-testChangeTagsForResource = req-    "ChangeTagsForResource"-    "fixture/ChangeTagsForResource.yaml"+testCreateHostedZone :: CreateHostedZone -> TestTree+testCreateHostedZone = req+    "CreateHostedZone"+    "fixture/CreateHostedZone.yaml" +testDisassociateVPCFromHostedZone :: DisassociateVPCFromHostedZone -> TestTree+testDisassociateVPCFromHostedZone = req+    "DisassociateVPCFromHostedZone"+    "fixture/DisassociateVPCFromHostedZone.yaml"+ testCreateHealthCheck :: CreateHealthCheck -> TestTree testCreateHealthCheck = req     "CreateHealthCheck"     "fixture/CreateHealthCheck.yaml" +testChangeTagsForResource :: ChangeTagsForResource -> TestTree+testChangeTagsForResource = req+    "ChangeTagsForResource"+    "fixture/ChangeTagsForResource.yaml"+ testListHostedZones :: ListHostedZones -> TestTree testListHostedZones = req     "ListHostedZones"     "fixture/ListHostedZones.yaml" -testDisassociateVPCFromHostedZone :: DisassociateVPCFromHostedZone -> TestTree-testDisassociateVPCFromHostedZone = req-    "DisassociateVPCFromHostedZone"-    "fixture/DisassociateVPCFromHostedZone.yaml"+testListGeoLocations :: ListGeoLocations -> TestTree+testListGeoLocations = req+    "ListGeoLocations"+    "fixture/ListGeoLocations.yaml"  testGetHostedZone :: GetHostedZone -> TestTree testGetHostedZone = req     "GetHostedZone"     "fixture/GetHostedZone.yaml" -testListGeoLocations :: ListGeoLocations -> TestTree-testListGeoLocations = req-    "ListGeoLocations"-    "fixture/ListGeoLocations.yaml"- testGetHealthCheck :: GetHealthCheck -> TestTree testGetHealthCheck = req     "GetHealthCheck"@@ -316,16 +316,16 @@     "ListResourceRecordSets"     "fixture/ListResourceRecordSets.yaml" -testGetHealthCheckCount :: GetHealthCheckCount -> TestTree-testGetHealthCheckCount = req-    "GetHealthCheckCount"-    "fixture/GetHealthCheckCount.yaml"- testCreateReusableDelegationSet :: CreateReusableDelegationSet -> TestTree testCreateReusableDelegationSet = req     "CreateReusableDelegationSet"     "fixture/CreateReusableDelegationSet.yaml" +testGetHealthCheckCount :: GetHealthCheckCount -> TestTree+testGetHealthCheckCount = req+    "GetHealthCheckCount"+    "fixture/GetHealthCheckCount.yaml"+ testGetHostedZoneCount :: GetHostedZoneCount -> TestTree testGetHostedZoneCount = req     "GetHostedZoneCount"@@ -375,6 +375,13 @@     route53     (Proxy :: Proxy AssociateVPCWithHostedZone) +testGetCheckerIPRangesResponse :: GetCheckerIPRangesResponse -> TestTree+testGetCheckerIPRangesResponse = res+    "GetCheckerIPRangesResponse"+    "fixture/GetCheckerIPRangesResponse.proto"+    route53+    (Proxy :: Proxy GetCheckerIPRanges)+ testGetHealthCheckLastFailureReasonResponse :: GetHealthCheckLastFailureReasonResponse -> TestTree testGetHealthCheckLastFailureReasonResponse = res     "GetHealthCheckLastFailureReasonResponse"@@ -382,13 +389,6 @@     route53     (Proxy :: Proxy GetHealthCheckLastFailureReason) -testListHostedZonesByNameResponse :: ListHostedZonesByNameResponse -> TestTree-testListHostedZonesByNameResponse = res-    "ListHostedZonesByNameResponse"-    "fixture/ListHostedZonesByNameResponse.proto"-    route53-    (Proxy :: Proxy ListHostedZonesByName)- testDeleteReusableDelegationSetResponse :: DeleteReusableDelegationSetResponse -> TestTree testDeleteReusableDelegationSetResponse = res     "DeleteReusableDelegationSetResponse"@@ -396,6 +396,13 @@     route53     (Proxy :: Proxy DeleteReusableDelegationSet) +testListHostedZonesByNameResponse :: ListHostedZonesByNameResponse -> TestTree+testListHostedZonesByNameResponse = res+    "ListHostedZonesByNameResponse"+    "fixture/ListHostedZonesByNameResponse.proto"+    route53+    (Proxy :: Proxy ListHostedZonesByName)+ testListReusableDelegationSetsResponse :: ListReusableDelegationSetsResponse -> TestTree testListReusableDelegationSetsResponse = res     "ListReusableDelegationSetsResponse"@@ -403,13 +410,6 @@     route53     (Proxy :: Proxy ListReusableDelegationSets) -testGetCheckerIPRangesResponse :: GetCheckerIPRangesResponse -> TestTree-testGetCheckerIPRangesResponse = res-    "GetCheckerIPRangesResponse"-    "fixture/GetCheckerIPRangesResponse.proto"-    route53-    (Proxy :: Proxy GetCheckerIPRanges)- testListTagsForResourceResponse :: ListTagsForResourceResponse -> TestTree testListTagsForResourceResponse = res     "ListTagsForResourceResponse"@@ -417,13 +417,6 @@     route53     (Proxy :: Proxy ListTagsForResource) -testChangeResourceRecordSetsResponse :: ChangeResourceRecordSetsResponse -> TestTree-testChangeResourceRecordSetsResponse = res-    "ChangeResourceRecordSetsResponse"-    "fixture/ChangeResourceRecordSetsResponse.proto"-    route53-    (Proxy :: Proxy ChangeResourceRecordSets)- testGetChangeResponse :: GetChangeResponse -> TestTree testGetChangeResponse = res     "GetChangeResponse"@@ -431,12 +424,12 @@     route53     (Proxy :: Proxy GetChange) -testCreateHostedZoneResponse :: CreateHostedZoneResponse -> TestTree-testCreateHostedZoneResponse = res-    "CreateHostedZoneResponse"-    "fixture/CreateHostedZoneResponse.proto"+testChangeResourceRecordSetsResponse :: ChangeResourceRecordSetsResponse -> TestTree+testChangeResourceRecordSetsResponse = res+    "ChangeResourceRecordSetsResponse"+    "fixture/ChangeResourceRecordSetsResponse.proto"     route53-    (Proxy :: Proxy CreateHostedZone)+    (Proxy :: Proxy ChangeResourceRecordSets)  testDeleteHealthCheckResponse :: DeleteHealthCheckResponse -> TestTree testDeleteHealthCheckResponse = res@@ -452,13 +445,20 @@     route53     (Proxy :: Proxy UpdateHealthCheck) -testChangeTagsForResourceResponse :: ChangeTagsForResourceResponse -> TestTree-testChangeTagsForResourceResponse = res-    "ChangeTagsForResourceResponse"-    "fixture/ChangeTagsForResourceResponse.proto"+testCreateHostedZoneResponse :: CreateHostedZoneResponse -> TestTree+testCreateHostedZoneResponse = res+    "CreateHostedZoneResponse"+    "fixture/CreateHostedZoneResponse.proto"     route53-    (Proxy :: Proxy ChangeTagsForResource)+    (Proxy :: Proxy CreateHostedZone) +testDisassociateVPCFromHostedZoneResponse :: DisassociateVPCFromHostedZoneResponse -> TestTree+testDisassociateVPCFromHostedZoneResponse = res+    "DisassociateVPCFromHostedZoneResponse"+    "fixture/DisassociateVPCFromHostedZoneResponse.proto"+    route53+    (Proxy :: Proxy DisassociateVPCFromHostedZone)+ testCreateHealthCheckResponse :: CreateHealthCheckResponse -> TestTree testCreateHealthCheckResponse = res     "CreateHealthCheckResponse"@@ -466,6 +466,13 @@     route53     (Proxy :: Proxy CreateHealthCheck) +testChangeTagsForResourceResponse :: ChangeTagsForResourceResponse -> TestTree+testChangeTagsForResourceResponse = res+    "ChangeTagsForResourceResponse"+    "fixture/ChangeTagsForResourceResponse.proto"+    route53+    (Proxy :: Proxy ChangeTagsForResource)+ testListHostedZonesResponse :: ListHostedZonesResponse -> TestTree testListHostedZonesResponse = res     "ListHostedZonesResponse"@@ -473,12 +480,12 @@     route53     (Proxy :: Proxy ListHostedZones) -testDisassociateVPCFromHostedZoneResponse :: DisassociateVPCFromHostedZoneResponse -> TestTree-testDisassociateVPCFromHostedZoneResponse = res-    "DisassociateVPCFromHostedZoneResponse"-    "fixture/DisassociateVPCFromHostedZoneResponse.proto"+testListGeoLocationsResponse :: ListGeoLocationsResponse -> TestTree+testListGeoLocationsResponse = res+    "ListGeoLocationsResponse"+    "fixture/ListGeoLocationsResponse.proto"     route53-    (Proxy :: Proxy DisassociateVPCFromHostedZone)+    (Proxy :: Proxy ListGeoLocations)  testGetHostedZoneResponse :: GetHostedZoneResponse -> TestTree testGetHostedZoneResponse = res@@ -487,13 +494,6 @@     route53     (Proxy :: Proxy GetHostedZone) -testListGeoLocationsResponse :: ListGeoLocationsResponse -> TestTree-testListGeoLocationsResponse = res-    "ListGeoLocationsResponse"-    "fixture/ListGeoLocationsResponse.proto"-    route53-    (Proxy :: Proxy ListGeoLocations)- testGetHealthCheckResponse :: GetHealthCheckResponse -> TestTree testGetHealthCheckResponse = res     "GetHealthCheckResponse"@@ -508,19 +508,19 @@     route53     (Proxy :: Proxy ListResourceRecordSets) -testGetHealthCheckCountResponse :: GetHealthCheckCountResponse -> TestTree-testGetHealthCheckCountResponse = res-    "GetHealthCheckCountResponse"-    "fixture/GetHealthCheckCountResponse.proto"-    route53-    (Proxy :: Proxy GetHealthCheckCount)- testCreateReusableDelegationSetResponse :: CreateReusableDelegationSetResponse -> TestTree testCreateReusableDelegationSetResponse = res     "CreateReusableDelegationSetResponse"     "fixture/CreateReusableDelegationSetResponse.proto"     route53     (Proxy :: Proxy CreateReusableDelegationSet)++testGetHealthCheckCountResponse :: GetHealthCheckCountResponse -> TestTree+testGetHealthCheckCountResponse = res+    "GetHealthCheckCountResponse"+    "fixture/GetHealthCheckCountResponse.proto"+    route53+    (Proxy :: Proxy GetHealthCheckCount)  testGetHostedZoneCountResponse :: GetHostedZoneCountResponse -> TestTree testGetHostedZoneCountResponse = res