amazonka-route53-domains 0.3.0 → 0.3.1

raw patch · 13 files changed

+598/−59 lines, 13 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-route53-domains.cabal +5/−2
• gen/Network/AWS/Route53Domains.hs +6/−0
• gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs +2/−0
• gen/Network/AWS/Route53Domains/DeleteTagsForDomain.hs +128/−0
• gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs +4/−0
• gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs +3/−3
• gen/Network/AWS/Route53Domains/ListDomains.hs +6/−0
• gen/Network/AWS/Route53Domains/ListOperations.hs +6/−0
• gen/Network/AWS/Route53Domains/ListTagsForDomain.hs +139/−0
• gen/Network/AWS/Route53Domains/TransferDomain.hs +20/−18
• gen/Network/AWS/Route53Domains/Types.hs +108/−36
• gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs +10/−0
• gen/Network/AWS/Route53Domains/UpdateTagsForDomain.hs +161/−0

@@ -1,5 +1,5 @@ name:                  amazonka-route53-domains-version:               0.3.0+version:               0.3.1 synopsis:              Amazon Route 53 Domains SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -34,6 +34,7 @@     exposed-modules:           Network.AWS.Route53Domains         , Network.AWS.Route53Domains.CheckDomainAvailability+        , Network.AWS.Route53Domains.DeleteTagsForDomain         , Network.AWS.Route53Domains.DisableDomainAutoRenew         , Network.AWS.Route53Domains.DisableDomainTransferLock         , Network.AWS.Route53Domains.EnableDomainAutoRenew@@ -42,6 +43,7 @@         , Network.AWS.Route53Domains.GetOperationDetail         , Network.AWS.Route53Domains.ListDomains         , Network.AWS.Route53Domains.ListOperations+        , Network.AWS.Route53Domains.ListTagsForDomain         , Network.AWS.Route53Domains.RegisterDomain         , Network.AWS.Route53Domains.RetrieveDomainAuthCode         , Network.AWS.Route53Domains.TransferDomain@@ -49,9 +51,10 @@         , Network.AWS.Route53Domains.UpdateDomainContact         , Network.AWS.Route53Domains.UpdateDomainContactPrivacy         , Network.AWS.Route53Domains.UpdateDomainNameservers+        , Network.AWS.Route53Domains.UpdateTagsForDomain      other-modules:      build-depends:-          amazonka-core == 0.3.0.*+          amazonka-core == 0.3.1.*         , base          >= 4.7     && < 5

@@ -13,6 +13,7 @@ -- | Pending module Network.AWS.Route53Domains     ( module Network.AWS.Route53Domains.CheckDomainAvailability+    , module Network.AWS.Route53Domains.DeleteTagsForDomain     , module Network.AWS.Route53Domains.DisableDomainAutoRenew     , module Network.AWS.Route53Domains.DisableDomainTransferLock     , module Network.AWS.Route53Domains.EnableDomainAutoRenew@@ -21,6 +22,7 @@     , module Network.AWS.Route53Domains.GetOperationDetail     , module Network.AWS.Route53Domains.ListDomains     , module Network.AWS.Route53Domains.ListOperations+    , module Network.AWS.Route53Domains.ListTagsForDomain     , module Network.AWS.Route53Domains.RegisterDomain     , module Network.AWS.Route53Domains.RetrieveDomainAuthCode     , module Network.AWS.Route53Domains.TransferDomain@@ -28,9 +30,11 @@     , module Network.AWS.Route53Domains.UpdateDomainContact     , module Network.AWS.Route53Domains.UpdateDomainContactPrivacy     , module Network.AWS.Route53Domains.UpdateDomainNameservers+    , module Network.AWS.Route53Domains.UpdateTagsForDomain     ) 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@@ -39,6 +43,7 @@ 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.RetrieveDomainAuthCode import Network.AWS.Route53Domains.TransferDomain@@ -46,3 +51,4 @@ import Network.AWS.Route53Domains.UpdateDomainContact import Network.AWS.Route53Domains.UpdateDomainContactPrivacy import Network.AWS.Route53Domains.UpdateDomainNameservers+import Network.AWS.Route53Domains.UpdateTagsForDomain

@@ -107,6 +107,8 @@  -- | Whether the domain name is available for registering. --+-- You can only register domains designated as 'AVAILABLE'.+-- -- Type: String -- -- Valid values:

