{-# 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 #-}
module Amazonka.EC2.AllocateAddress
(
AllocateAddress (..),
newAllocateAddress,
allocateAddress_address,
allocateAddress_customerOwnedIpv4Pool,
allocateAddress_domain,
allocateAddress_dryRun,
allocateAddress_networkBorderGroup,
allocateAddress_publicIpv4Pool,
allocateAddress_tagSpecifications,
AllocateAddressResponse (..),
newAllocateAddressResponse,
allocateAddressResponse_allocationId,
allocateAddressResponse_carrierIp,
allocateAddressResponse_customerOwnedIp,
allocateAddressResponse_customerOwnedIpv4Pool,
allocateAddressResponse_domain,
allocateAddressResponse_networkBorderGroup,
allocateAddressResponse_publicIp,
allocateAddressResponse_publicIpv4Pool,
allocateAddressResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data AllocateAddress = AllocateAddress'
{
AllocateAddress -> Maybe Text
address :: Prelude.Maybe Prelude.Text,
AllocateAddress -> Maybe Text
customerOwnedIpv4Pool :: Prelude.Maybe Prelude.Text,
AllocateAddress -> Maybe DomainType
domain :: Prelude.Maybe DomainType,
AllocateAddress -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
AllocateAddress -> Maybe Text
networkBorderGroup :: Prelude.Maybe Prelude.Text,
AllocateAddress -> Maybe Text
publicIpv4Pool :: Prelude.Maybe Prelude.Text,
AllocateAddress -> Maybe [TagSpecification]
tagSpecifications :: Prelude.Maybe [TagSpecification]
}
deriving (AllocateAddress -> AllocateAddress -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AllocateAddress -> AllocateAddress -> Bool
$c/= :: AllocateAddress -> AllocateAddress -> Bool
== :: AllocateAddress -> AllocateAddress -> Bool
$c== :: AllocateAddress -> AllocateAddress -> Bool
Prelude.Eq, ReadPrec [AllocateAddress]
ReadPrec AllocateAddress
Int -> ReadS AllocateAddress
ReadS [AllocateAddress]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AllocateAddress]
$creadListPrec :: ReadPrec [AllocateAddress]
readPrec :: ReadPrec AllocateAddress
$creadPrec :: ReadPrec AllocateAddress
readList :: ReadS [AllocateAddress]
$creadList :: ReadS [AllocateAddress]
readsPrec :: Int -> ReadS AllocateAddress
$creadsPrec :: Int -> ReadS AllocateAddress
Prelude.Read, Int -> AllocateAddress -> ShowS
[AllocateAddress] -> ShowS
AllocateAddress -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AllocateAddress] -> ShowS
$cshowList :: [AllocateAddress] -> ShowS
show :: AllocateAddress -> String
$cshow :: AllocateAddress -> String
showsPrec :: Int -> AllocateAddress -> ShowS
$cshowsPrec :: Int -> AllocateAddress -> ShowS
Prelude.Show, forall x. Rep AllocateAddress x -> AllocateAddress
forall x. AllocateAddress -> Rep AllocateAddress x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AllocateAddress x -> AllocateAddress
$cfrom :: forall x. AllocateAddress -> Rep AllocateAddress x
Prelude.Generic)
newAllocateAddress ::
AllocateAddress
newAllocateAddress :: AllocateAddress
newAllocateAddress =
AllocateAddress'
{ $sel:address:AllocateAddress' :: Maybe Text
address = forall a. Maybe a
Prelude.Nothing,
$sel:customerOwnedIpv4Pool:AllocateAddress' :: Maybe Text
customerOwnedIpv4Pool = forall a. Maybe a
Prelude.Nothing,
$sel:domain:AllocateAddress' :: Maybe DomainType
domain = forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:AllocateAddress' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:networkBorderGroup:AllocateAddress' :: Maybe Text
networkBorderGroup = forall a. Maybe a
Prelude.Nothing,
$sel:publicIpv4Pool:AllocateAddress' :: Maybe Text
publicIpv4Pool = forall a. Maybe a
Prelude.Nothing,
$sel:tagSpecifications:AllocateAddress' :: Maybe [TagSpecification]
tagSpecifications = forall a. Maybe a
Prelude.Nothing
}
allocateAddress_address :: Lens.Lens' AllocateAddress (Prelude.Maybe Prelude.Text)
allocateAddress_address :: Lens' AllocateAddress (Maybe Text)
allocateAddress_address = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe Text
address :: Maybe Text
$sel:address:AllocateAddress' :: AllocateAddress -> Maybe Text
address} -> Maybe Text
address) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe Text
a -> AllocateAddress
s {$sel:address:AllocateAddress' :: Maybe Text
address = Maybe Text
a} :: AllocateAddress)
allocateAddress_customerOwnedIpv4Pool :: Lens.Lens' AllocateAddress (Prelude.Maybe Prelude.Text)
allocateAddress_customerOwnedIpv4Pool :: Lens' AllocateAddress (Maybe Text)
allocateAddress_customerOwnedIpv4Pool = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe Text
customerOwnedIpv4Pool :: Maybe Text
$sel:customerOwnedIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
customerOwnedIpv4Pool} -> Maybe Text
customerOwnedIpv4Pool) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe Text
a -> AllocateAddress
s {$sel:customerOwnedIpv4Pool:AllocateAddress' :: Maybe Text
customerOwnedIpv4Pool = Maybe Text
a} :: AllocateAddress)
allocateAddress_domain :: Lens.Lens' AllocateAddress (Prelude.Maybe DomainType)
allocateAddress_domain :: Lens' AllocateAddress (Maybe DomainType)
allocateAddress_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe DomainType
domain :: Maybe DomainType
$sel:domain:AllocateAddress' :: AllocateAddress -> Maybe DomainType
domain} -> Maybe DomainType
domain) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe DomainType
a -> AllocateAddress
s {$sel:domain:AllocateAddress' :: Maybe DomainType
domain = Maybe DomainType
a} :: AllocateAddress)
allocateAddress_dryRun :: Lens.Lens' AllocateAddress (Prelude.Maybe Prelude.Bool)
allocateAddress_dryRun :: Lens' AllocateAddress (Maybe Bool)
allocateAddress_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:AllocateAddress' :: AllocateAddress -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe Bool
a -> AllocateAddress
s {$sel:dryRun:AllocateAddress' :: Maybe Bool
dryRun = Maybe Bool
a} :: AllocateAddress)
allocateAddress_networkBorderGroup :: Lens.Lens' AllocateAddress (Prelude.Maybe Prelude.Text)
allocateAddress_networkBorderGroup :: Lens' AllocateAddress (Maybe Text)
allocateAddress_networkBorderGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe Text
networkBorderGroup :: Maybe Text
$sel:networkBorderGroup:AllocateAddress' :: AllocateAddress -> Maybe Text
networkBorderGroup} -> Maybe Text
networkBorderGroup) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe Text
a -> AllocateAddress
s {$sel:networkBorderGroup:AllocateAddress' :: Maybe Text
networkBorderGroup = Maybe Text
a} :: AllocateAddress)
allocateAddress_publicIpv4Pool :: Lens.Lens' AllocateAddress (Prelude.Maybe Prelude.Text)
allocateAddress_publicIpv4Pool :: Lens' AllocateAddress (Maybe Text)
allocateAddress_publicIpv4Pool = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe Text
publicIpv4Pool :: Maybe Text
$sel:publicIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
publicIpv4Pool} -> Maybe Text
publicIpv4Pool) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe Text
a -> AllocateAddress
s {$sel:publicIpv4Pool:AllocateAddress' :: Maybe Text
publicIpv4Pool = Maybe Text
a} :: AllocateAddress)
allocateAddress_tagSpecifications :: Lens.Lens' AllocateAddress (Prelude.Maybe [TagSpecification])
allocateAddress_tagSpecifications :: Lens' AllocateAddress (Maybe [TagSpecification])
allocateAddress_tagSpecifications = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddress' {Maybe [TagSpecification]
tagSpecifications :: Maybe [TagSpecification]
$sel:tagSpecifications:AllocateAddress' :: AllocateAddress -> Maybe [TagSpecification]
tagSpecifications} -> Maybe [TagSpecification]
tagSpecifications) (\s :: AllocateAddress
s@AllocateAddress' {} Maybe [TagSpecification]
a -> AllocateAddress
s {$sel:tagSpecifications:AllocateAddress' :: Maybe [TagSpecification]
tagSpecifications = Maybe [TagSpecification]
a} :: AllocateAddress) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest AllocateAddress where
type
AWSResponse AllocateAddress =
AllocateAddressResponse
request :: (Service -> Service) -> AllocateAddress -> Request AllocateAddress
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AllocateAddress
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse AllocateAddress)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe DomainType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AllocateAddressResponse
AllocateAddressResponse'
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
"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
"carrierIp")
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
"customerOwnedIp")
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
"customerOwnedIpv4Pool")
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
"domain")
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
"networkBorderGroup")
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
"publicIpv4Pool")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable AllocateAddress where
hashWithSalt :: Int -> AllocateAddress -> Int
hashWithSalt Int
_salt AllocateAddress' {Maybe Bool
Maybe [TagSpecification]
Maybe Text
Maybe DomainType
tagSpecifications :: Maybe [TagSpecification]
publicIpv4Pool :: Maybe Text
networkBorderGroup :: Maybe Text
dryRun :: Maybe Bool
domain :: Maybe DomainType
customerOwnedIpv4Pool :: Maybe Text
address :: Maybe Text
$sel:tagSpecifications:AllocateAddress' :: AllocateAddress -> Maybe [TagSpecification]
$sel:publicIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:networkBorderGroup:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:dryRun:AllocateAddress' :: AllocateAddress -> Maybe Bool
$sel:domain:AllocateAddress' :: AllocateAddress -> Maybe DomainType
$sel:customerOwnedIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:address:AllocateAddress' :: AllocateAddress -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
address
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customerOwnedIpv4Pool
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DomainType
domain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
networkBorderGroup
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
publicIpv4Pool
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [TagSpecification]
tagSpecifications
instance Prelude.NFData AllocateAddress where
rnf :: AllocateAddress -> ()
rnf AllocateAddress' {Maybe Bool
Maybe [TagSpecification]
Maybe Text
Maybe DomainType
tagSpecifications :: Maybe [TagSpecification]
publicIpv4Pool :: Maybe Text
networkBorderGroup :: Maybe Text
dryRun :: Maybe Bool
domain :: Maybe DomainType
customerOwnedIpv4Pool :: Maybe Text
address :: Maybe Text
$sel:tagSpecifications:AllocateAddress' :: AllocateAddress -> Maybe [TagSpecification]
$sel:publicIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:networkBorderGroup:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:dryRun:AllocateAddress' :: AllocateAddress -> Maybe Bool
$sel:domain:AllocateAddress' :: AllocateAddress -> Maybe DomainType
$sel:customerOwnedIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:address:AllocateAddress' :: AllocateAddress -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
address
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customerOwnedIpv4Pool
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DomainType
domain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
networkBorderGroup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
publicIpv4Pool
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TagSpecification]
tagSpecifications
instance Data.ToHeaders AllocateAddress where
toHeaders :: AllocateAddress -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath AllocateAddress where
toPath :: AllocateAddress -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AllocateAddress where
toQuery :: AllocateAddress -> QueryString
toQuery AllocateAddress' {Maybe Bool
Maybe [TagSpecification]
Maybe Text
Maybe DomainType
tagSpecifications :: Maybe [TagSpecification]
publicIpv4Pool :: Maybe Text
networkBorderGroup :: Maybe Text
dryRun :: Maybe Bool
domain :: Maybe DomainType
customerOwnedIpv4Pool :: Maybe Text
address :: Maybe Text
$sel:tagSpecifications:AllocateAddress' :: AllocateAddress -> Maybe [TagSpecification]
$sel:publicIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:networkBorderGroup:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:dryRun:AllocateAddress' :: AllocateAddress -> Maybe Bool
$sel:domain:AllocateAddress' :: AllocateAddress -> Maybe DomainType
$sel:customerOwnedIpv4Pool:AllocateAddress' :: AllocateAddress -> Maybe Text
$sel:address:AllocateAddress' :: AllocateAddress -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"AllocateAddress" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"Address" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
address,
ByteString
"CustomerOwnedIpv4Pool"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
customerOwnedIpv4Pool,
ByteString
"Domain" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe DomainType
domain,
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"NetworkBorderGroup" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
networkBorderGroup,
ByteString
"PublicIpv4Pool" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
publicIpv4Pool,
forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"TagSpecification"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TagSpecification]
tagSpecifications
)
]
data AllocateAddressResponse = AllocateAddressResponse'
{
AllocateAddressResponse -> Maybe Text
allocationId :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Maybe Text
carrierIp :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Maybe Text
customerOwnedIp :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Maybe Text
customerOwnedIpv4Pool :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Maybe DomainType
domain :: Prelude.Maybe DomainType,
AllocateAddressResponse -> Maybe Text
networkBorderGroup :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Maybe Text
publicIp :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Maybe Text
publicIpv4Pool :: Prelude.Maybe Prelude.Text,
AllocateAddressResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AllocateAddressResponse -> AllocateAddressResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AllocateAddressResponse -> AllocateAddressResponse -> Bool
$c/= :: AllocateAddressResponse -> AllocateAddressResponse -> Bool
== :: AllocateAddressResponse -> AllocateAddressResponse -> Bool
$c== :: AllocateAddressResponse -> AllocateAddressResponse -> Bool
Prelude.Eq, ReadPrec [AllocateAddressResponse]
ReadPrec AllocateAddressResponse
Int -> ReadS AllocateAddressResponse
ReadS [AllocateAddressResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AllocateAddressResponse]
$creadListPrec :: ReadPrec [AllocateAddressResponse]
readPrec :: ReadPrec AllocateAddressResponse
$creadPrec :: ReadPrec AllocateAddressResponse
readList :: ReadS [AllocateAddressResponse]
$creadList :: ReadS [AllocateAddressResponse]
readsPrec :: Int -> ReadS AllocateAddressResponse
$creadsPrec :: Int -> ReadS AllocateAddressResponse
Prelude.Read, Int -> AllocateAddressResponse -> ShowS
[AllocateAddressResponse] -> ShowS
AllocateAddressResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AllocateAddressResponse] -> ShowS
$cshowList :: [AllocateAddressResponse] -> ShowS
show :: AllocateAddressResponse -> String
$cshow :: AllocateAddressResponse -> String
showsPrec :: Int -> AllocateAddressResponse -> ShowS
$cshowsPrec :: Int -> AllocateAddressResponse -> ShowS
Prelude.Show, forall x. Rep AllocateAddressResponse x -> AllocateAddressResponse
forall x. AllocateAddressResponse -> Rep AllocateAddressResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AllocateAddressResponse x -> AllocateAddressResponse
$cfrom :: forall x. AllocateAddressResponse -> Rep AllocateAddressResponse x
Prelude.Generic)
newAllocateAddressResponse ::
Prelude.Int ->
AllocateAddressResponse
newAllocateAddressResponse :: Int -> AllocateAddressResponse
newAllocateAddressResponse Int
pHttpStatus_ =
AllocateAddressResponse'
{ $sel:allocationId:AllocateAddressResponse' :: Maybe Text
allocationId =
forall a. Maybe a
Prelude.Nothing,
$sel:carrierIp:AllocateAddressResponse' :: Maybe Text
carrierIp = forall a. Maybe a
Prelude.Nothing,
$sel:customerOwnedIp:AllocateAddressResponse' :: Maybe Text
customerOwnedIp = forall a. Maybe a
Prelude.Nothing,
$sel:customerOwnedIpv4Pool:AllocateAddressResponse' :: Maybe Text
customerOwnedIpv4Pool = forall a. Maybe a
Prelude.Nothing,
$sel:domain:AllocateAddressResponse' :: Maybe DomainType
domain = forall a. Maybe a
Prelude.Nothing,
$sel:networkBorderGroup:AllocateAddressResponse' :: Maybe Text
networkBorderGroup = forall a. Maybe a
Prelude.Nothing,
$sel:publicIp:AllocateAddressResponse' :: Maybe Text
publicIp = forall a. Maybe a
Prelude.Nothing,
$sel:publicIpv4Pool:AllocateAddressResponse' :: Maybe Text
publicIpv4Pool = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AllocateAddressResponse' :: Int
httpStatus = Int
pHttpStatus_
}
allocateAddressResponse_allocationId :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_allocationId :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_allocationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
allocationId :: Maybe Text
$sel:allocationId:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
allocationId} -> Maybe Text
allocationId) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:allocationId:AllocateAddressResponse' :: Maybe Text
allocationId = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_carrierIp :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_carrierIp :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_carrierIp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
carrierIp :: Maybe Text
$sel:carrierIp:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
carrierIp} -> Maybe Text
carrierIp) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:carrierIp:AllocateAddressResponse' :: Maybe Text
carrierIp = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_customerOwnedIp :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_customerOwnedIp :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_customerOwnedIp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
customerOwnedIp :: Maybe Text
$sel:customerOwnedIp:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
customerOwnedIp} -> Maybe Text
customerOwnedIp) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:customerOwnedIp:AllocateAddressResponse' :: Maybe Text
customerOwnedIp = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_customerOwnedIpv4Pool :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_customerOwnedIpv4Pool :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_customerOwnedIpv4Pool = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
customerOwnedIpv4Pool :: Maybe Text
$sel:customerOwnedIpv4Pool:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
customerOwnedIpv4Pool} -> Maybe Text
customerOwnedIpv4Pool) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:customerOwnedIpv4Pool:AllocateAddressResponse' :: Maybe Text
customerOwnedIpv4Pool = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_domain :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe DomainType)
allocateAddressResponse_domain :: Lens' AllocateAddressResponse (Maybe DomainType)
allocateAddressResponse_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe DomainType
domain :: Maybe DomainType
$sel:domain:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe DomainType
domain} -> Maybe DomainType
domain) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe DomainType
a -> AllocateAddressResponse
s {$sel:domain:AllocateAddressResponse' :: Maybe DomainType
domain = Maybe DomainType
a} :: AllocateAddressResponse)
allocateAddressResponse_networkBorderGroup :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_networkBorderGroup :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_networkBorderGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
networkBorderGroup :: Maybe Text
$sel:networkBorderGroup:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
networkBorderGroup} -> Maybe Text
networkBorderGroup) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:networkBorderGroup:AllocateAddressResponse' :: Maybe Text
networkBorderGroup = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_publicIp :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_publicIp :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_publicIp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
publicIp :: Maybe Text
$sel:publicIp:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
publicIp} -> Maybe Text
publicIp) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:publicIp:AllocateAddressResponse' :: Maybe Text
publicIp = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_publicIpv4Pool :: Lens.Lens' AllocateAddressResponse (Prelude.Maybe Prelude.Text)
allocateAddressResponse_publicIpv4Pool :: Lens' AllocateAddressResponse (Maybe Text)
allocateAddressResponse_publicIpv4Pool = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Maybe Text
publicIpv4Pool :: Maybe Text
$sel:publicIpv4Pool:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
publicIpv4Pool} -> Maybe Text
publicIpv4Pool) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Maybe Text
a -> AllocateAddressResponse
s {$sel:publicIpv4Pool:AllocateAddressResponse' :: Maybe Text
publicIpv4Pool = Maybe Text
a} :: AllocateAddressResponse)
allocateAddressResponse_httpStatus :: Lens.Lens' AllocateAddressResponse Prelude.Int
allocateAddressResponse_httpStatus :: Lens' AllocateAddressResponse Int
allocateAddressResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AllocateAddressResponse' {Int
httpStatus :: Int
$sel:httpStatus:AllocateAddressResponse' :: AllocateAddressResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AllocateAddressResponse
s@AllocateAddressResponse' {} Int
a -> AllocateAddressResponse
s {$sel:httpStatus:AllocateAddressResponse' :: Int
httpStatus = Int
a} :: AllocateAddressResponse)
instance Prelude.NFData AllocateAddressResponse where
rnf :: AllocateAddressResponse -> ()
rnf AllocateAddressResponse' {Int
Maybe Text
Maybe DomainType
httpStatus :: Int
publicIpv4Pool :: Maybe Text
publicIp :: Maybe Text
networkBorderGroup :: Maybe Text
domain :: Maybe DomainType
customerOwnedIpv4Pool :: Maybe Text
customerOwnedIp :: Maybe Text
carrierIp :: Maybe Text
allocationId :: Maybe Text
$sel:httpStatus:AllocateAddressResponse' :: AllocateAddressResponse -> Int
$sel:publicIpv4Pool:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
$sel:publicIp:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
$sel:networkBorderGroup:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
$sel:domain:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe DomainType
$sel:customerOwnedIpv4Pool:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
$sel:customerOwnedIp:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
$sel:carrierIp:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
$sel:allocationId:AllocateAddressResponse' :: AllocateAddressResponse -> Maybe Text
..} =
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
carrierIp
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customerOwnedIp
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customerOwnedIpv4Pool
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DomainType
domain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
networkBorderGroup
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
publicIpv4Pool
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus