{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.EC2.Types.AddressTransfer
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.EC2.Types.AddressTransfer where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Internal
import Amazonka.EC2.Types.AddressTransferStatus
import qualified Amazonka.Prelude as Prelude

-- | Details on the Elastic IP address transfer. For more information, see
-- <https://docs.aws.amazon.com/vpc/latest/userguide/vpc-eips.html#transfer-EIPs-intro Transfer Elastic IP addresses>
-- in the /Amazon Virtual Private Cloud User Guide/.
--
-- /See:/ 'newAddressTransfer' smart constructor.
data AddressTransfer = AddressTransfer'
  { -- | The Elastic IP address transfer status.
    AddressTransfer -> Maybe AddressTransferStatus
addressTransferStatus :: Prelude.Maybe AddressTransferStatus,
    -- | The allocation ID of an Elastic IP address.
    AddressTransfer -> Maybe Text
allocationId :: Prelude.Maybe Prelude.Text,
    -- | The Elastic IP address being transferred.
    AddressTransfer -> Maybe Text
publicIp :: Prelude.Maybe Prelude.Text,
    -- | The ID of the account that you want to transfer the Elastic IP address
    -- to.
    AddressTransfer -> Maybe Text
transferAccountId :: Prelude.Maybe Prelude.Text,
    -- | The timestamp when the Elastic IP address transfer was accepted.
    AddressTransfer -> Maybe ISO8601
transferOfferAcceptedTimestamp :: Prelude.Maybe Data.ISO8601,
    -- | The timestamp when the Elastic IP address transfer expired. When the
    -- source account starts the transfer, the transfer account has seven hours
    -- to allocate the Elastic IP address to complete the transfer, or the
    -- Elastic IP address will return to its original owner.
    AddressTransfer -> Maybe ISO8601
transferOfferExpirationTimestamp :: Prelude.Maybe Data.ISO8601
  }
  deriving (AddressTransfer -> AddressTransfer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddressTransfer -> AddressTransfer -> Bool
$c/= :: AddressTransfer -> AddressTransfer -> Bool
== :: AddressTransfer -> AddressTransfer -> Bool
$c== :: AddressTransfer -> AddressTransfer -> Bool
Prelude.Eq, ReadPrec [AddressTransfer]
ReadPrec AddressTransfer
Int -> ReadS AddressTransfer
ReadS [AddressTransfer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddressTransfer]
$creadListPrec :: ReadPrec [AddressTransfer]
readPrec :: ReadPrec AddressTransfer
$creadPrec :: ReadPrec AddressTransfer
readList :: ReadS [AddressTransfer]
$creadList :: ReadS [AddressTransfer]
readsPrec :: Int -> ReadS AddressTransfer
$creadsPrec :: Int -> ReadS AddressTransfer
Prelude.Read, Int -> AddressTransfer -> ShowS
[AddressTransfer] -> ShowS
AddressTransfer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddressTransfer] -> ShowS
$cshowList :: [AddressTransfer] -> ShowS
show :: AddressTransfer -> String
$cshow :: AddressTransfer -> String
showsPrec :: Int -> AddressTransfer -> ShowS
$cshowsPrec :: Int -> AddressTransfer -> ShowS
Prelude.Show, forall x. Rep AddressTransfer x -> AddressTransfer
forall x. AddressTransfer -> Rep AddressTransfer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AddressTransfer x -> AddressTransfer
$cfrom :: forall x. AddressTransfer -> Rep AddressTransfer x
Prelude.Generic)

-- |
-- Create a value of 'AddressTransfer' 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:
--
-- 'addressTransferStatus', 'addressTransfer_addressTransferStatus' - The Elastic IP address transfer status.
--
-- 'allocationId', 'addressTransfer_allocationId' - The allocation ID of an Elastic IP address.
--
-- 'publicIp', 'addressTransfer_publicIp' - The Elastic IP address being transferred.
--
-- 'transferAccountId', 'addressTransfer_transferAccountId' - The ID of the account that you want to transfer the Elastic IP address
-- to.
--
-- 'transferOfferAcceptedTimestamp', 'addressTransfer_transferOfferAcceptedTimestamp' - The timestamp when the Elastic IP address transfer was accepted.
--
-- 'transferOfferExpirationTimestamp', 'addressTransfer_transferOfferExpirationTimestamp' - The timestamp when the Elastic IP address transfer expired. When the
-- source account starts the transfer, the transfer account has seven hours
-- to allocate the Elastic IP address to complete the transfer, or the
-- Elastic IP address will return to its original owner.
newAddressTransfer ::
  AddressTransfer