@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.Route53Domains.DeleteTagsForDomain+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | This operation deletes the specified tags for a domain.+--+-- All tag operations are eventually consistent; subsequent operations may not+-- immediately represent all issued operations.+--+-- <http://docs.aws.amazon.com/Route53/latest/APIReference/api-DeleteTagsForDomain.html>+module Network.AWS.Route53Domains.DeleteTagsForDomain+    (+    -- * Request+      DeleteTagsForDomain+    -- ** Request constructor+    , deleteTagsForDomain+    -- ** Request lenses+    , dtfdDomainName+    , dtfdTagsToDelete++    -- * Response+    , DeleteTagsForDomainResponse+    -- ** Response constructor+    , deleteTagsForDomainResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.Route53Domains.Types+import qualified GHC.Exts++data DeleteTagsForDomain = DeleteTagsForDomain+    { _dtfdDomainName   :: Text+    , _dtfdTagsToDelete :: List "TagsToDelete" Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DeleteTagsForDomain' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dtfdDomainName' @::@ 'Text'+--+-- * 'dtfdTagsToDelete' @::@ ['Text']+--+deleteTagsForDomain :: Text -- ^ 'dtfdDomainName'+                    -> DeleteTagsForDomain+deleteTagsForDomain p1 = DeleteTagsForDomain+    { _dtfdDomainName   = p1+    , _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 theyaposre+-- surrounded by letters, numbers, or other hyphens. You canapost 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 :: 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+--+-- '>+dtfdTagsToDelete :: Lens' DeleteTagsForDomain [Text]+dtfdTagsToDelete = lens _dtfdTagsToDelete (\s a -> s { _dtfdTagsToDelete = a }) . _List++data DeleteTagsForDomainResponse = DeleteTagsForDomainResponse+    deriving (Eq, Ord, Read, Show, Generic)++-- | 'DeleteTagsForDomainResponse' constructor.+deleteTagsForDomainResponse :: DeleteTagsForDomainResponse+deleteTagsForDomainResponse = DeleteTagsForDomainResponse++instance ToPath DeleteTagsForDomain where+    toPath = const "/"++instance ToQuery DeleteTagsForDomain where+    toQuery = const mempty++instance ToHeaders DeleteTagsForDomain++instance ToJSON DeleteTagsForDomain where+    toJSON DeleteTagsForDomain{..} = object+        [ "DomainName"   .= _dtfdDomainName+        , "TagsToDelete" .= _dtfdTagsToDelete+        ]++instance AWSRequest DeleteTagsForDomain where+    type Sv DeleteTagsForDomain = Route53Domains+    type Rs DeleteTagsForDomain = DeleteTagsForDomainResponse++    request  = post "DeleteTagsForDomain"+    response = nullResponse DeleteTagsForDomainResponse

@@ -25,6 +25,10 @@ -- | This operation disables automatic renewal of domain registration for the -- specified domain. --+-- Caution! Amazon Route 53 doesn't have a manual renewal process, so if you+-- disable automatic renewal, registration for the domain will not be renewed+-- when the expiration date passes, and you will lose control of the domain name.+-- -- <http://docs.aws.amazon.com/Route53/latest/APIReference/api-DisableDomainAutoRenew.html> module Network.AWS.Route53Domains.DisableDomainAutoRenew     (

