{-# 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.Lightsail.CreateLoadBalancer
(
CreateLoadBalancer (..),
newCreateLoadBalancer,
createLoadBalancer_certificateAlternativeNames,
createLoadBalancer_certificateDomainName,
createLoadBalancer_certificateName,
createLoadBalancer_healthCheckPath,
createLoadBalancer_ipAddressType,
createLoadBalancer_tags,
createLoadBalancer_tlsPolicyName,
createLoadBalancer_loadBalancerName,
createLoadBalancer_instancePort,
CreateLoadBalancerResponse (..),
newCreateLoadBalancerResponse,
createLoadBalancerResponse_operations,
createLoadBalancerResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lightsail.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateLoadBalancer = CreateLoadBalancer'
{
CreateLoadBalancer -> Maybe [Text]
certificateAlternativeNames :: Prelude.Maybe [Prelude.Text],
CreateLoadBalancer -> Maybe Text
certificateDomainName :: Prelude.Maybe Prelude.Text,
CreateLoadBalancer -> Maybe Text
certificateName :: Prelude.Maybe Prelude.Text,
CreateLoadBalancer -> Maybe Text
healthCheckPath :: Prelude.Maybe Prelude.Text,
CreateLoadBalancer -> Maybe IpAddressType
ipAddressType :: Prelude.Maybe IpAddressType,
CreateLoadBalancer -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateLoadBalancer -> Maybe Text
tlsPolicyName :: Prelude.Maybe Prelude.Text,
CreateLoadBalancer -> Text
loadBalancerName :: Prelude.Text,
CreateLoadBalancer -> Int
instancePort :: Prelude.Int
}
deriving (CreateLoadBalancer -> CreateLoadBalancer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoadBalancer -> CreateLoadBalancer -> Bool
$c/= :: CreateLoadBalancer -> CreateLoadBalancer -> Bool
== :: CreateLoadBalancer -> CreateLoadBalancer -> Bool
$c== :: CreateLoadBalancer -> CreateLoadBalancer -> Bool
Prelude.Eq, ReadPrec [CreateLoadBalancer]
ReadPrec CreateLoadBalancer
Int -> ReadS CreateLoadBalancer
ReadS [CreateLoadBalancer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoadBalancer]
$creadListPrec :: ReadPrec [CreateLoadBalancer]
readPrec :: ReadPrec CreateLoadBalancer
$creadPrec :: ReadPrec CreateLoadBalancer
readList :: ReadS [CreateLoadBalancer]
$creadList :: ReadS [CreateLoadBalancer]
readsPrec :: Int -> ReadS CreateLoadBalancer
$creadsPrec :: Int -> ReadS CreateLoadBalancer
Prelude.Read, Int -> CreateLoadBalancer -> ShowS
[CreateLoadBalancer] -> ShowS
CreateLoadBalancer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoadBalancer] -> ShowS
$cshowList :: [CreateLoadBalancer] -> ShowS
show :: CreateLoadBalancer -> String
$cshow :: CreateLoadBalancer -> String
showsPrec :: Int -> CreateLoadBalancer -> ShowS
$cshowsPrec :: Int -> CreateLoadBalancer -> ShowS
Prelude.Show, forall x. Rep CreateLoadBalancer x -> CreateLoadBalancer
forall x. CreateLoadBalancer -> Rep CreateLoadBalancer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateLoadBalancer x -> CreateLoadBalancer
$cfrom :: forall x. CreateLoadBalancer -> Rep CreateLoadBalancer x
Prelude.Generic)
newCreateLoadBalancer ::
Prelude.Text ->
Prelude.Int ->
CreateLoadBalancer
newCreateLoadBalancer :: Text -> Int -> CreateLoadBalancer
newCreateLoadBalancer
Text
pLoadBalancerName_
Int
pInstancePort_ =
CreateLoadBalancer'
{ $sel:certificateAlternativeNames:CreateLoadBalancer' :: Maybe [Text]
certificateAlternativeNames =
forall a. Maybe a
Prelude.Nothing,
$sel:certificateDomainName:CreateLoadBalancer' :: Maybe Text
certificateDomainName = forall a. Maybe a
Prelude.Nothing,
$sel:certificateName:CreateLoadBalancer' :: Maybe Text
certificateName = forall a. Maybe a
Prelude.Nothing,
$sel:healthCheckPath:CreateLoadBalancer' :: Maybe Text
healthCheckPath = forall a. Maybe a
Prelude.Nothing,
$sel:ipAddressType:CreateLoadBalancer' :: Maybe IpAddressType
ipAddressType = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateLoadBalancer' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:tlsPolicyName:CreateLoadBalancer' :: Maybe Text
tlsPolicyName = forall a. Maybe a
Prelude.Nothing,
$sel:loadBalancerName:CreateLoadBalancer' :: Text
loadBalancerName = Text
pLoadBalancerName_,
$sel:instancePort:CreateLoadBalancer' :: Int
instancePort = Int
pInstancePort_
}
createLoadBalancer_certificateAlternativeNames :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe [Prelude.Text])
createLoadBalancer_certificateAlternativeNames :: Lens' CreateLoadBalancer (Maybe [Text])
createLoadBalancer_certificateAlternativeNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe [Text]
certificateAlternativeNames :: Maybe [Text]
$sel:certificateAlternativeNames:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Text]
certificateAlternativeNames} -> Maybe [Text]
certificateAlternativeNames) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe [Text]
a -> CreateLoadBalancer
s {$sel:certificateAlternativeNames:CreateLoadBalancer' :: Maybe [Text]
certificateAlternativeNames = Maybe [Text]
a} :: CreateLoadBalancer) 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
createLoadBalancer_certificateDomainName :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe Prelude.Text)
createLoadBalancer_certificateDomainName :: Lens' CreateLoadBalancer (Maybe Text)
createLoadBalancer_certificateDomainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe Text
certificateDomainName :: Maybe Text
$sel:certificateDomainName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
certificateDomainName} -> Maybe Text
certificateDomainName) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe Text
a -> CreateLoadBalancer
s {$sel:certificateDomainName:CreateLoadBalancer' :: Maybe Text
certificateDomainName = Maybe Text
a} :: CreateLoadBalancer)
createLoadBalancer_certificateName :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe Prelude.Text)
createLoadBalancer_certificateName :: Lens' CreateLoadBalancer (Maybe Text)
createLoadBalancer_certificateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe Text
certificateName :: Maybe Text
$sel:certificateName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
certificateName} -> Maybe Text
certificateName) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe Text
a -> CreateLoadBalancer
s {$sel:certificateName:CreateLoadBalancer' :: Maybe Text
certificateName = Maybe Text
a} :: CreateLoadBalancer)
createLoadBalancer_healthCheckPath :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe Prelude.Text)
createLoadBalancer_healthCheckPath :: Lens' CreateLoadBalancer (Maybe Text)
createLoadBalancer_healthCheckPath = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe Text
healthCheckPath :: Maybe Text
$sel:healthCheckPath:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
healthCheckPath} -> Maybe Text
healthCheckPath) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe Text
a -> CreateLoadBalancer
s {$sel:healthCheckPath:CreateLoadBalancer' :: Maybe Text
healthCheckPath = Maybe Text
a} :: CreateLoadBalancer)
createLoadBalancer_ipAddressType :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe IpAddressType)
createLoadBalancer_ipAddressType :: Lens' CreateLoadBalancer (Maybe IpAddressType)
createLoadBalancer_ipAddressType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe IpAddressType
ipAddressType :: Maybe IpAddressType
$sel:ipAddressType:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe IpAddressType
ipAddressType} -> Maybe IpAddressType
ipAddressType) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe IpAddressType
a -> CreateLoadBalancer
s {$sel:ipAddressType:CreateLoadBalancer' :: Maybe IpAddressType
ipAddressType = Maybe IpAddressType
a} :: CreateLoadBalancer)
createLoadBalancer_tags :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe [Tag])
createLoadBalancer_tags :: Lens' CreateLoadBalancer (Maybe [Tag])
createLoadBalancer_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe [Tag]
a -> CreateLoadBalancer
s {$sel:tags:CreateLoadBalancer' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateLoadBalancer) 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
createLoadBalancer_tlsPolicyName :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe Prelude.Text)
createLoadBalancer_tlsPolicyName :: Lens' CreateLoadBalancer (Maybe Text)
createLoadBalancer_tlsPolicyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Maybe Text
tlsPolicyName :: Maybe Text
$sel:tlsPolicyName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
tlsPolicyName} -> Maybe Text
tlsPolicyName) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Maybe Text
a -> CreateLoadBalancer
s {$sel:tlsPolicyName:CreateLoadBalancer' :: Maybe Text
tlsPolicyName = Maybe Text
a} :: CreateLoadBalancer)
createLoadBalancer_loadBalancerName :: Lens.Lens' CreateLoadBalancer Prelude.Text
createLoadBalancer_loadBalancerName :: Lens' CreateLoadBalancer Text
createLoadBalancer_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Text
loadBalancerName :: Text
$sel:loadBalancerName:CreateLoadBalancer' :: CreateLoadBalancer -> Text
loadBalancerName} -> Text
loadBalancerName) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Text
a -> CreateLoadBalancer
s {$sel:loadBalancerName:CreateLoadBalancer' :: Text
loadBalancerName = Text
a} :: CreateLoadBalancer)
createLoadBalancer_instancePort :: Lens.Lens' CreateLoadBalancer Prelude.Int
createLoadBalancer_instancePort :: Lens' CreateLoadBalancer Int
createLoadBalancer_instancePort = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancer' {Int
instancePort :: Int
$sel:instancePort:CreateLoadBalancer' :: CreateLoadBalancer -> Int
instancePort} -> Int
instancePort) (\s :: CreateLoadBalancer
s@CreateLoadBalancer' {} Int
a -> CreateLoadBalancer
s {$sel:instancePort:CreateLoadBalancer' :: Int
instancePort = Int
a} :: CreateLoadBalancer)
instance Core.AWSRequest CreateLoadBalancer where
type
AWSResponse CreateLoadBalancer =
CreateLoadBalancerResponse
request :: (Service -> Service)
-> CreateLoadBalancer -> Request CreateLoadBalancer
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateLoadBalancer
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateLoadBalancer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe [Operation] -> Int -> CreateLoadBalancerResponse
CreateLoadBalancerResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"operations" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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 CreateLoadBalancer where
hashWithSalt :: Int -> CreateLoadBalancer -> Int
hashWithSalt Int
_salt CreateLoadBalancer' {Int
Maybe [Text]
Maybe [Tag]
Maybe Text
Maybe IpAddressType
Text
instancePort :: Int
loadBalancerName :: Text
tlsPolicyName :: Maybe Text
tags :: Maybe [Tag]
ipAddressType :: Maybe IpAddressType
healthCheckPath :: Maybe Text
certificateName :: Maybe Text
certificateDomainName :: Maybe Text
certificateAlternativeNames :: Maybe [Text]
$sel:instancePort:CreateLoadBalancer' :: CreateLoadBalancer -> Int
$sel:loadBalancerName:CreateLoadBalancer' :: CreateLoadBalancer -> Text
$sel:tlsPolicyName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:tags:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Tag]
$sel:ipAddressType:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe IpAddressType
$sel:healthCheckPath:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateDomainName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateAlternativeNames:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
certificateAlternativeNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
certificateDomainName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
certificateName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
healthCheckPath
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IpAddressType
ipAddressType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tlsPolicyName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
instancePort
instance Prelude.NFData CreateLoadBalancer where
rnf :: CreateLoadBalancer -> ()
rnf CreateLoadBalancer' {Int
Maybe [Text]
Maybe [Tag]
Maybe Text
Maybe IpAddressType
Text
instancePort :: Int
loadBalancerName :: Text
tlsPolicyName :: Maybe Text
tags :: Maybe [Tag]
ipAddressType :: Maybe IpAddressType
healthCheckPath :: Maybe Text
certificateName :: Maybe Text
certificateDomainName :: Maybe Text
certificateAlternativeNames :: Maybe [Text]
$sel:instancePort:CreateLoadBalancer' :: CreateLoadBalancer -> Int
$sel:loadBalancerName:CreateLoadBalancer' :: CreateLoadBalancer -> Text
$sel:tlsPolicyName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:tags:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Tag]
$sel:ipAddressType:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe IpAddressType
$sel:healthCheckPath:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateDomainName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateAlternativeNames:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
certificateAlternativeNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
certificateDomainName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
certificateName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
healthCheckPath
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IpAddressType
ipAddressType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tlsPolicyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
loadBalancerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
instancePort
instance Data.ToHeaders CreateLoadBalancer where
toHeaders :: CreateLoadBalancer -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Lightsail_20161128.CreateLoadBalancer" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateLoadBalancer where
toJSON :: CreateLoadBalancer -> Value
toJSON CreateLoadBalancer' {Int
Maybe [Text]
Maybe [Tag]
Maybe Text
Maybe IpAddressType
Text
instancePort :: Int
loadBalancerName :: Text
tlsPolicyName :: Maybe Text
tags :: Maybe [Tag]
ipAddressType :: Maybe IpAddressType
healthCheckPath :: Maybe Text
certificateName :: Maybe Text
certificateDomainName :: Maybe Text
certificateAlternativeNames :: Maybe [Text]
$sel:instancePort:CreateLoadBalancer' :: CreateLoadBalancer -> Int
$sel:loadBalancerName:CreateLoadBalancer' :: CreateLoadBalancer -> Text
$sel:tlsPolicyName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:tags:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Tag]
$sel:ipAddressType:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe IpAddressType
$sel:healthCheckPath:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateDomainName:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe Text
$sel:certificateAlternativeNames:CreateLoadBalancer' :: CreateLoadBalancer -> Maybe [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"certificateAlternativeNames" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
certificateAlternativeNames,
(Key
"certificateDomainName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
certificateDomainName,
(Key
"certificateName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
certificateName,
(Key
"healthCheckPath" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
healthCheckPath,
(Key
"ipAddressType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IpAddressType
ipAddressType,
(Key
"tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
(Key
"tlsPolicyName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
tlsPolicyName,
forall a. a -> Maybe a
Prelude.Just
(Key
"loadBalancerName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
loadBalancerName),
forall a. a -> Maybe a
Prelude.Just (Key
"instancePort" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Int
instancePort)
]
)
instance Data.ToPath CreateLoadBalancer where
toPath :: CreateLoadBalancer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateLoadBalancer where
toQuery :: CreateLoadBalancer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateLoadBalancerResponse = CreateLoadBalancerResponse'
{
CreateLoadBalancerResponse -> Maybe [Operation]
operations :: Prelude.Maybe [Operation],
CreateLoadBalancerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateLoadBalancerResponse -> CreateLoadBalancerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoadBalancerResponse -> CreateLoadBalancerResponse -> Bool
$c/= :: CreateLoadBalancerResponse -> CreateLoadBalancerResponse -> Bool
== :: CreateLoadBalancerResponse -> CreateLoadBalancerResponse -> Bool
$c== :: CreateLoadBalancerResponse -> CreateLoadBalancerResponse -> Bool
Prelude.Eq, ReadPrec [CreateLoadBalancerResponse]
ReadPrec CreateLoadBalancerResponse
Int -> ReadS CreateLoadBalancerResponse
ReadS [CreateLoadBalancerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoadBalancerResponse]
$creadListPrec :: ReadPrec [CreateLoadBalancerResponse]
readPrec :: ReadPrec CreateLoadBalancerResponse
$creadPrec :: ReadPrec CreateLoadBalancerResponse
readList :: ReadS [CreateLoadBalancerResponse]
$creadList :: ReadS [CreateLoadBalancerResponse]
readsPrec :: Int -> ReadS CreateLoadBalancerResponse
$creadsPrec :: Int -> ReadS CreateLoadBalancerResponse
Prelude.Read, Int -> CreateLoadBalancerResponse -> ShowS
[CreateLoadBalancerResponse] -> ShowS
CreateLoadBalancerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoadBalancerResponse] -> ShowS
$cshowList :: [CreateLoadBalancerResponse] -> ShowS
show :: CreateLoadBalancerResponse -> String
$cshow :: CreateLoadBalancerResponse -> String
showsPrec :: Int -> CreateLoadBalancerResponse -> ShowS
$cshowsPrec :: Int -> CreateLoadBalancerResponse -> ShowS
Prelude.Show, forall x.
Rep CreateLoadBalancerResponse x -> CreateLoadBalancerResponse
forall x.
CreateLoadBalancerResponse -> Rep CreateLoadBalancerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoadBalancerResponse x -> CreateLoadBalancerResponse
$cfrom :: forall x.
CreateLoadBalancerResponse -> Rep CreateLoadBalancerResponse x
Prelude.Generic)
newCreateLoadBalancerResponse ::
Prelude.Int ->
CreateLoadBalancerResponse
newCreateLoadBalancerResponse :: Int -> CreateLoadBalancerResponse
newCreateLoadBalancerResponse Int
pHttpStatus_ =
CreateLoadBalancerResponse'
{ $sel:operations:CreateLoadBalancerResponse' :: Maybe [Operation]
operations =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateLoadBalancerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createLoadBalancerResponse_operations :: Lens.Lens' CreateLoadBalancerResponse (Prelude.Maybe [Operation])
createLoadBalancerResponse_operations :: Lens' CreateLoadBalancerResponse (Maybe [Operation])
createLoadBalancerResponse_operations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerResponse' {Maybe [Operation]
operations :: Maybe [Operation]
$sel:operations:CreateLoadBalancerResponse' :: CreateLoadBalancerResponse -> Maybe [Operation]
operations} -> Maybe [Operation]
operations) (\s :: CreateLoadBalancerResponse
s@CreateLoadBalancerResponse' {} Maybe [Operation]
a -> CreateLoadBalancerResponse
s {$sel:operations:CreateLoadBalancerResponse' :: Maybe [Operation]
operations = Maybe [Operation]
a} :: CreateLoadBalancerResponse) 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
createLoadBalancerResponse_httpStatus :: Lens.Lens' CreateLoadBalancerResponse Prelude.Int
createLoadBalancerResponse_httpStatus :: Lens' CreateLoadBalancerResponse Int
createLoadBalancerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateLoadBalancerResponse' :: CreateLoadBalancerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateLoadBalancerResponse
s@CreateLoadBalancerResponse' {} Int
a -> CreateLoadBalancerResponse
s {$sel:httpStatus:CreateLoadBalancerResponse' :: Int
httpStatus = Int
a} :: CreateLoadBalancerResponse)
instance Prelude.NFData CreateLoadBalancerResponse where
rnf :: CreateLoadBalancerResponse -> ()
rnf CreateLoadBalancerResponse' {Int
Maybe [Operation]
httpStatus :: Int
operations :: Maybe [Operation]
$sel:httpStatus:CreateLoadBalancerResponse' :: CreateLoadBalancerResponse -> Int
$sel:operations:CreateLoadBalancerResponse' :: CreateLoadBalancerResponse -> Maybe [Operation]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Operation]
operations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus