{-# 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.CreateLoadBalancerTlsCertificate
(
CreateLoadBalancerTlsCertificate (..),
newCreateLoadBalancerTlsCertificate,
createLoadBalancerTlsCertificate_certificateAlternativeNames,
createLoadBalancerTlsCertificate_tags,
createLoadBalancerTlsCertificate_loadBalancerName,
createLoadBalancerTlsCertificate_certificateName,
createLoadBalancerTlsCertificate_certificateDomainName,
CreateLoadBalancerTlsCertificateResponse (..),
newCreateLoadBalancerTlsCertificateResponse,
createLoadBalancerTlsCertificateResponse_operations,
createLoadBalancerTlsCertificateResponse_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 CreateLoadBalancerTlsCertificate = CreateLoadBalancerTlsCertificate'
{
CreateLoadBalancerTlsCertificate -> Maybe [Text]
certificateAlternativeNames :: Prelude.Maybe [Prelude.Text],
CreateLoadBalancerTlsCertificate -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateLoadBalancerTlsCertificate -> Text
loadBalancerName :: Prelude.Text,
CreateLoadBalancerTlsCertificate -> Text
certificateName :: Prelude.Text,
CreateLoadBalancerTlsCertificate -> Text
certificateDomainName :: Prelude.Text
}
deriving (CreateLoadBalancerTlsCertificate
-> CreateLoadBalancerTlsCertificate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoadBalancerTlsCertificate
-> CreateLoadBalancerTlsCertificate -> Bool
$c/= :: CreateLoadBalancerTlsCertificate
-> CreateLoadBalancerTlsCertificate -> Bool
== :: CreateLoadBalancerTlsCertificate
-> CreateLoadBalancerTlsCertificate -> Bool
$c== :: CreateLoadBalancerTlsCertificate
-> CreateLoadBalancerTlsCertificate -> Bool
Prelude.Eq, ReadPrec [CreateLoadBalancerTlsCertificate]
ReadPrec CreateLoadBalancerTlsCertificate
Int -> ReadS CreateLoadBalancerTlsCertificate
ReadS [CreateLoadBalancerTlsCertificate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoadBalancerTlsCertificate]
$creadListPrec :: ReadPrec [CreateLoadBalancerTlsCertificate]
readPrec :: ReadPrec CreateLoadBalancerTlsCertificate
$creadPrec :: ReadPrec CreateLoadBalancerTlsCertificate
readList :: ReadS [CreateLoadBalancerTlsCertificate]
$creadList :: ReadS [CreateLoadBalancerTlsCertificate]
readsPrec :: Int -> ReadS CreateLoadBalancerTlsCertificate
$creadsPrec :: Int -> ReadS CreateLoadBalancerTlsCertificate
Prelude.Read, Int -> CreateLoadBalancerTlsCertificate -> ShowS
[CreateLoadBalancerTlsCertificate] -> ShowS
CreateLoadBalancerTlsCertificate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoadBalancerTlsCertificate] -> ShowS
$cshowList :: [CreateLoadBalancerTlsCertificate] -> ShowS
show :: CreateLoadBalancerTlsCertificate -> String
$cshow :: CreateLoadBalancerTlsCertificate -> String
showsPrec :: Int -> CreateLoadBalancerTlsCertificate -> ShowS
$cshowsPrec :: Int -> CreateLoadBalancerTlsCertificate -> ShowS
Prelude.Show, forall x.
Rep CreateLoadBalancerTlsCertificate x
-> CreateLoadBalancerTlsCertificate
forall x.
CreateLoadBalancerTlsCertificate
-> Rep CreateLoadBalancerTlsCertificate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoadBalancerTlsCertificate x
-> CreateLoadBalancerTlsCertificate
$cfrom :: forall x.
CreateLoadBalancerTlsCertificate
-> Rep CreateLoadBalancerTlsCertificate x
Prelude.Generic)
newCreateLoadBalancerTlsCertificate ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateLoadBalancerTlsCertificate
newCreateLoadBalancerTlsCertificate :: Text -> Text -> Text -> CreateLoadBalancerTlsCertificate
newCreateLoadBalancerTlsCertificate
Text
pLoadBalancerName_
Text
pCertificateName_
Text
pCertificateDomainName_ =
CreateLoadBalancerTlsCertificate'
{ $sel:certificateAlternativeNames:CreateLoadBalancerTlsCertificate' :: Maybe [Text]
certificateAlternativeNames =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateLoadBalancerTlsCertificate' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:loadBalancerName:CreateLoadBalancerTlsCertificate' :: Text
loadBalancerName = Text
pLoadBalancerName_,
$sel:certificateName:CreateLoadBalancerTlsCertificate' :: Text
certificateName = Text
pCertificateName_,
$sel:certificateDomainName:CreateLoadBalancerTlsCertificate' :: Text
certificateDomainName =
Text
pCertificateDomainName_
}
createLoadBalancerTlsCertificate_certificateAlternativeNames :: Lens.Lens' CreateLoadBalancerTlsCertificate (Prelude.Maybe [Prelude.Text])
createLoadBalancerTlsCertificate_certificateAlternativeNames :: Lens' CreateLoadBalancerTlsCertificate (Maybe [Text])
createLoadBalancerTlsCertificate_certificateAlternativeNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificate' {Maybe [Text]
certificateAlternativeNames :: Maybe [Text]
$sel:certificateAlternativeNames:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Maybe [Text]
certificateAlternativeNames} -> Maybe [Text]
certificateAlternativeNames) (\s :: CreateLoadBalancerTlsCertificate
s@CreateLoadBalancerTlsCertificate' {} Maybe [Text]
a -> CreateLoadBalancerTlsCertificate
s {$sel:certificateAlternativeNames:CreateLoadBalancerTlsCertificate' :: Maybe [Text]
certificateAlternativeNames = Maybe [Text]
a} :: CreateLoadBalancerTlsCertificate) 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
createLoadBalancerTlsCertificate_tags :: Lens.Lens' CreateLoadBalancerTlsCertificate (Prelude.Maybe [Tag])
createLoadBalancerTlsCertificate_tags :: Lens' CreateLoadBalancerTlsCertificate (Maybe [Tag])
createLoadBalancerTlsCertificate_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificate' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateLoadBalancerTlsCertificate
s@CreateLoadBalancerTlsCertificate' {} Maybe [Tag]
a -> CreateLoadBalancerTlsCertificate
s {$sel:tags:CreateLoadBalancerTlsCertificate' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateLoadBalancerTlsCertificate) 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
createLoadBalancerTlsCertificate_loadBalancerName :: Lens.Lens' CreateLoadBalancerTlsCertificate Prelude.Text
createLoadBalancerTlsCertificate_loadBalancerName :: Lens' CreateLoadBalancerTlsCertificate Text
createLoadBalancerTlsCertificate_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificate' {Text
loadBalancerName :: Text
$sel:loadBalancerName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
loadBalancerName} -> Text
loadBalancerName) (\s :: CreateLoadBalancerTlsCertificate
s@CreateLoadBalancerTlsCertificate' {} Text
a -> CreateLoadBalancerTlsCertificate
s {$sel:loadBalancerName:CreateLoadBalancerTlsCertificate' :: Text
loadBalancerName = Text
a} :: CreateLoadBalancerTlsCertificate)
createLoadBalancerTlsCertificate_certificateName :: Lens.Lens' CreateLoadBalancerTlsCertificate Prelude.Text
createLoadBalancerTlsCertificate_certificateName :: Lens' CreateLoadBalancerTlsCertificate Text
createLoadBalancerTlsCertificate_certificateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificate' {Text
certificateName :: Text
$sel:certificateName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
certificateName} -> Text
certificateName) (\s :: CreateLoadBalancerTlsCertificate
s@CreateLoadBalancerTlsCertificate' {} Text
a -> CreateLoadBalancerTlsCertificate
s {$sel:certificateName:CreateLoadBalancerTlsCertificate' :: Text
certificateName = Text
a} :: CreateLoadBalancerTlsCertificate)
createLoadBalancerTlsCertificate_certificateDomainName :: Lens.Lens' CreateLoadBalancerTlsCertificate Prelude.Text
createLoadBalancerTlsCertificate_certificateDomainName :: Lens' CreateLoadBalancerTlsCertificate Text
createLoadBalancerTlsCertificate_certificateDomainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificate' {Text
certificateDomainName :: Text
$sel:certificateDomainName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
certificateDomainName} -> Text
certificateDomainName) (\s :: CreateLoadBalancerTlsCertificate
s@CreateLoadBalancerTlsCertificate' {} Text
a -> CreateLoadBalancerTlsCertificate
s {$sel:certificateDomainName:CreateLoadBalancerTlsCertificate' :: Text
certificateDomainName = Text
a} :: CreateLoadBalancerTlsCertificate)
instance
Core.AWSRequest
CreateLoadBalancerTlsCertificate
where
type
AWSResponse CreateLoadBalancerTlsCertificate =
CreateLoadBalancerTlsCertificateResponse
request :: (Service -> Service)
-> CreateLoadBalancerTlsCertificate
-> Request CreateLoadBalancerTlsCertificate
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 CreateLoadBalancerTlsCertificate
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateLoadBalancerTlsCertificate)))
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 -> CreateLoadBalancerTlsCertificateResponse
CreateLoadBalancerTlsCertificateResponse'
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
CreateLoadBalancerTlsCertificate
where
hashWithSalt :: Int -> CreateLoadBalancerTlsCertificate -> Int
hashWithSalt
Int
_salt
CreateLoadBalancerTlsCertificate' {Maybe [Text]
Maybe [Tag]
Text
certificateDomainName :: Text
certificateName :: Text
loadBalancerName :: Text
tags :: Maybe [Tag]
certificateAlternativeNames :: Maybe [Text]
$sel:certificateDomainName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:certificateName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:loadBalancerName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:tags:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Maybe [Tag]
$sel:certificateAlternativeNames:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> 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 [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
certificateName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
certificateDomainName
instance
Prelude.NFData
CreateLoadBalancerTlsCertificate
where
rnf :: CreateLoadBalancerTlsCertificate -> ()
rnf CreateLoadBalancerTlsCertificate' {Maybe [Text]
Maybe [Tag]
Text
certificateDomainName :: Text
certificateName :: Text
loadBalancerName :: Text
tags :: Maybe [Tag]
certificateAlternativeNames :: Maybe [Text]
$sel:certificateDomainName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:certificateName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:loadBalancerName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:tags:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Maybe [Tag]
$sel:certificateAlternativeNames:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> 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 [Tag]
tags
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 Text
certificateName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
certificateDomainName
instance
Data.ToHeaders
CreateLoadBalancerTlsCertificate
where
toHeaders :: CreateLoadBalancerTlsCertificate -> 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.CreateLoadBalancerTlsCertificate" ::
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 CreateLoadBalancerTlsCertificate where
toJSON :: CreateLoadBalancerTlsCertificate -> Value
toJSON CreateLoadBalancerTlsCertificate' {Maybe [Text]
Maybe [Tag]
Text
certificateDomainName :: Text
certificateName :: Text
loadBalancerName :: Text
tags :: Maybe [Tag]
certificateAlternativeNames :: Maybe [Text]
$sel:certificateDomainName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:certificateName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:loadBalancerName:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Text
$sel:tags:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> Maybe [Tag]
$sel:certificateAlternativeNames:CreateLoadBalancerTlsCertificate' :: CreateLoadBalancerTlsCertificate -> 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
"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,
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
"certificateName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
certificateName),
forall a. a -> Maybe a
Prelude.Just
( Key
"certificateDomainName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
certificateDomainName
)
]
)
instance Data.ToPath CreateLoadBalancerTlsCertificate where
toPath :: CreateLoadBalancerTlsCertificate -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
CreateLoadBalancerTlsCertificate
where
toQuery :: CreateLoadBalancerTlsCertificate -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateLoadBalancerTlsCertificateResponse = CreateLoadBalancerTlsCertificateResponse'
{
CreateLoadBalancerTlsCertificateResponse -> Maybe [Operation]
operations :: Prelude.Maybe [Operation],
CreateLoadBalancerTlsCertificateResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateLoadBalancerTlsCertificateResponse
-> CreateLoadBalancerTlsCertificateResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoadBalancerTlsCertificateResponse
-> CreateLoadBalancerTlsCertificateResponse -> Bool
$c/= :: CreateLoadBalancerTlsCertificateResponse
-> CreateLoadBalancerTlsCertificateResponse -> Bool
== :: CreateLoadBalancerTlsCertificateResponse
-> CreateLoadBalancerTlsCertificateResponse -> Bool
$c== :: CreateLoadBalancerTlsCertificateResponse
-> CreateLoadBalancerTlsCertificateResponse -> Bool
Prelude.Eq, ReadPrec [CreateLoadBalancerTlsCertificateResponse]
ReadPrec CreateLoadBalancerTlsCertificateResponse
Int -> ReadS CreateLoadBalancerTlsCertificateResponse
ReadS [CreateLoadBalancerTlsCertificateResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoadBalancerTlsCertificateResponse]
$creadListPrec :: ReadPrec [CreateLoadBalancerTlsCertificateResponse]
readPrec :: ReadPrec CreateLoadBalancerTlsCertificateResponse
$creadPrec :: ReadPrec CreateLoadBalancerTlsCertificateResponse
readList :: ReadS [CreateLoadBalancerTlsCertificateResponse]
$creadList :: ReadS [CreateLoadBalancerTlsCertificateResponse]
readsPrec :: Int -> ReadS CreateLoadBalancerTlsCertificateResponse
$creadsPrec :: Int -> ReadS CreateLoadBalancerTlsCertificateResponse
Prelude.Read, Int -> CreateLoadBalancerTlsCertificateResponse -> ShowS
[CreateLoadBalancerTlsCertificateResponse] -> ShowS
CreateLoadBalancerTlsCertificateResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoadBalancerTlsCertificateResponse] -> ShowS
$cshowList :: [CreateLoadBalancerTlsCertificateResponse] -> ShowS
show :: CreateLoadBalancerTlsCertificateResponse -> String
$cshow :: CreateLoadBalancerTlsCertificateResponse -> String
showsPrec :: Int -> CreateLoadBalancerTlsCertificateResponse -> ShowS
$cshowsPrec :: Int -> CreateLoadBalancerTlsCertificateResponse -> ShowS
Prelude.Show, forall x.
Rep CreateLoadBalancerTlsCertificateResponse x
-> CreateLoadBalancerTlsCertificateResponse
forall x.
CreateLoadBalancerTlsCertificateResponse
-> Rep CreateLoadBalancerTlsCertificateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoadBalancerTlsCertificateResponse x
-> CreateLoadBalancerTlsCertificateResponse
$cfrom :: forall x.
CreateLoadBalancerTlsCertificateResponse
-> Rep CreateLoadBalancerTlsCertificateResponse x
Prelude.Generic)
newCreateLoadBalancerTlsCertificateResponse ::
Prelude.Int ->
CreateLoadBalancerTlsCertificateResponse
newCreateLoadBalancerTlsCertificateResponse :: Int -> CreateLoadBalancerTlsCertificateResponse
newCreateLoadBalancerTlsCertificateResponse
Int
pHttpStatus_ =
CreateLoadBalancerTlsCertificateResponse'
{ $sel:operations:CreateLoadBalancerTlsCertificateResponse' :: Maybe [Operation]
operations =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateLoadBalancerTlsCertificateResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createLoadBalancerTlsCertificateResponse_operations :: Lens.Lens' CreateLoadBalancerTlsCertificateResponse (Prelude.Maybe [Operation])
createLoadBalancerTlsCertificateResponse_operations :: Lens' CreateLoadBalancerTlsCertificateResponse (Maybe [Operation])
createLoadBalancerTlsCertificateResponse_operations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificateResponse' {Maybe [Operation]
operations :: Maybe [Operation]
$sel:operations:CreateLoadBalancerTlsCertificateResponse' :: CreateLoadBalancerTlsCertificateResponse -> Maybe [Operation]
operations} -> Maybe [Operation]
operations) (\s :: CreateLoadBalancerTlsCertificateResponse
s@CreateLoadBalancerTlsCertificateResponse' {} Maybe [Operation]
a -> CreateLoadBalancerTlsCertificateResponse
s {$sel:operations:CreateLoadBalancerTlsCertificateResponse' :: Maybe [Operation]
operations = Maybe [Operation]
a} :: CreateLoadBalancerTlsCertificateResponse) 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
createLoadBalancerTlsCertificateResponse_httpStatus :: Lens.Lens' CreateLoadBalancerTlsCertificateResponse Prelude.Int
createLoadBalancerTlsCertificateResponse_httpStatus :: Lens' CreateLoadBalancerTlsCertificateResponse Int
createLoadBalancerTlsCertificateResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerTlsCertificateResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateLoadBalancerTlsCertificateResponse' :: CreateLoadBalancerTlsCertificateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateLoadBalancerTlsCertificateResponse
s@CreateLoadBalancerTlsCertificateResponse' {} Int
a -> CreateLoadBalancerTlsCertificateResponse
s {$sel:httpStatus:CreateLoadBalancerTlsCertificateResponse' :: Int
httpStatus = Int
a} :: CreateLoadBalancerTlsCertificateResponse)
instance
Prelude.NFData
CreateLoadBalancerTlsCertificateResponse
where
rnf :: CreateLoadBalancerTlsCertificateResponse -> ()
rnf CreateLoadBalancerTlsCertificateResponse' {Int
Maybe [Operation]
httpStatus :: Int
operations :: Maybe [Operation]
$sel:httpStatus:CreateLoadBalancerTlsCertificateResponse' :: CreateLoadBalancerTlsCertificateResponse -> Int
$sel:operations:CreateLoadBalancerTlsCertificateResponse' :: CreateLoadBalancerTlsCertificateResponse -> 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