@@ -27,9 +27,9 @@ -- your domain registration is billed to your AWS account. -- -- The period during which you can renew a domain name varies by TLD. For a--- list of TLDs and their renewal policies, see "Renewal, restoration, and--- deletion times"--- (http://wiki.gandi.net/en/domains/renew#renewal_restoration_and_deletion_times) on the website for our registrar partner, Gandi. Route 53 requires that you renew before the end of the renewal period that is listed on the Gandi website so we can complete processing before the deadline.+-- list of TLDs and their renewal policies, see <http://wiki.gandi.net/en/domains/renew#renewal_restoration_and_deletion_times "Renewal, restoration, anddeletion times"> on the website for our registrar partner, Gandi. Route 53+-- requires that you renew before the end of the renewal period that is listed+-- on the Gandi website so we can complete processing before the deadline. -- -- <http://docs.aws.amazon.com/Route53/latest/APIReference/api-EnableDomainAutoRenew.html> module Network.AWS.Route53Domains.EnableDomainAutoRenew

@@ -162,3 +162,9 @@     parseJSON = withObject "ListDomainsResponse" $ \o -> ListDomainsResponse         <$> o .:? "Domains" .!= mempty         <*> o .:? "NextPageMarker"++instance AWSPager ListDomains where+    page rq rs+        | stop (rs ^. ldrNextPageMarker) = Nothing+        | otherwise = (\x -> rq & ldMarker ?~ x)+            <$> (rs ^. ldrNextPageMarker)

@@ -159,3 +159,9 @@     parseJSON = withObject "ListOperationsResponse" $ \o -> ListOperationsResponse         <$> o .:? "NextPageMarker"         <*> o .:? "Operations" .!= mempty++instance AWSPager ListOperations where+    page rq rs+        | stop (rs ^. lorNextPageMarker) = Nothing+        | otherwise = (\x -> rq & loMarker ?~ x)+            <$> (rs ^. lorNextPageMarker)

@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.Route53Domains.ListTagsForDomain+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | 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.+--+-- <http://docs.aws.amazon.com/Route53/latest/APIReference/api-ListTagsForDomain.html>+module Network.AWS.Route53Domains.ListTagsForDomain+    (+    -- * Request+      ListTagsForDomain+    -- ** Request constructor+    , listTagsForDomain+    -- ** Request lenses+    , ltfdDomainName++    -- * Response+    , ListTagsForDomainResponse+    -- ** Response constructor+    , listTagsForDomainResponse+    -- ** Response lenses+    , ltfdrTagList+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.Route53Domains.Types+import qualified GHC.Exts++newtype ListTagsForDomain = ListTagsForDomain+    { _ltfdDomainName :: Text+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)++-- | 'ListTagsForDomain' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ltfdDomainName' @::@ 'Text'+--+listTagsForDomain :: Text -- ^ 'ltfdDomainName'+                  -> ListTagsForDomain+listTagsForDomain p1 = ListTagsForDomain+    { _ltfdDomainName = p1+    }++-- | The domain for which you want to get a list of tags.+ltfdDomainName :: Lens' ListTagsForDomain Text+ltfdDomainName = lens _ltfdDomainName (\s a -> s { _ltfdDomainName = a })++newtype ListTagsForDomainResponse = ListTagsForDomainResponse+    { _ltfdrTagList :: List "TagList" Tag+    } deriving (Eq, Read, Show, Monoid, Semigroup)++instance GHC.Exts.IsList ListTagsForDomainResponse where+    type Item ListTagsForDomainResponse = Tag++    fromList = ListTagsForDomainResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _ltfdrTagList++-- | 'ListTagsForDomainResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ltfdrTagList' @::@ ['Tag']+--+listTagsForDomainResponse :: ListTagsForDomainResponse+listTagsForDomainResponse = ListTagsForDomainResponse+    { _ltfdrTagList = mempty+    }++-- | 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+--+--+ltfdrTagList :: Lens' ListTagsForDomainResponse [Tag]+ltfdrTagList = lens _ltfdrTagList (\s a -> s { _ltfdrTagList = a }) . _List++instance ToPath ListTagsForDomain where+    toPath = const "/"++instance ToQuery ListTagsForDomain where+    toQuery = const mempty++instance ToHeaders ListTagsForDomain++instance ToJSON ListTagsForDomain where+    toJSON ListTagsForDomain{..} = object+        [ "DomainName" .= _ltfdDomainName+        ]++instance AWSRequest ListTagsForDomain where+    type Sv ListTagsForDomain = Route53Domains+    type Rs ListTagsForDomain = ListTagsForDomainResponse++    request  = post "ListTagsForDomain"+    response = jsonResponse++instance FromJSON ListTagsForDomainResponse where+    parseJSON = withObject "ListTagsForDomainResponse" $ \o -> ListTagsForDomainResponse+        <$> o .:? "TagList" .!= mempty

@@ -23,27 +23,27 @@ -- Derived from AWS service descriptions, licensed under Apache 2.0.  -- | This operation transfers a domain from another registrar to Amazon Route 53.--- Domains are registered by the AWS registrar, Gandi upon transfer.------ To transfer a domain, you need to meet all the domain transfer criteria,--- including the following:------ You must supply nameservers to transfer a domain. You must disable the--- domain transfer lock (if any) before transferring the domain. A minimum of 60--- days must have elapsed since the domain's registration or last transfer.  We--- recommend you use the Amazon Route 53 as the DNS service for your domain. You--- can create a hosted zone in Amazon Route 53 for your current domain before--- transferring your domain.+-- When the transfer is complete, the domain is registered with the AWS+-- registrar partner, Gandi. ----- Note that upon transfer, the domain duration is extended for a year if not--- otherwise specified. Autorenew is enabled by default.+-- 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 aDomain to Amazon Route 53> in the Amazon Route 53 Developer Guide. ----- 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 request is--- not completed successfully, the domain registrant will be notified by email.+-- 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. ----- Transferring domains 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>.+-- Caution! 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. -- -- <http://docs.aws.amazon.com/Route53/latest/APIReference/api-TransferDomain.html> module Network.AWS.Route53Domains.TransferDomain@@ -213,6 +213,8 @@ -- Type: Complex -- -- Children: 'GlueIps', 'Name'+--+-- Required: No tdNameservers :: Lens' TransferDomain [Nameserver] tdNameservers = lens _tdNameservers (\s a -> s { _tdNameservers = a }) . _List 

@@ -38,6 +38,12 @@     , dsExpiry     , dsTransferLock +    -- * Tag+    , Tag+    , tag+    , tagKey+    , tagValue+     -- * ExtraParamName     , ExtraParamName (..) @@ -212,24 +218,85 @@         , "Expiry"       .= _dsExpiry         ] +data Tag = Tag+    { _tagKey   :: Maybe Text+    , _tagValue :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'Tag' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tagKey' @::@ 'Maybe' 'Text'+--+-- * 'tagValue' @::@ 'Maybe' 'Text'+--+tag :: Tag+tag = Tag+    { _tagKey   = Nothing+    , _tagValue = Nothing+    }++-- | 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 :: Lens' Tag (Maybe Text)+tagKey = lens _tagKey (\s a -> s { _tagKey = a })++-- | 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 :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\s a -> s { _tagValue = a })++instance FromJSON Tag where+    parseJSON = withObject "Tag" $ \o -> Tag+        <$> o .:? "Key"+        <*> o .:? "Value"++instance ToJSON Tag where+    toJSON Tag{..} = object+        [ "Key"   .= _tagKey+        , "Value" .= _tagValue+        ]+ data ExtraParamName-    = AuIdNumber          -- ^ AU_ID_NUMBER-    | AuIdType            -- ^ AU_ID_TYPE-    | BirthCity           -- ^ BIRTH_CITY-    | BirthCountry        -- ^ BIRTH_COUNTRY-    | BirthDateInYyyyMmDd -- ^ BIRTH_DATE_IN_YYYY_MM_DD-    | BirthDepartment     -- ^ BIRTH_DEPARTMENT-    | BrandNumber         -- ^ BRAND_NUMBER-    | CaLegalType         -- ^ CA_LEGAL_TYPE-    | DocumentNumber      -- ^ DOCUMENT_NUMBER-    | DunsNumber          -- ^ DUNS_NUMBER-    | FiBusinessNumber    -- ^ FI_BUSINESS_NUMBER-    | FiIdNumber          -- ^ FI_ID_NUMBER-    | ItPin               -- ^ IT_PIN-    | RuPassportData      -- ^ RU_PASSPORT_DATA-    | SeIdNumber          -- ^ SE_ID_NUMBER-    | SgIdNumber          -- ^ SG_ID_NUMBER-    | VatNumber           -- ^ VAT_NUMBER+    = AuIdNumber           -- ^ AU_ID_NUMBER+    | AuIdType             -- ^ AU_ID_TYPE+    | BirthCity            -- ^ BIRTH_CITY+    | BirthCountry         -- ^ BIRTH_COUNTRY+    | BirthDateInYyyyMmDd  -- ^ BIRTH_DATE_IN_YYYY_MM_DD+    | BirthDepartment      -- ^ BIRTH_DEPARTMENT+    | BrandNumber          -- ^ BRAND_NUMBER+    | CaLegalType          -- ^ CA_LEGAL_TYPE+    | DocumentNumber       -- ^ DOCUMENT_NUMBER+    | DunsNumber           -- ^ DUNS_NUMBER+    | EsIdentification     -- ^ ES_IDENTIFICATION+    | EsIdentificationType -- ^ ES_IDENTIFICATION_TYPE+    | EsLegalForm          -- ^ ES_LEGAL_FORM+    | FiBusinessNumber     -- ^ FI_BUSINESS_NUMBER+    | FiIdNumber           -- ^ FI_ID_NUMBER+    | ItPin                -- ^ IT_PIN+    | RuPassportData       -- ^ RU_PASSPORT_DATA+    | SeIdNumber           -- ^ SE_ID_NUMBER+    | SgIdNumber           -- ^ SG_ID_NUMBER+    | VatNumber            -- ^ VAT_NUMBER       deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable ExtraParamName@@ -246,6 +313,9 @@         "ca_legal_type"            -> pure CaLegalType         "document_number"          -> pure DocumentNumber         "duns_number"              -> pure DunsNumber+        "es_identification"        -> pure EsIdentification+        "es_identification_type"   -> pure EsIdentificationType+        "es_legal_form"            -> pure EsLegalForm         "fi_business_number"       -> pure FiBusinessNumber         "fi_id_number"             -> pure FiIdNumber         "it_pin"                   -> pure ItPin@@ -258,23 +328,26 @@  instance ToText ExtraParamName where     toText = \case-        AuIdNumber          -> "AU_ID_NUMBER"-        AuIdType            -> "AU_ID_TYPE"-        BirthCity           -> "BIRTH_CITY"-        BirthCountry        -> "BIRTH_COUNTRY"-        BirthDateInYyyyMmDd -> "BIRTH_DATE_IN_YYYY_MM_DD"-        BirthDepartment     -> "BIRTH_DEPARTMENT"-        BrandNumber         -> "BRAND_NUMBER"-        CaLegalType         -> "CA_LEGAL_TYPE"-        DocumentNumber      -> "DOCUMENT_NUMBER"-        DunsNumber          -> "DUNS_NUMBER"-        FiBusinessNumber    -> "FI_BUSINESS_NUMBER"-        FiIdNumber          -> "FI_ID_NUMBER"-        ItPin               -> "IT_PIN"-        RuPassportData      -> "RU_PASSPORT_DATA"-        SeIdNumber          -> "SE_ID_NUMBER"-        SgIdNumber          -> "SG_ID_NUMBER"-        VatNumber           -> "VAT_NUMBER"+        AuIdNumber           -> "AU_ID_NUMBER"+        AuIdType             -> "AU_ID_TYPE"+        BirthCity            -> "BIRTH_CITY"+        BirthCountry         -> "BIRTH_COUNTRY"+        BirthDateInYyyyMmDd  -> "BIRTH_DATE_IN_YYYY_MM_DD"+        BirthDepartment      -> "BIRTH_DEPARTMENT"+        BrandNumber          -> "BRAND_NUMBER"+        CaLegalType          -> "CA_LEGAL_TYPE"+        DocumentNumber       -> "DOCUMENT_NUMBER"+        DunsNumber           -> "DUNS_NUMBER"+        EsIdentification     -> "ES_IDENTIFICATION"+        EsIdentificationType -> "ES_IDENTIFICATION_TYPE"+        EsLegalForm          -> "ES_LEGAL_FORM"+        FiBusinessNumber     -> "FI_BUSINESS_NUMBER"+        FiIdNumber           -> "FI_ID_NUMBER"+        ItPin                -> "IT_PIN"+        RuPassportData       -> "RU_PASSPORT_DATA"+        SeIdNumber           -> "SE_ID_NUMBER"+        SgIdNumber           -> "SG_ID_NUMBER"+        VatNumber            -> "VAT_NUMBER"  instance ToByteString ExtraParamName instance ToHeader     ExtraParamName@@ -1203,8 +1276,7 @@ -- -- 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' | 'FI_BUSINESS_NUMBER' | 'FI_ID_NUMBER' | 'IT_PIN' | 'RU_PASSPORT_DATA'--- | 'SE_ID_NUMBER' | 'SG_ID_NUMBER' | 'VAT_NUMBER'+-- 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' | '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' --