newAddressTransfer :: AddressTransfer
newAddressTransfer =
  AddressTransfer'
    { $sel:addressTransferStatus:AddressTransfer' :: Maybe AddressTransferStatus
addressTransferStatus =
        forall a. Maybe a
Prelude.Nothing,
      $sel:allocationId:AddressTransfer' :: Maybe Text
allocationId = forall a. Maybe a
Prelude.Nothing,
      $sel:publicIp:AddressTransfer' :: Maybe Text
publicIp = forall a. Maybe a
Prelude.Nothing,
      $sel:transferAccountId:AddressTransfer' :: Maybe Text
transferAccountId = forall a. Maybe a
Prelude.Nothing,
      $sel:transferOfferAcceptedTimestamp:AddressTransfer' :: Maybe ISO8601
transferOfferAcceptedTimestamp = forall a. Maybe a
Prelude.Nothing,
      $sel:transferOfferExpirationTimestamp:AddressTransfer' :: Maybe ISO8601
transferOfferExpirationTimestamp = forall a. Maybe a
Prelude.Nothing
    }

-- | The Elastic IP address transfer status.
addressTransfer_addressTransferStatus :: Lens.Lens' AddressTransfer (Prelude.Maybe AddressTransferStatus)
addressTransfer_addressTransferStatus :: Lens' AddressTransfer (Maybe AddressTransferStatus)
addressTransfer_addressTransferStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddressTransfer' {Maybe AddressTransferStatus
addressTransferStatus :: Maybe AddressTransferStatus
$sel:addressTransferStatus:AddressTransfer' :: AddressTransfer -> Maybe AddressTransferStatus
addressTransferStatus} -> Maybe AddressTransferStatus
addressTransferStatus) (\s :: AddressTransfer
s@AddressTransfer' {} Maybe AddressTransferStatus
a -> AddressTransfer
s {$sel:addressTransferStatus:AddressTransfer' :: Maybe AddressTransferStatus
addressTransferStatus = Maybe AddressTransferStatus
a} :: AddressTransfer)

-- | The allocation ID of an Elastic IP address.
addressTransfer_allocationId :: Lens.Lens' AddressTransfer (Prelude.Maybe Prelude.Text)
addressTransfer_allocationId :: Lens' AddressTransfer (Maybe Text)
addressTransfer_allocationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddressTransfer' {Maybe Text
allocationId :: Maybe Text
$sel:allocationId:AddressTransfer' :: AddressTransfer -> Maybe Text
allocationId} -> Maybe Text
allocationId) (\s :: AddressTransfer
s@AddressTransfer' {} Maybe Text
a -> AddressTransfer
s {$sel:allocationId:AddressTransfer' :: Maybe Text
allocationId = Maybe Text
a} :: AddressTransfer)

-- | The Elastic IP address being transferred.
addressTransfer_publicIp :: Lens.Lens' AddressTransfer (Prelude.Maybe Prelude.Text)
addressTransfer_publicIp :: Lens' AddressTransfer (Maybe Text)
addressTransfer_publicIp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddressTransfer' {Maybe Text
publicIp :: Maybe Text
$sel:publicIp:AddressTransfer' :: AddressTransfer -> Maybe Text
publicIp} -> Maybe Text
publicIp) (\s :: AddressTransfer
s@AddressTransfer' {} Maybe Text
a -> AddressTransfer
s {$sel:publicIp:AddressTransfer' :: Maybe Text
publicIp = Maybe Text
a} :: AddressTransfer)

-- | The ID of the account that you want to transfer the Elastic IP address
-- to.
addressTransfer_transferAccountId :: Lens.Lens' AddressTransfer (Prelude.Maybe Prelude.Text)
addressTransfer_transferAccountId :: Lens' AddressTransfer (Maybe Text)
addressTransfer_transferAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddressTransfer' {Maybe Text
transferAccountId :: Maybe Text
$sel:transferAccountId:AddressTransfer' :: AddressTransfer -> Maybe Text
transferAccountId} -> Maybe Text
transferAccountId) (\s :: AddressTransfer
s@AddressTransfer' {} Maybe Text
a -> AddressTransfer
s {$sel:transferAccountId:AddressTransfer' :: Maybe Text
transferAccountId = Maybe Text
a} :: AddressTransfer)

