diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-route53.cabal b/amazonka-route53.cabal --- a/amazonka-route53.cabal +++ b/amazonka-route53.cabal @@ -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 diff --git a/gen/Network/AWS/Route53.hs b/gen/Network/AWS/Route53.hs --- a/gen/Network/AWS/Route53.hs +++ b/gen/Network/AWS/Route53.hs @@ -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 diff --git a/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs b/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs --- a/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +++ b/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs @@ -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'. diff --git a/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs b/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs --- a/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +++ b/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ChangeTagsForResource.hs b/gen/Network/AWS/Route53/ChangeTagsForResource.hs --- a/gen/Network/AWS/Route53/ChangeTagsForResource.hs +++ b/gen/Network/AWS/Route53/ChangeTagsForResource.hs @@ -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}); diff --git a/gen/Network/AWS/Route53/CreateHealthCheck.hs b/gen/Network/AWS/Route53/CreateHealthCheck.hs --- a/gen/Network/AWS/Route53/CreateHealthCheck.hs +++ b/gen/Network/AWS/Route53/CreateHealthCheck.hs @@ -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. diff --git a/gen/Network/AWS/Route53/CreateHostedZone.hs b/gen/Network/AWS/Route53/CreateHostedZone.hs --- a/gen/Network/AWS/Route53/CreateHostedZone.hs +++ b/gen/Network/AWS/Route53/CreateHostedZone.hs @@ -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. diff --git a/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs b/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs --- a/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +++ b/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs @@ -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 diff --git a/gen/Network/AWS/Route53/DeleteHealthCheck.hs b/gen/Network/AWS/Route53/DeleteHealthCheck.hs --- a/gen/Network/AWS/Route53/DeleteHealthCheck.hs +++ b/gen/Network/AWS/Route53/DeleteHealthCheck.hs @@ -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}); diff --git a/gen/Network/AWS/Route53/DeleteHostedZone.hs b/gen/Network/AWS/Route53/DeleteHostedZone.hs --- a/gen/Network/AWS/Route53/DeleteHostedZone.hs +++ b/gen/Network/AWS/Route53/DeleteHostedZone.hs @@ -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. diff --git a/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs b/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs --- a/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +++ b/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs @@ -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}); diff --git a/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs b/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs --- a/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +++ b/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs @@ -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'. diff --git a/gen/Network/AWS/Route53/GetChange.hs b/gen/Network/AWS/Route53/GetChange.hs --- a/gen/Network/AWS/Route53/GetChange.hs +++ b/gen/Network/AWS/Route53/GetChange.hs @@ -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 diff --git a/gen/Network/AWS/Route53/GetCheckerIPRanges.hs b/gen/Network/AWS/Route53/GetCheckerIPRanges.hs --- a/gen/Network/AWS/Route53/GetCheckerIPRanges.hs +++ b/gen/Network/AWS/Route53/GetCheckerIPRanges.hs @@ -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. diff --git a/gen/Network/AWS/Route53/GetGeoLocation.hs b/gen/Network/AWS/Route53/GetGeoLocation.hs --- a/gen/Network/AWS/Route53/GetGeoLocation.hs +++ b/gen/Network/AWS/Route53/GetGeoLocation.hs @@ -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. diff --git a/gen/Network/AWS/Route53/GetHealthCheck.hs b/gen/Network/AWS/Route53/GetHealthCheck.hs --- a/gen/Network/AWS/Route53/GetHealthCheck.hs +++ b/gen/Network/AWS/Route53/GetHealthCheck.hs @@ -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. diff --git a/gen/Network/AWS/Route53/GetHealthCheckCount.hs b/gen/Network/AWS/Route53/GetHealthCheckCount.hs --- a/gen/Network/AWS/Route53/GetHealthCheckCount.hs +++ b/gen/Network/AWS/Route53/GetHealthCheckCount.hs @@ -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 diff --git a/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs b/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs --- a/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +++ b/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs @@ -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. diff --git a/gen/Network/AWS/Route53/GetHealthCheckStatus.hs b/gen/Network/AWS/Route53/GetHealthCheckStatus.hs --- a/gen/Network/AWS/Route53/GetHealthCheckStatus.hs +++ b/gen/Network/AWS/Route53/GetHealthCheckStatus.hs @@ -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. diff --git a/gen/Network/AWS/Route53/GetHostedZone.hs b/gen/Network/AWS/Route53/GetHostedZone.hs --- a/gen/Network/AWS/Route53/GetHostedZone.hs +++ b/gen/Network/AWS/Route53/GetHostedZone.hs @@ -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. diff --git a/gen/Network/AWS/Route53/GetHostedZoneCount.hs b/gen/Network/AWS/Route53/GetHostedZoneCount.hs --- a/gen/Network/AWS/Route53/GetHostedZoneCount.hs +++ b/gen/Network/AWS/Route53/GetHostedZoneCount.hs @@ -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 diff --git a/gen/Network/AWS/Route53/GetReusableDelegationSet.hs b/gen/Network/AWS/Route53/GetReusableDelegationSet.hs --- a/gen/Network/AWS/Route53/GetReusableDelegationSet.hs +++ b/gen/Network/AWS/Route53/GetReusableDelegationSet.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListGeoLocations.hs b/gen/Network/AWS/Route53/ListGeoLocations.hs --- a/gen/Network/AWS/Route53/ListGeoLocations.hs +++ b/gen/Network/AWS/Route53/ListGeoLocations.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListHealthChecks.hs b/gen/Network/AWS/Route53/ListHealthChecks.hs --- a/gen/Network/AWS/Route53/ListHealthChecks.hs +++ b/gen/Network/AWS/Route53/ListHealthChecks.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListHostedZones.hs b/gen/Network/AWS/Route53/ListHostedZones.hs --- a/gen/Network/AWS/Route53/ListHostedZones.hs +++ b/gen/Network/AWS/Route53/ListHostedZones.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListHostedZonesByName.hs b/gen/Network/AWS/Route53/ListHostedZonesByName.hs --- a/gen/Network/AWS/Route53/ListHostedZonesByName.hs +++ b/gen/Network/AWS/Route53/ListHostedZonesByName.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListResourceRecordSets.hs b/gen/Network/AWS/Route53/ListResourceRecordSets.hs --- a/gen/Network/AWS/Route53/ListResourceRecordSets.hs +++ b/gen/Network/AWS/Route53/ListResourceRecordSets.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListReusableDelegationSets.hs b/gen/Network/AWS/Route53/ListReusableDelegationSets.hs --- a/gen/Network/AWS/Route53/ListReusableDelegationSets.hs +++ b/gen/Network/AWS/Route53/ListReusableDelegationSets.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListTagsForResource.hs b/gen/Network/AWS/Route53/ListTagsForResource.hs --- a/gen/Network/AWS/Route53/ListTagsForResource.hs +++ b/gen/Network/AWS/Route53/ListTagsForResource.hs @@ -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. diff --git a/gen/Network/AWS/Route53/ListTagsForResources.hs b/gen/Network/AWS/Route53/ListTagsForResources.hs --- a/gen/Network/AWS/Route53/ListTagsForResources.hs +++ b/gen/Network/AWS/Route53/ListTagsForResources.hs @@ -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. diff --git a/gen/Network/AWS/Route53/Types.hs b/gen/Network/AWS/Route53/Types.hs --- a/gen/Network/AWS/Route53/Types.hs +++ b/gen/Network/AWS/Route53/Types.hs @@ -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" diff --git a/gen/Network/AWS/Route53/Types/Product.hs b/gen/Network/AWS/Route53/Types/Product.hs --- a/gen/Network/AWS/Route53/Types/Product.hs +++ b/gen/Network/AWS/Route53/Types/Product.hs @@ -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, diff --git a/gen/Network/AWS/Route53/UpdateHealthCheck.hs b/gen/Network/AWS/Route53/UpdateHealthCheck.hs --- a/gen/Network/AWS/Route53/UpdateHealthCheck.hs +++ b/gen/Network/AWS/Route53/UpdateHealthCheck.hs @@ -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 diff --git a/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs b/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs --- a/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +++ b/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs @@ -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 diff --git a/test/Test/AWS/Gen/Route53.hs b/test/Test/AWS/Gen/Route53.hs --- a/test/Test/AWS/Gen/Route53.hs +++ b/test/Test/AWS/Gen/Route53.hs @@ -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