amazonka-route53-domains 1.4.5 → 1.5.0

raw patch · 35 files changed

+1856/−1457 lines, 35 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 +17/−11
• fixture/CheckDomainTransferability.yaml +10/−0
• fixture/CheckDomainTransferabilityResponse.proto +0/−0
• gen/Network/AWS/Route53Domains.hs +39/−27
• gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs +29/−29
• gen/Network/AWS/Route53Domains/CheckDomainTransferability.hs +157/−0
• gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs +28/−28
• gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs +23/−23
• gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs +27/−26
• gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs +23/−23
• gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs +28/−27
• gen/Network/AWS/Route53Domains/GetContactReachabilityStatus.hs +31/−28
• gen/Network/AWS/Route53Domains/GetDomainDetail.hs +100/−99
• gen/Network/AWS/Route53Domains/GetDomainSuggestions.hs +37/−39
• gen/Network/AWS/Route53Domains/GetOperationDetail.hs +48/−46
• gen/Network/AWS/Route53Domains/ListDomains.hs +37/−37
• gen/Network/AWS/Route53Domains/ListOperations.hs +37/−37
• gen/Network/AWS/Route53Domains/ListTagsForDomain.hs +26/−26
• gen/Network/AWS/Route53Domains/RegisterDomain.hs +74/−62
• gen/Network/AWS/Route53Domains/RenewDomain.hs +38/−36
• gen/Network/AWS/Route53Domains/ResendContactReachabilityEmail.hs +34/−30
• gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs +30/−28
• gen/Network/AWS/Route53Domains/TransferDomain.hs +74/−70
• gen/Network/AWS/Route53Domains/Types.hs +51/−33
• gen/Network/AWS/Route53Domains/Types/Product.hs +232/−189
• gen/Network/AWS/Route53Domains/Types/Sum.hs +398/−306
• gen/Network/AWS/Route53Domains/UpdateDomainContact.hs +41/−39
• gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs +42/−39
• gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs +38/−34
• gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs +28/−28
• gen/Network/AWS/Route53Domains/ViewBilling.hs +48/−44
• gen/Network/AWS/Route53Domains/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/Route53Domains.hs +22/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-route53-domains-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Route 53 Domains SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,18 +29,24 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-route53-domains  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.Route53Domains         , Network.AWS.Route53Domains.CheckDomainAvailability+        , Network.AWS.Route53Domains.CheckDomainTransferability         , Network.AWS.Route53Domains.DeleteTagsForDomain         , Network.AWS.Route53Domains.DisableDomainAutoRenew         , Network.AWS.Route53Domains.DisableDomainTransferLock@@ -71,7 +77,7 @@         , Network.AWS.Route53Domains.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-route53-domains-test@@ -91,9 +97,9 @@         , Test.AWS.Route53Domains.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-route53-domains == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-route53-domains         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/route53domains/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  route53domains.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.Route53Domains--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,6 +50,9 @@     -- ** GetDomainDetail     , module Network.AWS.Route53Domains.GetDomainDetail +    -- ** CheckDomainTransferability+    , module Network.AWS.Route53Domains.CheckDomainTransferability+     -- ** UpdateDomainContactPrivacy     , module Network.AWS.Route53Domains.UpdateDomainContactPrivacy @@ -136,6 +139,9 @@     -- ** ReachabilityStatus     , ReachabilityStatus (..) +    -- ** Transferable+    , Transferable (..)+     -- ** BillingRecord     , BillingRecord     , billingRecord@@ -177,6 +183,11 @@     , dsAutoRenew     , dsDomainName +    -- ** DomainTransferability+    , DomainTransferability+    , domainTransferability+    , dtTransferable+     -- ** ExtraParam     , ExtraParam     , extraParam@@ -204,31 +215,32 @@     , tagKey     ) where -import           Network.AWS.Route53Domains.CheckDomainAvailability-import           Network.AWS.Route53Domains.DeleteTagsForDomain-import           Network.AWS.Route53Domains.DisableDomainAutoRenew-import           Network.AWS.Route53Domains.DisableDomainTransferLock-import           Network.AWS.Route53Domains.EnableDomainAutoRenew-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-import           Network.AWS.Route53Domains.Types-import           Network.AWS.Route53Domains.UpdateDomainContact-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+import Network.AWS.Route53Domains.CheckDomainAvailability+import Network.AWS.Route53Domains.CheckDomainTransferability+import Network.AWS.Route53Domains.DeleteTagsForDomain+import Network.AWS.Route53Domains.DisableDomainAutoRenew+import Network.AWS.Route53Domains.DisableDomainTransferLock+import Network.AWS.Route53Domains.EnableDomainAutoRenew+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+import Network.AWS.Route53Domains.Types+import Network.AWS.Route53Domains.UpdateDomainContact+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 Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.CheckDomainAvailability--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , cdarsAvailability     ) 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+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 CheckDomainAvailability request contains the following elements. --@@ -51,31 +51,31 @@ -- -- /See:/ 'checkDomainAvailability' smart constructor. data CheckDomainAvailability = CheckDomainAvailability'-    { _cdaIdNLangCode :: !(Maybe Text)-    , _cdaDomainName  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdaIdNLangCode :: !(Maybe Text)+  , _cdaDomainName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckDomainAvailability' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdaIdNLangCode' - Reserved for future use. ----- * 'cdaDomainName' - The name of a domain. Type: String Default: None 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+-- * 'cdaDomainName' - The name of the domain that you want to get availability for. 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. checkDomainAvailability     :: Text -- ^ 'cdaDomainName'     -> CheckDomainAvailability checkDomainAvailability pDomainName_ =-    CheckDomainAvailability'-    { _cdaIdNLangCode = Nothing-    , _cdaDomainName = pDomainName_-    }+  CheckDomainAvailability'+  {_cdaIdNLangCode = Nothing, _cdaDomainName = pDomainName_} + -- | Reserved for future use. cdaIdNLangCode :: Lens' CheckDomainAvailability (Maybe Text) cdaIdNLangCode = lens _cdaIdNLangCode (\ s a -> s{_cdaIdNLangCode = a}); --- | The name of a domain. Type: String Default: None 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+-- | The name of the domain that you want to get availability for. 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. cdaDomainName :: Lens' CheckDomainAvailability Text cdaDomainName = lens _cdaDomainName (\ s a -> s{_cdaDomainName = a}); @@ -89,9 +89,9 @@                  CheckDomainAvailabilityResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "Availability")) -instance Hashable CheckDomainAvailability+instance Hashable CheckDomainAvailability where -instance NFData CheckDomainAvailability+instance NFData CheckDomainAvailability where  instance ToHeaders CheckDomainAvailability where         toHeaders@@ -122,33 +122,33 @@ -- -- /See:/ 'checkDomainAvailabilityResponse' smart constructor. data CheckDomainAvailabilityResponse = CheckDomainAvailabilityResponse'-    { _cdarsResponseStatus :: !Int-    , _cdarsAvailability   :: !DomainAvailability-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'cdarsResponseStatus' - -- | The response status code. ----- * 'cdarsAvailability' - Whether the domain name is available for registering. Type: String Valid values:     * @AVAILABLE@ – The domain name is available.    * @AVAILABLE_RESERVED@ – The domain name is reserved under specific conditions.    * @AVAILABLE_PREORDER@ – The domain name is available and can be preordered.    * @UNAVAILABLE@ – The domain name is not available.    * @UNAVAILABLE_PREMIUM@ – The domain name is not available.    * @UNAVAILABLE_RESTRICTED@ – The domain name is forbidden.    * @RESERVED@ – The domain name has been reserved for another person or organization.    * @DONT_KNOW@ – The TLD registry didn't reply with a definitive answer about whether the domain name is available. Amazon Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later.+-- * 'cdarsAvailability' - Whether the domain name is available for registering. Valid values:     * AVAILABLE    * The domain name is available.     * AVAILABLE_RESERVED    * The domain name is reserved under specific conditions.     * AVAILABLE_PREORDER    * The domain name is available and can be preordered.     * DONT_KNOW    * The TLD registry didn't reply with a definitive answer about whether the domain name is available. Amazon Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later.     * PENDING    * The TLD registry didn't return a response in the expected amount of time. When the response is delayed, it usually takes just a few extra seconds. You can resubmit the request immediately.     * RESERVED    * The domain name has been reserved for another person or organization.     * UNAVAILABLE    * The domain name is not available.     * UNAVAILABLE_PREMIUM    * The domain name is not available.     * UNAVAILABLE_RESTRICTED    * The domain name is forbidden. checkDomainAvailabilityResponse     :: Int -- ^ 'cdarsResponseStatus'     -> DomainAvailability -- ^ 'cdarsAvailability'     -> CheckDomainAvailabilityResponse checkDomainAvailabilityResponse pResponseStatus_ pAvailability_ =-    CheckDomainAvailabilityResponse'-    { _cdarsResponseStatus = pResponseStatus_-    , _cdarsAvailability = pAvailability_-    }+  CheckDomainAvailabilityResponse'+  {_cdarsResponseStatus = pResponseStatus_, _cdarsAvailability = pAvailability_} + -- | -- | The response status code. cdarsResponseStatus :: Lens' CheckDomainAvailabilityResponse Int cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a}); --- | Whether the domain name is available for registering. Type: String Valid values:     * @AVAILABLE@ – The domain name is available.    * @AVAILABLE_RESERVED@ – The domain name is reserved under specific conditions.    * @AVAILABLE_PREORDER@ – The domain name is available and can be preordered.    * @UNAVAILABLE@ – The domain name is not available.    * @UNAVAILABLE_PREMIUM@ – The domain name is not available.    * @UNAVAILABLE_RESTRICTED@ – The domain name is forbidden.    * @RESERVED@ – The domain name has been reserved for another person or organization.    * @DONT_KNOW@ – The TLD registry didn't reply with a definitive answer about whether the domain name is available. Amazon Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later.+-- | Whether the domain name is available for registering. Valid values:     * AVAILABLE    * The domain name is available.     * AVAILABLE_RESERVED    * The domain name is reserved under specific conditions.     * AVAILABLE_PREORDER    * The domain name is available and can be preordered.     * DONT_KNOW    * The TLD registry didn't reply with a definitive answer about whether the domain name is available. Amazon Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later.     * PENDING    * The TLD registry didn't return a response in the expected amount of time. When the response is delayed, it usually takes just a few extra seconds. You can resubmit the request immediately.     * RESERVED    * The domain name has been reserved for another person or organization.     * UNAVAILABLE    * The domain name is not available.     * UNAVAILABLE_PREMIUM    * The domain name is not available.     * UNAVAILABLE_RESTRICTED    * The domain name is forbidden. cdarsAvailability :: Lens' CheckDomainAvailabilityResponse DomainAvailability cdarsAvailability = lens _cdarsAvailability (\ s a -> s{_cdarsAvailability = a}); -instance NFData CheckDomainAvailabilityResponse+instance NFData CheckDomainAvailabilityResponse where