-- | The timestamp when the Elastic IP address transfer was accepted.
addressTransfer_transferOfferAcceptedTimestamp :: Lens.Lens' AddressTransfer (Prelude.Maybe Prelude.UTCTime)
addressTransfer_transferOfferAcceptedTimestamp :: Lens' AddressTransfer (Maybe UTCTime)
addressTransfer_transferOfferAcceptedTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddressTransfer' {Maybe ISO8601
transferOfferAcceptedTimestamp :: Maybe ISO8601
$sel:transferOfferAcceptedTimestamp:AddressTransfer' :: AddressTransfer -> Maybe ISO8601
transferOfferAcceptedTimestamp} -> Maybe ISO8601
transferOfferAcceptedTimestamp) (\s :: AddressTransfer
s@AddressTransfer' {} Maybe ISO8601
a -> AddressTransfer
s {$sel:transferOfferAcceptedTimestamp:AddressTransfer' :: Maybe ISO8601
transferOfferAcceptedTimestamp = Maybe ISO8601
a} :: AddressTransfer) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The timestamp when the Elastic IP address transfer expired. When the
-- source account starts the transfer, the transfer account has seven hours
-- to allocate the Elastic IP address to complete the transfer, or the
-- Elastic IP address will return to its original owner.
addressTransfer_transferOfferExpirationTimestamp :: Lens.Lens' AddressTransfer (Prelude.Maybe Prelude.UTCTime)
addressTransfer_transferOfferExpirationTimestamp :: Lens' AddressTransfer (Maybe UTCTime)
addressTransfer_transferOfferExpirationTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddressTransfer' {Maybe ISO8601
transferOfferExpirationTimestamp :: Maybe ISO8601
$sel:transferOfferExpirationTimestamp:AddressTransfer' :: AddressTransfer -> Maybe ISO8601
transferOfferExpirationTimestamp} -> Maybe ISO8601
transferOfferExpirationTimestamp) (\s :: AddressTransfer
s@AddressTransfer' {} Maybe ISO8601
a -> AddressTransfer
s {$sel:transferOfferExpirationTimestamp:AddressTransfer' :: Maybe ISO8601
transferOfferExpirationTimestamp = Maybe ISO8601
a} :: AddressTransfer) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

instance Data.FromXML AddressTransfer where
  parseXML :: [Node] -> Either String AddressTransfer
parseXML [Node]
x =
    Maybe AddressTransferStatus
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe ISO8601
-> Maybe ISO8601
-> AddressTransfer
AddressTransfer'
      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"addressTransferStatus")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"allocationId")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"publicIp")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"transferAccountId")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"transferOfferAcceptedTimestamp")
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"transferOfferExpirationTimestamp")

instance Prelude.Hashable AddressTransfer where
  hashWithSalt :: Int -> AddressTransfer -> Int
hashWithSalt Int
_salt AddressTransfer' {Maybe Text
Maybe ISO8601
Maybe AddressTransferStatus
transferOfferExpirationTimestamp :: Maybe ISO8601
transferOfferAcceptedTimestamp :: Maybe ISO8601
transferAccountId :: Maybe Text
publicIp :: Maybe Text
allocationId :: Maybe Text
addressTransferStatus :: Maybe AddressTransferStatus
$sel:transferOfferExpirationTimestamp:AddressTransfer' :: AddressTransfer -> Maybe ISO8601
$sel:transferOfferAcceptedTimestamp:AddressTransfer' :: AddressTransfer -> Maybe ISO8601
$sel:transferAccountId:AddressTransfer' :: AddressTransfer -> Maybe Text
$sel:publicIp:AddressTransfer' :: AddressTransfer -> Maybe Text
$sel:allocationId:AddressTransfer' :: AddressTransfer -> Maybe Text
$sel:addressTransferStatus:AddressTransfer' :: AddressTransfer -> Maybe AddressTransferStatus
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AddressTransferStatus
addressTransferStatus
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
allocationId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
publicIp
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
transferAccountId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
transferOfferAcceptedTimestamp
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
transferOfferExpirationTimestamp

instance Prelude.NFData AddressTransfer where
  rnf :: AddressTransfer -> ()
rnf AddressTransfer' {Maybe Text
Maybe ISO8601
Maybe AddressTransferStatus
transferOfferExpirationTimestamp :: Maybe ISO8601
transferOfferAcceptedTimestamp :: Maybe ISO8601
transferAccountId :: Maybe Text
publicIp :: Maybe Text
allocationId :: Maybe Text
addressTransferStatus :: Maybe AddressTransferStatus
$sel:transferOfferExpirationTimestamp:AddressTransfer' :: AddressTransfer -> Maybe ISO8601
$sel:transferOfferAcceptedTimestamp:AddressTransfer' :: AddressTransfer -> Maybe ISO8601
$sel:transferAccountId:AddressTransfer' :: AddressTransfer -> Maybe Text
$sel:publicIp:AddressTransfer' :: AddressTransfer -> Maybe Text
$sel:allocationId:AddressTransfer' :: AddressTransfer -> Maybe Text
$sel:addressTransferStatus:AddressTransfer' :: AddressTransfer -> Maybe AddressTransferStatus
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe AddressTransferStatus
addressTransferStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
allocationId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
publicIp
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
transferAccountId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
transferOfferAcceptedTimestamp
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
transferOfferExpirationTimestamp