amazonka-route53-domains 1.4.3 → 1.4.4

raw patch · 19 files changed

+861/−91 lines, 19 filesdep ~amazonka-coredep ~amazonka-route53-domainsdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53-domains.cabal +9/−6
• fixture/GetDomainSuggestions.yaml +0/−0
• fixture/GetDomainSuggestionsResponse.proto +0/−0
• fixture/RenewDomain.yaml +0/−0
• fixture/RenewDomainResponse.proto +0/−0
• fixture/ViewBilling.yaml +0/−0
• fixture/ViewBillingResponse.proto +0/−0
• gen/Network/AWS/Route53Domains.hs +27/−0
• gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs +0/−2
• gen/Network/AWS/Route53Domains/GetDomainSuggestions.hs +162/−0
• gen/Network/AWS/Route53Domains/RegisterDomain.hs +75/−75
• gen/Network/AWS/Route53Domains/RenewDomain.hs +174/−0
• gen/Network/AWS/Route53Domains/Types.hs +15/−0
• gen/Network/AWS/Route53Domains/Types/Product.hs +126/−0
• gen/Network/AWS/Route53Domains/Types/Sum.hs +7/−7
• gen/Network/AWS/Route53Domains/ViewBilling.hs +211/−0
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/Route53Domains.hs +54/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-route53-domains-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Route 53 Domains SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     Pending     .@@ -49,11 +49,13 @@         , Network.AWS.Route53Domains.EnableDomainTransferLock         , Network.AWS.Route53Domains.GetContactReachabilityStatus         , Network.AWS.Route53Domains.GetDomainDetail+        , Network.AWS.Route53Domains.GetDomainSuggestions         , Network.AWS.Route53Domains.GetOperationDetail         , Network.AWS.Route53Domains.ListDomains         , Network.AWS.Route53Domains.ListOperations         , Network.AWS.Route53Domains.ListTagsForDomain         , Network.AWS.Route53Domains.RegisterDomain+        , Network.AWS.Route53Domains.RenewDomain         , Network.AWS.Route53Domains.ResendContactReachabilityEmail         , Network.AWS.Route53Domains.RetrieveDomainAuthCode         , Network.AWS.Route53Domains.TransferDomain@@ -62,6 +64,7 @@         , Network.AWS.Route53Domains.UpdateDomainContactPrivacy         , Network.AWS.Route53Domains.UpdateDomainNameservers         , Network.AWS.Route53Domains.UpdateTagsForDomain+        , Network.AWS.Route53Domains.ViewBilling         , Network.AWS.Route53Domains.Waiters      other-modules:@@ -69,7 +72,7 @@         , Network.AWS.Route53Domains.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-route53-domains-test@@ -89,9 +92,9 @@         , Test.AWS.Route53Domains.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-route53-domains == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-route53-domains == 1.4.4.*         , base         , bytestring         , tasty

