amazonka-route53-domains 1.2.0.2 → 1.3.0

raw patch · 24 files changed

+324/−312 lines, 24 filesdep ~amazonka-coredep ~amazonka-route53-domainsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53-domains.cabal +5/−5
• gen/Network/AWS/Route53Domains.hs +7/−7
• gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs +9/−9
• gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs +8/−8
• gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs +8/−8
• gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs +9/−9
• gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs +8/−8
• gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs +9/−9
• gen/Network/AWS/Route53Domains/GetDomainDetail.hs +48/−48
• gen/Network/AWS/Route53Domains/GetOperationDetail.hs +28/−16
• gen/Network/AWS/Route53Domains/ListDomains.hs +29/−29
• gen/Network/AWS/Route53Domains/ListOperations.hs +29/−29
• gen/Network/AWS/Route53Domains/ListTagsForDomain.hs +9/−9
• gen/Network/AWS/Route53Domains/RegisterDomain.hs +9/−9
• gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs +9/−9
• gen/Network/AWS/Route53Domains/TransferDomain.hs +9/−9
• gen/Network/AWS/Route53Domains/Types.hs +1/−1
• gen/Network/AWS/Route53Domains/Types/Product.hs +18/−18
• gen/Network/AWS/Route53Domains/UpdateDomainContact.hs +9/−9
• gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs +9/−9
• gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs +9/−9
• gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs +8/−8
• test/Test/AWS/Gen/Route53Domains.hs +36/−36

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

@@ -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

@@ -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

@@ -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. --

@@ -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});

@@ -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});

@@ -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.

@@ -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});

@@ -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.

@@ -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. --

@@ -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});

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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.

@@ -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. --

@@ -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.

@@ -46,8 +46,8 @@     , contactDetail     , cdOrganizationName     , cdEmail-    , cdFax     , cdState+    , cdFax     , cdLastName     , cdExtraParams     , cdZipCode

@@ -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,

@@ -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.

@@ -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.

@@ -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.

@@ -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});

@@ -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