@@ -0,0 +1,157 @@+{-# 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.CheckDomainTransferability+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Checks whether a domain name can be transferred to Amazon Route 53.+--+--+module Network.AWS.Route53Domains.CheckDomainTransferability+    (+    -- * Creating a Request+      checkDomainTransferability+    , CheckDomainTransferability+    -- * Request Lenses+    , cdtAuthCode+    , cdtDomainName++    -- * Destructuring the Response+    , checkDomainTransferabilityResponse+    , CheckDomainTransferabilityResponse+    -- * Response Lenses+    , cdtrsResponseStatus+    , cdtrsTransferability+    ) 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 CheckDomainTransferability request contains the following elements.+--+--+--+-- /See:/ 'checkDomainTransferability' smart constructor.+data CheckDomainTransferability = CheckDomainTransferability'+  { _cdtAuthCode   :: !(Maybe (Sensitive Text))+  , _cdtDomainName :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CheckDomainTransferability' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdtAuthCode' - If the registrar for the top-level domain (TLD) requires an authorization code to transfer the domain, the code that you got from the current registrar for the domain.+--+-- * 'cdtDomainName' - The name of the domain that you want to transfer to Amazon Route 53. 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.+checkDomainTransferability+    :: Text -- ^ 'cdtDomainName'+    -> CheckDomainTransferability+checkDomainTransferability pDomainName_ =+  CheckDomainTransferability'+  {_cdtAuthCode = Nothing, _cdtDomainName = pDomainName_}+++-- | If the registrar for the top-level domain (TLD) requires an authorization code to transfer the domain, the code that you got from the current registrar for the domain.+cdtAuthCode :: Lens' CheckDomainTransferability (Maybe Text)+cdtAuthCode = lens _cdtAuthCode (\ s a -> s{_cdtAuthCode = a}) . mapping _Sensitive;++-- | The name of the domain that you want to transfer to Amazon Route 53. 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.+cdtDomainName :: Lens' CheckDomainTransferability Text+cdtDomainName = lens _cdtDomainName (\ s a -> s{_cdtDomainName = a});++instance AWSRequest CheckDomainTransferability where+        type Rs CheckDomainTransferability =+             CheckDomainTransferabilityResponse+        request = postJSON route53Domains+        response+          = receiveJSON+              (\ s h x ->+                 CheckDomainTransferabilityResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "Transferability"))++instance Hashable CheckDomainTransferability where++instance NFData CheckDomainTransferability where++instance ToHeaders CheckDomainTransferability where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Route53Domains_v20140515.CheckDomainTransferability"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CheckDomainTransferability where+        toJSON CheckDomainTransferability'{..}+          = object+              (catMaybes+                 [("AuthCode" .=) <$> _cdtAuthCode,+                  Just ("DomainName" .= _cdtDomainName)])++instance ToPath CheckDomainTransferability where+        toPath = const "/"++instance ToQuery CheckDomainTransferability where+        toQuery = const mempty++-- | The CheckDomainTransferability response includes the following elements.+--+--+--+-- /See:/ 'checkDomainTransferabilityResponse' smart constructor.+data CheckDomainTransferabilityResponse = CheckDomainTransferabilityResponse'+  { _cdtrsResponseStatus  :: !Int+  , _cdtrsTransferability :: !DomainTransferability+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CheckDomainTransferabilityResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdtrsResponseStatus' - -- | The response status code.+--+-- * 'cdtrsTransferability' - A complex type that contains information about whether the specified domain can be transferred to Amazon Route 53.+checkDomainTransferabilityResponse+    :: Int -- ^ 'cdtrsResponseStatus'+    -> DomainTransferability -- ^ 'cdtrsTransferability'+    -> CheckDomainTransferabilityResponse+checkDomainTransferabilityResponse pResponseStatus_ pTransferability_ =+  CheckDomainTransferabilityResponse'+  { _cdtrsResponseStatus = pResponseStatus_+  , _cdtrsTransferability = pTransferability_+  }+++-- | -- | The response status code.+cdtrsResponseStatus :: Lens' CheckDomainTransferabilityResponse Int+cdtrsResponseStatus = lens _cdtrsResponseStatus (\ s a -> s{_cdtrsResponseStatus = a});++-- | A complex type that contains information about whether the specified domain can be transferred to Amazon Route 53.+cdtrsTransferability :: Lens' CheckDomainTransferabilityResponse DomainTransferability+cdtrsTransferability = lens _cdtrsTransferability (\ s a -> s{_cdtrsTransferability = a});++instance NFData CheckDomainTransferabilityResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53Domains.DeleteTagsForDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- This operation deletes the specified tags for a domain. -- ----- All tag operations are eventually consistent; subsequent operations may not immediately represent all issued operations.+-- All tag operations are eventually consistent; subsequent operations might not immediately represent all issued operations. -- module Network.AWS.Route53Domains.DeleteTagsForDomain     (@@ -39,12 +39,12 @@     , dtfdrsResponseStatus     ) 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+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 DeleteTagsForDomainRequest includes the following elements. --@@ -52,31 +52,31 @@ -- -- /See:/ 'deleteTagsForDomain' smart constructor. data DeleteTagsForDomain = DeleteTagsForDomain'-    { _dtfdDomainName   :: !Text-    , _dtfdTagsToDelete :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtfdDomainName   :: !Text+  , _dtfdTagsToDelete :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTagsForDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtfdDomainName' - The domain for which you want to delete one or more tags. The name of a domain. Type: String Default: None Constraints: The domain name can contain only the letters a through z, the numbers 0 through 9, and hyphen (-). Hyphens are allowed only when they're surrounded by letters, numbers, or other hyphens. You can't specify a hyphen at the beginning or end of a label. To specify an Internationalized Domain Name, you must convert the name to Punycode. Required: Yes+-- * 'dtfdDomainName' - The domain for which you want to delete one or more tags. ----- * 'dtfdTagsToDelete' - A list of tag keys to delete. Type: A list that contains the keys of the tags that you want to delete. Default: None Required: No '>+-- * 'dtfdTagsToDelete' - A list of tag keys to delete. deleteTagsForDomain     :: Text -- ^ 'dtfdDomainName'     -> DeleteTagsForDomain deleteTagsForDomain pDomainName_ =-    DeleteTagsForDomain'-    { _dtfdDomainName = pDomainName_-    , _dtfdTagsToDelete = mempty-    }+  DeleteTagsForDomain'+  {_dtfdDomainName = pDomainName_, _dtfdTagsToDelete = mempty} --- | The domain for which you want to delete one or more tags. The name of a domain. Type: String Default: None Constraints: The domain name can contain only the letters a through z, the numbers 0 through 9, and hyphen (-). Hyphens are allowed only when they're surrounded by letters, numbers, or other hyphens. You can't specify a hyphen at the beginning or end of a label. To specify an Internationalized Domain Name, you must convert the name to Punycode. Required: Yes++-- | The domain for which you want to delete one or more tags. dtfdDomainName :: Lens' DeleteTagsForDomain Text dtfdDomainName = lens _dtfdDomainName (\ s a -> s{_dtfdDomainName = a}); --- | A list of tag keys to delete. Type: A list that contains the keys of the tags that you want to delete. Default: None Required: No '>+-- | A list of tag keys to delete. dtfdTagsToDelete :: Lens' DeleteTagsForDomain [Text] dtfdTagsToDelete = lens _dtfdTagsToDelete (\ s a -> s{_dtfdTagsToDelete = a}) . _Coerce; @@ -89,9 +89,9 @@               (\ s h x ->                  DeleteTagsForDomainResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteTagsForDomain+instance Hashable DeleteTagsForDomain where -instance NFData DeleteTagsForDomain+instance NFData DeleteTagsForDomain where  instance ToHeaders DeleteTagsForDomain where         toHeaders@@ -118,9 +118,10 @@  -- | /See:/ 'deleteTagsForDomainResponse' smart constructor. newtype DeleteTagsForDomainResponse = DeleteTagsForDomainResponse'-    { _dtfdrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -130,12 +131,11 @@     :: Int -- ^ 'dtfdrsResponseStatus'     -> DeleteTagsForDomainResponse deleteTagsForDomainResponse pResponseStatus_ =-    DeleteTagsForDomainResponse'-    { _dtfdrsResponseStatus = pResponseStatus_-    }+  DeleteTagsForDomainResponse' {_dtfdrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dtfdrsResponseStatus :: Lens' DeleteTagsForDomainResponse Int dtfdrsResponseStatus = lens _dtfdrsResponseStatus (\ s a -> s{_dtfdrsResponseStatus = a}); -instance NFData DeleteTagsForDomainResponse+instance NFData DeleteTagsForDomainResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.DisableDomainAutoRenew--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,32 +36,32 @@     , ddarrsResponseStatus     ) 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+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:/ 'disableDomainAutoRenew' smart constructor. newtype DisableDomainAutoRenew = DisableDomainAutoRenew'-    { _ddarDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddarDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableDomainAutoRenew' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddarDomainName' - Undocumented member.+-- * 'ddarDomainName' - The name of the domain that you want to disable automatic renewal for. disableDomainAutoRenew     :: Text -- ^ 'ddarDomainName'     -> DisableDomainAutoRenew disableDomainAutoRenew pDomainName_ =-    DisableDomainAutoRenew'-    { _ddarDomainName = pDomainName_-    }+  DisableDomainAutoRenew' {_ddarDomainName = pDomainName_} --- | Undocumented member.++-- | The name of the domain that you want to disable automatic renewal for. ddarDomainName :: Lens' DisableDomainAutoRenew Text ddarDomainName = lens _ddarDomainName (\ s a -> s{_ddarDomainName = a}); @@ -75,9 +75,9 @@                  DisableDomainAutoRenewResponse' <$>                    (pure (fromEnum s))) -instance Hashable DisableDomainAutoRenew+instance Hashable DisableDomainAutoRenew where -instance NFData DisableDomainAutoRenew+instance NFData DisableDomainAutoRenew where  instance ToHeaders DisableDomainAutoRenew where         toHeaders@@ -102,9 +102,10 @@  -- | /See:/ 'disableDomainAutoRenewResponse' smart constructor. newtype DisableDomainAutoRenewResponse = DisableDomainAutoRenewResponse'-    { _ddarrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -114,12 +115,11 @@     :: Int -- ^ 'ddarrsResponseStatus'     -> DisableDomainAutoRenewResponse disableDomainAutoRenewResponse pResponseStatus_ =-    DisableDomainAutoRenewResponse'-    { _ddarrsResponseStatus = pResponseStatus_-    }+  DisableDomainAutoRenewResponse' {_ddarrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. ddarrsResponseStatus :: Lens' DisableDomainAutoRenewResponse Int ddarrsResponseStatus = lens _ddarrsResponseStatus (\ s a -> s{_ddarrsResponseStatus = a}); -instance NFData DisableDomainAutoRenewResponse+instance NFData DisableDomainAutoRenewResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.DisableDomainTransferLock--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , ddtlrsOperationId     ) 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+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 DisableDomainTransferLock request includes the following element. --@@ -50,23 +50,23 @@ -- -- /See:/ 'disableDomainTransferLock' smart constructor. newtype DisableDomainTransferLock = DisableDomainTransferLock'-    { _ddtlDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddtlDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableDomainTransferLock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddtlDomainName' - The name of a domain. Type: String Default: None 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+-- * 'ddtlDomainName' - The name of the domain that you want to remove the transfer lock for. disableDomainTransferLock     :: Text -- ^ 'ddtlDomainName'     -> DisableDomainTransferLock disableDomainTransferLock pDomainName_ =-    DisableDomainTransferLock'-    { _ddtlDomainName = pDomainName_-    }+  DisableDomainTransferLock' {_ddtlDomainName = pDomainName_} --- | The name of a domain. Type: String Default: None 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++-- | The name of the domain that you want to remove the transfer lock for. ddtlDomainName :: Lens' DisableDomainTransferLock Text ddtlDomainName = lens _ddtlDomainName (\ s a -> s{_ddtlDomainName = a}); @@ -80,9 +80,9 @@                  DisableDomainTransferLockResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable DisableDomainTransferLock+instance Hashable DisableDomainTransferLock where -instance NFData DisableDomainTransferLock+instance NFData DisableDomainTransferLock where  instance ToHeaders DisableDomainTransferLock where         toHeaders@@ -111,33 +111,34 @@ -- -- /See:/ 'disableDomainTransferLockResponse' smart constructor. data DisableDomainTransferLockResponse = DisableDomainTransferLockResponse'-    { _ddtlrsResponseStatus :: !Int-    , _ddtlrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'ddtlrsResponseStatus' - -- | The response status code. ----- * 'ddtlrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'ddtlrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . disableDomainTransferLockResponse     :: Int -- ^ 'ddtlrsResponseStatus'     -> Text -- ^ 'ddtlrsOperationId'     -> DisableDomainTransferLockResponse disableDomainTransferLockResponse pResponseStatus_ pOperationId_ =-    DisableDomainTransferLockResponse'-    { _ddtlrsResponseStatus = pResponseStatus_-    , _ddtlrsOperationId = pOperationId_-    }+  DisableDomainTransferLockResponse'+  {_ddtlrsResponseStatus = pResponseStatus_, _ddtlrsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . ddtlrsOperationId :: Lens' DisableDomainTransferLockResponse Text ddtlrsOperationId = lens _ddtlrsOperationId (\ s a -> s{_ddtlrsOperationId = a});  instance NFData DisableDomainTransferLockResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.EnableDomainAutoRenew--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,32 +38,32 @@     , edarrsResponseStatus     ) 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+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:/ 'enableDomainAutoRenew' smart constructor. newtype EnableDomainAutoRenew = EnableDomainAutoRenew'-    { _edarDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _edarDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnableDomainAutoRenew' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'edarDomainName' - Undocumented member.+-- * 'edarDomainName' - The name of the domain that you want to enable automatic renewal for. enableDomainAutoRenew     :: Text -- ^ 'edarDomainName'     -> EnableDomainAutoRenew enableDomainAutoRenew pDomainName_ =-    EnableDomainAutoRenew'-    { _edarDomainName = pDomainName_-    }+  EnableDomainAutoRenew' {_edarDomainName = pDomainName_} --- | Undocumented member.++-- | The name of the domain that you want to enable automatic renewal for. edarDomainName :: Lens' EnableDomainAutoRenew Text edarDomainName = lens _edarDomainName (\ s a -> s{_edarDomainName = a}); @@ -77,9 +77,9 @@                  EnableDomainAutoRenewResponse' <$>                    (pure (fromEnum s))) -instance Hashable EnableDomainAutoRenew+instance Hashable EnableDomainAutoRenew where -instance NFData EnableDomainAutoRenew+instance NFData EnableDomainAutoRenew where  instance ToHeaders EnableDomainAutoRenew where         toHeaders@@ -104,9 +104,10 @@  -- | /See:/ 'enableDomainAutoRenewResponse' smart constructor. newtype EnableDomainAutoRenewResponse = EnableDomainAutoRenewResponse'-    { _edarrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -116,12 +117,11 @@     :: Int -- ^ 'edarrsResponseStatus'     -> EnableDomainAutoRenewResponse enableDomainAutoRenewResponse pResponseStatus_ =-    EnableDomainAutoRenewResponse'-    { _edarrsResponseStatus = pResponseStatus_-    }+  EnableDomainAutoRenewResponse' {_edarrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. edarrsResponseStatus :: Lens' EnableDomainAutoRenewResponse Int edarrsResponseStatus = lens _edarrsResponseStatus (\ s a -> s{_edarrsResponseStatus = a}); -instance NFData EnableDomainAutoRenewResponse+instance NFData EnableDomainAutoRenewResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.EnableDomainTransferLock--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,36 +37,36 @@     , edtlrsOperationId     ) 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+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 EnableDomainTransferLock request includes the following element.+-- | A request to set the transfer lock for the specified domain. -- -- -- -- /See:/ 'enableDomainTransferLock' smart constructor. newtype EnableDomainTransferLock = EnableDomainTransferLock'-    { _edtlDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _edtlDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnableDomainTransferLock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'edtlDomainName' - The name of a domain. Type: String Default: None 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+-- * 'edtlDomainName' - The name of the domain that you want to set the transfer lock for. enableDomainTransferLock     :: Text -- ^ 'edtlDomainName'     -> EnableDomainTransferLock enableDomainTransferLock pDomainName_ =-    EnableDomainTransferLock'-    { _edtlDomainName = pDomainName_-    }+  EnableDomainTransferLock' {_edtlDomainName = pDomainName_} --- | The name of a domain. Type: String Default: None 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++-- | The name of the domain that you want to set the transfer lock for. edtlDomainName :: Lens' EnableDomainTransferLock Text edtlDomainName = lens _edtlDomainName (\ s a -> s{_edtlDomainName = a}); @@ -80,9 +80,9 @@                  EnableDomainTransferLockResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable EnableDomainTransferLock+instance Hashable EnableDomainTransferLock where -instance NFData EnableDomainTransferLock+instance NFData EnableDomainTransferLock where  instance ToHeaders EnableDomainTransferLock where         toHeaders@@ -111,33 +111,34 @@ -- -- /See:/ 'enableDomainTransferLockResponse' smart constructor. data EnableDomainTransferLockResponse = EnableDomainTransferLockResponse'-    { _edtlrsResponseStatus :: !Int-    , _edtlrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'edtlrsResponseStatus' - -- | The response status code. ----- * 'edtlrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'edtlrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. enableDomainTransferLockResponse     :: Int -- ^ 'edtlrsResponseStatus'     -> Text -- ^ 'edtlrsOperationId'     -> EnableDomainTransferLockResponse enableDomainTransferLockResponse pResponseStatus_ pOperationId_ =-    EnableDomainTransferLockResponse'-    { _edtlrsResponseStatus = pResponseStatus_-    , _edtlrsOperationId = pOperationId_-    }+  EnableDomainTransferLockResponse'+  {_edtlrsResponseStatus = pResponseStatus_, _edtlrsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. edtlrsOperationId :: Lens' EnableDomainTransferLockResponse Text edtlrsOperationId = lens _edtlrsOperationId (\ s a -> s{_edtlrsOperationId = a});  instance NFData EnableDomainTransferLockResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.GetContactReachabilityStatus--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,31 +40,31 @@     , gcrsrsResponseStatus     ) 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+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:/ 'getContactReachabilityStatus' smart constructor. newtype GetContactReachabilityStatus = GetContactReachabilityStatus'-    { _gcrsDomainName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcrsDomainName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetContactReachabilityStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcrsDomainName' - The name of the domain for which you want to know whether the registrant contact has confirmed that the email address is valid. Type: String Default: None Required: Yes+-- * 'gcrsDomainName' - The name of the domain for which you want to know whether the registrant contact has confirmed that the email address is valid. getContactReachabilityStatus     :: GetContactReachabilityStatus getContactReachabilityStatus =-    GetContactReachabilityStatus'-    { _gcrsDomainName = Nothing-    }+  GetContactReachabilityStatus' {_gcrsDomainName = Nothing} --- | The name of the domain for which you want to know whether the registrant contact has confirmed that the email address is valid. Type: String Default: None Required: Yes++-- | The name of the domain for which you want to know whether the registrant contact has confirmed that the email address is valid. gcrsDomainName :: Lens' GetContactReachabilityStatus (Maybe Text) gcrsDomainName = lens _gcrsDomainName (\ s a -> s{_gcrsDomainName = a}); @@ -80,9 +80,9 @@                    (x .?> "status") <*> (x .?> "domainName") <*>                      (pure (fromEnum s))) -instance Hashable GetContactReachabilityStatus+instance Hashable GetContactReachabilityStatus where -instance NFData GetContactReachabilityStatus+instance NFData GetContactReachabilityStatus where  instance ToHeaders GetContactReachabilityStatus where         toHeaders@@ -107,16 +107,17 @@  -- | /See:/ 'getContactReachabilityStatusResponse' smart constructor. data GetContactReachabilityStatusResponse = GetContactReachabilityStatusResponse'-    { _gcrsrsStatus         :: !(Maybe ReachabilityStatus)-    , _gcrsrsDomainName     :: !(Maybe Text)-    , _gcrsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcrsrsStatus         :: !(Maybe ReachabilityStatus)+  , _gcrsrsDomainName     :: !(Maybe Text)+  , _gcrsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetContactReachabilityStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcrsrsStatus' - Whether the registrant contact has responded. @PENDING@ indicates that we sent the confirmation email and haven't received a response yet, @DONE@ indicates that we sent the email and got confirmation from the registrant contact, and @EXPIRED@ indicates that the time limit expired before the registrant contact responded.  Type: String Valid values: @PENDING@ , @DONE@ , @EXPIRED@+-- * 'gcrsrsStatus' - Whether the registrant contact has responded. Values include the following:     * PENDING    * We sent the confirmation email and haven't received a response yet.     * DONE    * We sent the email and got confirmation from the registrant contact.     * EXPIRED    * The time limit expired before the registrant contact responded. -- -- * 'gcrsrsDomainName' - The domain name for which you requested the reachability status. --@@ -125,13 +126,14 @@     :: Int -- ^ 'gcrsrsResponseStatus'     -> GetContactReachabilityStatusResponse getContactReachabilityStatusResponse pResponseStatus_ =-    GetContactReachabilityStatusResponse'-    { _gcrsrsStatus = Nothing-    , _gcrsrsDomainName = Nothing-    , _gcrsrsResponseStatus = pResponseStatus_-    }+  GetContactReachabilityStatusResponse'+  { _gcrsrsStatus = Nothing+  , _gcrsrsDomainName = Nothing+  , _gcrsrsResponseStatus = pResponseStatus_+  } --- | Whether the registrant contact has responded. @PENDING@ indicates that we sent the confirmation email and haven't received a response yet, @DONE@ indicates that we sent the email and got confirmation from the registrant contact, and @EXPIRED@ indicates that the time limit expired before the registrant contact responded.  Type: String Valid values: @PENDING@ , @DONE@ , @EXPIRED@++-- | Whether the registrant contact has responded. Values include the following:     * PENDING    * We sent the confirmation email and haven't received a response yet.     * DONE    * We sent the email and got confirmation from the registrant contact.     * EXPIRED    * The time limit expired before the registrant contact responded. gcrsrsStatus :: Lens' GetContactReachabilityStatusResponse (Maybe ReachabilityStatus) gcrsrsStatus = lens _gcrsrsStatus (\ s a -> s{_gcrsrsStatus = a}); @@ -144,3 +146,4 @@ gcrsrsResponseStatus = lens _gcrsrsResponseStatus (\ s a -> s{_gcrsrsResponseStatus = a});  instance NFData GetContactReachabilityStatusResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53Domains.GetDomainDetail--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- This operation returns detailed information about the domain. The domain's contact information is also returned as part of the output.+-- This operation returns detailed information about a specified domain that is associated with the current AWS account. Contact information for the domain is also returned as part of the output. -- -- module Network.AWS.Route53Domains.GetDomainDetail@@ -57,12 +57,12 @@     , gddrsTechContact     ) 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+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 GetDomainDetail request includes the following element. --@@ -70,23 +70,22 @@ -- -- /See:/ 'getDomainDetail' smart constructor. newtype GetDomainDetail = GetDomainDetail'-    { _gddDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gddDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDomainDetail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gddDomainName' - The name of a domain. Type: String Default: None 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+-- * 'gddDomainName' - The name of the domain that you want to get detailed information about. getDomainDetail     :: Text -- ^ 'gddDomainName'     -> GetDomainDetail-getDomainDetail pDomainName_ =-    GetDomainDetail'-    { _gddDomainName = pDomainName_-    }+getDomainDetail pDomainName_ = GetDomainDetail' {_gddDomainName = pDomainName_} --- | The name of a domain. Type: String Default: None 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++-- | The name of the domain that you want to get detailed information about. gddDomainName :: Lens' GetDomainDetail Text gddDomainName = lens _gddDomainName (\ s a -> s{_gddDomainName = a}); @@ -119,9 +118,9 @@                      <*> (x .:> "RegistrantContact")                      <*> (x .:> "TechContact")) -instance Hashable GetDomainDetail+instance Hashable GetDomainDetail where -instance NFData GetDomainDetail+instance NFData GetDomainDetail where  instance ToHeaders GetDomainDetail where         toHeaders@@ -150,77 +149,78 @@ -- -- /See:/ 'getDomainDetailResponse' smart constructor. data GetDomainDetailResponse = GetDomainDetailResponse'-    { _gddrsTechPrivacy       :: !(Maybe Bool)-    , _gddrsDNSSec            :: !(Maybe Text)-    , _gddrsWhoIsServer       :: !(Maybe Text)-    , _gddrsRegistryDomainId  :: !(Maybe Text)-    , _gddrsRegistrantPrivacy :: !(Maybe Bool)-    , _gddrsUpdatedDate       :: !(Maybe POSIX)-    , _gddrsAdminPrivacy      :: !(Maybe Bool)-    , _gddrsAutoRenew         :: !(Maybe Bool)-    , _gddrsAbuseContactPhone :: !(Maybe Text)-    , _gddrsRegistrarURL      :: !(Maybe Text)-    , _gddrsAbuseContactEmail :: !(Maybe Text)-    , _gddrsExpirationDate    :: !(Maybe POSIX)-    , _gddrsCreationDate      :: !(Maybe POSIX)-    , _gddrsRegistrarName     :: !(Maybe Text)-    , _gddrsReseller          :: !(Maybe Text)-    , _gddrsStatusList        :: !(Maybe [Text])-    , _gddrsResponseStatus    :: !Int-    , _gddrsDomainName        :: !Text-    , _gddrsNameservers       :: ![Nameserver]-    , _gddrsAdminContact      :: !(Sensitive ContactDetail)-    , _gddrsRegistrantContact :: !(Sensitive ContactDetail)-    , _gddrsTechContact       :: !(Sensitive ContactDetail)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gddrsTechPrivacy       :: !(Maybe Bool)+  , _gddrsDNSSec            :: !(Maybe Text)+  , _gddrsWhoIsServer       :: !(Maybe Text)+  , _gddrsRegistryDomainId  :: !(Maybe Text)+  , _gddrsRegistrantPrivacy :: !(Maybe Bool)+  , _gddrsUpdatedDate       :: !(Maybe POSIX)+  , _gddrsAdminPrivacy      :: !(Maybe Bool)+  , _gddrsAutoRenew         :: !(Maybe Bool)+  , _gddrsAbuseContactPhone :: !(Maybe Text)+  , _gddrsRegistrarURL      :: !(Maybe Text)+  , _gddrsAbuseContactEmail :: !(Maybe Text)+  , _gddrsExpirationDate    :: !(Maybe POSIX)+  , _gddrsCreationDate      :: !(Maybe POSIX)+  , _gddrsRegistrarName     :: !(Maybe Text)+  , _gddrsReseller          :: !(Maybe Text)+  , _gddrsStatusList        :: !(Maybe [Text])+  , _gddrsResponseStatus    :: !Int+  , _gddrsDomainName        :: !Text+  , _gddrsNameservers       :: ![Nameserver]+  , _gddrsAdminContact      :: !(Sensitive ContactDetail)+  , _gddrsRegistrantContact :: !(Sensitive ContactDetail)+  , _gddrsTechContact       :: !(Sensitive ContactDetail)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDomainDetailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gddrsTechPrivacy' - Specifies whether contact information for the tech contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. Type: Boolean+-- * 'gddrsTechPrivacy' - Specifies whether contact information for the tech contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. -- -- * 'gddrsDNSSec' - Reserved for future use. ----- * 'gddrsWhoIsServer' - The fully qualified name of the WHOIS server that can answer the WHOIS query for the domain. Type: String+-- * 'gddrsWhoIsServer' - The fully qualified name of the WHOIS server that can answer the WHOIS query for the domain. -- -- * 'gddrsRegistryDomainId' - Reserved for future use. ----- * 'gddrsRegistrantPrivacy' - Specifies whether contact information for the registrant contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. Type: Boolean+-- * 'gddrsRegistrantPrivacy' - Specifies whether contact information for the registrant contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. -- -- * 'gddrsUpdatedDate' - The last updated date of the domain as found in the response to a WHOIS query. The date format is Unix time. ----- * 'gddrsAdminPrivacy' - Specifies whether contact information for the admin contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. Type: Boolean+-- * 'gddrsAdminPrivacy' - Specifies whether contact information for the admin contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. ----- * 'gddrsAutoRenew' - Specifies whether the domain registration is set to renew automatically. Type: Boolean+-- * 'gddrsAutoRenew' - Specifies whether the domain registration is set to renew automatically. ----- * 'gddrsAbuseContactPhone' - Phone number for reporting abuse.  Type: String+-- * 'gddrsAbuseContactPhone' - Phone number for reporting abuse. ----- * 'gddrsRegistrarURL' - Web address of the registrar. Type: String+-- * 'gddrsRegistrarURL' - Web address of the registrar. ----- * 'gddrsAbuseContactEmail' - 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' - 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. -- -- * 'gddrsExpirationDate' - The date when the registration for the domain is set to expire. The date format is Unix time. -- -- * 'gddrsCreationDate' - The date when the domain was created as found in the response to a WHOIS query. The date format is Unix time. ----- * 'gddrsRegistrarName' - Name of the registrar of the domain as identified in the registry. Amazon Route 53 domains are registered by registrar Gandi. The value is @"GANDI SAS"@ .  Type: String+-- * 'gddrsRegistrarName' - Name of the registrar of the domain as identified in the registry. Amazon Route 53 domains are registered by registrar Gandi. The value is @"GANDI SAS"@ . ----- * 'gddrsReseller' - Reseller of the domain. Domains registered or transferred using Amazon Route 53 domains will have @"Amazon"@ as the reseller.  Type: String+-- * 'gddrsReseller' - Reseller of the domain. Domains registered or transferred using Amazon Route 53 domains will have @"Amazon"@ as the reseller. ----- * 'gddrsStatusList' - An array of domain name status codes, also known as Extensible Provisioning Protocol (EPP) status codes. ICANN, the organization that maintains a central database of domain names, has developed a set of domain name status codes that tell you the status of a variety of operations on a domain name, for example, registering a domain name, transferring a domain name to another registrar, renewing the registration for a domain name, and so on. All registrars use this same set of status codes. For a current list of domain name status codes and an explanation of what each code means, go to the <https://www.icann.org/ ICANN website> and search for @epp status codes@ . (Search on the ICANN website; web searches sometimes return an old version of the document.) Type: Array of String+-- * 'gddrsStatusList' - An array of domain name status codes, also known as Extensible Provisioning Protocol (EPP) status codes. ICANN, the organization that maintains a central database of domain names, has developed a set of domain name status codes that tell you the status of a variety of operations on a domain name, for example, registering a domain name, transferring a domain name to another registrar, renewing the registration for a domain name, and so on. All registrars use this same set of status codes. For a current list of domain name status codes and an explanation of what each code means, go to the <https://www.icann.org/ ICANN website> and search for @epp status codes@ . (Search on the ICANN website; web searches sometimes return an old version of the document.) -- -- * 'gddrsResponseStatus' - -- | The response status code. ----- * 'gddrsDomainName' - The name of a domain. Type: String+-- * 'gddrsDomainName' - The name of a domain. ----- * 'gddrsNameservers' - The name of the domain. Type: String+-- * 'gddrsNameservers' - The name of the domain. ----- * 'gddrsAdminContact' - Provides details about the domain administrative contact.  Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@+-- * 'gddrsAdminContact' - Provides details about the domain administrative contact. ----- * 'gddrsRegistrantContact' - Provides details about the domain registrant.  Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@+-- * 'gddrsRegistrantContact' - Provides details about the domain registrant. ----- * 'gddrsTechContact' - Provides details about the domain technical contact. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@+-- * 'gddrsTechContact' - Provides details about the domain technical contact. getDomainDetailResponse     :: Int -- ^ 'gddrsResponseStatus'     -> Text -- ^ 'gddrsDomainName'@@ -229,32 +229,33 @@     -> ContactDetail -- ^ 'gddrsTechContact'     -> GetDomainDetailResponse getDomainDetailResponse pResponseStatus_ pDomainName_ pAdminContact_ pRegistrantContact_ pTechContact_ =-    GetDomainDetailResponse'-    { _gddrsTechPrivacy = Nothing-    , _gddrsDNSSec = Nothing-    , _gddrsWhoIsServer = Nothing-    , _gddrsRegistryDomainId = Nothing-    , _gddrsRegistrantPrivacy = Nothing-    , _gddrsUpdatedDate = Nothing-    , _gddrsAdminPrivacy = Nothing-    , _gddrsAutoRenew = Nothing-    , _gddrsAbuseContactPhone = Nothing-    , _gddrsRegistrarURL = Nothing-    , _gddrsAbuseContactEmail = Nothing-    , _gddrsExpirationDate = Nothing-    , _gddrsCreationDate = Nothing-    , _gddrsRegistrarName = Nothing-    , _gddrsReseller = Nothing-    , _gddrsStatusList = Nothing-    , _gddrsResponseStatus = pResponseStatus_-    , _gddrsDomainName = pDomainName_-    , _gddrsNameservers = mempty-    , _gddrsAdminContact = _Sensitive # pAdminContact_-    , _gddrsRegistrantContact = _Sensitive # pRegistrantContact_-    , _gddrsTechContact = _Sensitive # pTechContact_-    }+  GetDomainDetailResponse'+  { _gddrsTechPrivacy = Nothing+  , _gddrsDNSSec = Nothing+  , _gddrsWhoIsServer = Nothing+  , _gddrsRegistryDomainId = Nothing+  , _gddrsRegistrantPrivacy = Nothing+  , _gddrsUpdatedDate = Nothing+  , _gddrsAdminPrivacy = Nothing+  , _gddrsAutoRenew = Nothing+  , _gddrsAbuseContactPhone = Nothing+  , _gddrsRegistrarURL = Nothing+  , _gddrsAbuseContactEmail = Nothing+  , _gddrsExpirationDate = Nothing+  , _gddrsCreationDate = Nothing+  , _gddrsRegistrarName = Nothing+  , _gddrsReseller = Nothing+  , _gddrsStatusList = Nothing+  , _gddrsResponseStatus = pResponseStatus_+  , _gddrsDomainName = pDomainName_+  , _gddrsNameservers = mempty+  , _gddrsAdminContact = _Sensitive # pAdminContact_+  , _gddrsRegistrantContact = _Sensitive # pRegistrantContact_+  , _gddrsTechContact = _Sensitive # pTechContact_+  } --- | Specifies whether contact information for the tech contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. Type: Boolean++-- | Specifies whether contact information for the tech contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. gddrsTechPrivacy :: Lens' GetDomainDetailResponse (Maybe Bool) gddrsTechPrivacy = lens _gddrsTechPrivacy (\ s a -> s{_gddrsTechPrivacy = a}); @@ -262,7 +263,7 @@ gddrsDNSSec :: Lens' GetDomainDetailResponse (Maybe Text) gddrsDNSSec = lens _gddrsDNSSec (\ s a -> s{_gddrsDNSSec = a}); --- | The fully qualified name of the WHOIS server that can answer the WHOIS query for the domain. Type: String+-- | The fully qualified name of the WHOIS server that can answer the WHOIS query for the domain. gddrsWhoIsServer :: Lens' GetDomainDetailResponse (Maybe Text) gddrsWhoIsServer = lens _gddrsWhoIsServer (\ s a -> s{_gddrsWhoIsServer = a}); @@ -270,7 +271,7 @@ gddrsRegistryDomainId :: Lens' GetDomainDetailResponse (Maybe Text) gddrsRegistryDomainId = lens _gddrsRegistryDomainId (\ s a -> s{_gddrsRegistryDomainId = a}); --- | Specifies whether contact information for the registrant contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. Type: Boolean+-- | Specifies whether contact information for the registrant contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. gddrsRegistrantPrivacy :: Lens' GetDomainDetailResponse (Maybe Bool) gddrsRegistrantPrivacy = lens _gddrsRegistrantPrivacy (\ s a -> s{_gddrsRegistrantPrivacy = a}); @@ -278,23 +279,23 @@ gddrsUpdatedDate :: Lens' GetDomainDetailResponse (Maybe UTCTime) gddrsUpdatedDate = lens _gddrsUpdatedDate (\ s a -> s{_gddrsUpdatedDate = a}) . mapping _Time; --- | Specifies whether contact information for the admin contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. Type: Boolean+-- | Specifies whether contact information for the admin contact is concealed from WHOIS queries. If the value is @true@ , WHOIS ("who is") queries will return contact information for our registrar partner, Gandi, instead of the contact information that you enter. gddrsAdminPrivacy :: Lens' GetDomainDetailResponse (Maybe Bool) gddrsAdminPrivacy = lens _gddrsAdminPrivacy (\ s a -> s{_gddrsAdminPrivacy = a}); --- | Specifies whether the domain registration is set to renew automatically. Type: Boolean+-- | Specifies whether the domain registration is set to renew automatically. gddrsAutoRenew :: Lens' GetDomainDetailResponse (Maybe Bool) gddrsAutoRenew = lens _gddrsAutoRenew (\ s a -> s{_gddrsAutoRenew = a}); --- | Phone number for reporting abuse.  Type: String+-- | Phone number for reporting abuse. gddrsAbuseContactPhone :: Lens' GetDomainDetailResponse (Maybe Text) gddrsAbuseContactPhone = lens _gddrsAbuseContactPhone (\ s a -> s{_gddrsAbuseContactPhone = a}); --- | Web address of the registrar. Type: String+-- | Web address of the registrar. 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+-- | 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. gddrsAbuseContactEmail :: Lens' GetDomainDetailResponse (Maybe Text) gddrsAbuseContactEmail = lens _gddrsAbuseContactEmail (\ s a -> s{_gddrsAbuseContactEmail = a}); @@ -306,15 +307,15 @@ gddrsCreationDate :: Lens' GetDomainDetailResponse (Maybe UTCTime) gddrsCreationDate = lens _gddrsCreationDate (\ s a -> s{_gddrsCreationDate = a}) . mapping _Time; --- | Name of the registrar of the domain as identified in the registry. Amazon Route 53 domains are registered by registrar Gandi. The value is @"GANDI SAS"@ .  Type: String+-- | Name of the registrar of the domain as identified in the registry. Amazon Route 53 domains are registered by registrar Gandi. The value is @"GANDI SAS"@ . 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+-- | Reseller of the domain. Domains registered or transferred using Amazon Route 53 domains will have @"Amazon"@ as the reseller. 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. ICANN, the organization that maintains a central database of domain names, has developed a set of domain name status codes that tell you the status of a variety of operations on a domain name, for example, registering a domain name, transferring a domain name to another registrar, renewing the registration for a domain name, and so on. All registrars use this same set of status codes. For a current list of domain name status codes and an explanation of what each code means, go to the <https://www.icann.org/ ICANN website> and search for @epp status codes@ . (Search on the ICANN website; web searches sometimes return an old version of the document.) Type: Array of String+-- | An array of domain name status codes, also known as Extensible Provisioning Protocol (EPP) status codes. ICANN, the organization that maintains a central database of domain names, has developed a set of domain name status codes that tell you the status of a variety of operations on a domain name, for example, registering a domain name, transferring a domain name to another registrar, renewing the registration for a domain name, and so on. All registrars use this same set of status codes. For a current list of domain name status codes and an explanation of what each code means, go to the <https://www.icann.org/ ICANN website> and search for @epp status codes@ . (Search on the ICANN website; web searches sometimes return an old version of the document.) gddrsStatusList :: Lens' GetDomainDetailResponse [Text] gddrsStatusList = lens _gddrsStatusList (\ s a -> s{_gddrsStatusList = a}) . _Default . _Coerce; @@ -322,24 +323,24 @@ gddrsResponseStatus :: Lens' GetDomainDetailResponse Int gddrsResponseStatus = lens _gddrsResponseStatus (\ s a -> s{_gddrsResponseStatus = a}); --- | The name of a domain. Type: String+-- | The name of a domain. gddrsDomainName :: Lens' GetDomainDetailResponse Text gddrsDomainName = lens _gddrsDomainName (\ s a -> s{_gddrsDomainName = a}); --- | The name of the domain. Type: String+-- | The name of the domain. gddrsNameservers :: Lens' GetDomainDetailResponse [Nameserver] gddrsNameservers = lens _gddrsNameservers (\ s a -> s{_gddrsNameservers = a}) . _Coerce; --- | Provides details about the domain administrative contact.  Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@+-- | Provides details about the domain administrative contact. gddrsAdminContact :: Lens' GetDomainDetailResponse ContactDetail gddrsAdminContact = lens _gddrsAdminContact (\ s a -> s{_gddrsAdminContact = a}) . _Sensitive; --- | Provides details about the domain registrant.  Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@+-- | Provides details about the domain registrant. gddrsRegistrantContact :: Lens' GetDomainDetailResponse ContactDetail gddrsRegistrantContact = lens _gddrsRegistrantContact (\ s a -> s{_gddrsRegistrantContact = a}) . _Sensitive; --- | Provides details about the domain technical contact. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@+-- | Provides details about the domain technical contact. gddrsTechContact :: Lens' GetDomainDetailResponse ContactDetail gddrsTechContact = lens _gddrsTechContact (\ s a -> s{_gddrsTechContact = a}) . _Sensitive; -instance NFData GetDomainDetailResponse+instance NFData GetDomainDetailResponse where

@@ -12,19 +12,15 @@  -- | -- Module      : Network.AWS.Route53Domains.GetDomainSuggestions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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@@ -43,50 +39,52 @@     , 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+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)+  { _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' - Undocumented member.+-- * 'gdsDomainName' - A domain name that you want to use as the basis for a list of possible domain names. The domain name must contain a top-level domain (TLD), such as .com, that Amazon Route 53 supports. For a list of TLDs, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/registrar-tld-list.html Domains that You Can Register with Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . ----- * 'gdsSuggestionCount' - Undocumented member.+-- * 'gdsSuggestionCount' - The number of suggested domain names that you want Amazon Route 53 to return. ----- * 'gdsOnlyAvailable' - Undocumented member.+-- * 'gdsOnlyAvailable' - If @OnlyAvailable@ is @true@ , Amazon Route 53 returns only domain names that are available. If @OnlyAvailable@ is @false@ , Amazon Route 53 returns domain names without checking whether they're available to be registered. To determine whether the domain is available, you can call @checkDomainAvailability@ for each suggestion. getDomainSuggestions     :: Text -- ^ 'gdsDomainName'     -> Int -- ^ 'gdsSuggestionCount'     -> Bool -- ^ 'gdsOnlyAvailable'     -> GetDomainSuggestions getDomainSuggestions pDomainName_ pSuggestionCount_ pOnlyAvailable_ =-    GetDomainSuggestions'-    { _gdsDomainName = pDomainName_-    , _gdsSuggestionCount = pSuggestionCount_-    , _gdsOnlyAvailable = pOnlyAvailable_-    }+  GetDomainSuggestions'+  { _gdsDomainName = pDomainName_+  , _gdsSuggestionCount = pSuggestionCount_+  , _gdsOnlyAvailable = pOnlyAvailable_+  } --- | Undocumented member.++-- | A domain name that you want to use as the basis for a list of possible domain names. The domain name must contain a top-level domain (TLD), such as .com, that Amazon Route 53 supports. For a list of TLDs, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/registrar-tld-list.html Domains that You Can Register with Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . gdsDomainName :: Lens' GetDomainSuggestions Text gdsDomainName = lens _gdsDomainName (\ s a -> s{_gdsDomainName = a}); --- | Undocumented member.+-- | The number of suggested domain names that you want Amazon Route 53 to return. gdsSuggestionCount :: Lens' GetDomainSuggestions Int gdsSuggestionCount = lens _gdsSuggestionCount (\ s a -> s{_gdsSuggestionCount = a}); --- | Undocumented member.+-- | If @OnlyAvailable@ is @true@ , Amazon Route 53 returns only domain names that are available. If @OnlyAvailable@ is @false@ , Amazon Route 53 returns domain names without checking whether they're available to be registered. To determine whether the domain is available, you can call @checkDomainAvailability@ for each suggestion. gdsOnlyAvailable :: Lens' GetDomainSuggestions Bool gdsOnlyAvailable = lens _gdsOnlyAvailable (\ s a -> s{_gdsOnlyAvailable = a}); @@ -101,9 +99,9 @@                    (x .?> "SuggestionsList" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable GetDomainSuggestions+instance Hashable GetDomainSuggestions where -instance NFData GetDomainSuggestions+instance NFData GetDomainSuggestions where  instance ToHeaders GetDomainSuggestions where         toHeaders@@ -131,27 +129,27 @@  -- | /See:/ 'getDomainSuggestionsResponse' smart constructor. data GetDomainSuggestionsResponse = GetDomainSuggestionsResponse'-    { _gdsrsSuggestionsList :: !(Maybe [DomainSuggestion])-    , _gdsrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - Undocumented member.+-- * 'gdsrsSuggestionsList' - A list of possible domain names. If you specified @true@ for @OnlyAvailable@ in the request, the list contains only domains that are available for registration. -- -- * 'gdsrsResponseStatus' - -- | The response status code. getDomainSuggestionsResponse     :: Int -- ^ 'gdsrsResponseStatus'     -> GetDomainSuggestionsResponse getDomainSuggestionsResponse pResponseStatus_ =-    GetDomainSuggestionsResponse'-    { _gdsrsSuggestionsList = Nothing-    , _gdsrsResponseStatus = pResponseStatus_-    }+  GetDomainSuggestionsResponse'+  {_gdsrsSuggestionsList = Nothing, _gdsrsResponseStatus = pResponseStatus_} --- | Undocumented member.++-- | A list of possible domain names. If you specified @true@ for @OnlyAvailable@ in the request, the list contains only domains that are available for registration. gdsrsSuggestionsList :: Lens' GetDomainSuggestionsResponse [DomainSuggestion] gdsrsSuggestionsList = lens _gdsrsSuggestionsList (\ s a -> s{_gdsrsSuggestionsList = a}) . _Default . _Coerce; @@ -159,4 +157,4 @@ gdsrsResponseStatus :: Lens' GetDomainSuggestionsResponse Int gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a}); -instance NFData GetDomainSuggestionsResponse+instance NFData GetDomainSuggestionsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.GetOperationDetail--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,36 +42,36 @@     , godrsResponseStatus     ) 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+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 GetOperationDetail request includes the following element.+-- | The 'GetOperationDetail' request includes the following element. -- -- -- -- /See:/ 'getOperationDetail' smart constructor. newtype GetOperationDetail = GetOperationDetail'-    { _godOperationId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _godOperationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetOperationDetail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'godOperationId' - The identifier for the operation for which you want to get the status. Amazon Route 53 returned the identifier in the response to the original request. Type: String Default: None Required: Yes+-- * 'godOperationId' - The identifier for the operation for which you want to get the status. Amazon Route 53 returned the identifier in the response to the original request. getOperationDetail     :: Text -- ^ 'godOperationId'     -> GetOperationDetail getOperationDetail pOperationId_ =-    GetOperationDetail'-    { _godOperationId = pOperationId_-    }+  GetOperationDetail' {_godOperationId = pOperationId_} --- | The identifier for the operation for which you want to get the status. Amazon Route 53 returned the identifier in the response to the original request. Type: String Default: None Required: Yes++-- | The identifier for the operation for which you want to get the status. Amazon Route 53 returned the identifier in the response to the original request. godOperationId :: Lens' GetOperationDetail Text godOperationId = lens _godOperationId (\ s a -> s{_godOperationId = a}); @@ -90,9 +90,9 @@                      <*> (x .?> "Message")                      <*> (pure (fromEnum s))) -instance Hashable GetOperationDetail+instance Hashable GetOperationDetail where -instance NFData GetOperationDetail+instance NFData GetOperationDetail where  instance ToHeaders GetOperationDetail where         toHeaders@@ -121,47 +121,49 @@ -- -- /See:/ 'getOperationDetailResponse' smart constructor. data GetOperationDetailResponse = GetOperationDetailResponse'-    { _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)+  { _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' - The current status of the requested operation in the system. Type: String+-- * 'godrsStatus' - The current status of the requested operation in the system. -- -- * 'godrsSubmittedDate' - The date when the request was submitted. ----- * 'godrsDomainName' - The name of a domain. Type: String+-- * 'godrsDomainName' - The name of a domain. ----- * 'godrsOperationId' - The identifier for the operation. Type: String+-- * 'godrsOperationId' - The identifier for the operation. ----- * 'godrsType' - The type of operation that was requested. Type: String+-- * 'godrsType' - The type of operation that was requested. ----- * 'godrsMessage' - Detailed information on the status including possible errors. Type: String+-- * 'godrsMessage' - Detailed information on the status including possible errors. -- -- * 'godrsResponseStatus' - -- | The response status code. getOperationDetailResponse     :: Int -- ^ 'godrsResponseStatus'     -> GetOperationDetailResponse getOperationDetailResponse pResponseStatus_ =-    GetOperationDetailResponse'-    { _godrsStatus = Nothing-    , _godrsSubmittedDate = Nothing-    , _godrsDomainName = Nothing-    , _godrsOperationId = Nothing-    , _godrsType = Nothing-    , _godrsMessage = Nothing-    , _godrsResponseStatus = pResponseStatus_-    }+  GetOperationDetailResponse'+  { _godrsStatus = Nothing+  , _godrsSubmittedDate = Nothing+  , _godrsDomainName = Nothing+  , _godrsOperationId = Nothing+  , _godrsType = Nothing+  , _godrsMessage = Nothing+  , _godrsResponseStatus = pResponseStatus_+  } --- | The current status of the requested operation in the system. Type: String++-- | The current status of the requested operation in the system. godrsStatus :: Lens' GetOperationDetailResponse (Maybe OperationStatus) godrsStatus = lens _godrsStatus (\ s a -> s{_godrsStatus = a}); @@ -169,19 +171,19 @@ godrsSubmittedDate :: Lens' GetOperationDetailResponse (Maybe UTCTime) godrsSubmittedDate = lens _godrsSubmittedDate (\ s a -> s{_godrsSubmittedDate = a}) . mapping _Time; --- | The name of a domain. Type: String+-- | The name of a domain. godrsDomainName :: Lens' GetOperationDetailResponse (Maybe Text) godrsDomainName = lens _godrsDomainName (\ s a -> s{_godrsDomainName = a}); --- | The identifier for the operation. Type: String+-- | The identifier for the operation. godrsOperationId :: Lens' GetOperationDetailResponse (Maybe Text) godrsOperationId = lens _godrsOperationId (\ s a -> s{_godrsOperationId = a}); --- | The type of operation that was requested. Type: String+-- | The type of operation that was requested. godrsType :: Lens' GetOperationDetailResponse (Maybe OperationType) godrsType = lens _godrsType (\ s a -> s{_godrsType = a}); --- | Detailed information on the status including possible errors. Type: String+-- | Detailed information on the status including possible errors. godrsMessage :: Lens' GetOperationDetailResponse (Maybe Text) godrsMessage = lens _godrsMessage (\ s a -> s{_godrsMessage = a}); @@ -189,4 +191,4 @@ godrsResponseStatus :: Lens' GetOperationDetailResponse Int godrsResponseStatus = lens _godrsResponseStatus (\ s a -> s{_godrsResponseStatus = a}); -instance NFData GetOperationDetailResponse+instance NFData GetOperationDetailResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.ListDomains--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,13 +41,13 @@     , ldrsDomains     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53Domains.Types-import           Network.AWS.Route53Domains.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53Domains.Types+import Network.AWS.Route53Domains.Types.Product  -- | The ListDomains request includes the following elements. --@@ -55,30 +55,28 @@ -- -- /See:/ 'listDomains' smart constructor. data ListDomains = ListDomains'-    { _ldMarker   :: !(Maybe Text)-    , _ldMaxItems :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: ----- * 'ldMarker' - 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 @Marker@ to return additional domains. 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 specified in the previous request.  Required: No+-- * 'ldMarker' - 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 @Marker@ to return additional domains. Get the value of @NextPageMarker@ from the previous response, and submit another request that includes the value of @NextPageMarker@ in the @Marker@ element. Constraints: The marker must match the value specified in the previous request. ----- * 'ldMaxItems' - Number of domains to be returned. Type: Integer Default: 20 Constraints: A numeral between 1 and 100. Required: No+-- * 'ldMaxItems' - Number of domains to be returned. Default: 20 listDomains     :: ListDomains-listDomains =-    ListDomains'-    { _ldMarker = Nothing-    , _ldMaxItems = Nothing-    }+listDomains = ListDomains' {_ldMarker = Nothing, _ldMaxItems = Nothing} --- | 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 @Marker@ to return additional domains. 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 specified in the previous request.  Required: No++-- | 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 @Marker@ to return additional domains. Get the value of @NextPageMarker@ from the previous response, and submit another request that includes the value of @NextPageMarker@ in the @Marker@ element. Constraints: The marker must match the value specified in the previous request. 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+-- | Number of domains to be returned. Default: 20 ldMaxItems :: Lens' ListDomains (Maybe Int) ldMaxItems = lens _ldMaxItems (\ s a -> s{_ldMaxItems = a}); @@ -99,9 +97,9 @@                    (x .?> "NextPageMarker") <*> (pure (fromEnum s)) <*>                      (x .?> "Domains" .!@ mempty)) -instance Hashable ListDomains+instance Hashable ListDomains where -instance NFData ListDomains+instance NFData ListDomains where  instance ToHeaders ListDomains where         toHeaders@@ -132,31 +130,33 @@ -- -- /See:/ 'listDomainsResponse' smart constructor. data ListDomainsResponse = ListDomainsResponse'-    { _ldrsNextPageMarker :: !(Maybe Text)-    , _ldrsResponseStatus :: !Int-    , _ldrsDomains        :: ![DomainSummary]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldrsNextPageMarker :: !(Maybe Text)+  , _ldrsResponseStatus :: !Int+  , _ldrsDomains        :: ![DomainSummary]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDomainsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldrsNextPageMarker' - If there are more domains 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: @Operations@+-- * 'ldrsNextPageMarker' - If there are more domains than you specified for @MaxItems@ in the request, submit another request and include the value of @NextPageMarker@ in the value of @Marker@ . -- -- * 'ldrsResponseStatus' - -- | The response status code. ----- * 'ldrsDomains' - A summary of domains. Type: Complex type containing a list of domain summaries. Children: @AutoRenew@ , @DomainName@ , @Expiry@ , @TransferLock@+-- * 'ldrsDomains' - A summary of domains. listDomainsResponse     :: Int -- ^ 'ldrsResponseStatus'     -> ListDomainsResponse listDomainsResponse pResponseStatus_ =-    ListDomainsResponse'-    { _ldrsNextPageMarker = Nothing-    , _ldrsResponseStatus = pResponseStatus_-    , _ldrsDomains = mempty-    }+  ListDomainsResponse'+  { _ldrsNextPageMarker = Nothing+  , _ldrsResponseStatus = pResponseStatus_+  , _ldrsDomains = mempty+  } --- | If there are more domains 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: @Operations@++-- | If there are more domains than you specified for @MaxItems@ in the request, submit another request and include the value of @NextPageMarker@ in the value of @Marker@ . ldrsNextPageMarker :: Lens' ListDomainsResponse (Maybe Text) ldrsNextPageMarker = lens _ldrsNextPageMarker (\ s a -> s{_ldrsNextPageMarker = a}); @@ -164,8 +164,8 @@ ldrsResponseStatus :: Lens' ListDomainsResponse Int ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}); --- | A summary of domains. Type: Complex type containing a list of domain summaries. Children: @AutoRenew@ , @DomainName@ , @Expiry@ , @TransferLock@+-- | A summary of domains. ldrsDomains :: Lens' ListDomainsResponse [DomainSummary] ldrsDomains = lens _ldrsDomains (\ s a -> s{_ldrsDomains = a}) . _Coerce; -instance NFData ListDomainsResponse+instance NFData ListDomainsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.ListOperations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,13 +41,13 @@     , lorsOperations     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.Route53Domains.Types-import           Network.AWS.Route53Domains.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.Route53Domains.Types+import Network.AWS.Route53Domains.Types.Product  -- | The ListOperations request includes the following elements. --@@ -55,30 +55,28 @@ -- -- /See:/ 'listOperations' smart constructor. data ListOperations = ListOperations'-    { _loMarker   :: !(Maybe Text)-    , _loMaxItems :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: ----- * 'loMarker' - 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 additional operations. 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 Required: No+-- * 'loMarker' - 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 additional operations. Get the value of @NextPageMarker@ from the previous response, and submit another request that includes the value of @NextPageMarker@ in the @Marker@ element. ----- * 'loMaxItems' - Number of domains to be returned. Type: Integer Default: 20 Constraints: A value between 1 and 100. Required: No+-- * 'loMaxItems' - Number of domains to be returned. Default: 20 listOperations     :: ListOperations-listOperations =-    ListOperations'-    { _loMarker = Nothing-    , _loMaxItems = Nothing-    }+listOperations = ListOperations' {_loMarker = Nothing, _loMaxItems = Nothing} --- | 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 additional operations. 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 Required: No++-- | 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 additional operations. Get the value of @NextPageMarker@ from the previous response, and submit another request that includes the value of @NextPageMarker@ in the @Marker@ element. 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+-- | Number of domains to be returned. Default: 20 loMaxItems :: Lens' ListOperations (Maybe Int) loMaxItems = lens _loMaxItems (\ s a -> s{_loMaxItems = a}); @@ -99,9 +97,9 @@                    (x .?> "NextPageMarker") <*> (pure (fromEnum s)) <*>                      (x .?> "Operations" .!@ mempty)) -instance Hashable ListOperations+instance Hashable ListOperations where -instance NFData ListOperations+instance NFData ListOperations where  instance ToHeaders ListOperations where         toHeaders@@ -132,31 +130,33 @@ -- -- /See:/ 'listOperationsResponse' smart constructor. data ListOperationsResponse = ListOperationsResponse'-    { _lorsNextPageMarker :: !(Maybe Text)-    , _lorsResponseStatus :: !Int-    , _lorsOperations     :: ![OperationSummary]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lorsNextPageMarker :: !(Maybe Text)+  , _lorsResponseStatus :: !Int+  , _lorsOperations     :: ![OperationSummary]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lorsNextPageMarker' - If there are more operations 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: @Operations@+-- * 'lorsNextPageMarker' - If there are more operations than you specified for @MaxItems@ in the request, submit another request and include the value of @NextPageMarker@ in the value of @Marker@ . -- -- * 'lorsResponseStatus' - -- | The response status code. ----- * 'lorsOperations' - Lists summaries of the operations. Type: Complex type containing a list of operation summaries Children: @OperationId@ , @Status@ , @SubmittedDate@ , @Type@+-- * 'lorsOperations' - Lists summaries of the operations. listOperationsResponse     :: Int -- ^ 'lorsResponseStatus'     -> ListOperationsResponse listOperationsResponse pResponseStatus_ =-    ListOperationsResponse'-    { _lorsNextPageMarker = Nothing-    , _lorsResponseStatus = pResponseStatus_-    , _lorsOperations = mempty-    }+  ListOperationsResponse'+  { _lorsNextPageMarker = Nothing+  , _lorsResponseStatus = pResponseStatus_+  , _lorsOperations = mempty+  } --- | If there are more operations 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: @Operations@++-- | If there are more operations than you specified for @MaxItems@ in the request, submit another request and include the value of @NextPageMarker@ in the value of @Marker@ . lorsNextPageMarker :: Lens' ListOperationsResponse (Maybe Text) lorsNextPageMarker = lens _lorsNextPageMarker (\ s a -> s{_lorsNextPageMarker = a}); @@ -164,8 +164,8 @@ lorsResponseStatus :: Lens' ListOperationsResponse Int lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a}); --- | Lists summaries of the operations. Type: Complex type containing a list of operation summaries Children: @OperationId@ , @Status@ , @SubmittedDate@ , @Type@+-- | Lists summaries of the operations. lorsOperations :: Lens' ListOperationsResponse [OperationSummary] lorsOperations = lens _lorsOperations (\ s a -> s{_lorsOperations = a}) . _Coerce; -instance NFData ListOperationsResponse+instance NFData ListOperationsResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53Domains.ListTagsForDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- This operation returns all of the tags that are associated with the specified domain. -- ----- All tag operations are eventually consistent; subsequent operations may not immediately represent all issued operations.+-- All tag operations are eventually consistent; subsequent operations might not immediately represent all issued operations. -- module Network.AWS.Route53Domains.ListTagsForDomain     (@@ -39,12 +39,12 @@     , ltfdrsTagList     ) 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+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 ListTagsForDomainRequest includes the following elements. --@@ -52,9 +52,10 @@ -- -- /See:/ 'listTagsForDomain' smart constructor. newtype ListTagsForDomain = ListTagsForDomain'-    { _ltfdDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfdDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@     :: Text -- ^ 'ltfdDomainName'     -> ListTagsForDomain listTagsForDomain pDomainName_ =-    ListTagsForDomain'-    { _ltfdDomainName = pDomainName_-    }+  ListTagsForDomain' {_ltfdDomainName = pDomainName_} + -- | The domain for which you want to get a list of tags. ltfdDomainName :: Lens' ListTagsForDomain Text ltfdDomainName = lens _ltfdDomainName (\ s a -> s{_ltfdDomainName = a});@@ -81,9 +81,9 @@                  ListTagsForDomainResponse' <$>                    (pure (fromEnum s)) <*> (x .?> "TagList" .!@ mempty)) -instance Hashable ListTagsForDomain+instance Hashable ListTagsForDomain where -instance NFData ListTagsForDomain+instance NFData ListTagsForDomain where  instance ToHeaders ListTagsForDomain where         toHeaders@@ -112,32 +112,32 @@ -- -- /See:/ 'listTagsForDomainResponse' smart constructor. data ListTagsForDomainResponse = ListTagsForDomainResponse'-    { _ltfdrsResponseStatus :: !Int-    , _ltfdrsTagList        :: ![Tag]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'ltfdrsResponseStatus' - -- | The response status code. ----- * 'ltfdrsTagList' - A list of the tags that are associated with the specified domain. Type: A complex type containing a list of tags Each tag includes the following elements.     * Key The key (name) of a tag. Type: String     * Value The value of a tag. Type: String+-- * 'ltfdrsTagList' - A list of the tags that are associated with the specified domain. listTagsForDomainResponse     :: Int -- ^ 'ltfdrsResponseStatus'     -> ListTagsForDomainResponse listTagsForDomainResponse pResponseStatus_ =-    ListTagsForDomainResponse'-    { _ltfdrsResponseStatus = pResponseStatus_-    , _ltfdrsTagList = mempty-    }+  ListTagsForDomainResponse'+  {_ltfdrsResponseStatus = pResponseStatus_, _ltfdrsTagList = mempty} + -- | -- | The response status code. ltfdrsResponseStatus :: Lens' ListTagsForDomainResponse Int ltfdrsResponseStatus = lens _ltfdrsResponseStatus (\ s a -> s{_ltfdrsResponseStatus = a}); --- | A list of the tags that are associated with the specified domain. Type: A complex type containing a list of tags Each tag includes the following elements.     * Key The key (name) of a tag. Type: String     * Value The value of a tag. Type: String+-- | A list of the tags that are associated with the specified domain. ltfdrsTagList :: Lens' ListTagsForDomainResponse [Tag] ltfdrsTagList = lens _ltfdrsTagList (\ s a -> s{_ltfdrsTagList = a}) . _Coerce; -instance NFData ListTagsForDomainResponse+instance NFData ListTagsForDomainResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.RegisterDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,8 +23,18 @@ -- -- When you register a domain, Amazon Route 53 does the following: -----     * Creates a Amazon Route 53 hosted zone that has the same name as the domain. Amazon Route 53 assigns four name servers to your hosted zone and automatically updates your domain registration with the names of these name servers.    * Enables autorenew, so your domain registration will renew automatically each year. We'll notify you in advance of the renewal date so you can choose whether to renew the registration.    * Optionally enables privacy protection, so WHOIS queries return contact information for our registrar partner, Gandi, instead of the information you entered for registrant, admin, and tech contacts.    * If registration is successful, returns an operation ID that you can use to track the progress and completion of the action. If the request is not completed successfully, the domain registrant is notified by email.    * Charges your AWS account an amount based on the top-level domain. For more information, see <http://aws.amazon.com/route53/pricing/ Amazon Route 53 Pricing> .+--     * Creates a Amazon Route 53 hosted zone that has the same name as the domain. Amazon Route 53 assigns four name servers to your hosted zone and automatically updates your domain registration with the names of these name servers. --+--     * Enables autorenew, so your domain registration will renew automatically each year. We'll notify you in advance of the renewal date so you can choose whether to renew the registration.+--+--     * Optionally enables privacy protection, so WHOIS queries return contact information for our registrar partner, Gandi, instead of the information you entered for registrant, admin, and tech contacts.+--+--     * If registration is successful, returns an operation ID that you can use to track the progress and completion of the action. If the request is not completed successfully, the domain registrant is notified by email.+--+--     * Charges your AWS account an amount based on the top-level domain. For more information, see <http://aws.amazon.com/route53/pricing/ Amazon Route 53 Pricing> .+--+--+-- module Network.AWS.Route53Domains.RegisterDomain     (     -- * Creating a Request@@ -50,12 +60,12 @@     , rdrsOperationId     ) 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+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 RegisterDomain request includes the following elements. --@@ -63,41 +73,42 @@ -- -- /See:/ 'registerDomain' smart constructor. data RegisterDomain = RegisterDomain'-    { _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)+  { _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, 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: ----- * 'rPrivacyProtectTechContact' - 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- * 'rPrivacyProtectTechContact' - 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. Default: @true@ ----- * 'rPrivacyProtectRegistrantContact' - 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- * 'rPrivacyProtectRegistrantContact' - 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. Default: @true@ ----- * 'rAutoRenew' - Indicates whether the domain will be automatically renewed (@true@ ) or not (@false@ ). Autorenewal only takes effect after the account is charged. Type: Boolean Valid values: @true@ | @false@  Default: @true@  Required: No+-- * 'rAutoRenew' - Indicates whether the domain will be automatically renewed (@true@ ) or not (@false@ ). Autorenewal only takes effect after the account is charged. Default: @true@ ----- * 'rPrivacyProtectAdminContact' - 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- * 'rPrivacyProtectAdminContact' - 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. Default: @true@ -- -- * 'rIdNLangCode' - Reserved for future use. ----- * 'rDomainName' - The name of a domain. Type: String Default: None 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+-- * 'rDomainName' - The domain name that you want to register. 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. ----- * 'rDurationInYears' - 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. Type: Integer Default: 1 Valid values: Integer from 1 to 10 Required: Yes+-- * 'rDurationInYears' - The number of years that you want to register the domain for. Domains are registered for a minimum of one year. The maximum period depends on the top-level domain. For the range of valid values for your domain, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/registrar-tld-list.html Domains that You Can Register with Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . Default: 1 ----- * 'rAdminContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'rAdminContact' - Provides detailed contact information. ----- * 'rRegistrantContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'rRegistrantContact' - Provides detailed contact information. ----- * 'rTechContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'rTechContact' - Provides detailed contact information. registerDomain     :: Text -- ^ 'rDomainName'     -> Natural -- ^ 'rDurationInYears'@@ -106,32 +117,33 @@     -> ContactDetail -- ^ 'rTechContact'     -> RegisterDomain registerDomain pDomainName_ pDurationInYears_ pAdminContact_ pRegistrantContact_ pTechContact_ =-    RegisterDomain'-    { _rPrivacyProtectTechContact = Nothing-    , _rPrivacyProtectRegistrantContact = Nothing-    , _rAutoRenew = Nothing-    , _rPrivacyProtectAdminContact = Nothing-    , _rIdNLangCode = Nothing-    , _rDomainName = pDomainName_-    , _rDurationInYears = _Nat # pDurationInYears_-    , _rAdminContact = _Sensitive # pAdminContact_-    , _rRegistrantContact = _Sensitive # pRegistrantContact_-    , _rTechContact = _Sensitive # pTechContact_-    }+  RegisterDomain'+  { _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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No++-- | 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. Default: @true@ 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- | 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. Default: @true@ 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. Type: Boolean Valid values: @true@ | @false@  Default: @true@  Required: No+-- | Indicates whether the domain will be automatically renewed (@true@ ) or not (@false@ ). Autorenewal only takes effect after the account is charged. Default: @true@ 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- | 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. Default: @true@ rPrivacyProtectAdminContact :: Lens' RegisterDomain (Maybe Bool) rPrivacyProtectAdminContact = lens _rPrivacyProtectAdminContact (\ s a -> s{_rPrivacyProtectAdminContact = a}); @@ -139,23 +151,23 @@ rIdNLangCode :: Lens' RegisterDomain (Maybe Text) rIdNLangCode = lens _rIdNLangCode (\ s a -> s{_rIdNLangCode = a}); --- | The name of a domain. Type: String Default: None 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+-- | The domain name that you want to register. 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. 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. Type: Integer Default: 1 Valid values: Integer from 1 to 10 Required: Yes+-- | The number of years that you want to register the domain for. Domains are registered for a minimum of one year. The maximum period depends on the top-level domain. For the range of valid values for your domain, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/registrar-tld-list.html Domains that You Can Register with Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . Default: 1 rDurationInYears :: Lens' RegisterDomain Natural rDurationInYears = lens _rDurationInYears (\ s a -> s{_rDurationInYears = a}) . _Nat; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. rAdminContact :: Lens' RegisterDomain ContactDetail rAdminContact = lens _rAdminContact (\ s a -> s{_rAdminContact = a}) . _Sensitive; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. rRegistrantContact :: Lens' RegisterDomain ContactDetail rRegistrantContact = lens _rRegistrantContact (\ s a -> s{_rRegistrantContact = a}) . _Sensitive; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. rTechContact :: Lens' RegisterDomain ContactDetail rTechContact = lens _rTechContact (\ s a -> s{_rTechContact = a}) . _Sensitive; @@ -168,9 +180,9 @@                  RegisterDomainResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable RegisterDomain+instance Hashable RegisterDomain where -instance NFData RegisterDomain+instance NFData RegisterDomain where  instance ToHeaders RegisterDomain where         toHeaders@@ -212,33 +224,33 @@ -- -- /See:/ 'registerDomainResponse' smart constructor. data RegisterDomainResponse = RegisterDomainResponse'-    { _rdrsResponseStatus :: !Int-    , _rdrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'rdrsResponseStatus' - -- | The response status code. ----- * 'rdrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'rdrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . registerDomainResponse     :: Int -- ^ 'rdrsResponseStatus'     -> Text -- ^ 'rdrsOperationId'     -> RegisterDomainResponse registerDomainResponse pResponseStatus_ pOperationId_ =-    RegisterDomainResponse'-    { _rdrsResponseStatus = pResponseStatus_-    , _rdrsOperationId = pOperationId_-    }+  RegisterDomainResponse'+  {_rdrsResponseStatus = pResponseStatus_, _rdrsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . rdrsOperationId :: Lens' RegisterDomainResponse Text rdrsOperationId = lens _rdrsOperationId (\ s a -> s{_rdrsOperationId = a}); -instance NFData RegisterDomainResponse+instance NFData RegisterDomainResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53Domains.RenewDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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.+-- 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/Route53/latest/DeveloperGuide/domain-renew.html Renewing Registration for a Domain> in the Amazon Route 53 Developer Guide. -- module Network.AWS.Route53Domains.RenewDomain     (@@ -41,12 +41,12 @@     , 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+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. --@@ -54,40 +54,42 @@ -- -- /See:/ 'renewDomain' smart constructor. data RenewDomain = RenewDomain'-    { _rdDurationInYears   :: !(Maybe Nat)-    , _rdDomainName        :: !Text-    , _rdCurrentExpiryYear :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - 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' - 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/Route53/latest/DeveloperGuide/registrar-tld-list.html Domains that You Can Register with Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . Default: 1 ----- * 'rdDomainName' - Undocumented member.+-- * 'rdDomainName' - The name of the domain that you want to renew. ----- * 'rdCurrentExpiryYear' - 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' - The year when the registration for the domain is set to expire. This value must match the current expiration date for the domain. renewDomain     :: Text -- ^ 'rdDomainName'     -> Int -- ^ 'rdCurrentExpiryYear'     -> RenewDomain renewDomain pDomainName_ pCurrentExpiryYear_ =-    RenewDomain'-    { _rdDurationInYears = Nothing-    , _rdDomainName = pDomainName_-    , _rdCurrentExpiryYear = 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++-- | 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/Route53/latest/DeveloperGuide/registrar-tld-list.html Domains that You Can Register with Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . Default: 1 rdDurationInYears :: Lens' RenewDomain (Maybe Natural) rdDurationInYears = lens _rdDurationInYears (\ s a -> s{_rdDurationInYears = a}) . mapping _Nat; --- | Undocumented member.+-- | The name of the domain that you want to renew. 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+-- | The year when the registration for the domain is set to expire. This value must match the current expiration date for the domain. rdCurrentExpiryYear :: Lens' RenewDomain Int rdCurrentExpiryYear = lens _rdCurrentExpiryYear (\ s a -> s{_rdCurrentExpiryYear = a}); @@ -100,9 +102,9 @@                  RenewDomainResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable RenewDomain+instance Hashable RenewDomain where -instance NFData RenewDomain+instance NFData RenewDomain where  instance ToHeaders RenewDomain where         toHeaders@@ -130,33 +132,33 @@  -- | /See:/ 'renewDomainResponse' smart constructor. data RenewDomainResponse = RenewDomainResponse'-    { _rrsResponseStatus :: !Int-    , _rrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - -- | The response status code. ----- * 'rrsOperationId' - Undocumented member.+-- * 'rrsOperationId' - The identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . renewDomainResponse     :: Int -- ^ 'rrsResponseStatus'     -> Text -- ^ 'rrsOperationId'     -> RenewDomainResponse renewDomainResponse pResponseStatus_ pOperationId_ =-    RenewDomainResponse'-    { _rrsResponseStatus = pResponseStatus_-    , _rrsOperationId = pOperationId_-    }+  RenewDomainResponse'+  {_rrsResponseStatus = pResponseStatus_, _rrsOperationId = pOperationId_} + -- | -- | The response status code. rrsResponseStatus :: Lens' RenewDomainResponse Int rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a}); --- | Undocumented member.+-- | The identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . rrsOperationId :: Lens' RenewDomainResponse Text rrsOperationId = lens _rrsOperationId (\ s a -> s{_rrsOperationId = a}); -instance NFData RenewDomainResponse+instance NFData RenewDomainResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.ResendContactReachabilityEmail--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,31 +39,31 @@     , rcrersResponseStatus     ) 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+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:/ 'resendContactReachabilityEmail' smart constructor. newtype ResendContactReachabilityEmail = ResendContactReachabilityEmail'-    { _rcreDomainName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rcreDomainName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResendContactReachabilityEmail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcreDomainName' - The name of the domain for which you want Amazon Route 53 to resend a confirmation email to the registrant contact. Type: String Default: None Required: Yes+-- * 'rcreDomainName' - The name of the domain for which you want Amazon Route 53 to resend a confirmation email to the registrant contact. resendContactReachabilityEmail     :: ResendContactReachabilityEmail resendContactReachabilityEmail =-    ResendContactReachabilityEmail'-    { _rcreDomainName = Nothing-    }+  ResendContactReachabilityEmail' {_rcreDomainName = Nothing} --- | The name of the domain for which you want Amazon Route 53 to resend a confirmation email to the registrant contact. Type: String Default: None Required: Yes++-- | The name of the domain for which you want Amazon Route 53 to resend a confirmation email to the registrant contact. rcreDomainName :: Lens' ResendContactReachabilityEmail (Maybe Text) rcreDomainName = lens _rcreDomainName (\ s a -> s{_rcreDomainName = a}); @@ -81,8 +81,9 @@                      <*> (pure (fromEnum s)))  instance Hashable ResendContactReachabilityEmail+         where -instance NFData ResendContactReachabilityEmail+instance NFData ResendContactReachabilityEmail where  instance ToHeaders ResendContactReachabilityEmail          where@@ -108,12 +109,13 @@  -- | /See:/ 'resendContactReachabilityEmailResponse' smart constructor. data ResendContactReachabilityEmailResponse = ResendContactReachabilityEmailResponse'-    { _rcrersDomainName        :: !(Maybe Text)-    , _rcrersEmailAddress      :: !(Maybe Text)-    , _rcrersIsAlreadyVerified :: !(Maybe Bool)-    , _rcrersResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rcrersDomainName        :: !(Maybe Text)+  , _rcrersEmailAddress      :: !(Maybe Text)+  , _rcrersIsAlreadyVerified :: !(Maybe Bool)+  , _rcrersResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResendContactReachabilityEmailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,20 +124,21 @@ -- -- * 'rcrersEmailAddress' - The email address for the registrant contact at the time that we sent the verification email. ----- * 'rcrersIsAlreadyVerified' - True if the email address for the registrant contact has already been verified, and false otherwise. If the email address has already been verified, we don't send another confirmation email.+-- * 'rcrersIsAlreadyVerified' - @True@ if the email address for the registrant contact has already been verified, and @false@ otherwise. If the email address has already been verified, we don't send another confirmation email. -- -- * 'rcrersResponseStatus' - -- | The response status code. resendContactReachabilityEmailResponse     :: Int -- ^ 'rcrersResponseStatus'     -> ResendContactReachabilityEmailResponse resendContactReachabilityEmailResponse pResponseStatus_ =-    ResendContactReachabilityEmailResponse'-    { _rcrersDomainName = Nothing-    , _rcrersEmailAddress = Nothing-    , _rcrersIsAlreadyVerified = Nothing-    , _rcrersResponseStatus = pResponseStatus_-    }+  ResendContactReachabilityEmailResponse'+  { _rcrersDomainName = Nothing+  , _rcrersEmailAddress = Nothing+  , _rcrersIsAlreadyVerified = Nothing+  , _rcrersResponseStatus = pResponseStatus_+  } + -- | The domain name for which you requested a confirmation email. rcrersDomainName :: Lens' ResendContactReachabilityEmailResponse (Maybe Text) rcrersDomainName = lens _rcrersDomainName (\ s a -> s{_rcrersDomainName = a});@@ -144,7 +147,7 @@ rcrersEmailAddress :: Lens' ResendContactReachabilityEmailResponse (Maybe Text) rcrersEmailAddress = lens _rcrersEmailAddress (\ s a -> s{_rcrersEmailAddress = a}); --- | True if the email address for the registrant contact has already been verified, and false otherwise. If the email address has already been verified, we don't send another confirmation email.+-- | @True@ if the email address for the registrant contact has already been verified, and @false@ otherwise. If the email address has already been verified, we don't send another confirmation email. rcrersIsAlreadyVerified :: Lens' ResendContactReachabilityEmailResponse (Maybe Bool) rcrersIsAlreadyVerified = lens _rcrersIsAlreadyVerified (\ s a -> s{_rcrersIsAlreadyVerified = a}); @@ -153,4 +156,5 @@ rcrersResponseStatus = lens _rcrersResponseStatus (\ s a -> s{_rcrersResponseStatus = a});  instance NFData-         ResendContactReachabilityEmailResponse+           ResendContactReachabilityEmailResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.RetrieveDomainAuthCode--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,36 +37,36 @@     , rdacrsAuthCode     ) 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+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 RetrieveDomainAuthCode request includes the following element.+-- | A request for the authorization code for the specified domain. To transfer a domain to another registrar, you provide this value to the new registrar. -- -- -- -- /See:/ 'retrieveDomainAuthCode' smart constructor. newtype RetrieveDomainAuthCode = RetrieveDomainAuthCode'-    { _rdacDomainName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdacDomainName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveDomainAuthCode' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdacDomainName' - The name of a domain. Type: String Default: None 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+-- * 'rdacDomainName' - The name of the domain that you want to get an authorization code for. retrieveDomainAuthCode     :: Text -- ^ 'rdacDomainName'     -> RetrieveDomainAuthCode retrieveDomainAuthCode pDomainName_ =-    RetrieveDomainAuthCode'-    { _rdacDomainName = pDomainName_-    }+  RetrieveDomainAuthCode' {_rdacDomainName = pDomainName_} --- | The name of a domain. Type: String Default: None 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++-- | The name of the domain that you want to get an authorization code for. rdacDomainName :: Lens' RetrieveDomainAuthCode Text rdacDomainName = lens _rdacDomainName (\ s a -> s{_rdacDomainName = a}); @@ -80,9 +80,9 @@                  RetrieveDomainAuthCodeResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "AuthCode")) -instance Hashable RetrieveDomainAuthCode+instance Hashable RetrieveDomainAuthCode where -instance NFData RetrieveDomainAuthCode+instance NFData RetrieveDomainAuthCode where  instance ToHeaders RetrieveDomainAuthCode where         toHeaders@@ -111,33 +111,35 @@ -- -- /See:/ 'retrieveDomainAuthCodeResponse' smart constructor. data RetrieveDomainAuthCodeResponse = RetrieveDomainAuthCodeResponse'-    { _rdacrsResponseStatus :: !Int-    , _rdacrsAuthCode       :: !(Sensitive Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdacrsResponseStatus :: !Int+  , _rdacrsAuthCode       :: !(Sensitive Text)+  } deriving (Eq, 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: -- -- * 'rdacrsResponseStatus' - -- | The response status code. ----- * 'rdacrsAuthCode' - The authorization code for the domain. Type: String+-- * 'rdacrsAuthCode' - The authorization code for the domain. retrieveDomainAuthCodeResponse     :: Int -- ^ 'rdacrsResponseStatus'     -> Text -- ^ 'rdacrsAuthCode'     -> RetrieveDomainAuthCodeResponse retrieveDomainAuthCodeResponse pResponseStatus_ pAuthCode_ =-    RetrieveDomainAuthCodeResponse'-    { _rdacrsResponseStatus = pResponseStatus_-    , _rdacrsAuthCode = _Sensitive # pAuthCode_-    }+  RetrieveDomainAuthCodeResponse'+  { _rdacrsResponseStatus = pResponseStatus_+  , _rdacrsAuthCode = _Sensitive # pAuthCode_+  } + -- | -- | The response status code. rdacrsResponseStatus :: Lens' RetrieveDomainAuthCodeResponse Int rdacrsResponseStatus = lens _rdacrsResponseStatus (\ s a -> s{_rdacrsResponseStatus = a}); --- | The authorization code for the domain. Type: String+-- | The authorization code for the domain. rdacrsAuthCode :: Lens' RetrieveDomainAuthCodeResponse Text rdacrsAuthCode = lens _rdacrsAuthCode (\ s a -> s{_rdacrsAuthCode = a}) . _Sensitive; -instance NFData RetrieveDomainAuthCodeResponse+instance NFData RetrieveDomainAuthCodeResponse where

@@ -12,19 +12,21 @@  -- | -- Module      : Network.AWS.Route53Domains.TransferDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- This operation transfers a domain from another registrar to Amazon Route 53. When the transfer is complete, the domain is registered with the AWS registrar partner, Gandi. -- ----- For transfer requirements, a detailed procedure, and information about viewing the status of a domain transfer, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/domain-transfer-to-route-53.html Transferring Registration for a Domain to Amazon Route 53> in the Amazon Route 53 Developer Guide.+-- For transfer requirements, a detailed procedure, and information about viewing the status of a domain transfer, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/domain-transfer-to-route-53.html Transferring Registration for a Domain to Amazon Route 53> in the /Amazon Route 53 Developer Guide/ . -- -- If the registrar for your domain is also the DNS service provider for the domain, we highly recommend that you consider transferring your DNS service to Amazon Route 53 or to another DNS service provider before you transfer your registration. Some registrars provide free DNS service when you purchase a domain registration. When you transfer the registration, the previous registrar will not renew your domain registration and could end your DNS service at any time. --+-- /Important:/ If the registrar for your domain is also the DNS service provider for the domain and you don't transfer DNS service to another provider, your website, email, and the web applications associated with the domain might become unavailable.+-- -- If the transfer is successful, this method returns an operation ID that you can use to track the progress and completion of the action. If the transfer doesn't complete successfully, the domain registrant will be notified by email. -- module Network.AWS.Route53Domains.TransferDomain@@ -54,12 +56,12 @@     , tdrsOperationId     ) 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+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 TransferDomain request includes the following elements. --@@ -67,47 +69,48 @@ -- -- /See:/ 'transferDomain' smart constructor. data TransferDomain = TransferDomain'-    { _tdPrivacyProtectTechContact       :: !(Maybe Bool)-    , _tdPrivacyProtectRegistrantContact :: !(Maybe Bool)-    , _tdAutoRenew                       :: !(Maybe Bool)-    , _tdPrivacyProtectAdminContact      :: !(Maybe Bool)-    , _tdIdNLangCode                     :: !(Maybe Text)-    , _tdAuthCode                        :: !(Maybe (Sensitive Text))-    , _tdNameservers                     :: !(Maybe [Nameserver])-    , _tdDomainName                      :: !Text-    , _tdDurationInYears                 :: !Nat-    , _tdAdminContact                    :: !(Sensitive ContactDetail)-    , _tdRegistrantContact               :: !(Sensitive ContactDetail)-    , _tdTechContact                     :: !(Sensitive ContactDetail)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tdPrivacyProtectTechContact       :: !(Maybe Bool)+  , _tdPrivacyProtectRegistrantContact :: !(Maybe Bool)+  , _tdAutoRenew                       :: !(Maybe Bool)+  , _tdPrivacyProtectAdminContact      :: !(Maybe Bool)+  , _tdIdNLangCode                     :: !(Maybe Text)+  , _tdAuthCode                        :: !(Maybe (Sensitive Text))+  , _tdNameservers                     :: !(Maybe [Nameserver])+  , _tdDomainName                      :: !Text+  , _tdDurationInYears                 :: !Nat+  , _tdAdminContact                    :: !(Sensitive ContactDetail)+  , _tdRegistrantContact               :: !(Sensitive ContactDetail)+  , _tdTechContact                     :: !(Sensitive ContactDetail)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tdPrivacyProtectTechContact' - 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- * 'tdPrivacyProtectTechContact' - 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. Default: @true@ ----- * 'tdPrivacyProtectRegistrantContact' - 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- * 'tdPrivacyProtectRegistrantContact' - 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. Default: @true@ ----- * 'tdAutoRenew' - Indicates whether the domain will be automatically renewed (true) or not (false). Autorenewal only takes effect after the account is charged. Type: Boolean Valid values: @true@ | @false@  Default: true Required: No+-- * 'tdAutoRenew' - Indicates whether the domain will be automatically renewed (true) or not (false). Autorenewal only takes effect after the account is charged. Default: true ----- * 'tdPrivacyProtectAdminContact' - 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- * 'tdPrivacyProtectAdminContact' - 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. Default: @true@ -- -- * 'tdIdNLangCode' - Reserved for future use. ----- * 'tdAuthCode' - The authorization code for the domain. You get this value from the current registrar. Type: String Required: Yes+-- * 'tdAuthCode' - The authorization code for the domain. You get this value from the current registrar. ----- * 'tdNameservers' - Contains details for the host and glue IP addresses. Type: Complex Children: @GlueIps@ , @Name@  Required: No+-- * 'tdNameservers' - Contains details for the host and glue IP addresses. ----- * 'tdDomainName' - The name of a domain. Type: String Default: None 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+-- * 'tdDomainName' - The name of the domain that you want to transfer to Amazon Route 53. 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. ----- * 'tdDurationInYears' - 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. Type: Integer Default: 1 Valid values: Integer from 1 to 10 Required: Yes+-- * 'tdDurationInYears' - The number of years that you want to register the domain for. Domains are registered for a minimum of one year. The maximum period depends on the top-level domain. Default: 1 ----- * 'tdAdminContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'tdAdminContact' - Provides detailed contact information. ----- * 'tdRegistrantContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'tdRegistrantContact' - Provides detailed contact information. ----- * 'tdTechContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'tdTechContact' - Provides detailed contact information. transferDomain     :: Text -- ^ 'tdDomainName'     -> Natural -- ^ 'tdDurationInYears'@@ -116,34 +119,35 @@     -> ContactDetail -- ^ 'tdTechContact'     -> TransferDomain transferDomain pDomainName_ pDurationInYears_ pAdminContact_ pRegistrantContact_ pTechContact_ =-    TransferDomain'-    { _tdPrivacyProtectTechContact = Nothing-    , _tdPrivacyProtectRegistrantContact = Nothing-    , _tdAutoRenew = Nothing-    , _tdPrivacyProtectAdminContact = Nothing-    , _tdIdNLangCode = Nothing-    , _tdAuthCode = Nothing-    , _tdNameservers = Nothing-    , _tdDomainName = pDomainName_-    , _tdDurationInYears = _Nat # pDurationInYears_-    , _tdAdminContact = _Sensitive # pAdminContact_-    , _tdRegistrantContact = _Sensitive # pRegistrantContact_-    , _tdTechContact = _Sensitive # pTechContact_-    }+  TransferDomain'+  { _tdPrivacyProtectTechContact = Nothing+  , _tdPrivacyProtectRegistrantContact = Nothing+  , _tdAutoRenew = Nothing+  , _tdPrivacyProtectAdminContact = Nothing+  , _tdIdNLangCode = Nothing+  , _tdAuthCode = Nothing+  , _tdNameservers = Nothing+  , _tdDomainName = pDomainName_+  , _tdDurationInYears = _Nat # pDurationInYears_+  , _tdAdminContact = _Sensitive # pAdminContact_+  , _tdRegistrantContact = _Sensitive # pRegistrantContact_+  , _tdTechContact = _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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No++-- | 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. Default: @true@ tdPrivacyProtectTechContact :: Lens' TransferDomain (Maybe Bool) tdPrivacyProtectTechContact = lens _tdPrivacyProtectTechContact (\ s a -> s{_tdPrivacyProtectTechContact = 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- | 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. Default: @true@ tdPrivacyProtectRegistrantContact :: Lens' TransferDomain (Maybe Bool) tdPrivacyProtectRegistrantContact = lens _tdPrivacyProtectRegistrantContact (\ s a -> s{_tdPrivacyProtectRegistrantContact = a}); --- | Indicates whether the domain will be automatically renewed (true) or not (false). Autorenewal only takes effect after the account is charged. Type: Boolean Valid values: @true@ | @false@  Default: true Required: No+-- | Indicates whether the domain will be automatically renewed (true) or not (false). Autorenewal only takes effect after the account is charged. Default: true tdAutoRenew :: Lens' TransferDomain (Maybe Bool) tdAutoRenew = lens _tdAutoRenew (\ s a -> s{_tdAutoRenew = 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. Type: Boolean Default: @true@  Valid values: @true@ | @false@  Required: No+-- | 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. Default: @true@ tdPrivacyProtectAdminContact :: Lens' TransferDomain (Maybe Bool) tdPrivacyProtectAdminContact = lens _tdPrivacyProtectAdminContact (\ s a -> s{_tdPrivacyProtectAdminContact = a}); @@ -151,31 +155,31 @@ tdIdNLangCode :: Lens' TransferDomain (Maybe Text) tdIdNLangCode = lens _tdIdNLangCode (\ s a -> s{_tdIdNLangCode = a}); --- | The authorization code for the domain. You get this value from the current registrar. Type: String Required: Yes+-- | The authorization code for the domain. You get this value from the current registrar. tdAuthCode :: Lens' TransferDomain (Maybe Text) tdAuthCode = lens _tdAuthCode (\ s a -> s{_tdAuthCode = a}) . mapping _Sensitive; --- | Contains details for the host and glue IP addresses. Type: Complex Children: @GlueIps@ , @Name@  Required: No+-- | Contains details for the host and glue IP addresses. tdNameservers :: Lens' TransferDomain [Nameserver] tdNameservers = lens _tdNameservers (\ s a -> s{_tdNameservers = a}) . _Default . _Coerce; --- | The name of a domain. Type: String Default: None 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+-- | The name of the domain that you want to transfer to Amazon Route 53. 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. tdDomainName :: Lens' TransferDomain Text tdDomainName = lens _tdDomainName (\ s a -> s{_tdDomainName = 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. Type: Integer Default: 1 Valid values: Integer from 1 to 10 Required: Yes+-- | The number of years that you want to register the domain for. Domains are registered for a minimum of one year. The maximum period depends on the top-level domain. Default: 1 tdDurationInYears :: Lens' TransferDomain Natural tdDurationInYears = lens _tdDurationInYears (\ s a -> s{_tdDurationInYears = a}) . _Nat; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. tdAdminContact :: Lens' TransferDomain ContactDetail tdAdminContact = lens _tdAdminContact (\ s a -> s{_tdAdminContact = a}) . _Sensitive; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. tdRegistrantContact :: Lens' TransferDomain ContactDetail tdRegistrantContact = lens _tdRegistrantContact (\ s a -> s{_tdRegistrantContact = a}) . _Sensitive; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. tdTechContact :: Lens' TransferDomain ContactDetail tdTechContact = lens _tdTechContact (\ s a -> s{_tdTechContact = a}) . _Sensitive; @@ -188,9 +192,9 @@                  TransferDomainResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable TransferDomain+instance Hashable TransferDomain where -instance NFData TransferDomain+instance NFData TransferDomain where  instance ToHeaders TransferDomain where         toHeaders@@ -234,33 +238,33 @@ -- -- /See:/ 'transferDomainResponse' smart constructor. data TransferDomainResponse = TransferDomainResponse'-    { _tdrsResponseStatus :: !Int-    , _tdrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'tdrsResponseStatus' - -- | The response status code. ----- * 'tdrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'tdrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . transferDomainResponse     :: Int -- ^ 'tdrsResponseStatus'     -> Text -- ^ 'tdrsOperationId'     -> TransferDomainResponse transferDomainResponse pResponseStatus_ pOperationId_ =-    TransferDomainResponse'-    { _tdrsResponseStatus = pResponseStatus_-    , _tdrsOperationId = pOperationId_-    }+  TransferDomainResponse'+  {_tdrsResponseStatus = pResponseStatus_, _tdrsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . tdrsOperationId :: Lens' TransferDomainResponse Text tdrsOperationId = lens _tdrsOperationId (\ s a -> s{_tdrsOperationId = a}); -instance NFData TransferDomainResponse+instance NFData TransferDomainResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.Route53Domains.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,6 +44,9 @@     -- * ReachabilityStatus     , ReachabilityStatus (..) +    -- * Transferable+    , Transferable (..)+     -- * BillingRecord     , BillingRecord     , billingRecord@@ -85,6 +88,11 @@     , dsAutoRenew     , dsDomainName +    -- * DomainTransferability+    , DomainTransferability+    , domainTransferability+    , dtTransferable+     -- * ExtraParam     , ExtraParam     , extraParam@@ -112,38 +120,40 @@     , tagKey     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Route53Domains.Types.Product-import           Network.AWS.Route53Domains.Types.Sum-import           Network.AWS.Sign.V4+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Route53Domains.Types.Product+import Network.AWS.Route53Domains.Types.Sum+import Network.AWS.Sign.V4  -- | API version @2014-05-15@ of the Amazon Route 53 Domains SDK configuration. route53Domains :: Service route53Domains =-    Service-    { _svcAbbrev = "Route53Domains"-    , _svcSigner = v4-    , _svcPrefix = "route53domains"-    , _svcVersion = "2014-05-15"-    , _svcEndpoint = defaultEndpoint route53Domains-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "Route53Domains"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "Route53Domains"+  , _svcSigner = v4+  , _svcPrefix = "route53domains"+  , _svcVersion = "2014-05-15"+  , _svcEndpoint = defaultEndpoint route53Domains+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseJSONError "Route53Domains"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -152,38 +162,46 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing --- | The requested item is not acceptable. For example, for an OperationId it may refer to the ID of an operation that is already completed. For a domain name, it may not be a valid domain name or belong to the requester account.++-- | The requested item is not acceptable. For example, for an OperationId it might refer to the ID of an operation that is already completed. For a domain name, it might not be a valid domain name or belong to the requester account. -- -- _InvalidInput :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidInput = _ServiceError . hasCode "InvalidInput"+_InvalidInput = _MatchServiceError route53Domains "InvalidInput" + -- | The number of operations or jobs running exceeded the allowed threshold for the account. -- -- _OperationLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError-_OperationLimitExceeded = _ServiceError . hasCode "OperationLimitExceeded"+_OperationLimitExceeded =+  _MatchServiceError route53Domains "OperationLimitExceeded" + -- | The number of domains has exceeded the allowed threshold for the account. -- -- _DomainLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError-_DomainLimitExceeded = _ServiceError . hasCode "DomainLimitExceeded"+_DomainLimitExceeded = _MatchServiceError route53Domains "DomainLimitExceeded" --- | Amazon Route 53 does not support this top-level domain.++-- | Amazon Route 53 does not support this top-level domain (TLD). -- -- _UnsupportedTLD :: AsError a => Getting (First ServiceError) a ServiceError-_UnsupportedTLD = _ServiceError . hasCode "UnsupportedTLD"+_UnsupportedTLD = _MatchServiceError route53Domains "UnsupportedTLD" + -- | The top-level domain does not support this operation. -- -- _TLDRulesViolation :: AsError a => Getting (First ServiceError) a ServiceError-_TLDRulesViolation = _ServiceError . hasCode "TLDRulesViolation"+_TLDRulesViolation = _MatchServiceError route53Domains "TLDRulesViolation" + -- | The request is already in progress for the domain. -- -- _DuplicateRequest :: AsError a => Getting (First ServiceError) a ServiceError-_DuplicateRequest = _ServiceError . hasCode "DuplicateRequest"+_DuplicateRequest = _MatchServiceError route53Domains "DuplicateRequest"+

@@ -9,68 +9,74 @@  -- | -- Module      : Network.AWS.Route53Domains.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Route53Domains.Types.Product where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Route53Domains.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Route53Domains.Types.Sum --- | /See:/ 'billingRecord' smart constructor.+-- | Information for one billing record.+--+--+--+-- /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)+  { _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' - The operation that you were charged for. Type: String Valid values:     * @REGISTER_DOMAIN@     * @TRANSFER_IN_DOMAIN@     * @RENEW_DOMAIN@     * @CHANGE_DOMAIN_OWNER@+-- * 'brOperation' - The operation that you were charged for. ----- * 'brInvoiceId' - The ID of the invoice that is associated with the billing record. Type: String+-- * 'brInvoiceId' - The ID of the invoice that is associated with the billing record. ----- * 'brDomainName' - The name of a domain. Type: String+-- * 'brDomainName' - The name of the domain that the billing record applies to. If the domain name contains characters other than a-z, 0-9, and - (hyphen), such as an internationalized domain name, then this value is in Punycode. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DomainNameFormat.html DNS Domain Name Format> in the /Amazon Route 53 Developer Guidezzz/ . ----- * 'brBillDate' - The date that the operation was billed, in Unix format. Type: Double+-- * 'brBillDate' - The date that the operation was billed, in Unix format. ----- * 'brPrice' - The price that you were charged for the operation, in US dollars. Type: Double Example value: 12.0+-- * 'brPrice' - The price that you were charged for the operation, in US dollars. Example value: 12.0 billingRecord     :: BillingRecord billingRecord =-    BillingRecord'-    { _brOperation = Nothing-    , _brInvoiceId = Nothing-    , _brDomainName = Nothing-    , _brBillDate = Nothing-    , _brPrice = Nothing-    }+  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@++-- | The operation that you were charged for. 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+-- | The ID of the invoice that is associated with the billing record. brInvoiceId :: Lens' BillingRecord (Maybe Text) brInvoiceId = lens _brInvoiceId (\ s a -> s{_brInvoiceId = a}); --- | The name of a domain. Type: String+-- | The name of the domain that the billing record applies to. If the domain name contains characters other than a-z, 0-9, and - (hyphen), such as an internationalized domain name, then this value is in Punycode. For more information, see <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/DomainNameFormat.html DNS Domain Name Format> in the /Amazon Route 53 Developer Guidezzz/ . 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+-- | The date that the operation was billed, in Unix format. 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+-- | The price that you were charged for the operation, in US dollars. Example value: 12.0 brPrice :: Lens' BillingRecord (Maybe Double) brPrice = lens _brPrice (\ s a -> s{_brPrice = a}); @@ -84,9 +90,9 @@                      <*> (x .:? "BillDate")                      <*> (x .:? "Price")) -instance Hashable BillingRecord+instance Hashable BillingRecord where -instance NFData BillingRecord+instance NFData BillingRecord where  -- | ContactDetail includes the following elements. --@@ -94,126 +100,128 @@ -- -- /See:/ 'contactDetail' smart constructor. data ContactDetail = ContactDetail'-    { _cdOrganizationName :: !(Maybe Text)-    , _cdEmail            :: !(Maybe Text)-    , _cdState            :: !(Maybe Text)-    , _cdFax              :: !(Maybe Text)-    , _cdLastName         :: !(Maybe Text)-    , _cdExtraParams      :: !(Maybe [ExtraParam])-    , _cdZipCode          :: !(Maybe Text)-    , _cdAddressLine1     :: !(Maybe Text)-    , _cdCity             :: !(Maybe Text)-    , _cdPhoneNumber      :: !(Maybe Text)-    , _cdAddressLine2     :: !(Maybe Text)-    , _cdFirstName        :: !(Maybe Text)-    , _cdCountryCode      :: !(Maybe CountryCode)-    , _cdContactType      :: !(Maybe ContactType)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdOrganizationName :: !(Maybe Text)+  , _cdEmail            :: !(Maybe Text)+  , _cdState            :: !(Maybe Text)+  , _cdFax              :: !(Maybe Text)+  , _cdLastName         :: !(Maybe Text)+  , _cdExtraParams      :: !(Maybe [ExtraParam])+  , _cdZipCode          :: !(Maybe Text)+  , _cdAddressLine1     :: !(Maybe Text)+  , _cdCity             :: !(Maybe Text)+  , _cdPhoneNumber      :: !(Maybe Text)+  , _cdAddressLine2     :: !(Maybe Text)+  , _cdFirstName        :: !(Maybe Text)+  , _cdCountryCode      :: !(Maybe CountryCode)+  , _cdContactType      :: !(Maybe ContactType)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ContactDetail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdOrganizationName' - Name of the organization for contact types other than @PERSON@ . Type: String Default: None Constraints: Maximum 255 characters. Contact type must not be @PERSON@ . Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- * 'cdOrganizationName' - Name of the organization for contact types other than @PERSON@ . ----- * 'cdEmail' - Email address of the contact. Type: String Default: None Constraints: Maximum 254 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdEmail' - Email address of the contact. ----- * 'cdState' - The state or province of the contact's city. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- * 'cdState' - The state or province of the contact's city. ----- * 'cdFax' - Fax number of the contact. 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"@ . Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- * 'cdFax' - Fax number of the contact. 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"@ . ----- * 'cdLastName' - Last name of contact. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdLastName' - Last name of contact. ----- * 'cdExtraParams' - A list of name-value pairs for parameters required by certain top-level domains. Type: Complex Default: None Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Children: @Name@ , @Value@  Required: No+-- * 'cdExtraParams' - A list of name-value pairs for parameters required by certain top-level domains. ----- * 'cdZipCode' - The zip or postal code of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- * 'cdZipCode' - The zip or postal code of the contact's address. ----- * 'cdAddressLine1' - First line of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdAddressLine1' - First line of the contact's address. ----- * 'cdCity' - The city of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdCity' - The city of the contact's address. ----- * 'cdPhoneNumber' - The phone number of the contact. 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"@ . Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdPhoneNumber' - The phone number of the contact. 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"@ . ----- * 'cdAddressLine2' - Second line of contact's address, if any. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- * 'cdAddressLine2' - Second line of contact's address, if any. ----- * 'cdFirstName' - First name of contact. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdFirstName' - First name of contact. ----- * 'cdCountryCode' - Code for the country of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdCountryCode' - Code for the country of the contact's address. ----- * 'cdContactType' - Indicates whether the contact is a person, company, association, or public organization. If you choose an option other than @PERSON@ , you must enter an organization name, and you can't enable privacy protection for the contact. Type: String Default: None Constraints: Maximum 255 characters. Valid values: @PERSON@ | @COMPANY@ | @ASSOCIATION@ | @PUBLIC_BODY@  Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- * 'cdContactType' - Indicates whether the contact is a person, company, association, or public organization. If you choose an option other than @PERSON@ , you must enter an organization name, and you can't enable privacy protection for the contact. contactDetail     :: ContactDetail contactDetail =-    ContactDetail'-    { _cdOrganizationName = Nothing-    , _cdEmail = Nothing-    , _cdState = Nothing-    , _cdFax = Nothing-    , _cdLastName = Nothing-    , _cdExtraParams = Nothing-    , _cdZipCode = Nothing-    , _cdAddressLine1 = Nothing-    , _cdCity = Nothing-    , _cdPhoneNumber = Nothing-    , _cdAddressLine2 = Nothing-    , _cdFirstName = Nothing-    , _cdCountryCode = Nothing-    , _cdContactType = Nothing-    }+  ContactDetail'+  { _cdOrganizationName = Nothing+  , _cdEmail = Nothing+  , _cdState = Nothing+  , _cdFax = Nothing+  , _cdLastName = Nothing+  , _cdExtraParams = Nothing+  , _cdZipCode = Nothing+  , _cdAddressLine1 = Nothing+  , _cdCity = Nothing+  , _cdPhoneNumber = Nothing+  , _cdAddressLine2 = Nothing+  , _cdFirstName = Nothing+  , _cdCountryCode = Nothing+  , _cdContactType = Nothing+  } --- | Name of the organization for contact types other than @PERSON@ . Type: String Default: None Constraints: Maximum 255 characters. Contact type must not be @PERSON@ . Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No++-- | Name of the organization for contact types other than @PERSON@ . cdOrganizationName :: Lens' ContactDetail (Maybe Text) cdOrganizationName = lens _cdOrganizationName (\ s a -> s{_cdOrganizationName = a}); --- | Email address of the contact. Type: String Default: None Constraints: Maximum 254 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | Email address of the contact. cdEmail :: Lens' ContactDetail (Maybe Text) cdEmail = lens _cdEmail (\ s a -> s{_cdEmail = a}); --- | The state or province of the contact's city. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- | The state or province of the contact's city. cdState :: Lens' ContactDetail (Maybe Text) cdState = lens _cdState (\ s a -> s{_cdState = a}); --- | Fax number of the contact. 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"@ . Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- | Fax number of the contact. 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"@ . cdFax :: Lens' ContactDetail (Maybe Text) cdFax = lens _cdFax (\ s a -> s{_cdFax = a}); --- | Last name of contact. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | Last name of contact. cdLastName :: Lens' ContactDetail (Maybe Text) cdLastName = lens _cdLastName (\ s a -> s{_cdLastName = a}); --- | A list of name-value pairs for parameters required by certain top-level domains. Type: Complex Default: None Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Children: @Name@ , @Value@  Required: No+-- | A list of name-value pairs for parameters required by certain top-level domains. cdExtraParams :: Lens' ContactDetail [ExtraParam] cdExtraParams = lens _cdExtraParams (\ s a -> s{_cdExtraParams = a}) . _Default . _Coerce; --- | The zip or postal code of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- | The zip or postal code of the contact's address. cdZipCode :: Lens' ContactDetail (Maybe Text) cdZipCode = lens _cdZipCode (\ s a -> s{_cdZipCode = a}); --- | First line of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | First line of the contact's address. cdAddressLine1 :: Lens' ContactDetail (Maybe Text) cdAddressLine1 = lens _cdAddressLine1 (\ s a -> s{_cdAddressLine1 = a}); --- | The city of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | The city of the contact's address. cdCity :: Lens' ContactDetail (Maybe Text) cdCity = lens _cdCity (\ s a -> s{_cdCity = a}); --- | The phone number of the contact. 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"@ . Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | The phone number of the contact. 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"@ . cdPhoneNumber :: Lens' ContactDetail (Maybe Text) cdPhoneNumber = lens _cdPhoneNumber (\ s a -> s{_cdPhoneNumber = a}); --- | Second line of contact's address, if any. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: No+-- | Second line of contact's address, if any. cdAddressLine2 :: Lens' ContactDetail (Maybe Text) cdAddressLine2 = lens _cdAddressLine2 (\ s a -> s{_cdAddressLine2 = a}); --- | First name of contact. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | First name of contact. cdFirstName :: Lens' ContactDetail (Maybe Text) cdFirstName = lens _cdFirstName (\ s a -> s{_cdFirstName = a}); --- | Code for the country of the contact's address. Type: String Default: None Constraints: Maximum 255 characters. Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | Code for the country of the contact's address. cdCountryCode :: Lens' ContactDetail (Maybe CountryCode) cdCountryCode = lens _cdCountryCode (\ s a -> s{_cdCountryCode = a}); --- | Indicates whether the contact is a person, company, association, or public organization. If you choose an option other than @PERSON@ , you must enter an organization name, and you can't enable privacy protection for the contact. Type: String Default: None Constraints: Maximum 255 characters. Valid values: @PERSON@ | @COMPANY@ | @ASSOCIATION@ | @PUBLIC_BODY@  Parents: @RegistrantContact@ , @AdminContact@ , @TechContact@  Required: Yes+-- | Indicates whether the contact is a person, company, association, or public organization. If you choose an option other than @PERSON@ , you must enter an organization name, and you can't enable privacy protection for the contact. cdContactType :: Lens' ContactDetail (Maybe ContactType) cdContactType = lens _cdContactType (\ s a -> s{_cdContactType = a}); @@ -236,9 +244,9 @@                      <*> (x .:? "CountryCode")                      <*> (x .:? "ContactType")) -instance Hashable ContactDetail+instance Hashable ContactDetail where -instance NFData ContactDetail+instance NFData ContactDetail where  instance ToJSON ContactDetail where         toJSON ContactDetail'{..}@@ -258,32 +266,35 @@                   ("CountryCode" .=) <$> _cdCountryCode,                   ("ContactType" .=) <$> _cdContactType]) --- | /See:/ 'domainSuggestion' smart constructor.+-- | Information about one suggested domain name.+--+--+--+-- /See:/ 'domainSuggestion' smart constructor. data DomainSuggestion = DomainSuggestion'-    { _dAvailability :: !(Maybe Text)-    , _dDomainName   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - Undocumented member.+-- * 'dAvailability' - Whether the domain name is available for registering. Valid values:     * AVAILABLE    * The domain name is available.     * AVAILABLE_RESERVED    * The domain name is reserved under specific conditions.     * AVAILABLE_PREORDER    * The domain name is available and can be preordered.     * DONT_KNOW    * The TLD registry didn't reply with a definitive answer about whether the domain name is available. Amazon Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later.     * PENDING    * The TLD registry didn't return a response in the expected amount of time. When the response is delayed, it usually takes just a few extra seconds. You can resubmit the request immediately.     * RESERVED    * The domain name has been reserved for another person or organization.     * UNAVAILABLE    * The domain name is not available.     * UNAVAILABLE_PREMIUM    * The domain name is not available.     * UNAVAILABLE_RESTRICTED    * The domain name is forbidden. ----- * 'dDomainName' - Undocumented member.+-- * 'dDomainName' - A suggested domain name. domainSuggestion     :: DomainSuggestion domainSuggestion =-    DomainSuggestion'-    { _dAvailability = Nothing-    , _dDomainName = Nothing-    }+  DomainSuggestion' {_dAvailability = Nothing, _dDomainName = Nothing} --- | Undocumented member.++-- | Whether the domain name is available for registering. Valid values:     * AVAILABLE    * The domain name is available.     * AVAILABLE_RESERVED    * The domain name is reserved under specific conditions.     * AVAILABLE_PREORDER    * The domain name is available and can be preordered.     * DONT_KNOW    * The TLD registry didn't reply with a definitive answer about whether the domain name is available. Amazon Route 53 can return this response for a variety of reasons, for example, the registry is performing maintenance. Try again later.     * PENDING    * The TLD registry didn't return a response in the expected amount of time. When the response is delayed, it usually takes just a few extra seconds. You can resubmit the request immediately.     * RESERVED    * The domain name has been reserved for another person or organization.     * UNAVAILABLE    * The domain name is not available.     * UNAVAILABLE_PREMIUM    * The domain name is not available.     * UNAVAILABLE_RESTRICTED    * The domain name is forbidden. dAvailability :: Lens' DomainSuggestion (Maybe Text) dAvailability = lens _dAvailability (\ s a -> s{_dAvailability = a}); --- | Undocumented member.+-- | A suggested domain name. dDomainName :: Lens' DomainSuggestion (Maybe Text) dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a}); @@ -294,53 +305,59 @@                  DomainSuggestion' <$>                    (x .:? "Availability") <*> (x .:? "DomainName")) -instance Hashable DomainSuggestion+instance Hashable DomainSuggestion where -instance NFData DomainSuggestion+instance NFData DomainSuggestion where --- | /See:/ 'domainSummary' smart constructor.+-- | Summary information about one domain.+--+--+--+-- /See:/ 'domainSummary' smart constructor. data DomainSummary = DomainSummary'-    { _dsExpiry       :: !(Maybe POSIX)-    , _dsTransferLock :: !(Maybe Bool)-    , _dsAutoRenew    :: !(Maybe Bool)-    , _dsDomainName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsExpiry       :: !(Maybe POSIX)+  , _dsTransferLock :: !(Maybe Bool)+  , _dsAutoRenew    :: !(Maybe Bool)+  , _dsDomainName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DomainSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsExpiry' - Expiration date of the domain in Coordinated Universal Time (UTC). Type: Long+-- * 'dsExpiry' - Expiration date of the domain in Coordinated Universal Time (UTC). ----- * 'dsTransferLock' - Indicates whether a domain is locked from unauthorized transfer to another party. Type: Boolean Valid values: @True@ | @False@+-- * 'dsTransferLock' - Indicates whether a domain is locked from unauthorized transfer to another party. ----- * 'dsAutoRenew' - Indicates whether the domain is automatically renewed upon expiration. Type: Boolean Valid values: @True@ | @False@+-- * 'dsAutoRenew' - Indicates whether the domain is automatically renewed upon expiration. ----- * 'dsDomainName' - The name of a domain. Type: String+-- * 'dsDomainName' - The name of the domain that the summary information applies to. domainSummary     :: Text -- ^ 'dsDomainName'     -> DomainSummary domainSummary pDomainName_ =-    DomainSummary'-    { _dsExpiry = Nothing-    , _dsTransferLock = Nothing-    , _dsAutoRenew = Nothing-    , _dsDomainName = pDomainName_-    }+  DomainSummary'+  { _dsExpiry = Nothing+  , _dsTransferLock = Nothing+  , _dsAutoRenew = Nothing+  , _dsDomainName = pDomainName_+  } --- | Expiration date of the domain in Coordinated Universal Time (UTC). Type: Long++-- | Expiration date of the domain in Coordinated Universal Time (UTC). dsExpiry :: Lens' DomainSummary (Maybe UTCTime) dsExpiry = lens _dsExpiry (\ s a -> s{_dsExpiry = a}) . mapping _Time; --- | Indicates whether a domain is locked from unauthorized transfer to another party. Type: Boolean Valid values: @True@ | @False@+-- | Indicates whether a domain is locked from unauthorized transfer to another party. dsTransferLock :: Lens' DomainSummary (Maybe Bool) dsTransferLock = lens _dsTransferLock (\ s a -> s{_dsTransferLock = a}); --- | Indicates whether the domain is automatically renewed upon expiration. Type: Boolean Valid values: @True@ | @False@+-- | Indicates whether the domain is automatically renewed upon expiration. dsAutoRenew :: Lens' DomainSummary (Maybe Bool) dsAutoRenew = lens _dsAutoRenew (\ s a -> s{_dsAutoRenew = a}); --- | The name of a domain. Type: String+-- | The name of the domain that the summary information applies to. dsDomainName :: Lens' DomainSummary Text dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a}); @@ -353,42 +370,70 @@                      (x .:? "AutoRenew")                      <*> (x .: "DomainName")) -instance Hashable DomainSummary+instance Hashable DomainSummary where -instance NFData DomainSummary+instance NFData DomainSummary where +-- | /See:/ 'domainTransferability' smart constructor.+newtype DomainTransferability = DomainTransferability'+  { _dtTransferable :: Maybe Transferable+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DomainTransferability' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtTransferable' - Undocumented member.+domainTransferability+    :: DomainTransferability+domainTransferability = DomainTransferability' {_dtTransferable = Nothing}+++-- | Undocumented member.+dtTransferable :: Lens' DomainTransferability (Maybe Transferable)+dtTransferable = lens _dtTransferable (\ s a -> s{_dtTransferable = a});++instance FromJSON DomainTransferability where+        parseJSON+          = withObject "DomainTransferability"+              (\ x ->+                 DomainTransferability' <$> (x .:? "Transferable"))++instance Hashable DomainTransferability where++instance NFData DomainTransferability where+ -- | ExtraParam includes the following elements. -- -- -- -- /See:/ 'extraParam' smart constructor. data ExtraParam = ExtraParam'-    { _epName  :: !ExtraParamName-    , _epValue :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _epName  :: !ExtraParamName+  , _epValue :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExtraParam' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'epName' - Name of the additional parameter required by the top-level domain. Type: String Default: None Valid values: @DUNS_NUMBER@ | @BRAND_NUMBER@ | @BIRTH_DEPARTMENT@ | @BIRTH_DATE_IN_YYYY_MM_DD@ | @BIRTH_COUNTRY@ | @BIRTH_CITY@ | @DOCUMENT_NUMBER@ | @AU_ID_NUMBER@ | @AU_ID_TYPE@ | @CA_LEGAL_TYPE@ | @CA_BUSINESS_ENTITY_TYPE@ |@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@  Parent: @ExtraParams@  Required: Yes+-- * 'epName' - Name of the additional parameter required by the top-level domain. ----- * 'epValue' - Values corresponding to the additional parameter names required by some top-level domains. Type: String Default: None Constraints: Maximum 2048 characters. Parent: @ExtraParams@  Required: Yes+-- * 'epValue' - Values corresponding to the additional parameter names required by some top-level domains. extraParam     :: ExtraParamName -- ^ 'epName'     -> Text -- ^ 'epValue'     -> ExtraParam-extraParam pName_ pValue_ =-    ExtraParam'-    { _epName = pName_-    , _epValue = pValue_-    }+extraParam pName_ pValue_ = ExtraParam' {_epName = pName_, _epValue = pValue_} --- | Name of the additional parameter required by the top-level domain. Type: String Default: None Valid values: @DUNS_NUMBER@ | @BRAND_NUMBER@ | @BIRTH_DEPARTMENT@ | @BIRTH_DATE_IN_YYYY_MM_DD@ | @BIRTH_COUNTRY@ | @BIRTH_CITY@ | @DOCUMENT_NUMBER@ | @AU_ID_NUMBER@ | @AU_ID_TYPE@ | @CA_LEGAL_TYPE@ | @CA_BUSINESS_ENTITY_TYPE@ |@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@  Parent: @ExtraParams@  Required: Yes++-- | Name of the additional parameter required by the top-level domain. epName :: Lens' ExtraParam ExtraParamName epName = lens _epName (\ s a -> s{_epName = a}); --- | Values corresponding to the additional parameter names required by some top-level domains. Type: String Default: None Constraints: Maximum 2048 characters. Parent: @ExtraParams@  Required: Yes+-- | Values corresponding to the additional parameter names required by some top-level domains. epValue :: Lens' ExtraParam Text epValue = lens _epValue (\ s a -> s{_epValue = a}); @@ -398,9 +443,9 @@               (\ x ->                  ExtraParam' <$> (x .: "Name") <*> (x .: "Value")) -instance Hashable ExtraParam+instance Hashable ExtraParam where -instance NFData ExtraParam+instance NFData ExtraParam where  instance ToJSON ExtraParam where         toJSON ExtraParam'{..}@@ -415,31 +460,29 @@ -- -- /See:/ 'nameserver' smart constructor. data Nameserver = Nameserver'-    { _nGlueIPs :: !(Maybe [Text])-    , _nName    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _nGlueIPs :: !(Maybe [Text])+  , _nName    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Nameserver' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'nGlueIPs' - Glue IP address of a name server entry. Glue IP addresses are required only when the name of the name server is a subdomain of the domain. For example, if your domain is example.com and the name server for the domain is ns.example.com, you need to specify the IP address for ns.example.com. Type: List of IP addresses. Constraints: The list can contain only one IPv4 and one IPv6 address. Parent: @Nameservers@+-- * 'nGlueIPs' - Glue IP address of a name server entry. Glue IP addresses are required only when the name of the name server is a subdomain of the domain. For example, if your domain is example.com and the name server for the domain is ns.example.com, you need to specify the IP address for ns.example.com. Constraints: The list can contain only one IPv4 and one IPv6 address. ----- * 'nName' - The fully qualified host name of the name server. Type: String Constraint: Maximum 255 characterss Parent: @Nameservers@+-- * 'nName' - The fully qualified host name of the name server. Constraint: Maximum 255 characters nameserver     :: Text -- ^ 'nName'     -> Nameserver-nameserver pName_ =-    Nameserver'-    { _nGlueIPs = Nothing-    , _nName = pName_-    }+nameserver pName_ = Nameserver' {_nGlueIPs = Nothing, _nName = pName_} --- | Glue IP address of a name server entry. Glue IP addresses are required only when the name of the name server is a subdomain of the domain. For example, if your domain is example.com and the name server for the domain is ns.example.com, you need to specify the IP address for ns.example.com. Type: List of IP addresses. Constraints: The list can contain only one IPv4 and one IPv6 address. Parent: @Nameservers@++-- | Glue IP address of a name server entry. Glue IP addresses are required only when the name of the name server is a subdomain of the domain. For example, if your domain is example.com and the name server for the domain is ns.example.com, you need to specify the IP address for ns.example.com. Constraints: The list can contain only one IPv4 and one IPv6 address. nGlueIPs :: Lens' Nameserver [Text] nGlueIPs = lens _nGlueIPs (\ s a -> s{_nGlueIPs = a}) . _Default . _Coerce; --- | The fully qualified host name of the name server. Type: String Constraint: Maximum 255 characterss Parent: @Nameservers@+-- | The fully qualified host name of the name server. Constraint: Maximum 255 characters nName :: Lens' Nameserver Text nName = lens _nName (\ s a -> s{_nName = a}); @@ -450,9 +493,9 @@                  Nameserver' <$>                    (x .:? "GlueIps" .!= mempty) <*> (x .: "Name")) -instance Hashable Nameserver+instance Hashable Nameserver where -instance NFData Nameserver+instance NFData Nameserver where  instance ToJSON Nameserver where         toJSON Nameserver'{..}@@ -467,21 +510,22 @@ -- -- /See:/ 'operationSummary' smart constructor. data OperationSummary = OperationSummary'-    { _osOperationId   :: !Text-    , _osStatus        :: !OperationStatus-    , _osType          :: !OperationType-    , _osSubmittedDate :: !POSIX-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _osOperationId   :: !Text+  , _osStatus        :: !OperationStatus+  , _osType          :: !OperationType+  , _osSubmittedDate :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'osOperationId' - Identifier returned to track the requested action. Type: String+-- * 'osOperationId' - Identifier returned to track the requested action. ----- * 'osStatus' - The current status of the requested operation in the system. Type: String+-- * 'osStatus' - The current status of the requested operation in the system. ----- * 'osType' - Type of the action requested. Type: String Valid values: @REGISTER_DOMAIN@ | @DELETE_DOMAIN@ | @TRANSFER_IN_DOMAIN@ | @UPDATE_DOMAIN_CONTACT@ | @UPDATE_NAMESERVER@ | @CHANGE_PRIVACY_PROTECTION@ | @DOMAIN_LOCK@+-- * 'osType' - Type of the action requested. -- -- * 'osSubmittedDate' - The date when the request was submitted. operationSummary@@ -491,22 +535,23 @@     -> UTCTime -- ^ 'osSubmittedDate'     -> OperationSummary operationSummary pOperationId_ pStatus_ pType_ pSubmittedDate_ =-    OperationSummary'-    { _osOperationId = pOperationId_-    , _osStatus = pStatus_-    , _osType = pType_-    , _osSubmittedDate = _Time # pSubmittedDate_-    }+  OperationSummary'+  { _osOperationId = pOperationId_+  , _osStatus = pStatus_+  , _osType = pType_+  , _osSubmittedDate = _Time # pSubmittedDate_+  } --- | Identifier returned to track the requested action. Type: String++-- | Identifier returned to track the requested action. osOperationId :: Lens' OperationSummary Text osOperationId = lens _osOperationId (\ s a -> s{_osOperationId = a}); --- | The current status of the requested operation in the system. Type: String+-- | The current status of the requested operation in the system. osStatus :: Lens' OperationSummary OperationStatus osStatus = lens _osStatus (\ s a -> s{_osStatus = a}); --- | Type of the action requested. Type: String Valid values: @REGISTER_DOMAIN@ | @DELETE_DOMAIN@ | @TRANSFER_IN_DOMAIN@ | @UPDATE_DOMAIN_CONTACT@ | @UPDATE_NAMESERVER@ | @CHANGE_PRIVACY_PROTECTION@ | @DOMAIN_LOCK@+-- | Type of the action requested. osType :: Lens' OperationSummary OperationType osType = lens _osType (\ s a -> s{_osType = a}); @@ -523,9 +568,9 @@                      (x .: "Type")                      <*> (x .: "SubmittedDate")) -instance Hashable OperationSummary+instance Hashable OperationSummary where -instance NFData OperationSummary+instance NFData OperationSummary where  -- | Each tag includes the following elements. --@@ -533,30 +578,28 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag'-    { _tagValue :: !(Maybe Text)-    , _tagKey   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tagValue' - The value of a tag. Type: String Default: None Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each value can be 0-256 characters long. Required: Yes+-- * 'tagValue' - The value of a tag. Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each value can be 0-256 characters long. ----- * 'tagKey' - The key (name) of a tag. Type: String Default: None Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each key can be 1-128 characters long. Required: Yes+-- * 'tagKey' - The key (name) of a tag. Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each key can be 1-128 characters long. tag     :: Tag-tag =-    Tag'-    { _tagValue = Nothing-    , _tagKey = Nothing-    }+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing} --- | The value of a tag. Type: String Default: None Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each value can be 0-256 characters long. Required: Yes++-- | The value of a tag. Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each value can be 0-256 characters long. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); --- | The key (name) of a tag. Type: String Default: None Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each key can be 1-128 characters long. Required: Yes+-- | The key (name) of a tag. Valid values: A-Z, a-z, 0-9, space, ".:/=+\-@" Constraints: Each key can be 1-128 characters long. tagKey :: Lens' Tag (Maybe Text) tagKey = lens _tagKey (\ s a -> s{_tagKey = a}); @@ -565,9 +608,9 @@           = withObject "Tag"               (\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key")) -instance Hashable Tag+instance Hashable Tag where -instance NFData Tag+instance NFData Tag where  instance ToJSON Tag where         toJSON Tag'{..}

@@ -9,24 +9,25 @@  -- | -- Module      : Network.AWS.Route53Domains.Types.Sum--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Route53Domains.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude  data ContactType-    = Association-    | Company-    | Person-    | PublicBody-    | Reseller-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Association+  | Company+  | Person+  | PublicBody+  | Reseller+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ContactType where     parser = takeLowerText >>= \case         "association" -> pure Association@@ -58,237 +59,238 @@     parseJSON = parseJSONText "ContactType"  data CountryCode-    = 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-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = 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+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CountryCode where     parser = takeLowerText >>= \case         "ad" -> pure AD@@ -768,39 +770,40 @@     parseJSON = parseJSONText "CountryCode"  data DomainAvailability-    = Available-    | AvailablePreorder-    | AvailableReserved-    | DontKnow-    | Reserved-    | Unavailable-    | UnavailablePremium-    | UnavailableRestricted-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = DAAvailable+  | DAAvailablePreorder+  | DAAvailableReserved+  | DADontKnow+  | DAReserved+  | DAUnavailable+  | DAUnavailablePremium+  | DAUnavailableRestricted+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText DomainAvailability where     parser = takeLowerText >>= \case-        "available" -> pure Available-        "available_preorder" -> pure AvailablePreorder-        "available_reserved" -> pure AvailableReserved-        "dont_know" -> pure DontKnow-        "reserved" -> pure Reserved-        "unavailable" -> pure Unavailable-        "unavailable_premium" -> pure UnavailablePremium-        "unavailable_restricted" -> pure UnavailableRestricted+        "available" -> pure DAAvailable+        "available_preorder" -> pure DAAvailablePreorder+        "available_reserved" -> pure DAAvailableReserved+        "dont_know" -> pure DADontKnow+        "reserved" -> pure DAReserved+        "unavailable" -> pure DAUnavailable+        "unavailable_premium" -> pure DAUnavailablePremium+        "unavailable_restricted" -> pure DAUnavailableRestricted         e -> fromTextError $ "Failure parsing DomainAvailability from value: '" <> e            <> "'. Accepted values: available, available_preorder, available_reserved, dont_know, reserved, unavailable, unavailable_premium, unavailable_restricted"  instance ToText DomainAvailability where     toText = \case-        Available -> "AVAILABLE"-        AvailablePreorder -> "AVAILABLE_PREORDER"-        AvailableReserved -> "AVAILABLE_RESERVED"-        DontKnow -> "DONT_KNOW"-        Reserved -> "RESERVED"-        Unavailable -> "UNAVAILABLE"-        UnavailablePremium -> "UNAVAILABLE_PREMIUM"-        UnavailableRestricted -> "UNAVAILABLE_RESTRICTED"+        DAAvailable -> "AVAILABLE"+        DAAvailablePreorder -> "AVAILABLE_PREORDER"+        DAAvailableReserved -> "AVAILABLE_RESERVED"+        DADontKnow -> "DONT_KNOW"+        DAReserved -> "RESERVED"+        DAUnavailable -> "UNAVAILABLE"+        DAUnavailablePremium -> "UNAVAILABLE_PREMIUM"+        DAUnavailableRestricted -> "UNAVAILABLE_RESTRICTED"  instance Hashable     DomainAvailability instance NFData       DomainAvailability@@ -812,29 +815,35 @@     parseJSON = parseJSONText "DomainAvailability"  data ExtraParamName-    = AuIdNumber-    | AuIdType-    | BirthCity-    | BirthCountry-    | BirthDateInYyyyMmDd-    | BirthDepartment-    | BrandNumber-    | CaBusinessEntityType-    | CaLegalType-    | DocumentNumber-    | DunsNumber-    | EsIdentification-    | EsIdentificationType-    | EsLegalForm-    | FiBusinessNumber-    | FiIdNumber-    | ItPin-    | RuPassportData-    | SeIdNumber-    | SgIdNumber-    | VatNumber-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = AuIdNumber+  | AuIdType+  | BirthCity+  | BirthCountry+  | BirthDateInYyyyMmDd+  | BirthDepartment+  | BrandNumber+  | CaBusinessEntityType+  | CaLegalType+  | DocumentNumber+  | DunsNumber+  | EsIdentification+  | EsIdentificationType+  | EsLegalForm+  | FiBusinessNumber+  | FiIdNumber+  | FiNationality+  | FiOrganizationType+  | ItPin+  | ItRegistrantEntityType+  | RuPassportData+  | SeIdNumber+  | SgIdNumber+  | UkCompanyNumber+  | UkContactType+  | VatNumber+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ExtraParamName where     parser = takeLowerText >>= \case         "au_id_number" -> pure AuIdNumber@@ -853,13 +862,18 @@         "es_legal_form" -> pure EsLegalForm         "fi_business_number" -> pure FiBusinessNumber         "fi_id_number" -> pure FiIdNumber+        "fi_nationality" -> pure FiNationality+        "fi_organization_type" -> pure FiOrganizationType         "it_pin" -> pure ItPin+        "it_registrant_entity_type" -> pure ItRegistrantEntityType         "ru_passport_data" -> pure RuPassportData         "se_id_number" -> pure SeIdNumber         "sg_id_number" -> pure SgIdNumber+        "uk_company_number" -> pure UkCompanyNumber+        "uk_contact_type" -> pure UkContactType         "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, fi_nationality, fi_organization_type, it_pin, it_registrant_entity_type, ru_passport_data, se_id_number, sg_id_number, uk_company_number, uk_contact_type, vat_number"  instance ToText ExtraParamName where     toText = \case@@ -879,10 +893,15 @@         EsLegalForm -> "ES_LEGAL_FORM"         FiBusinessNumber -> "FI_BUSINESS_NUMBER"         FiIdNumber -> "FI_ID_NUMBER"+        FiNationality -> "FI_NATIONALITY"+        FiOrganizationType -> "FI_ORGANIZATION_TYPE"         ItPin -> "IT_PIN"+        ItRegistrantEntityType -> "IT_REGISTRANT_ENTITY_TYPE"         RuPassportData -> "RU_PASSPORT_DATA"         SeIdNumber -> "SE_ID_NUMBER"         SgIdNumber -> "SG_ID_NUMBER"+        UkCompanyNumber -> "UK_COMPANY_NUMBER"+        UkContactType -> "UK_CONTACT_TYPE"         VatNumber -> "VAT_NUMBER"  instance Hashable     ExtraParamName@@ -898,13 +917,14 @@     parseJSON = parseJSONText "ExtraParamName"  data OperationStatus-    = Error'-    | Failed-    | InProgress-    | Submitted-    | Successful-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Error'+  | Failed+  | InProgress+  | Submitted+  | Successful+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText OperationStatus where     parser = takeLowerText >>= \case         "error" -> pure Error'@@ -933,34 +953,62 @@     parseJSON = parseJSONText "OperationStatus"  data OperationType-    = ChangePrivacyProtection-    | DeleteDomain-    | DomainLock-    | RegisterDomain-    | TransferInDomain-    | UpdateDomainContact-    | UpdateNameserver-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = AddDNSsec+  | ChangeDomainOwner+  | ChangePrivacyProtection+  | DeleteDomain+  | DisableAutorenew+  | DomainLock+  | EnableAutorenew+  | ExpireDomain+  | PushDomain+  | RegisterDomain+  | RemoveDNSsec+  | RenewDomain+  | TransferInDomain+  | TransferOutDomain+  | UpdateDomainContact+  | UpdateNameserver+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText OperationType where     parser = takeLowerText >>= \case+        "add_dnssec" -> pure AddDNSsec+        "change_domain_owner" -> pure ChangeDomainOwner         "change_privacy_protection" -> pure ChangePrivacyProtection         "delete_domain" -> pure DeleteDomain+        "disable_autorenew" -> pure DisableAutorenew         "domain_lock" -> pure DomainLock+        "enable_autorenew" -> pure EnableAutorenew+        "expire_domain" -> pure ExpireDomain+        "push_domain" -> pure PushDomain         "register_domain" -> pure RegisterDomain+        "remove_dnssec" -> pure RemoveDNSsec+        "renew_domain" -> pure RenewDomain         "transfer_in_domain" -> pure TransferInDomain+        "transfer_out_domain" -> pure TransferOutDomain         "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: add_dnssec, change_domain_owner, change_privacy_protection, delete_domain, disable_autorenew, domain_lock, enable_autorenew, expire_domain, push_domain, register_domain, remove_dnssec, renew_domain, transfer_in_domain, transfer_out_domain, update_domain_contact, update_nameserver"  instance ToText OperationType where     toText = \case+        AddDNSsec -> "ADD_DNSSEC"+        ChangeDomainOwner -> "CHANGE_DOMAIN_OWNER"         ChangePrivacyProtection -> "CHANGE_PRIVACY_PROTECTION"         DeleteDomain -> "DELETE_DOMAIN"+        DisableAutorenew -> "DISABLE_AUTORENEW"         DomainLock -> "DOMAIN_LOCK"+        EnableAutorenew -> "ENABLE_AUTORENEW"+        ExpireDomain -> "EXPIRE_DOMAIN"+        PushDomain -> "PUSH_DOMAIN"         RegisterDomain -> "REGISTER_DOMAIN"+        RemoveDNSsec -> "REMOVE_DNSSEC"+        RenewDomain -> "RENEW_DOMAIN"         TransferInDomain -> "TRANSFER_IN_DOMAIN"+        TransferOutDomain -> "TRANSFER_OUT_DOMAIN"         UpdateDomainContact -> "UPDATE_DOMAIN_CONTACT"         UpdateNameserver -> "UPDATE_NAMESERVER" @@ -974,11 +1022,12 @@     parseJSON = parseJSONText "OperationType"  data ReachabilityStatus-    = Done-    | Expired-    | Pending-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Done+  | Expired+  | Pending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ReachabilityStatus where     parser = takeLowerText >>= \case         "done" -> pure Done@@ -1001,3 +1050,46 @@  instance FromJSON ReachabilityStatus where     parseJSON = parseJSONText "ReachabilityStatus"++-- | Whether the domain name can be transferred to Amazon Route 53.+--+--+-- Valid values:+--+--     * TRANSFERABLE    * The domain name can be transferred to Amazon Route 53.+--+--     * UNTRANSFERRABLE    * The domain name can't be transferred to Amazon Route 53.+--+--     * DONT_KNOW    * Reserved for future use.+--+--+--+data Transferable+  = DontKnow+  | Transferable+  | Untransferable+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText Transferable where+    parser = takeLowerText >>= \case+        "dont_know" -> pure DontKnow+        "transferable" -> pure Transferable+        "untransferable" -> pure Untransferable+        e -> fromTextError $ "Failure parsing Transferable from value: '" <> e+           <> "'. Accepted values: dont_know, transferable, untransferable"++instance ToText Transferable where+    toText = \case+        DontKnow -> "DONT_KNOW"+        Transferable -> "TRANSFERABLE"+        Untransferable -> "UNTRANSFERABLE"++instance Hashable     Transferable+instance NFData       Transferable+instance ToByteString Transferable+instance ToQuery      Transferable+instance ToHeader     Transferable++instance FromJSON Transferable where+    parseJSON = parseJSONText "Transferable"

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.UpdateDomainContact--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@     , udcrsOperationId     ) 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+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 UpdateDomainContact request includes the following elements. --@@ -55,47 +55,49 @@ -- -- /See:/ 'updateDomainContact' smart constructor. data UpdateDomainContact = UpdateDomainContact'-    { _udcRegistrantContact :: !(Maybe (Sensitive ContactDetail))-    , _udcAdminContact      :: !(Maybe (Sensitive ContactDetail))-    , _udcTechContact       :: !(Maybe (Sensitive ContactDetail))-    , _udcDomainName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _udcRegistrantContact :: !(Maybe (Sensitive ContactDetail))+  , _udcAdminContact      :: !(Maybe (Sensitive ContactDetail))+  , _udcTechContact       :: !(Maybe (Sensitive ContactDetail))+  , _udcDomainName        :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateDomainContact' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'udcRegistrantContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'udcRegistrantContact' - Provides detailed contact information. ----- * 'udcAdminContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'udcAdminContact' - Provides detailed contact information. ----- * 'udcTechContact' - Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- * 'udcTechContact' - Provides detailed contact information. ----- * 'udcDomainName' - The name of a domain. Type: String Default: None 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+-- * 'udcDomainName' - The name of the domain that you want to update contact information for. updateDomainContact     :: Text -- ^ 'udcDomainName'     -> UpdateDomainContact updateDomainContact pDomainName_ =-    UpdateDomainContact'-    { _udcRegistrantContact = Nothing-    , _udcAdminContact = Nothing-    , _udcTechContact = Nothing-    , _udcDomainName = pDomainName_-    }+  UpdateDomainContact'+  { _udcRegistrantContact = Nothing+  , _udcAdminContact = Nothing+  , _udcTechContact = Nothing+  , _udcDomainName = pDomainName_+  } --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes++-- | Provides detailed contact information. udcRegistrantContact :: Lens' UpdateDomainContact (Maybe ContactDetail) udcRegistrantContact = lens _udcRegistrantContact (\ s a -> s{_udcRegistrantContact = a}) . mapping _Sensitive; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. udcAdminContact :: Lens' UpdateDomainContact (Maybe ContactDetail) udcAdminContact = lens _udcAdminContact (\ s a -> s{_udcAdminContact = a}) . mapping _Sensitive; --- | Provides detailed contact information. Type: Complex Children: @FirstName@ , @MiddleName@ , @LastName@ , @ContactType@ , @OrganizationName@ , @AddressLine1@ , @AddressLine2@ , @City@ , @State@ , @CountryCode@ , @ZipCode@ , @PhoneNumber@ , @Email@ , @Fax@ , @ExtraParams@  Required: Yes+-- | Provides detailed contact information. udcTechContact :: Lens' UpdateDomainContact (Maybe ContactDetail) udcTechContact = lens _udcTechContact (\ s a -> s{_udcTechContact = a}) . mapping _Sensitive; --- | The name of a domain. Type: String Default: None 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+-- | The name of the domain that you want to update contact information for. udcDomainName :: Lens' UpdateDomainContact Text udcDomainName = lens _udcDomainName (\ s a -> s{_udcDomainName = a}); @@ -109,9 +111,9 @@                  UpdateDomainContactResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable UpdateDomainContact+instance Hashable UpdateDomainContact where -instance NFData UpdateDomainContact+instance NFData UpdateDomainContact where  instance ToHeaders UpdateDomainContact where         toHeaders@@ -144,33 +146,33 @@ -- -- /See:/ 'updateDomainContactResponse' smart constructor. data UpdateDomainContactResponse = UpdateDomainContactResponse'-    { _udcrsResponseStatus :: !Int-    , _udcrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'udcrsResponseStatus' - -- | The response status code. ----- * 'udcrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'udcrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . updateDomainContactResponse     :: Int -- ^ 'udcrsResponseStatus'     -> Text -- ^ 'udcrsOperationId'     -> UpdateDomainContactResponse updateDomainContactResponse pResponseStatus_ pOperationId_ =-    UpdateDomainContactResponse'-    { _udcrsResponseStatus = pResponseStatus_-    , _udcrsOperationId = pOperationId_-    }+  UpdateDomainContactResponse'+  {_udcrsResponseStatus = pResponseStatus_, _udcrsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . udcrsOperationId :: Lens' UpdateDomainContactResponse Text udcrsOperationId = lens _udcrsOperationId (\ s a -> s{_udcrsOperationId = a}); -instance NFData UpdateDomainContactResponse+instance NFData UpdateDomainContactResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53Domains.UpdateDomainContactPrivacy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- This operation updates the specified domain contact's privacy setting. When the privacy option is enabled, personal information such as postal or email address is hidden from the results of a public WHOIS query. The privacy services are provided by the AWS registrar, Gandi. For more information, see the <http://www.gandi.net/domain/whois/?currency=USD&amp;amp;lang=en Gandi privacy features> . -- ----- This operation only affects the privacy of the specified contact type (registrant, administrator, or tech). Successful acceptance returns an operation ID that you can use with GetOperationDetail to track the progress and completion of the action. If the request is not completed successfully, the domain registrant will be notified by email.+-- This operation only affects the privacy of the specified contact type (registrant, administrator, or tech). Successful acceptance returns an operation ID that you can use with 'GetOperationDetail' to track the progress and completion of the action. If the request is not completed successfully, the domain registrant will be notified by email. -- module Network.AWS.Route53Domains.UpdateDomainContactPrivacy     (@@ -42,12 +42,12 @@     , udcprsOperationId     ) 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+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 UpdateDomainContactPrivacy request includes the following elements. --@@ -55,47 +55,49 @@ -- -- /See:/ 'updateDomainContactPrivacy' smart constructor. data UpdateDomainContactPrivacy = UpdateDomainContactPrivacy'-    { _udcpTechPrivacy       :: !(Maybe Bool)-    , _udcpRegistrantPrivacy :: !(Maybe Bool)-    , _udcpAdminPrivacy      :: !(Maybe Bool)-    , _udcpDomainName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _udcpTechPrivacy       :: !(Maybe Bool)+  , _udcpRegistrantPrivacy :: !(Maybe Bool)+  , _udcpAdminPrivacy      :: !(Maybe Bool)+  , _udcpDomainName        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateDomainContactPrivacy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'udcpTechPrivacy' - 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. Type: Boolean Default: None Valid values: @true@ | @false@  Required: No+-- * 'udcpTechPrivacy' - 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. ----- * 'udcpRegistrantPrivacy' - 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. Type: Boolean Default: None Valid values: @true@ | @false@  Required: No+-- * 'udcpRegistrantPrivacy' - 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. ----- * 'udcpAdminPrivacy' - 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. Type: Boolean Default: None Valid values: @true@ | @false@  Required: No+-- * 'udcpAdminPrivacy' - 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. ----- * 'udcpDomainName' - The name of a domain. Type: String Default: None 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+-- * 'udcpDomainName' - The name of the domain that you want to update the privacy setting for. updateDomainContactPrivacy     :: Text -- ^ 'udcpDomainName'     -> UpdateDomainContactPrivacy updateDomainContactPrivacy pDomainName_ =-    UpdateDomainContactPrivacy'-    { _udcpTechPrivacy = Nothing-    , _udcpRegistrantPrivacy = Nothing-    , _udcpAdminPrivacy = Nothing-    , _udcpDomainName = pDomainName_-    }+  UpdateDomainContactPrivacy'+  { _udcpTechPrivacy = Nothing+  , _udcpRegistrantPrivacy = Nothing+  , _udcpAdminPrivacy = Nothing+  , _udcpDomainName = pDomainName_+  } --- | 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. Type: Boolean Default: None Valid values: @true@ | @false@  Required: No++-- | 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. udcpTechPrivacy :: Lens' UpdateDomainContactPrivacy (Maybe Bool) udcpTechPrivacy = lens _udcpTechPrivacy (\ s a -> s{_udcpTechPrivacy = 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. Type: Boolean Default: None Valid values: @true@ | @false@  Required: No+-- | 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. udcpRegistrantPrivacy :: Lens' UpdateDomainContactPrivacy (Maybe Bool) udcpRegistrantPrivacy = lens _udcpRegistrantPrivacy (\ s a -> s{_udcpRegistrantPrivacy = 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. Type: Boolean Default: None Valid values: @true@ | @false@  Required: No+-- | 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. udcpAdminPrivacy :: Lens' UpdateDomainContactPrivacy (Maybe Bool) udcpAdminPrivacy = lens _udcpAdminPrivacy (\ s a -> s{_udcpAdminPrivacy = a}); --- | The name of a domain. Type: String Default: None 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+-- | The name of the domain that you want to update the privacy setting for. udcpDomainName :: Lens' UpdateDomainContactPrivacy Text udcpDomainName = lens _udcpDomainName (\ s a -> s{_udcpDomainName = a}); @@ -109,9 +111,9 @@                  UpdateDomainContactPrivacyResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable UpdateDomainContactPrivacy+instance Hashable UpdateDomainContactPrivacy where -instance NFData UpdateDomainContactPrivacy+instance NFData UpdateDomainContactPrivacy where  instance ToHeaders UpdateDomainContactPrivacy where         toHeaders@@ -144,33 +146,34 @@ -- -- /See:/ 'updateDomainContactPrivacyResponse' smart constructor. data UpdateDomainContactPrivacyResponse = UpdateDomainContactPrivacyResponse'-    { _udcprsResponseStatus :: !Int-    , _udcprsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'udcprsResponseStatus' - -- | The response status code. ----- * 'udcprsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'udcprsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. updateDomainContactPrivacyResponse     :: Int -- ^ 'udcprsResponseStatus'     -> Text -- ^ 'udcprsOperationId'     -> UpdateDomainContactPrivacyResponse updateDomainContactPrivacyResponse pResponseStatus_ pOperationId_ =-    UpdateDomainContactPrivacyResponse'-    { _udcprsResponseStatus = pResponseStatus_-    , _udcprsOperationId = pOperationId_-    }+  UpdateDomainContactPrivacyResponse'+  {_udcprsResponseStatus = pResponseStatus_, _udcprsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. udcprsOperationId :: Lens' UpdateDomainContactPrivacyResponse Text udcprsOperationId = lens _udcprsOperationId (\ s a -> s{_udcprsOperationId = a});  instance NFData UpdateDomainContactPrivacyResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Route53Domains.UpdateDomainNameservers--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,52 +41,56 @@     , udnrsOperationId     ) 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+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 UpdateDomainNameserver request includes the following elements.+-- | Replaces the current set of name servers for the domain with the specified set of name servers. If you use Amazon Route 53 as your DNS service, specify the four name servers in the delegation set for the hosted zone for the domain. -- --+-- If successful, this operation returns an operation ID that you can use to track the progress and completion of the action. If the request is not completed successfully, the domain registrant will be notified by email. --+-- -- /See:/ 'updateDomainNameservers' smart constructor. data UpdateDomainNameservers = UpdateDomainNameservers'-    { _udnFIAuthKey   :: !(Maybe Text)-    , _udnDomainName  :: !Text-    , _udnNameservers :: ![Nameserver]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _udnFIAuthKey   :: !(Maybe Text)+  , _udnDomainName  :: !Text+  , _udnNameservers :: ![Nameserver]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateDomainNameservers' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'udnFIAuthKey' - The authorization key for .fi domains ----- * 'udnDomainName' - The name of a domain. Type: String Default: None 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+-- * 'udnDomainName' - The name of the domain that you want to change name servers for. ----- * 'udnNameservers' - A list of new name servers for the domain. Type: Complex Children: @Name@ , @GlueIps@  Required: Yes+-- * 'udnNameservers' - A list of new name servers for the domain. updateDomainNameservers     :: Text -- ^ 'udnDomainName'     -> UpdateDomainNameservers updateDomainNameservers pDomainName_ =-    UpdateDomainNameservers'-    { _udnFIAuthKey = Nothing-    , _udnDomainName = pDomainName_-    , _udnNameservers = mempty-    }+  UpdateDomainNameservers'+  { _udnFIAuthKey = Nothing+  , _udnDomainName = pDomainName_+  , _udnNameservers = mempty+  } + -- | The authorization key for .fi domains udnFIAuthKey :: Lens' UpdateDomainNameservers (Maybe Text) udnFIAuthKey = lens _udnFIAuthKey (\ s a -> s{_udnFIAuthKey = a}); --- | The name of a domain. Type: String Default: None 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+-- | The name of the domain that you want to change name servers for. udnDomainName :: Lens' UpdateDomainNameservers Text udnDomainName = lens _udnDomainName (\ s a -> s{_udnDomainName = a}); --- | A list of new name servers for the domain. Type: Complex Children: @Name@ , @GlueIps@  Required: Yes+-- | A list of new name servers for the domain. udnNameservers :: Lens' UpdateDomainNameservers [Nameserver] udnNameservers = lens _udnNameservers (\ s a -> s{_udnNameservers = a}) . _Coerce; @@ -100,9 +104,9 @@                  UpdateDomainNameserversResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "OperationId")) -instance Hashable UpdateDomainNameservers+instance Hashable UpdateDomainNameservers where -instance NFData UpdateDomainNameservers+instance NFData UpdateDomainNameservers where  instance ToHeaders UpdateDomainNameservers where         toHeaders@@ -134,33 +138,33 @@ -- -- /See:/ 'updateDomainNameserversResponse' smart constructor. data UpdateDomainNameserversResponse = UpdateDomainNameserversResponse'-    { _udnrsResponseStatus :: !Int-    , _udnrsOperationId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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: -- -- * 'udnrsResponseStatus' - -- | The response status code. ----- * 'udnrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use GetOperationDetail. Type: String Default: None Constraints: Maximum 255 characters.+-- * 'udnrsOperationId' - Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . updateDomainNameserversResponse     :: Int -- ^ 'udnrsResponseStatus'     -> Text -- ^ 'udnrsOperationId'     -> UpdateDomainNameserversResponse updateDomainNameserversResponse pResponseStatus_ pOperationId_ =-    UpdateDomainNameserversResponse'-    { _udnrsResponseStatus = pResponseStatus_-    , _udnrsOperationId = pOperationId_-    }+  UpdateDomainNameserversResponse'+  {_udnrsResponseStatus = pResponseStatus_, _udnrsOperationId = pOperationId_} + -- | -- | The response status code. 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. Type: String Default: None Constraints: Maximum 255 characters.+-- | Identifier for tracking the progress of the request. To use this ID to query the operation status, use 'GetOperationDetail' . udnrsOperationId :: Lens' UpdateDomainNameserversResponse Text udnrsOperationId = lens _udnrsOperationId (\ s a -> s{_udnrsOperationId = a}); -instance NFData UpdateDomainNameserversResponse+instance NFData UpdateDomainNameserversResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.Route53Domains.UpdateTagsForDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- This operation adds or updates tags for a specified domain. -- ----- All tag operations are eventually consistent; subsequent operations may not immediately represent all issued operations.+-- All tag operations are eventually consistent; subsequent operations might not immediately represent all issued operations. -- module Network.AWS.Route53Domains.UpdateTagsForDomain     (@@ -39,12 +39,12 @@     , utfdrsResponseStatus     ) 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+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 UpdateTagsForDomainRequest includes the following elements. --@@ -52,31 +52,31 @@ -- -- /See:/ 'updateTagsForDomain' smart constructor. data UpdateTagsForDomain = UpdateTagsForDomain'-    { _utfdTagsToUpdate :: !(Maybe [Tag])-    , _utfdDomainName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _utfdTagsToUpdate :: !(Maybe [Tag])+  , _utfdDomainName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateTagsForDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'utfdTagsToUpdate' - A list of the tag keys and values that you want to add or update. If you specify a key that already exists, the corresponding value will be replaced. Type: A complex type containing a list of tags Default: None Required: No '> Each tag includes the following elements:     * Key The key (name) of a tag. Type: String Default: None Valid values: Unicode characters including alphanumeric, space, and ".:/=+\-@" Constraints: Each key can be 1-128 characters long. Required: Yes     * Value The value of a tag. Type: String Default: None Valid values: Unicode characters including alphanumeric, space, and ".:/=+\-@" Constraints: Each value can be 0-256 characters long. Required: Yes+-- * 'utfdTagsToUpdate' - A list of the tag keys and values that you want to add or update. If you specify a key that already exists, the corresponding value will be replaced. ----- * 'utfdDomainName' - The domain for which you want to add or update tags. The name of a domain. Type: String Default: None Constraints: The domain name can contain only the letters a through z, the numbers 0 through 9, and hyphen (-). Hyphens are allowed only when they're surrounded by letters, numbers, or other hyphens. You can't specify a hyphen at the beginning or end of a label. To specify an Internationalized Domain Name, you must convert the name to Punycode. Required: Yes+-- * 'utfdDomainName' - The domain for which you want to add or update tags. updateTagsForDomain     :: Text -- ^ 'utfdDomainName'     -> UpdateTagsForDomain updateTagsForDomain pDomainName_ =-    UpdateTagsForDomain'-    { _utfdTagsToUpdate = Nothing-    , _utfdDomainName = pDomainName_-    }+  UpdateTagsForDomain'+  {_utfdTagsToUpdate = Nothing, _utfdDomainName = pDomainName_} --- | A list of the tag keys and values that you want to add or update. If you specify a key that already exists, the corresponding value will be replaced. Type: A complex type containing a list of tags Default: None Required: No '> Each tag includes the following elements:     * Key The key (name) of a tag. Type: String Default: None Valid values: Unicode characters including alphanumeric, space, and ".:/=+\-@" Constraints: Each key can be 1-128 characters long. Required: Yes     * Value The value of a tag. Type: String Default: None Valid values: Unicode characters including alphanumeric, space, and ".:/=+\-@" Constraints: Each value can be 0-256 characters long. Required: Yes++-- | A list of the tag keys and values that you want to add or update. If you specify a key that already exists, the corresponding value will be replaced. utfdTagsToUpdate :: Lens' UpdateTagsForDomain [Tag] utfdTagsToUpdate = lens _utfdTagsToUpdate (\ s a -> s{_utfdTagsToUpdate = a}) . _Default . _Coerce; --- | The domain for which you want to add or update tags. The name of a domain. Type: String Default: None Constraints: The domain name can contain only the letters a through z, the numbers 0 through 9, and hyphen (-). Hyphens are allowed only when they're surrounded by letters, numbers, or other hyphens. You can't specify a hyphen at the beginning or end of a label. To specify an Internationalized Domain Name, you must convert the name to Punycode. Required: Yes+-- | The domain for which you want to add or update tags. utfdDomainName :: Lens' UpdateTagsForDomain Text utfdDomainName = lens _utfdDomainName (\ s a -> s{_utfdDomainName = a}); @@ -89,9 +89,9 @@               (\ s h x ->                  UpdateTagsForDomainResponse' <$> (pure (fromEnum s))) -instance Hashable UpdateTagsForDomain+instance Hashable UpdateTagsForDomain where -instance NFData UpdateTagsForDomain+instance NFData UpdateTagsForDomain where  instance ToHeaders UpdateTagsForDomain where         toHeaders@@ -118,9 +118,10 @@  -- | /See:/ 'updateTagsForDomainResponse' smart constructor. newtype UpdateTagsForDomainResponse = UpdateTagsForDomainResponse'-    { _utfdrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -130,12 +131,11 @@     :: Int -- ^ 'utfdrsResponseStatus'     -> UpdateTagsForDomainResponse updateTagsForDomainResponse pResponseStatus_ =-    UpdateTagsForDomainResponse'-    { _utfdrsResponseStatus = pResponseStatus_-    }+  UpdateTagsForDomainResponse' {_utfdrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. utfdrsResponseStatus :: Lens' UpdateTagsForDomainResponse Int utfdrsResponseStatus = lens _utfdrsResponseStatus (\ s a -> s{_utfdrsResponseStatus = a}); -instance NFData UpdateTagsForDomainResponse+instance NFData UpdateTagsForDomainResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Route53Domains.ViewBilling--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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+-- Returns all the domain-related billing records for the current AWS account for a specified period -- -- module Network.AWS.Route53Domains.ViewBilling@@ -41,12 +41,12 @@     , 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+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. --@@ -54,46 +54,48 @@ -- -- /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)+  { _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' - 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' - 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. ----- * 'vbEnd' - 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' - 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. ----- * 'vbMarker' - 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' - 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.  Constraints: The marker must match the value of @NextPageMarker@ that was returned in the previous response. ----- * 'vbMaxItems' - The number of billing records to be returned. Type: Integer Default: 20 Constraints: A value between 1 and 100. Required: No+-- * 'vbMaxItems' - The number of billing records to be returned. Default: 20 viewBilling     :: ViewBilling viewBilling =-    ViewBilling'-    { _vbStart = Nothing-    , _vbEnd = Nothing-    , _vbMarker = Nothing-    , _vbMaxItems = Nothing-    }+  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++-- | 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. 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+-- | 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. 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+-- | 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.  Constraints: The marker must match the value of @NextPageMarker@ that was returned in the previous response. 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+-- | The number of billing records to be returned. Default: 20 vbMaxItems :: Lens' ViewBilling (Maybe Int) vbMaxItems = lens _vbMaxItems (\ s a -> s{_vbMaxItems = a}); @@ -108,9 +110,9 @@                      (x .?> "BillingRecords" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ViewBilling+instance Hashable ViewBilling where -instance NFData ViewBilling+instance NFData ViewBilling where  instance ToHeaders ViewBilling where         toHeaders@@ -142,35 +144,37 @@ -- -- /See:/ 'viewBillingResponse' smart constructor. data ViewBillingResponse = ViewBillingResponse'-    { _vbrsNextPageMarker :: !(Maybe Text)-    , _vbrsBillingRecords :: !(Maybe [BillingRecord])-    , _vbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - 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' - 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@ . ----- * 'vbrsBillingRecords' - A summary of billing records. Type: Complex type containing a list of billing record summaries. Children: @DomainName@ , @Operation@ , @InvoiceId@ , @BillDate@ and @Price@+-- * 'vbrsBillingRecords' - A summary of billing records. -- -- * 'vbrsResponseStatus' - -- | The response status code. viewBillingResponse     :: Int -- ^ 'vbrsResponseStatus'     -> ViewBillingResponse viewBillingResponse pResponseStatus_ =-    ViewBillingResponse'-    { _vbrsNextPageMarker = Nothing-    , _vbrsBillingRecords = Nothing-    , _vbrsResponseStatus = 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@++-- | 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@ . 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@+-- | A summary of billing records. vbrsBillingRecords :: Lens' ViewBillingResponse [BillingRecord] vbrsBillingRecords = lens _vbrsBillingRecords (\ s a -> s{_vbrsBillingRecords = a}) . _Default . _Coerce; @@ -178,4 +182,4 @@ vbrsResponseStatus :: Lens' ViewBillingResponse Int vbrsResponseStatus = lens _vbrsResponseStatus (\ s a -> s{_vbrsResponseStatus = a}); -instance NFData ViewBillingResponse+instance NFData ViewBillingResponse where

@@ -7,15 +7,15 @@  -- | -- Module      : Network.AWS.Route53Domains.Waiters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Route53Domains.Waiters where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Route53Domains.Types-import           Network.AWS.Waiter+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Route53Domains.Types+import Network.AWS.Waiter

@@ -2,9 +2,9 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --

@@ -5,20 +5,20 @@  -- | -- Module      : Test.AWS.Gen.Route53Domains--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.Route53Domains where  import Data.Proxy+import Network.AWS.Route53Domains import Test.AWS.Fixture import Test.AWS.Prelude-import Test.Tasty-import Network.AWS.Route53Domains import Test.AWS.Route53Domains.Internal+import Test.Tasty  -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.@@ -34,6 +34,9 @@ --         , requestGetDomainDetail $ --             getDomainDetail --+--         , requestCheckDomainTransferability $+--             checkDomainTransferability+-- --         , requestUpdateDomainContactPrivacy $ --             updateDomainContactPrivacy --@@ -106,6 +109,9 @@ --         , responseGetDomainDetail $ --             getDomainDetailResponse --+--         , responseCheckDomainTransferability $+--             checkDomainTransferabilityResponse+-- --         , responseUpdateDomainContactPrivacy $ --             updateDomainContactPrivacyResponse --@@ -184,6 +190,11 @@     "GetDomainDetail"     "fixture/GetDomainDetail.yaml" +requestCheckDomainTransferability :: CheckDomainTransferability -> TestTree+requestCheckDomainTransferability = req+    "CheckDomainTransferability"+    "fixture/CheckDomainTransferability.yaml"+ requestUpdateDomainContactPrivacy :: UpdateDomainContactPrivacy -> TestTree requestUpdateDomainContactPrivacy = req     "UpdateDomainContactPrivacy"@@ -304,6 +315,13 @@     "fixture/GetDomainDetailResponse.proto"     route53Domains     (Proxy :: Proxy GetDomainDetail)++responseCheckDomainTransferability :: CheckDomainTransferabilityResponse -> TestTree+responseCheckDomainTransferability = res+    "CheckDomainTransferabilityResponse"+    "fixture/CheckDomainTransferabilityResponse.proto"+    route53Domains+    (Proxy :: Proxy CheckDomainTransferability)  responseUpdateDomainContactPrivacy :: UpdateDomainContactPrivacyResponse -> TestTree responseUpdateDomainContactPrivacy = res