@@ -65,6 +65,12 @@     -- ** DisableDomainAutoRenew     , module Network.AWS.Route53Domains.DisableDomainAutoRenew +    -- ** RenewDomain+    , module Network.AWS.Route53Domains.RenewDomain++    -- ** ViewBilling+    , module Network.AWS.Route53Domains.ViewBilling+     -- ** UpdateDomainContact     , module Network.AWS.Route53Domains.UpdateDomainContact @@ -74,6 +80,9 @@     -- ** RegisterDomain     , module Network.AWS.Route53Domains.RegisterDomain +    -- ** GetDomainSuggestions+    , module Network.AWS.Route53Domains.GetDomainSuggestions+     -- ** DisableDomainTransferLock     , module Network.AWS.Route53Domains.DisableDomainTransferLock @@ -127,6 +136,15 @@     -- ** ReachabilityStatus     , ReachabilityStatus (..) +    -- ** BillingRecord+    , BillingRecord+    , billingRecord+    , brOperation+    , brInvoiceId+    , brDomainName+    , brBillDate+    , brPrice+     -- ** ContactDetail     , ContactDetail     , contactDetail@@ -145,6 +163,12 @@     , cdCountryCode     , cdContactType +    -- ** DomainSuggestion+    , DomainSuggestion+    , domainSuggestion+    , dAvailability+    , dDomainName+     -- ** DomainSummary     , DomainSummary     , domainSummary@@ -188,11 +212,13 @@ import           Network.AWS.Route53Domains.EnableDomainTransferLock import           Network.AWS.Route53Domains.GetContactReachabilityStatus import           Network.AWS.Route53Domains.GetDomainDetail+import           Network.AWS.Route53Domains.GetDomainSuggestions import           Network.AWS.Route53Domains.GetOperationDetail import           Network.AWS.Route53Domains.ListDomains import           Network.AWS.Route53Domains.ListOperations import           Network.AWS.Route53Domains.ListTagsForDomain import           Network.AWS.Route53Domains.RegisterDomain+import           Network.AWS.Route53Domains.RenewDomain import           Network.AWS.Route53Domains.ResendContactReachabilityEmail import           Network.AWS.Route53Domains.RetrieveDomainAuthCode import           Network.AWS.Route53Domains.TransferDomain@@ -201,6 +227,7 @@ import           Network.AWS.Route53Domains.UpdateDomainContactPrivacy import           Network.AWS.Route53Domains.UpdateDomainNameservers import           Network.AWS.Route53Domains.UpdateTagsForDomain+import           Network.AWS.Route53Domains.ViewBilling import           Network.AWS.Route53Domains.Waiters  {- $errors

@@ -19,8 +19,6 @@ -- Portability : non-portable (GHC extensions) -- -- This operation disables automatic renewal of domain registration for the specified domain.------ Caution! Amazon Route 53 doesn\'t have a manual renewal process, so if you disable automatic renewal, registration for the domain will not be renewed when the expiration date passes, and you will lose control of the domain name. module Network.AWS.Route53Domains.DisableDomainAutoRenew     (     -- * Creating a Request

@@ -0,0 +1,162 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Route53Domains.GetDomainSuggestions+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The GetDomainSuggestions operation returns a list of suggested domain names given a string, which can either be a domain name or simply a word or phrase (without spaces).+--+-- Parameters:+--+-- -   DomainName (string): The basis for your domain suggestion search, a string with (or without) top-level domain specified.+-- -   SuggestionCount (int): The number of domain suggestions to be returned, maximum 50, minimum 1.+-- -   OnlyAvailable (bool): If true, availability check will be performed on suggestion results, and only available domains will be returned. If false, suggestions will be returned without checking whether the domain is actually available, and caller will have to call checkDomainAvailability for each suggestion to determine availability for registration.+module Network.AWS.Route53Domains.GetDomainSuggestions+    (+    -- * Creating a Request+      getDomainSuggestions+    , GetDomainSuggestions+    -- * Request Lenses+    , gdsDomainName+    , gdsSuggestionCount+    , gdsOnlyAvailable++    -- * Destructuring the Response+    , getDomainSuggestionsResponse+    , GetDomainSuggestionsResponse+    -- * Response Lenses+    , gdsrsSuggestionsList+    , gdsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53Domains.Types+import           Network.AWS.Route53Domains.Types.Product++-- | /See:/ 'getDomainSuggestions' smart constructor.+data GetDomainSuggestions = GetDomainSuggestions'+    { _gdsDomainName      :: !Text+    , _gdsSuggestionCount :: !Int+    , _gdsOnlyAvailable   :: !Bool+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDomainSuggestions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdsDomainName'+--+-- * 'gdsSuggestionCount'+--+-- * 'gdsOnlyAvailable'+getDomainSuggestions+    :: Text -- ^ 'gdsDomainName'+    -> Int -- ^ 'gdsSuggestionCount'+    -> Bool -- ^ 'gdsOnlyAvailable'+    -> GetDomainSuggestions+getDomainSuggestions pDomainName_ pSuggestionCount_ pOnlyAvailable_ =+    GetDomainSuggestions'+    { _gdsDomainName = pDomainName_+    , _gdsSuggestionCount = pSuggestionCount_+    , _gdsOnlyAvailable = pOnlyAvailable_+    }++-- | Undocumented member.+gdsDomainName :: Lens' GetDomainSuggestions Text+gdsDomainName = lens _gdsDomainName (\ s a -> s{_gdsDomainName = a});++-- | Undocumented member.+gdsSuggestionCount :: Lens' GetDomainSuggestions Int+gdsSuggestionCount = lens _gdsSuggestionCount (\ s a -> s{_gdsSuggestionCount = a});++-- | Undocumented member.+gdsOnlyAvailable :: Lens' GetDomainSuggestions Bool+gdsOnlyAvailable = lens _gdsOnlyAvailable (\ s a -> s{_gdsOnlyAvailable = a});++instance AWSRequest GetDomainSuggestions where+        type Rs GetDomainSuggestions =+             GetDomainSuggestionsResponse+        request = postJSON route53Domains+        response+          = receiveJSON+              (\ s h x ->+                 GetDomainSuggestionsResponse' <$>+                   (x .?> "SuggestionsList" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable GetDomainSuggestions++instance NFData GetDomainSuggestions++instance ToHeaders GetDomainSuggestions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Route53Domains_v20140515.GetDomainSuggestions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetDomainSuggestions where+        toJSON GetDomainSuggestions'{..}+          = object+              (catMaybes+                 [Just ("DomainName" .= _gdsDomainName),+                  Just ("SuggestionCount" .= _gdsSuggestionCount),+                  Just ("OnlyAvailable" .= _gdsOnlyAvailable)])++instance ToPath GetDomainSuggestions where+        toPath = const "/"++instance ToQuery GetDomainSuggestions where+        toQuery = const mempty++-- | /See:/ 'getDomainSuggestionsResponse' smart constructor.+data GetDomainSuggestionsResponse = GetDomainSuggestionsResponse'+    { _gdsrsSuggestionsList :: !(Maybe [DomainSuggestion])+    , _gdsrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDomainSuggestionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdsrsSuggestionsList'+--+-- * 'gdsrsResponseStatus'+getDomainSuggestionsResponse+    :: Int -- ^ 'gdsrsResponseStatus'+    -> GetDomainSuggestionsResponse+getDomainSuggestionsResponse pResponseStatus_ =+    GetDomainSuggestionsResponse'+    { _gdsrsSuggestionsList = Nothing+    , _gdsrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+gdsrsSuggestionsList :: Lens' GetDomainSuggestionsResponse [DomainSuggestion]+gdsrsSuggestionsList = lens _gdsrsSuggestionsList (\ s a -> s{_gdsrsSuggestionsList = a}) . _Default . _Coerce;++-- | The response status code.+gdsrsResponseStatus :: Lens' GetDomainSuggestionsResponse Int+gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a});++instance NFData GetDomainSuggestionsResponse

@@ -33,16 +33,16 @@       registerDomain     , RegisterDomain     -- * Request Lenses-    , rdPrivacyProtectTechContact-    , rdPrivacyProtectRegistrantContact-    , rdAutoRenew-    , rdPrivacyProtectAdminContact-    , rdIdNLangCode-    , rdDomainName-    , rdDurationInYears-    , rdAdminContact-    , rdRegistrantContact-    , rdTechContact+    , rPrivacyProtectTechContact+    , rPrivacyProtectRegistrantContact+    , rAutoRenew+    , rPrivacyProtectAdminContact+    , rIdNLangCode+    , rDomainName+    , rDurationInYears+    , rAdminContact+    , rRegistrantContact+    , rTechContact      -- * Destructuring the Response     , registerDomainResponse@@ -63,60 +63,60 @@ -- -- /See:/ 'registerDomain' smart constructor. data RegisterDomain = RegisterDomain'-    { _rdPrivacyProtectTechContact       :: !(Maybe Bool)-    , _rdPrivacyProtectRegistrantContact :: !(Maybe Bool)-    , _rdAutoRenew                       :: !(Maybe Bool)-    , _rdPrivacyProtectAdminContact      :: !(Maybe Bool)-    , _rdIdNLangCode                     :: !(Maybe Text)-    , _rdDomainName                      :: !Text-    , _rdDurationInYears                 :: !Nat-    , _rdAdminContact                    :: !(Sensitive ContactDetail)-    , _rdRegistrantContact               :: !(Sensitive ContactDetail)-    , _rdTechContact                     :: !(Sensitive ContactDetail)+    { _rPrivacyProtectTechContact       :: !(Maybe Bool)+    , _rPrivacyProtectRegistrantContact :: !(Maybe Bool)+    , _rAutoRenew                       :: !(Maybe Bool)+    , _rPrivacyProtectAdminContact      :: !(Maybe Bool)+    , _rIdNLangCode                     :: !(Maybe Text)+    , _rDomainName                      :: !Text+    , _rDurationInYears                 :: !Nat+    , _rAdminContact                    :: !(Sensitive ContactDetail)+    , _rRegistrantContact               :: !(Sensitive ContactDetail)+    , _rTechContact                     :: !(Sensitive ContactDetail)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RegisterDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdPrivacyProtectTechContact'+-- * 'rPrivacyProtectTechContact' ----- * 'rdPrivacyProtectRegistrantContact'+-- * 'rPrivacyProtectRegistrantContact' ----- * 'rdAutoRenew'+-- * 'rAutoRenew' ----- * 'rdPrivacyProtectAdminContact'+-- * 'rPrivacyProtectAdminContact' ----- * 'rdIdNLangCode'+-- * 'rIdNLangCode' ----- * 'rdDomainName'+-- * 'rDomainName' ----- * 'rdDurationInYears'+-- * 'rDurationInYears' ----- * 'rdAdminContact'+-- * 'rAdminContact' ----- * 'rdRegistrantContact'+-- * 'rRegistrantContact' ----- * 'rdTechContact'+-- * 'rTechContact' registerDomain-    :: Text -- ^ 'rdDomainName'-    -> Natural -- ^ 'rdDurationInYears'-    -> ContactDetail -- ^ 'rdAdminContact'-    -> ContactDetail -- ^ 'rdRegistrantContact'-    -> ContactDetail -- ^ 'rdTechContact'+    :: Text -- ^ 'rDomainName'+    -> Natural -- ^ 'rDurationInYears'+    -> ContactDetail -- ^ 'rAdminContact'+    -> ContactDetail -- ^ 'rRegistrantContact'+    -> ContactDetail -- ^ 'rTechContact'     -> RegisterDomain registerDomain pDomainName_ pDurationInYears_ pAdminContact_ pRegistrantContact_ pTechContact_ =     RegisterDomain'-    { _rdPrivacyProtectTechContact = Nothing-    , _rdPrivacyProtectRegistrantContact = Nothing-    , _rdAutoRenew = Nothing-    , _rdPrivacyProtectAdminContact = Nothing-    , _rdIdNLangCode = Nothing-    , _rdDomainName = pDomainName_-    , _rdDurationInYears = _Nat # pDurationInYears_-    , _rdAdminContact = _Sensitive # pAdminContact_-    , _rdRegistrantContact = _Sensitive # pRegistrantContact_-    , _rdTechContact = _Sensitive # pTechContact_+    { _rPrivacyProtectTechContact = Nothing+    , _rPrivacyProtectRegistrantContact = Nothing+    , _rAutoRenew = Nothing+    , _rPrivacyProtectAdminContact = Nothing+    , _rIdNLangCode = Nothing+    , _rDomainName = pDomainName_+    , _rDurationInYears = _Nat # pDurationInYears_+    , _rAdminContact = _Sensitive # pAdminContact_+    , _rRegistrantContact = _Sensitive # pRegistrantContact_+    , _rTechContact = _Sensitive # pTechContact_     }  -- | Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter.@@ -128,8 +128,8 @@ -- Valid values: 'true' | 'false' -- -- Required: No-rdPrivacyProtectTechContact :: Lens' RegisterDomain (Maybe Bool)-rdPrivacyProtectTechContact = lens _rdPrivacyProtectTechContact (\ s a -> s{_rdPrivacyProtectTechContact = a});+rPrivacyProtectTechContact :: Lens' RegisterDomain (Maybe Bool)+rPrivacyProtectTechContact = lens _rPrivacyProtectTechContact (\ s a -> s{_rPrivacyProtectTechContact = a});  -- | Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. --@@ -140,8 +140,8 @@ -- Valid values: 'true' | 'false' -- -- Required: No-rdPrivacyProtectRegistrantContact :: Lens' RegisterDomain (Maybe Bool)-rdPrivacyProtectRegistrantContact = lens _rdPrivacyProtectRegistrantContact (\ s a -> s{_rdPrivacyProtectRegistrantContact = a});+rPrivacyProtectRegistrantContact :: Lens' RegisterDomain (Maybe Bool)+rPrivacyProtectRegistrantContact = lens _rPrivacyProtectRegistrantContact (\ s a -> s{_rPrivacyProtectRegistrantContact = a});  -- | Indicates whether the domain will be automatically renewed ('true') or not ('false'). Autorenewal only takes effect after the account is charged. --@@ -152,8 +152,8 @@ -- Default: 'true' -- -- Required: No-rdAutoRenew :: Lens' RegisterDomain (Maybe Bool)-rdAutoRenew = lens _rdAutoRenew (\ s a -> s{_rdAutoRenew = a});+rAutoRenew :: Lens' RegisterDomain (Maybe Bool)+rAutoRenew = lens _rAutoRenew (\ s a -> s{_rAutoRenew = a});  -- | Whether you want to conceal contact information from WHOIS queries. If you specify true, WHOIS (\"who is\") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. --@@ -164,12 +164,12 @@ -- Valid values: 'true' | 'false' -- -- Required: No-rdPrivacyProtectAdminContact :: Lens' RegisterDomain (Maybe Bool)-rdPrivacyProtectAdminContact = lens _rdPrivacyProtectAdminContact (\ s a -> s{_rdPrivacyProtectAdminContact = a});+rPrivacyProtectAdminContact :: Lens' RegisterDomain (Maybe Bool)+rPrivacyProtectAdminContact = lens _rPrivacyProtectAdminContact (\ s a -> s{_rPrivacyProtectAdminContact = a});  -- | Reserved for future use.-rdIdNLangCode :: Lens' RegisterDomain (Maybe Text)-rdIdNLangCode = lens _rdIdNLangCode (\ s a -> s{_rdIdNLangCode = a});+rIdNLangCode :: Lens' RegisterDomain (Maybe Text)+rIdNLangCode = lens _rIdNLangCode (\ s a -> s{_rIdNLangCode = a});  -- | The name of a domain. --@@ -180,8 +180,8 @@ -- Constraints: The domain name can contain only the letters a through z, the numbers 0 through 9, and hyphen (-). Internationalized Domain Names are not supported. -- -- Required: Yes-rdDomainName :: Lens' RegisterDomain Text-rdDomainName = lens _rdDomainName (\ s a -> s{_rdDomainName = a});+rDomainName :: Lens' RegisterDomain Text+rDomainName = lens _rDomainName (\ s a -> s{_rDomainName = a});  -- | The number of years the domain will be registered. Domains are registered for a minimum of one year. The maximum period depends on the top-level domain. --@@ -192,8 +192,8 @@ -- Valid values: Integer from 1 to 10 -- -- Required: Yes-rdDurationInYears :: Lens' RegisterDomain Natural-rdDurationInYears = lens _rdDurationInYears (\ s a -> s{_rdDurationInYears = a}) . _Nat;+rDurationInYears :: Lens' RegisterDomain Natural+rDurationInYears = lens _rDurationInYears (\ s a -> s{_rDurationInYears = a}) . _Nat;  -- | Provides detailed contact information. --@@ -202,8 +202,8 @@ -- Children: 'FirstName', 'MiddleName', 'LastName', 'ContactType', 'OrganizationName', 'AddressLine1', 'AddressLine2', 'City', 'State', 'CountryCode', 'ZipCode', 'PhoneNumber', 'Email', 'Fax', 'ExtraParams' -- -- Required: Yes-rdAdminContact :: Lens' RegisterDomain ContactDetail-rdAdminContact = lens _rdAdminContact (\ s a -> s{_rdAdminContact = a}) . _Sensitive;+rAdminContact :: Lens' RegisterDomain ContactDetail+rAdminContact = lens _rAdminContact (\ s a -> s{_rAdminContact = a}) . _Sensitive;  -- | Provides detailed contact information. --@@ -212,8 +212,8 @@ -- Children: 'FirstName', 'MiddleName', 'LastName', 'ContactType', 'OrganizationName', 'AddressLine1', 'AddressLine2', 'City', 'State', 'CountryCode', 'ZipCode', 'PhoneNumber', 'Email', 'Fax', 'ExtraParams' -- -- Required: Yes-rdRegistrantContact :: Lens' RegisterDomain ContactDetail-rdRegistrantContact = lens _rdRegistrantContact (\ s a -> s{_rdRegistrantContact = a}) . _Sensitive;+rRegistrantContact :: Lens' RegisterDomain ContactDetail+rRegistrantContact = lens _rRegistrantContact (\ s a -> s{_rRegistrantContact = a}) . _Sensitive;  -- | Provides detailed contact information. --@@ -222,8 +222,8 @@ -- Children: 'FirstName', 'MiddleName', 'LastName', 'ContactType', 'OrganizationName', 'AddressLine1', 'AddressLine2', 'City', 'State', 'CountryCode', 'ZipCode', 'PhoneNumber', 'Email', 'Fax', 'ExtraParams' -- -- Required: Yes-rdTechContact :: Lens' RegisterDomain ContactDetail-rdTechContact = lens _rdTechContact (\ s a -> s{_rdTechContact = a}) . _Sensitive;+rTechContact :: Lens' RegisterDomain ContactDetail+rTechContact = lens _rTechContact (\ s a -> s{_rTechContact = a}) . _Sensitive;  instance AWSRequest RegisterDomain where         type Rs RegisterDomain = RegisterDomainResponse@@ -253,18 +253,18 @@           = object               (catMaybes                  [("PrivacyProtectTechContact" .=) <$>-                    _rdPrivacyProtectTechContact,+                    _rPrivacyProtectTechContact,                   ("PrivacyProtectRegistrantContact" .=) <$>-                    _rdPrivacyProtectRegistrantContact,-                  ("AutoRenew" .=) <$> _rdAutoRenew,+                    _rPrivacyProtectRegistrantContact,+                  ("AutoRenew" .=) <$> _rAutoRenew,                   ("PrivacyProtectAdminContact" .=) <$>-                    _rdPrivacyProtectAdminContact,-                  ("IdnLangCode" .=) <$> _rdIdNLangCode,-                  Just ("DomainName" .= _rdDomainName),-                  Just ("DurationInYears" .= _rdDurationInYears),-                  Just ("AdminContact" .= _rdAdminContact),-                  Just ("RegistrantContact" .= _rdRegistrantContact),-                  Just ("TechContact" .= _rdTechContact)])+                    _rPrivacyProtectAdminContact,+                  ("IdnLangCode" .=) <$> _rIdNLangCode,+                  Just ("DomainName" .= _rDomainName),+                  Just ("DurationInYears" .= _rDurationInYears),+                  Just ("AdminContact" .= _rAdminContact),+                  Just ("RegistrantContact" .= _rRegistrantContact),+                  Just ("TechContact" .= _rTechContact)])  instance ToPath RegisterDomain where         toPath = const "/"

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Route53Domains.RenewDomain+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation renews a domain for the specified number of years. The cost of renewing your domain is billed to your AWS account.+--+-- We recommend that you renew your domain several weeks before the expiration date. Some TLD registries delete domains before the expiration date if you haven\'t renewed far enough in advance. For more information about renewing domain registration, see <http://docs.aws.amazon.com/console/route53/domain-renew Renewing Registration for a Domain> in the Amazon Route 53 documentation.+module Network.AWS.Route53Domains.RenewDomain+    (+    -- * Creating a Request+      renewDomain+    , RenewDomain+    -- * Request Lenses+    , rdDurationInYears+    , rdDomainName+    , rdCurrentExpiryYear++    -- * Destructuring the Response+    , renewDomainResponse+    , RenewDomainResponse+    -- * Response Lenses+    , rrsResponseStatus+    , rrsOperationId+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53Domains.Types+import           Network.AWS.Route53Domains.Types.Product++-- | A 'RenewDomain' request includes the number of years that you want to renew for and the current expiration year.+--+-- /See:/ 'renewDomain' smart constructor.+data RenewDomain = RenewDomain'+    { _rdDurationInYears   :: !(Maybe Nat)+    , _rdDomainName        :: !Text+    , _rdCurrentExpiryYear :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RenewDomain' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdDurationInYears'+--+-- * 'rdDomainName'+--+-- * 'rdCurrentExpiryYear'+renewDomain+    :: Text -- ^ 'rdDomainName'+    -> Int -- ^ 'rdCurrentExpiryYear'+    -> RenewDomain+renewDomain pDomainName_ pCurrentExpiryYear_ =+    RenewDomain'+    { _rdDurationInYears = Nothing+    , _rdDomainName = pDomainName_+    , _rdCurrentExpiryYear = pCurrentExpiryYear_+    }++-- | The number of years that you want to renew the domain for. The maximum number of years depends on the top-level domain. For the range of valid values for your domain, see <http://docs.aws.amazon.com/console/route53/domain-tld-list Domains that You Can Register with Amazon Route 53> in the Amazon Route 53 documentation.+--+-- Type: Integer+--+-- Default: 1+--+-- Valid values: Integer from 1 to 10+--+-- Required: No+rdDurationInYears :: Lens' RenewDomain (Maybe Natural)+rdDurationInYears = lens _rdDurationInYears (\ s a -> s{_rdDurationInYears = a}) . mapping _Nat;++-- | Undocumented member.+rdDomainName :: Lens' RenewDomain Text+rdDomainName = lens _rdDomainName (\ s a -> s{_rdDomainName = a});++-- | The year when the registration for the domain is set to expire. This value must match the current expiration date for the domain.+--+-- Type: Integer+--+-- Default: None+--+-- Valid values: Integer+--+-- Required: Yes+rdCurrentExpiryYear :: Lens' RenewDomain Int+rdCurrentExpiryYear = lens _rdCurrentExpiryYear (\ s a -> s{_rdCurrentExpiryYear = a});++instance AWSRequest RenewDomain where+        type Rs RenewDomain = RenewDomainResponse+        request = postJSON route53Domains+        response+          = receiveJSON+              (\ s h x ->+                 RenewDomainResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "OperationId"))++instance Hashable RenewDomain++instance NFData RenewDomain++instance ToHeaders RenewDomain where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Route53Domains_v20140515.RenewDomain" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RenewDomain where+        toJSON RenewDomain'{..}+          = object+              (catMaybes+                 [("DurationInYears" .=) <$> _rdDurationInYears,+                  Just ("DomainName" .= _rdDomainName),+                  Just ("CurrentExpiryYear" .= _rdCurrentExpiryYear)])++instance ToPath RenewDomain where+        toPath = const "/"++instance ToQuery RenewDomain where+        toQuery = const mempty++-- | /See:/ 'renewDomainResponse' smart constructor.+data RenewDomainResponse = RenewDomainResponse'+    { _rrsResponseStatus :: !Int+    , _rrsOperationId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RenewDomainResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rrsResponseStatus'+--+-- * 'rrsOperationId'+renewDomainResponse+    :: Int -- ^ 'rrsResponseStatus'+    -> Text -- ^ 'rrsOperationId'+    -> RenewDomainResponse+renewDomainResponse pResponseStatus_ pOperationId_ =+    RenewDomainResponse'+    { _rrsResponseStatus = pResponseStatus_+    , _rrsOperationId = pOperationId_+    }++-- | The response status code.+rrsResponseStatus :: Lens' RenewDomainResponse Int+rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a});++-- | Undocumented member.+rrsOperationId :: Lens' RenewDomainResponse Text+rrsOperationId = lens _rrsOperationId (\ s a -> s{_rrsOperationId = a});++instance NFData RenewDomainResponse

@@ -44,6 +44,15 @@     -- * ReachabilityStatus     , ReachabilityStatus (..) +    -- * BillingRecord+    , BillingRecord+    , billingRecord+    , brOperation+    , brInvoiceId+    , brDomainName+    , brBillDate+    , brPrice+     -- * ContactDetail     , ContactDetail     , contactDetail@@ -61,6 +70,12 @@     , cdFirstName     , cdCountryCode     , cdContactType++    -- * DomainSuggestion+    , DomainSuggestion+    , domainSuggestion+    , dAvailability+    , dDomainName      -- * DomainSummary     , DomainSummary

@@ -21,6 +21,92 @@ import           Network.AWS.Prelude import           Network.AWS.Route53Domains.Types.Sum +-- | /See:/ 'billingRecord' smart constructor.+data BillingRecord = BillingRecord'+    { _brOperation  :: !(Maybe OperationType)+    , _brInvoiceId  :: !(Maybe Text)+    , _brDomainName :: !(Maybe Text)+    , _brBillDate   :: !(Maybe POSIX)+    , _brPrice      :: !(Maybe Double)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'BillingRecord' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'brOperation'+--+-- * 'brInvoiceId'+--+-- * 'brDomainName'+--+-- * 'brBillDate'+--+-- * 'brPrice'+billingRecord+    :: BillingRecord+billingRecord =+    BillingRecord'+    { _brOperation = Nothing+    , _brInvoiceId = Nothing+    , _brDomainName = Nothing+    , _brBillDate = Nothing+    , _brPrice = Nothing+    }++-- | The operation that you were charged for.+--+-- Type: String+--+-- Valid values:+--+-- -   'REGISTER_DOMAIN'+-- -   'TRANSFER_IN_DOMAIN'+-- -   'RENEW_DOMAIN'+-- -   'CHANGE_DOMAIN_OWNER'+brOperation :: Lens' BillingRecord (Maybe OperationType)+brOperation = lens _brOperation (\ s a -> s{_brOperation = a});++-- | The ID of the invoice that is associated with the billing record.+--+-- Type: String+brInvoiceId :: Lens' BillingRecord (Maybe Text)+brInvoiceId = lens _brInvoiceId (\ s a -> s{_brInvoiceId = a});++-- | The name of a domain.+--+-- Type: String+brDomainName :: Lens' BillingRecord (Maybe Text)+brDomainName = lens _brDomainName (\ s a -> s{_brDomainName = a});++-- | The date that the operation was billed, in Unix format.+--+-- Type: Double+brBillDate :: Lens' BillingRecord (Maybe UTCTime)+brBillDate = lens _brBillDate (\ s a -> s{_brBillDate = a}) . mapping _Time;++-- | The price that you were charged for the operation, in US dollars.+--+-- Type: Double+--+-- Example value: 12.0+brPrice :: Lens' BillingRecord (Maybe Double)+brPrice = lens _brPrice (\ s a -> s{_brPrice = a});++instance FromJSON BillingRecord where+        parseJSON+          = withObject "BillingRecord"+              (\ x ->+                 BillingRecord' <$>+                   (x .:? "Operation") <*> (x .:? "InvoiceId") <*>+                     (x .:? "DomainName")+                     <*> (x .:? "BillDate")+                     <*> (x .:? "Price"))++instance Hashable BillingRecord++instance NFData BillingRecord+ -- | ContactDetail includes the following elements. -- -- /See:/ 'contactDetail' smart constructor.@@ -330,6 +416,46 @@                   ("FirstName" .=) <$> _cdFirstName,                   ("CountryCode" .=) <$> _cdCountryCode,                   ("ContactType" .=) <$> _cdContactType])++-- | /See:/ 'domainSuggestion' smart constructor.+data DomainSuggestion = DomainSuggestion'+    { _dAvailability :: !(Maybe Text)+    , _dDomainName   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DomainSuggestion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dAvailability'+--+-- * 'dDomainName'+domainSuggestion+    :: DomainSuggestion+domainSuggestion =+    DomainSuggestion'+    { _dAvailability = Nothing+    , _dDomainName = Nothing+    }++-- | Undocumented member.+dAvailability :: Lens' DomainSuggestion (Maybe Text)+dAvailability = lens _dAvailability (\ s a -> s{_dAvailability = a});++-- | Undocumented member.+dDomainName :: Lens' DomainSuggestion (Maybe Text)+dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a});++instance FromJSON DomainSuggestion where+        parseJSON+          = withObject "DomainSuggestion"+              (\ x ->+                 DomainSuggestion' <$>+                   (x .:? "Availability") <*> (x .:? "DomainName"))++instance Hashable DomainSuggestion++instance NFData DomainSuggestion  -- | /See:/ 'domainSummary' smart constructor. data DomainSummary = DomainSummary'

