{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
-- Derived from AWS service descriptions, licensed under Apache 2.0.
-- |
-- Module : Amazonka.Route53Domains.PushDomain
-- Copyright : (c) 2013-2023 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Moves a domain from Amazon Web Services to another registrar.
--
-- Supported actions:
--
-- - Changes the IPS tags of a .uk domain, and pushes it to transit.
-- Transit means that the domain is ready to be transferred to another
-- registrar.
module Amazonka.Route53Domains.PushDomain
( -- * Creating a Request
PushDomain (..),
newPushDomain,
-- * Request Lenses
pushDomain_domainName,
pushDomain_target,
-- * Destructuring the Response
PushDomainResponse (..),
newPushDomainResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Route53Domains.Types
-- | /See:/ 'newPushDomain' smart constructor.
data PushDomain = PushDomain'
{ -- | Name of the domain.
domainName :: Prelude.Text,
-- | New IPS tag for the domain.
target :: Prelude.Text
}
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
-- |
-- Create a value of 'PushDomain' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'domainName', 'pushDomain_domainName' - Name of the domain.
--
-- 'target', 'pushDomain_target' - New IPS tag for the domain.
newPushDomain ::
-- | 'domainName'
Prelude.Text ->
-- | 'target'
Prelude.Text ->
PushDomain
newPushDomain pDomainName_ pTarget_ =
PushDomain'
{ domainName = pDomainName_,
target = pTarget_
}
-- | Name of the domain.
pushDomain_domainName :: Lens.Lens' PushDomain Prelude.Text
pushDomain_domainName = Lens.lens (\PushDomain' {domainName} -> domainName) (\s@PushDomain' {} a -> s {domainName = a} :: PushDomain)
-- | New IPS tag for the domain.
pushDomain_target :: Lens.Lens' PushDomain Prelude.Text
pushDomain_target = Lens.lens (\PushDomain' {target} -> target) (\s@PushDomain' {} a -> s {target = a} :: PushDomain)
instance Core.AWSRequest PushDomain where
type AWSResponse PushDomain = PushDomainResponse
request overrides =
Request.postJSON (overrides defaultService)
response = Response.receiveNull PushDomainResponse'
instance Prelude.Hashable PushDomain where
hashWithSalt _salt PushDomain' {..} =
_salt
`Prelude.hashWithSalt` domainName
`Prelude.hashWithSalt` target
instance Prelude.NFData PushDomain where
rnf PushDomain' {..} =
Prelude.rnf domainName
`Prelude.seq` Prelude.rnf target
instance Data.ToHeaders PushDomain where
toHeaders =
Prelude.const
( Prelude.mconcat
[ "X-Amz-Target"
Data.=# ( "Route53Domains_v20140515.PushDomain" ::
Prelude.ByteString
),
"Content-Type"
Data.=# ( "application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON PushDomain where
toJSON PushDomain' {..} =
Data.object
( Prelude.catMaybes
[ Prelude.Just ("DomainName" Data..= domainName),
Prelude.Just ("Target" Data..= target)
]
)
instance Data.ToPath PushDomain where
toPath = Prelude.const "/"
instance Data.ToQuery PushDomain where
toQuery = Prelude.const Prelude.mempty
-- | /See:/ 'newPushDomainResponse' smart constructor.
data PushDomainResponse = PushDomainResponse'
{
}
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
-- |
-- Create a value of 'PushDomainResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newPushDomainResponse ::
PushDomainResponse
newPushDomainResponse = PushDomainResponse'
instance Prelude.NFData PushDomainResponse where
rnf _ = ()