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-domains.cabal b/amazonka-route53-domains.cabal --- a/amazonka-route53-domains.cabal +++ b/amazonka-route53-domains.cabal @@ -1,5 +1,5 @@ name: amazonka-route53-domains -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon Route 53 Domains SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -67,7 +67,7 @@ , Network.AWS.Route53Domains.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-route53-domains-test @@ -87,9 +87,9 @@ , Test.AWS.Route53Domains.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-route53-domains == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-route53-domains == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/Route53Domains.hs b/gen/Network/AWS/Route53Domains.hs --- a/gen/Network/AWS/Route53Domains.hs +++ b/gen/Network/AWS/Route53Domains.hs @@ -85,18 +85,18 @@ -- ** UpdateDomainNameservers , module Network.AWS.Route53Domains.UpdateDomainNameservers - -- ** RetrieveDomainAuthCode - , module Network.AWS.Route53Domains.RetrieveDomainAuthCode - - -- ** TransferDomain - , module Network.AWS.Route53Domains.TransferDomain - -- ** DeleteTagsForDomain , module Network.AWS.Route53Domains.DeleteTagsForDomain -- ** UpdateTagsForDomain , module Network.AWS.Route53Domains.UpdateTagsForDomain + -- ** RetrieveDomainAuthCode + , module Network.AWS.Route53Domains.RetrieveDomainAuthCode + + -- ** TransferDomain + , module Network.AWS.Route53Domains.TransferDomain + -- ** ListDomains (Paginated) , module Network.AWS.Route53Domains.ListDomains @@ -125,8 +125,8 @@ , contactDetail , cdOrganizationName , cdEmail - , cdFax , cdState + , cdFax , cdLastName , cdExtraParams , cdZipCode diff --git a/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs b/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs --- a/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs +++ b/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs @@ -37,7 +37,7 @@ , checkDomainAvailabilityResponse , CheckDomainAvailabilityResponse -- * Response Lenses - , cdarsStatus + , cdarsResponseStatus , cdarsAvailability ) where @@ -126,30 +126,30 @@ -- -- /See:/ 'checkDomainAvailabilityResponse' smart constructor. data CheckDomainAvailabilityResponse = CheckDomainAvailabilityResponse' - { _cdarsStatus :: !Int - , _cdarsAvailability :: !DomainAvailability + { _cdarsResponseStatus :: !Int + , _cdarsAvailability :: !DomainAvailability } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CheckDomainAvailabilityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cdarsStatus' +-- * 'cdarsResponseStatus' -- -- * 'cdarsAvailability' checkDomainAvailabilityResponse - :: Int -- ^ 'cdarsStatus' + :: Int -- ^ 'cdarsResponseStatus' -> DomainAvailability -- ^ 'cdarsAvailability' -> CheckDomainAvailabilityResponse -checkDomainAvailabilityResponse pStatus_ pAvailability_ = +checkDomainAvailabilityResponse pResponseStatus_ pAvailability_ = CheckDomainAvailabilityResponse' - { _cdarsStatus = pStatus_ + { _cdarsResponseStatus = pResponseStatus_ , _cdarsAvailability = pAvailability_ } -- | The response status code. -cdarsStatus :: Lens' CheckDomainAvailabilityResponse Int -cdarsStatus = lens _cdarsStatus (\ s a -> s{_cdarsStatus = a}); +cdarsResponseStatus :: Lens' CheckDomainAvailabilityResponse Int +cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a}); -- | Whether the domain name is available for registering. -- diff --git a/gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs b/gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs --- a/gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs +++ b/gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs @@ -37,7 +37,7 @@ , deleteTagsForDomainResponse , DeleteTagsForDomainResponse -- * Response Lenses - , dtfdrsStatus + , dtfdrsResponseStatus ) where import Network.AWS.Prelude @@ -134,22 +134,22 @@ -- | /See:/ 'deleteTagsForDomainResponse' smart constructor. newtype DeleteTagsForDomainResponse = DeleteTagsForDomainResponse' - { _dtfdrsStatus :: Int + { _dtfdrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteTagsForDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dtfdrsStatus' +-- * 'dtfdrsResponseStatus' deleteTagsForDomainResponse - :: Int -- ^ 'dtfdrsStatus' + :: Int -- ^ 'dtfdrsResponseStatus' -> DeleteTagsForDomainResponse -deleteTagsForDomainResponse pStatus_ = +deleteTagsForDomainResponse pResponseStatus_ = DeleteTagsForDomainResponse' - { _dtfdrsStatus = pStatus_ + { _dtfdrsResponseStatus = pResponseStatus_ } -- | The response status code. -dtfdrsStatus :: Lens' DeleteTagsForDomainResponse Int -dtfdrsStatus = lens _dtfdrsStatus (\ s a -> s{_dtfdrsStatus = a}); +dtfdrsResponseStatus :: Lens' DeleteTagsForDomainResponse Int +dtfdrsResponseStatus = lens _dtfdrsResponseStatus (\ s a -> s{_dtfdrsResponseStatus = a}); diff --git a/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs b/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs --- a/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs +++ b/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs @@ -39,7 +39,7 @@ , disableDomainAutoRenewResponse , DisableDomainAutoRenewResponse -- * Response Lenses - , ddarrsStatus + , ddarrsResponseStatus ) where import Network.AWS.Prelude @@ -103,22 +103,22 @@ -- | /See:/ 'disableDomainAutoRenewResponse' smart constructor. newtype DisableDomainAutoRenewResponse = DisableDomainAutoRenewResponse' - { _ddarrsStatus :: Int + { _ddarrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DisableDomainAutoRenewResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ddarrsStatus' +-- * 'ddarrsResponseStatus' disableDomainAutoRenewResponse - :: Int -- ^ 'ddarrsStatus' + :: Int -- ^ 'ddarrsResponseStatus' -> DisableDomainAutoRenewResponse -disableDomainAutoRenewResponse pStatus_ = +disableDomainAutoRenewResponse pResponseStatus_ = DisableDomainAutoRenewResponse' - { _ddarrsStatus = pStatus_ + { _ddarrsResponseStatus = pResponseStatus_ } -- | The response status code. -ddarrsStatus :: Lens' DisableDomainAutoRenewResponse Int -ddarrsStatus = lens _ddarrsStatus (\ s a -> s{_ddarrsStatus = a}); +ddarrsResponseStatus :: Lens' DisableDomainAutoRenewResponse Int +ddarrsResponseStatus = lens _ddarrsResponseStatus (\ s a -> s{_ddarrsResponseStatus = a}); diff --git a/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs b/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs --- a/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs +++ b/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs @@ -39,7 +39,7 @@ , disableDomainTransferLockResponse , DisableDomainTransferLockResponse -- * Response Lenses - , ddtlrsStatus + , ddtlrsResponseStatus , ddtlrsOperationId ) where @@ -118,30 +118,30 @@ -- -- /See:/ 'disableDomainTransferLockResponse' smart constructor. data DisableDomainTransferLockResponse = DisableDomainTransferLockResponse' - { _ddtlrsStatus :: !Int - , _ddtlrsOperationId :: !Text + { _ddtlrsResponseStatus :: !Int + , _ddtlrsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DisableDomainTransferLockResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ddtlrsStatus' +-- * 'ddtlrsResponseStatus' -- -- * 'ddtlrsOperationId' disableDomainTransferLockResponse - :: Int -- ^ 'ddtlrsStatus' + :: Int -- ^ 'ddtlrsResponseStatus' -> Text -- ^ 'ddtlrsOperationId' -> DisableDomainTransferLockResponse -disableDomainTransferLockResponse pStatus_ pOperationId_ = +disableDomainTransferLockResponse pResponseStatus_ pOperationId_ = DisableDomainTransferLockResponse' - { _ddtlrsStatus = pStatus_ + { _ddtlrsResponseStatus = pResponseStatus_ , _ddtlrsOperationId = pOperationId_ } -- | The response status code. -ddtlrsStatus :: Lens' DisableDomainTransferLockResponse Int -ddtlrsStatus = lens _ddtlrsStatus (\ s a -> s{_ddtlrsStatus = a}); +ddtlrsResponseStatus :: Lens' DisableDomainTransferLockResponse Int +ddtlrsResponseStatus = lens _ddtlrsResponseStatus (\ s a -> s{_ddtlrsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs b/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs --- a/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs +++ b/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs @@ -42,7 +42,7 @@ , enableDomainAutoRenewResponse , EnableDomainAutoRenewResponse -- * Response Lenses - , edarrsStatus + , edarrsResponseStatus ) where import Network.AWS.Prelude @@ -106,22 +106,22 @@ -- | /See:/ 'enableDomainAutoRenewResponse' smart constructor. newtype EnableDomainAutoRenewResponse = EnableDomainAutoRenewResponse' - { _edarrsStatus :: Int + { _edarrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EnableDomainAutoRenewResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'edarrsStatus' +-- * 'edarrsResponseStatus' enableDomainAutoRenewResponse - :: Int -- ^ 'edarrsStatus' + :: Int -- ^ 'edarrsResponseStatus' -> EnableDomainAutoRenewResponse -enableDomainAutoRenewResponse pStatus_ = +enableDomainAutoRenewResponse pResponseStatus_ = EnableDomainAutoRenewResponse' - { _edarrsStatus = pStatus_ + { _edarrsResponseStatus = pResponseStatus_ } -- | The response status code. -edarrsStatus :: Lens' EnableDomainAutoRenewResponse Int -edarrsStatus = lens _edarrsStatus (\ s a -> s{_edarrsStatus = a}); +edarrsResponseStatus :: Lens' EnableDomainAutoRenewResponse Int +edarrsResponseStatus = lens _edarrsResponseStatus (\ s a -> s{_edarrsResponseStatus = a}); diff --git a/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs b/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs --- a/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs +++ b/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs @@ -37,7 +37,7 @@ , enableDomainTransferLockResponse , EnableDomainTransferLockResponse -- * Response Lenses - , edtlrsStatus + , edtlrsResponseStatus , edtlrsOperationId ) where @@ -116,30 +116,30 @@ -- -- /See:/ 'enableDomainTransferLockResponse' smart constructor. data EnableDomainTransferLockResponse = EnableDomainTransferLockResponse' - { _edtlrsStatus :: !Int - , _edtlrsOperationId :: !Text + { _edtlrsResponseStatus :: !Int + , _edtlrsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EnableDomainTransferLockResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'edtlrsStatus' +-- * 'edtlrsResponseStatus' -- -- * 'edtlrsOperationId' enableDomainTransferLockResponse - :: Int -- ^ 'edtlrsStatus' + :: Int -- ^ 'edtlrsResponseStatus' -> Text -- ^ 'edtlrsOperationId' -> EnableDomainTransferLockResponse -enableDomainTransferLockResponse pStatus_ pOperationId_ = +enableDomainTransferLockResponse pResponseStatus_ pOperationId_ = EnableDomainTransferLockResponse' - { _edtlrsStatus = pStatus_ + { _edtlrsResponseStatus = pResponseStatus_ , _edtlrsOperationId = pOperationId_ } -- | The response status code. -edtlrsStatus :: Lens' EnableDomainTransferLockResponse Int -edtlrsStatus = lens _edtlrsStatus (\ s a -> s{_edtlrsStatus = a}); +edtlrsResponseStatus :: Lens' EnableDomainTransferLockResponse Int +edtlrsResponseStatus = lens _edtlrsResponseStatus (\ s a -> s{_edtlrsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/GetDomainDetail.hs b/gen/Network/AWS/Route53Domains/GetDomainDetail.hs --- a/gen/Network/AWS/Route53Domains/GetDomainDetail.hs +++ b/gen/Network/AWS/Route53Domains/GetDomainDetail.hs @@ -41,16 +41,16 @@ , gddrsRegistrantPrivacy , gddrsUpdatedDate , gddrsAdminPrivacy - , gddrsAbuseContactEmail - , gddrsRegistrarURL , gddrsAutoRenew , gddrsAbuseContactPhone + , gddrsRegistrarURL + , gddrsAbuseContactEmail , gddrsExpirationDate , gddrsCreationDate , gddrsRegistrarName - , gddrsStatusList , gddrsReseller - , gddrsStatus + , gddrsStatusList + , gddrsResponseStatus , gddrsDomainName , gddrsNameservers , gddrsAdminContact @@ -111,15 +111,15 @@ <*> (x .?> "RegistrantPrivacy") <*> (x .?> "UpdatedDate") <*> (x .?> "AdminPrivacy") - <*> (x .?> "AbuseContactEmail") - <*> (x .?> "RegistrarUrl") <*> (x .?> "AutoRenew") <*> (x .?> "AbuseContactPhone") + <*> (x .?> "RegistrarUrl") + <*> (x .?> "AbuseContactEmail") <*> (x .?> "ExpirationDate") <*> (x .?> "CreationDate") <*> (x .?> "RegistrarName") - <*> (x .?> "StatusList" .!@ mempty) <*> (x .?> "Reseller") + <*> (x .?> "StatusList" .!@ mempty) <*> (pure (fromEnum s)) <*> (x .:> "DomainName") <*> (x .?> "Nameservers" .!@ mempty) @@ -159,16 +159,16 @@ , _gddrsRegistrantPrivacy :: !(Maybe Bool) , _gddrsUpdatedDate :: !(Maybe POSIX) , _gddrsAdminPrivacy :: !(Maybe Bool) - , _gddrsAbuseContactEmail :: !(Maybe Text) - , _gddrsRegistrarURL :: !(Maybe Text) , _gddrsAutoRenew :: !(Maybe Bool) , _gddrsAbuseContactPhone :: !(Maybe Text) + , _gddrsRegistrarURL :: !(Maybe Text) + , _gddrsAbuseContactEmail :: !(Maybe Text) , _gddrsExpirationDate :: !(Maybe POSIX) , _gddrsCreationDate :: !(Maybe POSIX) , _gddrsRegistrarName :: !(Maybe Text) - , _gddrsStatusList :: !(Maybe [Text]) , _gddrsReseller :: !(Maybe Text) - , _gddrsStatus :: !Int + , _gddrsStatusList :: !(Maybe [Text]) + , _gddrsResponseStatus :: !Int , _gddrsDomainName :: !Text , _gddrsNameservers :: ![Nameserver] , _gddrsAdminContact :: !(Sensitive ContactDetail) @@ -194,26 +194,26 @@ -- -- * 'gddrsAdminPrivacy' -- --- * 'gddrsAbuseContactEmail' --- --- * 'gddrsRegistrarURL' --- -- * 'gddrsAutoRenew' -- -- * 'gddrsAbuseContactPhone' -- +-- * 'gddrsRegistrarURL' +-- +-- * 'gddrsAbuseContactEmail' +-- -- * 'gddrsExpirationDate' -- -- * 'gddrsCreationDate' -- -- * 'gddrsRegistrarName' -- --- * 'gddrsStatusList' --- -- * 'gddrsReseller' -- --- * 'gddrsStatus' +-- * 'gddrsStatusList' -- +-- * 'gddrsResponseStatus' +-- -- * 'gddrsDomainName' -- -- * 'gddrsNameservers' @@ -224,13 +224,13 @@ -- -- * 'gddrsTechContact' getDomainDetailResponse - :: Int -- ^ 'gddrsStatus' + :: Int -- ^ 'gddrsResponseStatus' -> Text -- ^ 'gddrsDomainName' -> ContactDetail -- ^ 'gddrsAdminContact' -> ContactDetail -- ^ 'gddrsRegistrantContact' -> ContactDetail -- ^ 'gddrsTechContact' -> GetDomainDetailResponse -getDomainDetailResponse pStatus_ pDomainName_ pAdminContact_ pRegistrantContact_ pTechContact_ = +getDomainDetailResponse pResponseStatus_ pDomainName_ pAdminContact_ pRegistrantContact_ pTechContact_ = GetDomainDetailResponse' { _gddrsTechPrivacy = Nothing , _gddrsDNSSec = Nothing @@ -239,16 +239,16 @@ , _gddrsRegistrantPrivacy = Nothing , _gddrsUpdatedDate = Nothing , _gddrsAdminPrivacy = Nothing - , _gddrsAbuseContactEmail = Nothing - , _gddrsRegistrarURL = Nothing , _gddrsAutoRenew = Nothing , _gddrsAbuseContactPhone = Nothing + , _gddrsRegistrarURL = Nothing + , _gddrsAbuseContactEmail = Nothing , _gddrsExpirationDate = Nothing , _gddrsCreationDate = Nothing , _gddrsRegistrarName = Nothing - , _gddrsStatusList = Nothing , _gddrsReseller = Nothing - , _gddrsStatus = pStatus_ + , _gddrsStatusList = Nothing + , _gddrsResponseStatus = pResponseStatus_ , _gddrsDomainName = pDomainName_ , _gddrsNameservers = mempty , _gddrsAdminContact = _Sensitive # pAdminContact_ @@ -303,21 +303,6 @@ gddrsAdminPrivacy :: Lens' GetDomainDetailResponse (Maybe Bool) gddrsAdminPrivacy = lens _gddrsAdminPrivacy (\ s a -> s{_gddrsAdminPrivacy = a}); --- | Email address to contact to report incorrect contact information for a --- domain, to report that the domain is being used to send spam, to report --- that someone is cybersquatting on a domain name, or report some other --- type of abuse. --- --- Type: String -gddrsAbuseContactEmail :: Lens' GetDomainDetailResponse (Maybe Text) -gddrsAbuseContactEmail = lens _gddrsAbuseContactEmail (\ s a -> s{_gddrsAbuseContactEmail = a}); - --- | Web address of the registrar. --- --- Type: String -gddrsRegistrarURL :: Lens' GetDomainDetailResponse (Maybe Text) -gddrsRegistrarURL = lens _gddrsRegistrarURL (\ s a -> s{_gddrsRegistrarURL = a}); - -- | Specifies whether the domain registration is set to renew automatically. -- -- Type: Boolean @@ -330,6 +315,21 @@ gddrsAbuseContactPhone :: Lens' GetDomainDetailResponse (Maybe Text) gddrsAbuseContactPhone = lens _gddrsAbuseContactPhone (\ s a -> s{_gddrsAbuseContactPhone = a}); +-- | Web address of the registrar. +-- +-- Type: String +gddrsRegistrarURL :: Lens' GetDomainDetailResponse (Maybe Text) +gddrsRegistrarURL = lens _gddrsRegistrarURL (\ s a -> s{_gddrsRegistrarURL = a}); + +-- | Email address to contact to report incorrect contact information for a +-- domain, to report that the domain is being used to send spam, to report +-- that someone is cybersquatting on a domain name, or report some other +-- type of abuse. +-- +-- Type: String +gddrsAbuseContactEmail :: Lens' GetDomainDetailResponse (Maybe Text) +gddrsAbuseContactEmail = lens _gddrsAbuseContactEmail (\ s a -> s{_gddrsAbuseContactEmail = a}); + -- | The date when the registration for the domain is set to expire. The date -- format is Unix time. gddrsExpirationDate :: Lens' GetDomainDetailResponse (Maybe UTCTime) @@ -348,6 +348,13 @@ gddrsRegistrarName :: Lens' GetDomainDetailResponse (Maybe Text) gddrsRegistrarName = lens _gddrsRegistrarName (\ s a -> s{_gddrsRegistrarName = a}); +-- | Reseller of the domain. Domains registered or transferred using Amazon +-- Route 53 domains will have '\"Amazon\"' as the reseller. +-- +-- Type: String +gddrsReseller :: Lens' GetDomainDetailResponse (Maybe Text) +gddrsReseller = lens _gddrsReseller (\ s a -> s{_gddrsReseller = a}); + -- | An array of domain name status codes, also known as Extensible -- Provisioning Protocol (EPP) status codes. -- @@ -367,16 +374,9 @@ gddrsStatusList :: Lens' GetDomainDetailResponse [Text] gddrsStatusList = lens _gddrsStatusList (\ s a -> s{_gddrsStatusList = a}) . _Default . _Coerce; --- | Reseller of the domain. Domains registered or transferred using Amazon --- Route 53 domains will have '\"Amazon\"' as the reseller. --- --- Type: String -gddrsReseller :: Lens' GetDomainDetailResponse (Maybe Text) -gddrsReseller = lens _gddrsReseller (\ s a -> s{_gddrsReseller = a}); - -- | The response status code. -gddrsStatus :: Lens' GetDomainDetailResponse Int -gddrsStatus = lens _gddrsStatus (\ s a -> s{_gddrsStatus = a}); +gddrsResponseStatus :: Lens' GetDomainDetailResponse Int +gddrsResponseStatus = lens _gddrsResponseStatus (\ s a -> s{_gddrsResponseStatus = a}); -- | The name of a domain. -- diff --git a/gen/Network/AWS/Route53Domains/GetOperationDetail.hs b/gen/Network/AWS/Route53Domains/GetOperationDetail.hs --- a/gen/Network/AWS/Route53Domains/GetOperationDetail.hs +++ b/gen/Network/AWS/Route53Domains/GetOperationDetail.hs @@ -34,12 +34,13 @@ , getOperationDetailResponse , GetOperationDetailResponse -- * Response Lenses + , godrsStatus , godrsSubmittedDate , godrsDomainName , godrsOperationId , godrsType , godrsMessage - , godrsStatus + , godrsResponseStatus ) where import Network.AWS.Prelude @@ -88,8 +89,9 @@ = receiveJSON (\ s h x -> GetOperationDetailResponse' <$> - (x .?> "SubmittedDate") <*> (x .?> "DomainName") <*> - (x .?> "OperationId") + (x .?> "Status") <*> (x .?> "SubmittedDate") <*> + (x .?> "DomainName") + <*> (x .?> "OperationId") <*> (x .?> "Type") <*> (x .?> "Message") <*> (pure (fromEnum s))) @@ -119,18 +121,21 @@ -- -- /See:/ 'getOperationDetailResponse' smart constructor. data GetOperationDetailResponse = GetOperationDetailResponse' - { _godrsSubmittedDate :: !(Maybe POSIX) - , _godrsDomainName :: !(Maybe Text) - , _godrsOperationId :: !(Maybe Text) - , _godrsType :: !(Maybe OperationType) - , _godrsMessage :: !(Maybe Text) - , _godrsStatus :: !Int + { _godrsStatus :: !(Maybe OperationStatus) + , _godrsSubmittedDate :: !(Maybe POSIX) + , _godrsDomainName :: !(Maybe Text) + , _godrsOperationId :: !(Maybe Text) + , _godrsType :: !(Maybe OperationType) + , _godrsMessage :: !(Maybe Text) + , _godrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetOperationDetailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'godrsStatus' +-- -- * 'godrsSubmittedDate' -- -- * 'godrsDomainName' @@ -141,20 +146,27 @@ -- -- * 'godrsMessage' -- --- * 'godrsStatus' +-- * 'godrsResponseStatus' getOperationDetailResponse - :: Int -- ^ 'godrsStatus' + :: Int -- ^ 'godrsResponseStatus' -> GetOperationDetailResponse -getOperationDetailResponse pStatus_ = +getOperationDetailResponse pResponseStatus_ = GetOperationDetailResponse' - { _godrsSubmittedDate = Nothing + { _godrsStatus = Nothing + , _godrsSubmittedDate = Nothing , _godrsDomainName = Nothing , _godrsOperationId = Nothing , _godrsType = Nothing , _godrsMessage = Nothing - , _godrsStatus = pStatus_ + , _godrsResponseStatus = pResponseStatus_ } +-- | The current status of the requested operation in the system. +-- +-- Type: String +godrsStatus :: Lens' GetOperationDetailResponse (Maybe OperationStatus) +godrsStatus = lens _godrsStatus (\ s a -> s{_godrsStatus = a}); + -- | The date when the request was submitted. godrsSubmittedDate :: Lens' GetOperationDetailResponse (Maybe UTCTime) godrsSubmittedDate = lens _godrsSubmittedDate (\ s a -> s{_godrsSubmittedDate = a}) . mapping _Time; @@ -184,5 +196,5 @@ godrsMessage = lens _godrsMessage (\ s a -> s{_godrsMessage = a}); -- | The response status code. -godrsStatus :: Lens' GetOperationDetailResponse Int -godrsStatus = lens _godrsStatus (\ s a -> s{_godrsStatus = a}); +godrsResponseStatus :: Lens' GetOperationDetailResponse Int +godrsResponseStatus = lens _godrsResponseStatus (\ s a -> s{_godrsResponseStatus = a}); diff --git a/gen/Network/AWS/Route53Domains/ListDomains.hs b/gen/Network/AWS/Route53Domains/ListDomains.hs --- a/gen/Network/AWS/Route53Domains/ListDomains.hs +++ b/gen/Network/AWS/Route53Domains/ListDomains.hs @@ -30,15 +30,15 @@ listDomains , ListDomains -- * Request Lenses - , ldMaxItems , ldMarker + , ldMaxItems -- * Destructuring the Response , listDomainsResponse , ListDomainsResponse -- * Response Lenses , ldrsNextPageMarker - , ldrsStatus + , ldrsResponseStatus , ldrsDomains ) where @@ -53,37 +53,25 @@ -- -- /See:/ 'listDomains' smart constructor. data ListDomains = ListDomains' - { _ldMaxItems :: !(Maybe Int) - , _ldMarker :: !(Maybe Text) + { _ldMarker :: !(Maybe Text) + , _ldMaxItems :: !(Maybe Int) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListDomains' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ldMaxItems' --- -- * 'ldMarker' +-- +-- * 'ldMaxItems' listDomains :: ListDomains listDomains = ListDomains' - { _ldMaxItems = Nothing - , _ldMarker = Nothing + { _ldMarker = Nothing + , _ldMaxItems = Nothing } --- | Number of domains to be returned. --- --- Type: Integer --- --- Default: 20 --- --- Constraints: A numeral between 1 and 100. --- --- Required: No -ldMaxItems :: Lens' ListDomains (Maybe Int) -ldMaxItems = lens _ldMaxItems (\ s a -> s{_ldMaxItems = a}); - -- | For an initial request for a list of domains, omit this element. If the -- number of domains that are associated with the current AWS account is -- greater than the value that you specified for 'MaxItems', you can use @@ -102,6 +90,18 @@ ldMarker :: Lens' ListDomains (Maybe Text) ldMarker = lens _ldMarker (\ s a -> s{_ldMarker = a}); +-- | Number of domains to be returned. +-- +-- Type: Integer +-- +-- Default: 20 +-- +-- Constraints: A numeral between 1 and 100. +-- +-- Required: No +ldMaxItems :: Lens' ListDomains (Maybe Int) +ldMaxItems = lens _ldMaxItems (\ s a -> s{_ldMaxItems = a}); + instance AWSPager ListDomains where page rq rs | stop (rs ^. ldrsNextPageMarker) = Nothing @@ -133,8 +133,8 @@ toJSON ListDomains'{..} = object (catMaybes - [("MaxItems" .=) <$> _ldMaxItems, - ("Marker" .=) <$> _ldMarker]) + [("Marker" .=) <$> _ldMarker, + ("MaxItems" .=) <$> _ldMaxItems]) instance ToPath ListDomains where toPath = const "/" @@ -147,7 +147,7 @@ -- /See:/ 'listDomainsResponse' smart constructor. data ListDomainsResponse = ListDomainsResponse' { _ldrsNextPageMarker :: !(Maybe Text) - , _ldrsStatus :: !Int + , _ldrsResponseStatus :: !Int , _ldrsDomains :: ![DomainSummary] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -157,16 +157,16 @@ -- -- * 'ldrsNextPageMarker' -- --- * 'ldrsStatus' +-- * 'ldrsResponseStatus' -- -- * 'ldrsDomains' listDomainsResponse - :: Int -- ^ 'ldrsStatus' + :: Int -- ^ 'ldrsResponseStatus' -> ListDomainsResponse -listDomainsResponse pStatus_ = +listDomainsResponse pResponseStatus_ = ListDomainsResponse' { _ldrsNextPageMarker = Nothing - , _ldrsStatus = pStatus_ + , _ldrsResponseStatus = pResponseStatus_ , _ldrsDomains = mempty } @@ -181,8 +181,8 @@ ldrsNextPageMarker = lens _ldrsNextPageMarker (\ s a -> s{_ldrsNextPageMarker = a}); -- | The response status code. -ldrsStatus :: Lens' ListDomainsResponse Int -ldrsStatus = lens _ldrsStatus (\ s a -> s{_ldrsStatus = a}); +ldrsResponseStatus :: Lens' ListDomainsResponse Int +ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}); -- | A summary of domains. -- diff --git a/gen/Network/AWS/Route53Domains/ListOperations.hs b/gen/Network/AWS/Route53Domains/ListOperations.hs --- a/gen/Network/AWS/Route53Domains/ListOperations.hs +++ b/gen/Network/AWS/Route53Domains/ListOperations.hs @@ -30,15 +30,15 @@ listOperations , ListOperations -- * Request Lenses - , loMaxItems , loMarker + , loMaxItems -- * Destructuring the Response , listOperationsResponse , ListOperationsResponse -- * Response Lenses , lorsNextPageMarker - , lorsStatus + , lorsResponseStatus , lorsOperations ) where @@ -53,37 +53,25 @@ -- -- /See:/ 'listOperations' smart constructor. data ListOperations = ListOperations' - { _loMaxItems :: !(Maybe Int) - , _loMarker :: !(Maybe Text) + { _loMarker :: !(Maybe Text) + , _loMaxItems :: !(Maybe Int) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListOperations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'loMaxItems' --- -- * 'loMarker' +-- +-- * 'loMaxItems' listOperations :: ListOperations listOperations = ListOperations' - { _loMaxItems = Nothing - , _loMarker = Nothing + { _loMarker = Nothing + , _loMaxItems = Nothing } --- | Number of domains to be returned. --- --- Type: Integer --- --- Default: 20 --- --- Constraints: A value between 1 and 100. --- --- Required: No -loMaxItems :: Lens' ListOperations (Maybe Int) -loMaxItems = lens _loMaxItems (\ s a -> s{_loMaxItems = a}); - -- | For an initial request for a list of operations, omit this element. If -- the number of operations that are not yet complete is greater than the -- value that you specified for 'MaxItems', you can use 'Marker' to return @@ -99,6 +87,18 @@ loMarker :: Lens' ListOperations (Maybe Text) loMarker = lens _loMarker (\ s a -> s{_loMarker = a}); +-- | Number of domains to be returned. +-- +-- Type: Integer +-- +-- Default: 20 +-- +-- Constraints: A value between 1 and 100. +-- +-- Required: No +loMaxItems :: Lens' ListOperations (Maybe Int) +loMaxItems = lens _loMaxItems (\ s a -> s{_loMaxItems = a}); + instance AWSPager ListOperations where page rq rs | stop (rs ^. lorsNextPageMarker) = Nothing @@ -130,8 +130,8 @@ toJSON ListOperations'{..} = object (catMaybes - [("MaxItems" .=) <$> _loMaxItems, - ("Marker" .=) <$> _loMarker]) + [("Marker" .=) <$> _loMarker, + ("MaxItems" .=) <$> _loMaxItems]) instance ToPath ListOperations where toPath = const "/" @@ -144,7 +144,7 @@ -- /See:/ 'listOperationsResponse' smart constructor. data ListOperationsResponse = ListOperationsResponse' { _lorsNextPageMarker :: !(Maybe Text) - , _lorsStatus :: !Int + , _lorsResponseStatus :: !Int , _lorsOperations :: ![OperationSummary] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -154,16 +154,16 @@ -- -- * 'lorsNextPageMarker' -- --- * 'lorsStatus' +-- * 'lorsResponseStatus' -- -- * 'lorsOperations' listOperationsResponse - :: Int -- ^ 'lorsStatus' + :: Int -- ^ 'lorsResponseStatus' -> ListOperationsResponse -listOperationsResponse pStatus_ = +listOperationsResponse pResponseStatus_ = ListOperationsResponse' { _lorsNextPageMarker = Nothing - , _lorsStatus = pStatus_ + , _lorsResponseStatus = pResponseStatus_ , _lorsOperations = mempty } @@ -178,8 +178,8 @@ lorsNextPageMarker = lens _lorsNextPageMarker (\ s a -> s{_lorsNextPageMarker = a}); -- | The response status code. -lorsStatus :: Lens' ListOperationsResponse Int -lorsStatus = lens _lorsStatus (\ s a -> s{_lorsStatus = a}); +lorsResponseStatus :: Lens' ListOperationsResponse Int +lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a}); -- | Lists summaries of the operations. -- diff --git a/gen/Network/AWS/Route53Domains/ListTagsForDomain.hs b/gen/Network/AWS/Route53Domains/ListTagsForDomain.hs --- a/gen/Network/AWS/Route53Domains/ListTagsForDomain.hs +++ b/gen/Network/AWS/Route53Domains/ListTagsForDomain.hs @@ -37,7 +37,7 @@ , listTagsForDomainResponse , ListTagsForDomainResponse -- * Response Lenses - , ltfdrsStatus + , ltfdrsResponseStatus , ltfdrsTagList ) where @@ -105,29 +105,29 @@ -- -- /See:/ 'listTagsForDomainResponse' smart constructor. data ListTagsForDomainResponse = ListTagsForDomainResponse' - { _ltfdrsStatus :: !Int - , _ltfdrsTagList :: ![Tag] + { _ltfdrsResponseStatus :: !Int + , _ltfdrsTagList :: ![Tag] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListTagsForDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ltfdrsStatus' +-- * 'ltfdrsResponseStatus' -- -- * 'ltfdrsTagList' listTagsForDomainResponse - :: Int -- ^ 'ltfdrsStatus' + :: Int -- ^ 'ltfdrsResponseStatus' -> ListTagsForDomainResponse -listTagsForDomainResponse pStatus_ = +listTagsForDomainResponse pResponseStatus_ = ListTagsForDomainResponse' - { _ltfdrsStatus = pStatus_ + { _ltfdrsResponseStatus = pResponseStatus_ , _ltfdrsTagList = mempty } -- | The response status code. -ltfdrsStatus :: Lens' ListTagsForDomainResponse Int -ltfdrsStatus = lens _ltfdrsStatus (\ s a -> s{_ltfdrsStatus = a}); +ltfdrsResponseStatus :: Lens' ListTagsForDomainResponse Int +ltfdrsResponseStatus = lens _ltfdrsResponseStatus (\ s a -> s{_ltfdrsResponseStatus = a}); -- | A list of the tags that are associated with the specified domain. -- diff --git a/gen/Network/AWS/Route53Domains/RegisterDomain.hs b/gen/Network/AWS/Route53Domains/RegisterDomain.hs --- a/gen/Network/AWS/Route53Domains/RegisterDomain.hs +++ b/gen/Network/AWS/Route53Domains/RegisterDomain.hs @@ -64,7 +64,7 @@ , registerDomainResponse , RegisterDomainResponse -- * Response Lenses - , rdrsStatus + , rdrsResponseStatus , rdrsOperationId ) where @@ -308,30 +308,30 @@ -- -- /See:/ 'registerDomainResponse' smart constructor. data RegisterDomainResponse = RegisterDomainResponse' - { _rdrsStatus :: !Int - , _rdrsOperationId :: !Text + { _rdrsResponseStatus :: !Int + , _rdrsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RegisterDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rdrsStatus' +-- * 'rdrsResponseStatus' -- -- * 'rdrsOperationId' registerDomainResponse - :: Int -- ^ 'rdrsStatus' + :: Int -- ^ 'rdrsResponseStatus' -> Text -- ^ 'rdrsOperationId' -> RegisterDomainResponse -registerDomainResponse pStatus_ pOperationId_ = +registerDomainResponse pResponseStatus_ pOperationId_ = RegisterDomainResponse' - { _rdrsStatus = pStatus_ + { _rdrsResponseStatus = pResponseStatus_ , _rdrsOperationId = pOperationId_ } -- | The response status code. -rdrsStatus :: Lens' RegisterDomainResponse Int -rdrsStatus = lens _rdrsStatus (\ s a -> s{_rdrsStatus = a}); +rdrsResponseStatus :: Lens' RegisterDomainResponse Int +rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs b/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs --- a/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs +++ b/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs @@ -34,7 +34,7 @@ , retrieveDomainAuthCodeResponse , RetrieveDomainAuthCodeResponse -- * Response Lenses - , rdacrsStatus + , rdacrsResponseStatus , rdacrsAuthCode ) where @@ -113,30 +113,30 @@ -- -- /See:/ 'retrieveDomainAuthCodeResponse' smart constructor. data RetrieveDomainAuthCodeResponse = RetrieveDomainAuthCodeResponse' - { _rdacrsStatus :: !Int - , _rdacrsAuthCode :: !(Sensitive Text) + { _rdacrsResponseStatus :: !Int + , _rdacrsAuthCode :: !(Sensitive Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RetrieveDomainAuthCodeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rdacrsStatus' +-- * 'rdacrsResponseStatus' -- -- * 'rdacrsAuthCode' retrieveDomainAuthCodeResponse - :: Int -- ^ 'rdacrsStatus' + :: Int -- ^ 'rdacrsResponseStatus' -> Text -- ^ 'rdacrsAuthCode' -> RetrieveDomainAuthCodeResponse -retrieveDomainAuthCodeResponse pStatus_ pAuthCode_ = +retrieveDomainAuthCodeResponse pResponseStatus_ pAuthCode_ = RetrieveDomainAuthCodeResponse' - { _rdacrsStatus = pStatus_ + { _rdacrsResponseStatus = pResponseStatus_ , _rdacrsAuthCode = _Sensitive # pAuthCode_ } -- | The response status code. -rdacrsStatus :: Lens' RetrieveDomainAuthCodeResponse Int -rdacrsStatus = lens _rdacrsStatus (\ s a -> s{_rdacrsStatus = a}); +rdacrsResponseStatus :: Lens' RetrieveDomainAuthCodeResponse Int +rdacrsResponseStatus = lens _rdacrsResponseStatus (\ s a -> s{_rdacrsResponseStatus = a}); -- | The authorization code for the domain. -- diff --git a/gen/Network/AWS/Route53Domains/TransferDomain.hs b/gen/Network/AWS/Route53Domains/TransferDomain.hs --- a/gen/Network/AWS/Route53Domains/TransferDomain.hs +++ b/gen/Network/AWS/Route53Domains/TransferDomain.hs @@ -69,7 +69,7 @@ , transferDomainResponse , TransferDomainResponse -- * Response Lenses - , tdrsStatus + , tdrsResponseStatus , tdrsOperationId ) where @@ -341,30 +341,30 @@ -- -- /See:/ 'transferDomainResponse' smart constructor. data TransferDomainResponse = TransferDomainResponse' - { _tdrsStatus :: !Int - , _tdrsOperationId :: !Text + { _tdrsResponseStatus :: !Int + , _tdrsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'TransferDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'tdrsStatus' +-- * 'tdrsResponseStatus' -- -- * 'tdrsOperationId' transferDomainResponse - :: Int -- ^ 'tdrsStatus' + :: Int -- ^ 'tdrsResponseStatus' -> Text -- ^ 'tdrsOperationId' -> TransferDomainResponse -transferDomainResponse pStatus_ pOperationId_ = +transferDomainResponse pResponseStatus_ pOperationId_ = TransferDomainResponse' - { _tdrsStatus = pStatus_ + { _tdrsResponseStatus = pResponseStatus_ , _tdrsOperationId = pOperationId_ } -- | The response status code. -tdrsStatus :: Lens' TransferDomainResponse Int -tdrsStatus = lens _tdrsStatus (\ s a -> s{_tdrsStatus = a}); +tdrsResponseStatus :: Lens' TransferDomainResponse Int +tdrsResponseStatus = lens _tdrsResponseStatus (\ s a -> s{_tdrsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/Types.hs b/gen/Network/AWS/Route53Domains/Types.hs --- a/gen/Network/AWS/Route53Domains/Types.hs +++ b/gen/Network/AWS/Route53Domains/Types.hs @@ -46,8 +46,8 @@ , contactDetail , cdOrganizationName , cdEmail - , cdFax , cdState + , cdFax , cdLastName , cdExtraParams , cdZipCode diff --git a/gen/Network/AWS/Route53Domains/Types/Product.hs b/gen/Network/AWS/Route53Domains/Types/Product.hs --- a/gen/Network/AWS/Route53Domains/Types/Product.hs +++ b/gen/Network/AWS/Route53Domains/Types/Product.hs @@ -26,8 +26,8 @@ data ContactDetail = ContactDetail' { _cdOrganizationName :: !(Maybe Text) , _cdEmail :: !(Maybe Text) - , _cdFax :: !(Maybe Text) , _cdState :: !(Maybe Text) + , _cdFax :: !(Maybe Text) , _cdLastName :: !(Maybe Text) , _cdExtraParams :: !(Maybe [ExtraParam]) , _cdZipCode :: !(Maybe Text) @@ -48,10 +48,10 @@ -- -- * 'cdEmail' -- --- * 'cdFax' --- -- * 'cdState' -- +-- * 'cdFax' +-- -- * 'cdLastName' -- -- * 'cdExtraParams' @@ -77,8 +77,8 @@ ContactDetail' { _cdOrganizationName = Nothing , _cdEmail = Nothing - , _cdFax = Nothing , _cdState = Nothing + , _cdFax = Nothing , _cdLastName = Nothing , _cdExtraParams = Nothing , _cdZipCode = Nothing @@ -119,35 +119,35 @@ cdEmail :: Lens' ContactDetail (Maybe Text) cdEmail = lens _cdEmail (\ s a -> s{_cdEmail = a}); --- | Fax number of the contact. +-- | The state or province of the contact\'s city. -- -- Type: String -- -- Default: None -- --- Constraints: Phone number must be specified in the format \"+[country --- dialing code].[number including any area code]\". For example, a US --- phone number might appear as '\"+1.1234567890\"'. +-- Constraints: Maximum 255 characters. -- -- Parents: 'RegistrantContact', 'AdminContact', 'TechContact' -- -- Required: No -cdFax :: Lens' ContactDetail (Maybe Text) -cdFax = lens _cdFax (\ s a -> s{_cdFax = a}); +cdState :: Lens' ContactDetail (Maybe Text) +cdState = lens _cdState (\ s a -> s{_cdState = a}); --- | The state or province of the contact\'s city. +-- | Fax number of the contact. -- -- Type: String -- -- Default: None -- --- Constraints: Maximum 255 characters. +-- Constraints: Phone number must be specified in the format \"+[country +-- dialing code].[number including any area code]\". For example, a US +-- phone number might appear as '\"+1.1234567890\"'. -- -- Parents: 'RegistrantContact', 'AdminContact', 'TechContact' -- -- Required: No -cdState :: Lens' ContactDetail (Maybe Text) -cdState = lens _cdState (\ s a -> s{_cdState = a}); +cdFax :: Lens' ContactDetail (Maybe Text) +cdFax = lens _cdFax (\ s a -> s{_cdFax = a}); -- | Last name of contact. -- @@ -303,8 +303,8 @@ (\ x -> ContactDetail' <$> (x .:? "OrganizationName") <*> (x .:? "Email") <*> - (x .:? "Fax") - <*> (x .:? "State") + (x .:? "State") + <*> (x .:? "Fax") <*> (x .:? "LastName") <*> (x .:? "ExtraParams" .!= mempty) <*> (x .:? "ZipCode") @@ -321,8 +321,8 @@ = object (catMaybes [("OrganizationName" .=) <$> _cdOrganizationName, - ("Email" .=) <$> _cdEmail, ("Fax" .=) <$> _cdFax, - ("State" .=) <$> _cdState, + ("Email" .=) <$> _cdEmail, ("State" .=) <$> _cdState, + ("Fax" .=) <$> _cdFax, ("LastName" .=) <$> _cdLastName, ("ExtraParams" .=) <$> _cdExtraParams, ("ZipCode" .=) <$> _cdZipCode, diff --git a/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs b/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs --- a/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs +++ b/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs @@ -43,7 +43,7 @@ , updateDomainContactResponse , UpdateDomainContactResponse -- * Response Lenses - , udcrsStatus + , udcrsResponseStatus , udcrsOperationId ) where @@ -174,30 +174,30 @@ -- -- /See:/ 'updateDomainContactResponse' smart constructor. data UpdateDomainContactResponse = UpdateDomainContactResponse' - { _udcrsStatus :: !Int - , _udcrsOperationId :: !Text + { _udcrsResponseStatus :: !Int + , _udcrsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateDomainContactResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'udcrsStatus' +-- * 'udcrsResponseStatus' -- -- * 'udcrsOperationId' updateDomainContactResponse - :: Int -- ^ 'udcrsStatus' + :: Int -- ^ 'udcrsResponseStatus' -> Text -- ^ 'udcrsOperationId' -> UpdateDomainContactResponse -updateDomainContactResponse pStatus_ pOperationId_ = +updateDomainContactResponse pResponseStatus_ pOperationId_ = UpdateDomainContactResponse' - { _udcrsStatus = pStatus_ + { _udcrsResponseStatus = pResponseStatus_ , _udcrsOperationId = pOperationId_ } -- | The response status code. -udcrsStatus :: Lens' UpdateDomainContactResponse Int -udcrsStatus = lens _udcrsStatus (\ s a -> s{_udcrsStatus = a}); +udcrsResponseStatus :: Lens' UpdateDomainContactResponse Int +udcrsResponseStatus = lens _udcrsResponseStatus (\ s a -> s{_udcrsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs b/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs --- a/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs +++ b/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs @@ -47,7 +47,7 @@ , updateDomainContactPrivacyResponse , UpdateDomainContactPrivacyResponse -- * Response Lenses - , udcprsStatus + , udcprsResponseStatus , udcprsOperationId ) where @@ -187,30 +187,30 @@ -- -- /See:/ 'updateDomainContactPrivacyResponse' smart constructor. data UpdateDomainContactPrivacyResponse = UpdateDomainContactPrivacyResponse' - { _udcprsStatus :: !Int - , _udcprsOperationId :: !Text + { _udcprsResponseStatus :: !Int + , _udcprsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateDomainContactPrivacyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'udcprsStatus' +-- * 'udcprsResponseStatus' -- -- * 'udcprsOperationId' updateDomainContactPrivacyResponse - :: Int -- ^ 'udcprsStatus' + :: Int -- ^ 'udcprsResponseStatus' -> Text -- ^ 'udcprsOperationId' -> UpdateDomainContactPrivacyResponse -updateDomainContactPrivacyResponse pStatus_ pOperationId_ = +updateDomainContactPrivacyResponse pResponseStatus_ pOperationId_ = UpdateDomainContactPrivacyResponse' - { _udcprsStatus = pStatus_ + { _udcprsResponseStatus = pResponseStatus_ , _udcprsOperationId = pOperationId_ } -- | The response status code. -udcprsStatus :: Lens' UpdateDomainContactPrivacyResponse Int -udcprsStatus = lens _udcprsStatus (\ s a -> s{_udcprsStatus = a}); +udcprsResponseStatus :: Lens' UpdateDomainContactPrivacyResponse Int +udcprsResponseStatus = lens _udcprsResponseStatus (\ s a -> s{_udcprsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs b/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs --- a/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs +++ b/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs @@ -43,7 +43,7 @@ , updateDomainNameserversResponse , UpdateDomainNameserversResponse -- * Response Lenses - , udnrsStatus + , udnrsResponseStatus , udnrsOperationId ) where @@ -147,30 +147,30 @@ -- -- /See:/ 'updateDomainNameserversResponse' smart constructor. data UpdateDomainNameserversResponse = UpdateDomainNameserversResponse' - { _udnrsStatus :: !Int - , _udnrsOperationId :: !Text + { _udnrsResponseStatus :: !Int + , _udnrsOperationId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateDomainNameserversResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'udnrsStatus' +-- * 'udnrsResponseStatus' -- -- * 'udnrsOperationId' updateDomainNameserversResponse - :: Int -- ^ 'udnrsStatus' + :: Int -- ^ 'udnrsResponseStatus' -> Text -- ^ 'udnrsOperationId' -> UpdateDomainNameserversResponse -updateDomainNameserversResponse pStatus_ pOperationId_ = +updateDomainNameserversResponse pResponseStatus_ pOperationId_ = UpdateDomainNameserversResponse' - { _udnrsStatus = pStatus_ + { _udnrsResponseStatus = pResponseStatus_ , _udnrsOperationId = pOperationId_ } -- | The response status code. -udnrsStatus :: Lens' UpdateDomainNameserversResponse Int -udnrsStatus = lens _udnrsStatus (\ s a -> s{_udnrsStatus = a}); +udnrsResponseStatus :: Lens' UpdateDomainNameserversResponse Int +udnrsResponseStatus = lens _udnrsResponseStatus (\ s a -> s{_udnrsResponseStatus = a}); -- | Identifier for tracking the progress of the request. To use this ID to -- query the operation status, use GetOperationDetail. diff --git a/gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs b/gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs --- a/gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs +++ b/gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs @@ -37,7 +37,7 @@ , updateTagsForDomainResponse , UpdateTagsForDomainResponse -- * Response Lenses - , utfdrsStatus + , utfdrsResponseStatus ) where import Network.AWS.Prelude @@ -169,22 +169,22 @@ -- | /See:/ 'updateTagsForDomainResponse' smart constructor. newtype UpdateTagsForDomainResponse = UpdateTagsForDomainResponse' - { _utfdrsStatus :: Int + { _utfdrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateTagsForDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'utfdrsStatus' +-- * 'utfdrsResponseStatus' updateTagsForDomainResponse - :: Int -- ^ 'utfdrsStatus' + :: Int -- ^ 'utfdrsResponseStatus' -> UpdateTagsForDomainResponse -updateTagsForDomainResponse pStatus_ = +updateTagsForDomainResponse pResponseStatus_ = UpdateTagsForDomainResponse' - { _utfdrsStatus = pStatus_ + { _utfdrsResponseStatus = pResponseStatus_ } -- | The response status code. -utfdrsStatus :: Lens' UpdateTagsForDomainResponse Int -utfdrsStatus = lens _utfdrsStatus (\ s a -> s{_utfdrsStatus = a}); +utfdrsResponseStatus :: Lens' UpdateTagsForDomainResponse Int +utfdrsResponseStatus = lens _utfdrsResponseStatus (\ s a -> s{_utfdrsResponseStatus = a}); diff --git a/test/Test/AWS/Gen/Route53Domains.hs b/test/Test/AWS/Gen/Route53Domains.hs --- a/test/Test/AWS/Gen/Route53Domains.hs +++ b/test/Test/AWS/Gen/Route53Domains.hs @@ -67,18 +67,18 @@ -- , testUpdateDomainNameservers $ -- updateDomainNameservers -- --- , testRetrieveDomainAuthCode $ --- retrieveDomainAuthCode --- --- , testTransferDomain $ --- transferDomain --- -- , testDeleteTagsForDomain $ -- deleteTagsForDomain -- -- , testUpdateTagsForDomain $ -- updateTagsForDomain -- +-- , testRetrieveDomainAuthCode $ +-- retrieveDomainAuthCode +-- +-- , testTransferDomain $ +-- transferDomain +-- -- , testListDomains $ -- listDomains -- @@ -124,18 +124,18 @@ -- , testUpdateDomainNameserversResponse $ -- updateDomainNameserversResponse -- --- , testRetrieveDomainAuthCodeResponse $ --- retrieveDomainAuthCodeResponse --- --- , testTransferDomainResponse $ --- transferDomainResponse --- -- , testDeleteTagsForDomainResponse $ -- deleteTagsForDomainResponse -- -- , testUpdateTagsForDomainResponse $ -- updateTagsForDomainResponse -- +-- , testRetrieveDomainAuthCodeResponse $ +-- retrieveDomainAuthCodeResponse +-- +-- , testTransferDomainResponse $ +-- transferDomainResponse +-- -- , testListDomainsResponse $ -- listDomainsResponse -- @@ -209,16 +209,6 @@ "UpdateDomainNameservers" "fixture/UpdateDomainNameservers.yaml" -testRetrieveDomainAuthCode :: RetrieveDomainAuthCode -> TestTree -testRetrieveDomainAuthCode = req - "RetrieveDomainAuthCode" - "fixture/RetrieveDomainAuthCode.yaml" - -testTransferDomain :: TransferDomain -> TestTree -testTransferDomain = req - "TransferDomain" - "fixture/TransferDomain.yaml" - testDeleteTagsForDomain :: DeleteTagsForDomain -> TestTree testDeleteTagsForDomain = req "DeleteTagsForDomain" @@ -229,6 +219,16 @@ "UpdateTagsForDomain" "fixture/UpdateTagsForDomain.yaml" +testRetrieveDomainAuthCode :: RetrieveDomainAuthCode -> TestTree +testRetrieveDomainAuthCode = req + "RetrieveDomainAuthCode" + "fixture/RetrieveDomainAuthCode.yaml" + +testTransferDomain :: TransferDomain -> TestTree +testTransferDomain = req + "TransferDomain" + "fixture/TransferDomain.yaml" + testListDomains :: ListDomains -> TestTree testListDomains = req "ListDomains" @@ -327,20 +327,6 @@ route53Domains (Proxy :: Proxy UpdateDomainNameservers) -testRetrieveDomainAuthCodeResponse :: RetrieveDomainAuthCodeResponse -> TestTree -testRetrieveDomainAuthCodeResponse = res - "RetrieveDomainAuthCodeResponse" - "fixture/RetrieveDomainAuthCodeResponse.proto" - route53Domains - (Proxy :: Proxy RetrieveDomainAuthCode) - -testTransferDomainResponse :: TransferDomainResponse -> TestTree -testTransferDomainResponse = res - "TransferDomainResponse" - "fixture/TransferDomainResponse.proto" - route53Domains - (Proxy :: Proxy TransferDomain) - testDeleteTagsForDomainResponse :: DeleteTagsForDomainResponse -> TestTree testDeleteTagsForDomainResponse = res "DeleteTagsForDomainResponse" @@ -354,6 +340,20 @@ "fixture/UpdateTagsForDomainResponse.proto" route53Domains (Proxy :: Proxy UpdateTagsForDomain) + +testRetrieveDomainAuthCodeResponse :: RetrieveDomainAuthCodeResponse -> TestTree +testRetrieveDomainAuthCodeResponse = res + "RetrieveDomainAuthCodeResponse" + "fixture/RetrieveDomainAuthCodeResponse.proto" + route53Domains + (Proxy :: Proxy RetrieveDomainAuthCode) + +testTransferDomainResponse :: TransferDomainResponse -> TestTree +testTransferDomainResponse = res + "TransferDomainResponse" + "fixture/TransferDomainResponse.proto" + route53Domains + (Proxy :: Proxy TransferDomain) testListDomainsResponse :: ListDomainsResponse -> TestTree testListDomainsResponse = res