@@ -40,6 +40,7 @@     , updateDomainNameservers     -- ** Request lenses     , udnDomainName+    , udnFIAuthKey     , udnNameservers      -- * Response@@ -57,6 +58,7 @@  data UpdateDomainNameservers = UpdateDomainNameservers     { _udnDomainName  :: Text+    , _udnFIAuthKey   :: Maybe Text     , _udnNameservers :: List "Nameservers" Nameserver     } deriving (Eq, Read, Show) @@ -66,12 +68,15 @@ -- -- * 'udnDomainName' @::@ 'Text' --+-- * 'udnFIAuthKey' @::@ 'Maybe' 'Text'+-- -- * 'udnNameservers' @::@ ['Nameserver'] -- updateDomainNameservers :: Text -- ^ 'udnDomainName'                         -> UpdateDomainNameservers updateDomainNameservers p1 = UpdateDomainNameservers     { _udnDomainName  = p1+    , _udnFIAuthKey   = Nothing     , _udnNameservers = mempty     } @@ -89,6 +94,10 @@ udnDomainName :: Lens' UpdateDomainNameservers Text udnDomainName = lens _udnDomainName (\s a -> s { _udnDomainName = a }) +-- | The authorization key for .fi domains+udnFIAuthKey :: Lens' UpdateDomainNameservers (Maybe Text)+udnFIAuthKey = lens _udnFIAuthKey (\s a -> s { _udnFIAuthKey = a })+ -- | A list of new name servers for the domain. -- -- Type: Complex@@ -137,6 +146,7 @@ instance ToJSON UpdateDomainNameservers where     toJSON UpdateDomainNameservers{..} = object         [ "DomainName"  .= _udnDomainName+        , "FIAuthKey"   .= _udnFIAuthKey         , "Nameservers" .= _udnNameservers         ] 