@@ -35,7 +35,7 @@         "public_body" -> pure PublicBody         "reseller" -> pure Reseller         e -> fromTextError $ "Failure parsing ContactType from value: '" <> e-           <> "'. Accepted values: ASSOCIATION, COMPANY, PERSON, PUBLIC_BODY, RESELLER"+           <> "'. Accepted values: association, company, person, public_body, reseller"  instance ToText ContactType where     toText = \case@@ -521,7 +521,7 @@         "zm" -> pure ZM         "zw" -> pure ZW         e -> fromTextError $ "Failure parsing CountryCode from value: '" <> e-           <> "'. Accepted values: AD, AE, AF, AG, AI, AL, AM, AN, AO, AQ, AR, AS, AT, AU, AW, AZ, BA, BB, BD, BE, BF, BG, BH, BI, BJ, BL, BM, BN, BO, BR, BS, BT, BW, BY, BZ, CA, CC, CD, CF, CG, CH, CI, CK, CL, CM, CN, CO, CR, CU, CV, CX, CY, CZ, DE, DJ, DK, DM, DO, DZ, EC, EE, EG, ER, ES, ET, FI, FJ, FK, FM, FO, FR, GA, GB, GD, GE, GH, GI, GL, GM, GN, GQ, GR, GT, GU, GW, GY, HK, HN, HR, HT, HU, IE, IL, IM, IN, IQ, IR, IS, IT, ID, JM, JO, JP, KE, KG, KH, KI, KM, KN, KP, KR, KW, KY, KZ, LA, LB, LC, LI, LK, LR, LS, LT, LU, LV, LY, MA, MC, MD, ME, MF, MG, MH, MK, ML, MM, MN, MO, MP, MR, MS, MT, MU, MV, MW, MX, MY, MZ, NA, NC, NE, NG, NI, NL, NO, NP, NR, NU, NZ, OM, PA, PE, PF, PG, PH, PK, PL, PM, PN, PR, PT, PW, PY, QA, RO, RS, RU, RW, SA, SB, SC, SD, SE, SG, SH, SI, SK, SL, SM, SN, SO, SR, ST, SV, SY, SZ, TC, TD, TG, TH, TJ, TK, TL, TM, TN, TO, TR, TT, TV, TW, TZ, UA, UG, US, UY, UZ, VA, VC, VE, VG, VI, VN, VU, WF, WS, YE, YT, ZA, ZM, ZW"+           <> "'. Accepted values: ad, ae, af, ag, ai, al, am, an, ao, aq, ar, as, at, au, aw, az, ba, bb, bd, be, bf, bg, bh, bi, bj, bl, bm, bn, bo, br, bs, bt, bw, by, bz, ca, cc, cd, cf, cg, ch, ci, ck, cl, cm, cn, co, cr, cu, cv, cx, cy, cz, de, dj, dk, dm, do, dz, ec, ee, eg, er, es, et, fi, fj, fk, fm, fo, fr, ga, gb, gd, ge, gh, gi, gl, gm, gn, gq, gr, gt, gu, gw, gy, hk, hn, hr, ht, hu, ie, il, im, in, iq, ir, is, it, id, jm, jo, jp, ke, kg, kh, ki, km, kn, kp, kr, kw, ky, kz, la, lb, lc, li, lk, lr, ls, lt, lu, lv, ly, ma, mc, md, me, mf, mg, mh, mk, ml, mm, mn, mo, mp, mr, ms, mt, mu, mv, mw, mx, my, mz, na, nc, ne, ng, ni, nl, no, np, nr, nu, nz, om, pa, pe, pf, pg, ph, pk, pl, pm, pn, pr, pt, pw, py, qa, ro, rs, ru, rw, sa, sb, sc, sd, se, sg, sh, si, sk, sl, sm, sn, so, sr, st, sv, sy, sz, tc, td, tg, th, tj, tk, tl, tm, tn, to, tr, tt, tv, tw, tz, ua, ug, us, uy, uz, va, vc, ve, vg, vi, vn, vu, wf, ws, ye, yt, za, zm, zw"  instance ToText CountryCode where     toText = \case@@ -789,7 +789,7 @@         "unavailable_premium" -> pure UnavailablePremium         "unavailable_restricted" -> pure UnavailableRestricted         e -> fromTextError $ "Failure parsing DomainAvailability from value: '" <> e-           <> "'. Accepted values: AVAILABLE, AVAILABLE_PREORDER, AVAILABLE_RESERVED, DONT_KNOW, RESERVED, UNAVAILABLE, UNAVAILABLE_PREMIUM, UNAVAILABLE_RESTRICTED"+           <> "'. Accepted values: available, available_preorder, available_reserved, dont_know, reserved, unavailable, unavailable_premium, unavailable_restricted"  instance ToText DomainAvailability where     toText = \case@@ -859,7 +859,7 @@         "sg_id_number" -> pure SgIdNumber         "vat_number" -> pure VatNumber         e -> fromTextError $ "Failure parsing ExtraParamName from value: '" <> e-           <> "'. Accepted values: AU_ID_NUMBER, AU_ID_TYPE, BIRTH_CITY, BIRTH_COUNTRY, BIRTH_DATE_IN_YYYY_MM_DD, BIRTH_DEPARTMENT, BRAND_NUMBER, CA_BUSINESS_ENTITY_TYPE, CA_LEGAL_TYPE, DOCUMENT_NUMBER, DUNS_NUMBER, ES_IDENTIFICATION, ES_IDENTIFICATION_TYPE, ES_LEGAL_FORM, FI_BUSINESS_NUMBER, FI_ID_NUMBER, IT_PIN, RU_PASSPORT_DATA, SE_ID_NUMBER, SG_ID_NUMBER, VAT_NUMBER"+           <> "'. Accepted values: au_id_number, au_id_type, birth_city, birth_country, birth_date_in_yyyy_mm_dd, birth_department, brand_number, ca_business_entity_type, ca_legal_type, document_number, duns_number, es_identification, es_identification_type, es_legal_form, fi_business_number, fi_id_number, it_pin, ru_passport_data, se_id_number, sg_id_number, vat_number"  instance ToText ExtraParamName where     toText = \case@@ -913,7 +913,7 @@         "submitted" -> pure Submitted         "successful" -> pure Successful         e -> fromTextError $ "Failure parsing OperationStatus from value: '" <> e-           <> "'. Accepted values: ERROR, FAILED, IN_PROGRESS, SUBMITTED, SUCCESSFUL"+           <> "'. Accepted values: error, failed, in_progress, submitted, successful"  instance ToText OperationStatus where     toText = \case@@ -952,7 +952,7 @@         "update_domain_contact" -> pure UpdateDomainContact         "update_nameserver" -> pure UpdateNameserver         e -> fromTextError $ "Failure parsing OperationType from value: '" <> e-           <> "'. Accepted values: CHANGE_PRIVACY_PROTECTION, DELETE_DOMAIN, DOMAIN_LOCK, REGISTER_DOMAIN, TRANSFER_IN_DOMAIN, UPDATE_DOMAIN_CONTACT, UPDATE_NAMESERVER"+           <> "'. Accepted values: change_privacy_protection, delete_domain, domain_lock, register_domain, transfer_in_domain, update_domain_contact, update_nameserver"  instance ToText OperationType where     toText = \case@@ -985,7 +985,7 @@         "expired" -> pure Expired         "pending" -> pure Pending         e -> fromTextError $ "Failure parsing ReachabilityStatus from value: '" <> e-           <> "'. Accepted values: DONE, EXPIRED, PENDING"+           <> "'. Accepted values: done, expired, pending"  instance ToText ReachabilityStatus where     toText = \case

@@ -0,0 +1,211 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Route53Domains.ViewBilling+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation returns all the domain-related billing records for the current AWS account for a specified period+module Network.AWS.Route53Domains.ViewBilling+    (+    -- * Creating a Request+      viewBilling+    , ViewBilling+    -- * Request Lenses+    , vbStart+    , vbEnd+    , vbMarker+    , vbMaxItems++    -- * Destructuring the Response+    , viewBillingResponse+    , ViewBillingResponse+    -- * Response Lenses+    , vbrsNextPageMarker+    , vbrsBillingRecords+    , vbrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.Route53Domains.Types+import           Network.AWS.Route53Domains.Types.Product++-- | The ViewBilling request includes the following elements.+--+-- /See:/ 'viewBilling' smart constructor.+data ViewBilling = ViewBilling'+    { _vbStart    :: !(Maybe POSIX)+    , _vbEnd      :: !(Maybe POSIX)+    , _vbMarker   :: !(Maybe Text)+    , _vbMaxItems :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ViewBilling' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vbStart'+--+-- * 'vbEnd'+--+-- * 'vbMarker'+--+-- * 'vbMaxItems'+viewBilling+    :: ViewBilling+viewBilling =+    ViewBilling'+    { _vbStart = Nothing+    , _vbEnd = Nothing+    , _vbMarker = Nothing+    , _vbMaxItems = Nothing+    }++-- | The beginning date and time for the time period for which you want a list of billing records. Specify the date in Unix time format.+--+-- Type: Double+--+-- Default: None+--+-- Required: Yes+vbStart :: Lens' ViewBilling (Maybe UTCTime)+vbStart = lens _vbStart (\ s a -> s{_vbStart = a}) . mapping _Time;++-- | The end date and time for the time period for which you want a list of billing records. Specify the date in Unix time format.+--+-- Type: Double+--+-- Default: None+--+-- Required: Yes+vbEnd :: Lens' ViewBilling (Maybe UTCTime)+vbEnd = lens _vbEnd (\ s a -> s{_vbEnd = a}) . mapping _Time;++-- | For an initial request for a list of billing records, omit this element. If the number of billing records that are associated with the current AWS account during the specified period is greater than the value that you specified for 'MaxItems', you can use 'Marker' to return additional billing records. Get the value of 'NextPageMarker' from the previous response, and submit another request that includes the value of 'NextPageMarker' in the 'Marker' element.+--+-- Type: String+--+-- Default: None+--+-- Constraints: The marker must match the value of 'NextPageMarker' that was returned in the previous response.+--+-- Required: No+vbMarker :: Lens' ViewBilling (Maybe Text)+vbMarker = lens _vbMarker (\ s a -> s{_vbMarker = a});++-- | The number of billing records to be returned.+--+-- Type: Integer+--+-- Default: 20+--+-- Constraints: A value between 1 and 100.+--+-- Required: No+vbMaxItems :: Lens' ViewBilling (Maybe Int)+vbMaxItems = lens _vbMaxItems (\ s a -> s{_vbMaxItems = a});++instance AWSRequest ViewBilling where+        type Rs ViewBilling = ViewBillingResponse+        request = postJSON route53Domains+        response+          = receiveJSON+              (\ s h x ->+                 ViewBillingResponse' <$>+                   (x .?> "NextPageMarker") <*>+                     (x .?> "BillingRecords" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ViewBilling++instance NFData ViewBilling++instance ToHeaders ViewBilling where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Route53Domains_v20140515.ViewBilling" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ViewBilling where+        toJSON ViewBilling'{..}+          = object+              (catMaybes+                 [("Start" .=) <$> _vbStart, ("End" .=) <$> _vbEnd,+                  ("Marker" .=) <$> _vbMarker,+                  ("MaxItems" .=) <$> _vbMaxItems])++instance ToPath ViewBilling where+        toPath = const "/"++instance ToQuery ViewBilling where+        toQuery = const mempty++-- | The ViewBilling response includes the following elements.+--+-- /See:/ 'viewBillingResponse' smart constructor.+data ViewBillingResponse = ViewBillingResponse'+    { _vbrsNextPageMarker :: !(Maybe Text)+    , _vbrsBillingRecords :: !(Maybe [BillingRecord])+    , _vbrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ViewBillingResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vbrsNextPageMarker'+--+-- * 'vbrsBillingRecords'+--+-- * 'vbrsResponseStatus'+viewBillingResponse+    :: Int -- ^ 'vbrsResponseStatus'+    -> ViewBillingResponse+viewBillingResponse pResponseStatus_ =+    ViewBillingResponse'+    { _vbrsNextPageMarker = Nothing+    , _vbrsBillingRecords = Nothing+    , _vbrsResponseStatus = pResponseStatus_+    }++-- | If there are more billing records than you specified for 'MaxItems' in the request, submit another request and include the value of 'NextPageMarker' in the value of 'Marker'.+--+-- Type: String+--+-- Parent: 'BillingRecords'+vbrsNextPageMarker :: Lens' ViewBillingResponse (Maybe Text)+vbrsNextPageMarker = lens _vbrsNextPageMarker (\ s a -> s{_vbrsNextPageMarker = a});++-- | A summary of billing records.+--+-- Type: Complex type containing a list of billing record summaries.+--+-- Children: 'DomainName', 'Operation', 'InvoiceId', 'BillDate' and 'Price'+vbrsBillingRecords :: Lens' ViewBillingResponse [BillingRecord]+vbrsBillingRecords = lens _vbrsBillingRecords (\ s a -> s{_vbrsBillingRecords = a}) . _Default . _Coerce;++-- | The response status code.+vbrsResponseStatus :: Lens' ViewBillingResponse Int+vbrsResponseStatus = lens _vbrsResponseStatus (\ s a -> s{_vbrsResponseStatus = a});++instance NFData ViewBillingResponse

@@ -49,6 +49,12 @@ --         , requestDisableDomainAutoRenew $ --             disableDomainAutoRenew --+--         , requestRenewDomain $+--             renewDomain+--+--         , requestViewBilling $+--             viewBilling+-- --         , requestUpdateDomainContact $ --             updateDomainContact --@@ -58,6 +64,9 @@ --         , requestRegisterDomain $ --             registerDomain --+--         , requestGetDomainSuggestions $+--             getDomainSuggestions+-- --         , requestDisableDomainTransferLock $ --             disableDomainTransferLock --@@ -112,6 +121,12 @@ --         , responseDisableDomainAutoRenew $ --             disableDomainAutoRenewResponse --+--         , responseRenewDomain $+--             renewDomainResponse+--+--         , responseViewBilling $+--             viewBillingResponse+-- --         , responseUpdateDomainContact $ --             updateDomainContactResponse --@@ -121,6 +136,9 @@ --         , responseRegisterDomain $ --             registerDomainResponse --+--         , responseGetDomainSuggestions $+--             getDomainSuggestionsResponse+-- --         , responseDisableDomainTransferLock $ --             disableDomainTransferLockResponse --@@ -191,6 +209,16 @@     "DisableDomainAutoRenew"     "fixture/DisableDomainAutoRenew.yaml" +requestRenewDomain :: RenewDomain -> TestTree+requestRenewDomain = req+    "RenewDomain"+    "fixture/RenewDomain.yaml"++requestViewBilling :: ViewBilling -> TestTree+requestViewBilling = req+    "ViewBilling"+    "fixture/ViewBilling.yaml"+ requestUpdateDomainContact :: UpdateDomainContact -> TestTree requestUpdateDomainContact = req     "UpdateDomainContact"@@ -206,6 +234,11 @@     "RegisterDomain"     "fixture/RegisterDomain.yaml" +requestGetDomainSuggestions :: GetDomainSuggestions -> TestTree+requestGetDomainSuggestions = req+    "GetDomainSuggestions"+    "fixture/GetDomainSuggestions.yaml"+ requestDisableDomainTransferLock :: DisableDomainTransferLock -> TestTree requestDisableDomainTransferLock = req     "DisableDomainTransferLock"@@ -307,6 +340,20 @@     route53Domains     (Proxy :: Proxy DisableDomainAutoRenew) +responseRenewDomain :: RenewDomainResponse -> TestTree+responseRenewDomain = res+    "RenewDomainResponse"+    "fixture/RenewDomainResponse.proto"+    route53Domains+    (Proxy :: Proxy RenewDomain)++responseViewBilling :: ViewBillingResponse -> TestTree+responseViewBilling = res+    "ViewBillingResponse"+    "fixture/ViewBillingResponse.proto"+    route53Domains+    (Proxy :: Proxy ViewBilling)+ responseUpdateDomainContact :: UpdateDomainContactResponse -> TestTree responseUpdateDomainContact = res     "UpdateDomainContactResponse"@@ -327,6 +374,13 @@     "fixture/RegisterDomainResponse.proto"     route53Domains     (Proxy :: Proxy RegisterDomain)++responseGetDomainSuggestions :: GetDomainSuggestionsResponse -> TestTree+responseGetDomainSuggestions = res+    "GetDomainSuggestionsResponse"+    "fixture/GetDomainSuggestionsResponse.proto"+    route53Domains+    (Proxy :: Proxy GetDomainSuggestions)  responseDisableDomainTransferLock :: DisableDomainTransferLockResponse -> TestTree responseDisableDomainTransferLock = res