@@ -0,0 +1,161 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.Route53Domains.UpdateTagsForDomain+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | 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.+--+-- <http://docs.aws.amazon.com/Route53/latest/APIReference/api-UpdateTagsForDomain.html>+module Network.AWS.Route53Domains.UpdateTagsForDomain+    (+    -- * Request+      UpdateTagsForDomain+    -- ** Request constructor+    , updateTagsForDomain+    -- ** Request lenses+    , utfdDomainName+    , utfdTagsToUpdate++    -- * Response+    , UpdateTagsForDomainResponse+    -- ** Response constructor+    , updateTagsForDomainResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.Route53Domains.Types+import qualified GHC.Exts++data UpdateTagsForDomain = UpdateTagsForDomain+    { _utfdDomainName   :: Text+    , _utfdTagsToUpdate :: List "TagsToUpdate" Tag+    } deriving (Eq, Read, Show)++-- | 'UpdateTagsForDomain' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'utfdDomainName' @::@ 'Text'+--+-- * 'utfdTagsToUpdate' @::@ ['Tag']+--+updateTagsForDomain :: Text -- ^ 'utfdDomainName'+                    -> UpdateTagsForDomain+updateTagsForDomain p1 = UpdateTagsForDomain+    { _utfdDomainName   = p1+    , _utfdTagsToUpdate = mempty+    }++-- | 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 theyaposre+-- surrounded by letters, numbers, or other hyphens. You canapost 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 :: Lens' UpdateTagsForDomain Text+utfdDomainName = lens _utfdDomainName (\s a -> s { _utfdDomainName = a })++-- | 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 :: Lens' UpdateTagsForDomain [Tag]+utfdTagsToUpdate = lens _utfdTagsToUpdate (\s a -> s { _utfdTagsToUpdate = a }) . _List++data UpdateTagsForDomainResponse = UpdateTagsForDomainResponse+    deriving (Eq, Ord, Read, Show, Generic)++-- | 'UpdateTagsForDomainResponse' constructor.+updateTagsForDomainResponse :: UpdateTagsForDomainResponse+updateTagsForDomainResponse = UpdateTagsForDomainResponse++instance ToPath UpdateTagsForDomain where+    toPath = const "/"++instance ToQuery UpdateTagsForDomain where+    toQuery = const mempty++instance ToHeaders UpdateTagsForDomain++instance ToJSON UpdateTagsForDomain where+    toJSON UpdateTagsForDomain{..} = object+        [ "DomainName"   .= _utfdDomainName+        , "TagsToUpdate" .= _utfdTagsToUpdate+        ]++instance AWSRequest UpdateTagsForDomain where+    type Sv UpdateTagsForDomain = Route53Domains+    type Rs UpdateTagsForDomain = UpdateTagsForDomainResponse++    request  = post "UpdateTagsForDomain"+    response = nullResponse UpdateTagsForDomainResponse