{-# 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.SageMaker.UpdateEndpoint
(
UpdateEndpoint (..),
newUpdateEndpoint,
updateEndpoint_deploymentConfig,
updateEndpoint_excludeRetainedVariantProperties,
updateEndpoint_retainAllVariantProperties,
updateEndpoint_retainDeploymentConfig,
updateEndpoint_endpointName,
updateEndpoint_endpointConfigName,
UpdateEndpointResponse (..),
newUpdateEndpointResponse,
updateEndpointResponse_httpStatus,
updateEndpointResponse_endpointArn,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types
data UpdateEndpoint = UpdateEndpoint'
{
UpdateEndpoint -> Maybe DeploymentConfig
deploymentConfig :: Prelude.Maybe DeploymentConfig,
UpdateEndpoint -> Maybe [VariantProperty]
excludeRetainedVariantProperties :: Prelude.Maybe [VariantProperty],
UpdateEndpoint -> Maybe Bool
retainAllVariantProperties :: Prelude.Maybe Prelude.Bool,
UpdateEndpoint -> Maybe Bool
retainDeploymentConfig :: Prelude.Maybe Prelude.Bool,
UpdateEndpoint -> Text
endpointName :: Prelude.Text,
UpdateEndpoint -> Text
endpointConfigName :: Prelude.Text
}
deriving (UpdateEndpoint -> UpdateEndpoint -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateEndpoint -> UpdateEndpoint -> Bool
$c/= :: UpdateEndpoint -> UpdateEndpoint -> Bool
== :: UpdateEndpoint -> UpdateEndpoint -> Bool
$c== :: UpdateEndpoint -> UpdateEndpoint -> Bool
Prelude.Eq, ReadPrec [UpdateEndpoint]
ReadPrec UpdateEndpoint
Int -> ReadS UpdateEndpoint
ReadS [UpdateEndpoint]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateEndpoint]
$creadListPrec :: ReadPrec [UpdateEndpoint]
readPrec :: ReadPrec UpdateEndpoint
$creadPrec :: ReadPrec UpdateEndpoint
readList :: ReadS [UpdateEndpoint]
$creadList :: ReadS [UpdateEndpoint]
readsPrec :: Int -> ReadS UpdateEndpoint
$creadsPrec :: Int -> ReadS UpdateEndpoint
Prelude.Read, Int -> UpdateEndpoint -> ShowS
[UpdateEndpoint] -> ShowS
UpdateEndpoint -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateEndpoint] -> ShowS
$cshowList :: [UpdateEndpoint] -> ShowS
show :: UpdateEndpoint -> String
$cshow :: UpdateEndpoint -> String
showsPrec :: Int -> UpdateEndpoint -> ShowS
$cshowsPrec :: Int -> UpdateEndpoint -> ShowS
Prelude.Show, forall x. Rep UpdateEndpoint x -> UpdateEndpoint
forall x. UpdateEndpoint -> Rep UpdateEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateEndpoint x -> UpdateEndpoint
$cfrom :: forall x. UpdateEndpoint -> Rep UpdateEndpoint x
Prelude.Generic)
newUpdateEndpoint ::
Prelude.Text ->
Prelude.Text ->
UpdateEndpoint
newUpdateEndpoint :: Text -> Text -> UpdateEndpoint
newUpdateEndpoint Text
pEndpointName_ Text
pEndpointConfigName_ =
UpdateEndpoint'
{ $sel:deploymentConfig:UpdateEndpoint' :: Maybe DeploymentConfig
deploymentConfig = forall a. Maybe a
Prelude.Nothing,
$sel:excludeRetainedVariantProperties:UpdateEndpoint' :: Maybe [VariantProperty]
excludeRetainedVariantProperties = forall a. Maybe a
Prelude.Nothing,
$sel:retainAllVariantProperties:UpdateEndpoint' :: Maybe Bool
retainAllVariantProperties = forall a. Maybe a
Prelude.Nothing,
$sel:retainDeploymentConfig:UpdateEndpoint' :: Maybe Bool
retainDeploymentConfig = forall a. Maybe a
Prelude.Nothing,
$sel:endpointName:UpdateEndpoint' :: Text
endpointName = Text
pEndpointName_,
$sel:endpointConfigName:UpdateEndpoint' :: Text
endpointConfigName = Text
pEndpointConfigName_
}
updateEndpoint_deploymentConfig :: Lens.Lens' UpdateEndpoint (Prelude.Maybe DeploymentConfig)
updateEndpoint_deploymentConfig :: Lens' UpdateEndpoint (Maybe DeploymentConfig)
updateEndpoint_deploymentConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpoint' {Maybe DeploymentConfig
deploymentConfig :: Maybe DeploymentConfig
$sel:deploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe DeploymentConfig
deploymentConfig} -> Maybe DeploymentConfig
deploymentConfig) (\s :: UpdateEndpoint
s@UpdateEndpoint' {} Maybe DeploymentConfig
a -> UpdateEndpoint
s {$sel:deploymentConfig:UpdateEndpoint' :: Maybe DeploymentConfig
deploymentConfig = Maybe DeploymentConfig
a} :: UpdateEndpoint)
updateEndpoint_excludeRetainedVariantProperties :: Lens.Lens' UpdateEndpoint (Prelude.Maybe [VariantProperty])
updateEndpoint_excludeRetainedVariantProperties :: Lens' UpdateEndpoint (Maybe [VariantProperty])
updateEndpoint_excludeRetainedVariantProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpoint' {Maybe [VariantProperty]
excludeRetainedVariantProperties :: Maybe [VariantProperty]
$sel:excludeRetainedVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe [VariantProperty]
excludeRetainedVariantProperties} -> Maybe [VariantProperty]
excludeRetainedVariantProperties) (\s :: UpdateEndpoint
s@UpdateEndpoint' {} Maybe [VariantProperty]
a -> UpdateEndpoint
s {$sel:excludeRetainedVariantProperties:UpdateEndpoint' :: Maybe [VariantProperty]
excludeRetainedVariantProperties = Maybe [VariantProperty]
a} :: UpdateEndpoint) 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
updateEndpoint_retainAllVariantProperties :: Lens.Lens' UpdateEndpoint (Prelude.Maybe Prelude.Bool)
updateEndpoint_retainAllVariantProperties :: Lens' UpdateEndpoint (Maybe Bool)
updateEndpoint_retainAllVariantProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpoint' {Maybe Bool
retainAllVariantProperties :: Maybe Bool
$sel:retainAllVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
retainAllVariantProperties} -> Maybe Bool
retainAllVariantProperties) (\s :: UpdateEndpoint
s@UpdateEndpoint' {} Maybe Bool
a -> UpdateEndpoint
s {$sel:retainAllVariantProperties:UpdateEndpoint' :: Maybe Bool
retainAllVariantProperties = Maybe Bool
a} :: UpdateEndpoint)
updateEndpoint_retainDeploymentConfig :: Lens.Lens' UpdateEndpoint (Prelude.Maybe Prelude.Bool)
updateEndpoint_retainDeploymentConfig :: Lens' UpdateEndpoint (Maybe Bool)
updateEndpoint_retainDeploymentConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpoint' {Maybe Bool
retainDeploymentConfig :: Maybe Bool
$sel:retainDeploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
retainDeploymentConfig} -> Maybe Bool
retainDeploymentConfig) (\s :: UpdateEndpoint
s@UpdateEndpoint' {} Maybe Bool
a -> UpdateEndpoint
s {$sel:retainDeploymentConfig:UpdateEndpoint' :: Maybe Bool
retainDeploymentConfig = Maybe Bool
a} :: UpdateEndpoint)
updateEndpoint_endpointName :: Lens.Lens' UpdateEndpoint Prelude.Text
updateEndpoint_endpointName :: Lens' UpdateEndpoint Text
updateEndpoint_endpointName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpoint' {Text
endpointName :: Text
$sel:endpointName:UpdateEndpoint' :: UpdateEndpoint -> Text
endpointName} -> Text
endpointName) (\s :: UpdateEndpoint
s@UpdateEndpoint' {} Text
a -> UpdateEndpoint
s {$sel:endpointName:UpdateEndpoint' :: Text
endpointName = Text
a} :: UpdateEndpoint)
updateEndpoint_endpointConfigName :: Lens.Lens' UpdateEndpoint Prelude.Text
updateEndpoint_endpointConfigName :: Lens' UpdateEndpoint Text
updateEndpoint_endpointConfigName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpoint' {Text
endpointConfigName :: Text
$sel:endpointConfigName:UpdateEndpoint' :: UpdateEndpoint -> Text
endpointConfigName} -> Text
endpointConfigName) (\s :: UpdateEndpoint
s@UpdateEndpoint' {} Text
a -> UpdateEndpoint
s {$sel:endpointConfigName:UpdateEndpoint' :: Text
endpointConfigName = Text
a} :: UpdateEndpoint)
instance Core.AWSRequest UpdateEndpoint where
type
AWSResponse UpdateEndpoint =
UpdateEndpointResponse
request :: (Service -> Service) -> UpdateEndpoint -> Request UpdateEndpoint
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 UpdateEndpoint
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateEndpoint)))
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 ->
Int -> Text -> UpdateEndpointResponse
UpdateEndpointResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"EndpointArn")
)
instance Prelude.Hashable UpdateEndpoint where
hashWithSalt :: Int -> UpdateEndpoint -> Int
hashWithSalt Int
_salt UpdateEndpoint' {Maybe Bool
Maybe [VariantProperty]
Maybe DeploymentConfig
Text
endpointConfigName :: Text
endpointName :: Text
retainDeploymentConfig :: Maybe Bool
retainAllVariantProperties :: Maybe Bool
excludeRetainedVariantProperties :: Maybe [VariantProperty]
deploymentConfig :: Maybe DeploymentConfig
$sel:endpointConfigName:UpdateEndpoint' :: UpdateEndpoint -> Text
$sel:endpointName:UpdateEndpoint' :: UpdateEndpoint -> Text
$sel:retainDeploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
$sel:retainAllVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
$sel:excludeRetainedVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe [VariantProperty]
$sel:deploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe DeploymentConfig
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeploymentConfig
deploymentConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [VariantProperty]
excludeRetainedVariantProperties
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
retainAllVariantProperties
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
retainDeploymentConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
endpointName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
endpointConfigName
instance Prelude.NFData UpdateEndpoint where
rnf :: UpdateEndpoint -> ()
rnf UpdateEndpoint' {Maybe Bool
Maybe [VariantProperty]
Maybe DeploymentConfig
Text
endpointConfigName :: Text
endpointName :: Text
retainDeploymentConfig :: Maybe Bool
retainAllVariantProperties :: Maybe Bool
excludeRetainedVariantProperties :: Maybe [VariantProperty]
deploymentConfig :: Maybe DeploymentConfig
$sel:endpointConfigName:UpdateEndpoint' :: UpdateEndpoint -> Text
$sel:endpointName:UpdateEndpoint' :: UpdateEndpoint -> Text
$sel:retainDeploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
$sel:retainAllVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
$sel:excludeRetainedVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe [VariantProperty]
$sel:deploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe DeploymentConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DeploymentConfig
deploymentConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [VariantProperty]
excludeRetainedVariantProperties
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
retainAllVariantProperties
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
retainDeploymentConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
endpointName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
endpointConfigName
instance Data.ToHeaders UpdateEndpoint where
toHeaders :: UpdateEndpoint -> 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
"SageMaker.UpdateEndpoint" :: 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 UpdateEndpoint where
toJSON :: UpdateEndpoint -> Value
toJSON UpdateEndpoint' {Maybe Bool
Maybe [VariantProperty]
Maybe DeploymentConfig
Text
endpointConfigName :: Text
endpointName :: Text
retainDeploymentConfig :: Maybe Bool
retainAllVariantProperties :: Maybe Bool
excludeRetainedVariantProperties :: Maybe [VariantProperty]
deploymentConfig :: Maybe DeploymentConfig
$sel:endpointConfigName:UpdateEndpoint' :: UpdateEndpoint -> Text
$sel:endpointName:UpdateEndpoint' :: UpdateEndpoint -> Text
$sel:retainDeploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
$sel:retainAllVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe Bool
$sel:excludeRetainedVariantProperties:UpdateEndpoint' :: UpdateEndpoint -> Maybe [VariantProperty]
$sel:deploymentConfig:UpdateEndpoint' :: UpdateEndpoint -> Maybe DeploymentConfig
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DeploymentConfig" 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 DeploymentConfig
deploymentConfig,
(Key
"ExcludeRetainedVariantProperties" 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 [VariantProperty]
excludeRetainedVariantProperties,
(Key
"RetainAllVariantProperties" 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 Bool
retainAllVariantProperties,
(Key
"RetainDeploymentConfig" 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 Bool
retainDeploymentConfig,
forall a. a -> Maybe a
Prelude.Just (Key
"EndpointName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
endpointName),
forall a. a -> Maybe a
Prelude.Just
(Key
"EndpointConfigName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
endpointConfigName)
]
)
instance Data.ToPath UpdateEndpoint where
toPath :: UpdateEndpoint -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateEndpoint where
toQuery :: UpdateEndpoint -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateEndpointResponse = UpdateEndpointResponse'
{
UpdateEndpointResponse -> Int
httpStatus :: Prelude.Int,
UpdateEndpointResponse -> Text
endpointArn :: Prelude.Text
}
deriving (UpdateEndpointResponse -> UpdateEndpointResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateEndpointResponse -> UpdateEndpointResponse -> Bool
$c/= :: UpdateEndpointResponse -> UpdateEndpointResponse -> Bool
== :: UpdateEndpointResponse -> UpdateEndpointResponse -> Bool
$c== :: UpdateEndpointResponse -> UpdateEndpointResponse -> Bool
Prelude.Eq, ReadPrec [UpdateEndpointResponse]
ReadPrec UpdateEndpointResponse
Int -> ReadS UpdateEndpointResponse
ReadS [UpdateEndpointResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateEndpointResponse]
$creadListPrec :: ReadPrec [UpdateEndpointResponse]
readPrec :: ReadPrec UpdateEndpointResponse
$creadPrec :: ReadPrec UpdateEndpointResponse
readList :: ReadS [UpdateEndpointResponse]
$creadList :: ReadS [UpdateEndpointResponse]
readsPrec :: Int -> ReadS UpdateEndpointResponse
$creadsPrec :: Int -> ReadS UpdateEndpointResponse
Prelude.Read, Int -> UpdateEndpointResponse -> ShowS
[UpdateEndpointResponse] -> ShowS
UpdateEndpointResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateEndpointResponse] -> ShowS
$cshowList :: [UpdateEndpointResponse] -> ShowS
show :: UpdateEndpointResponse -> String
$cshow :: UpdateEndpointResponse -> String
showsPrec :: Int -> UpdateEndpointResponse -> ShowS
$cshowsPrec :: Int -> UpdateEndpointResponse -> ShowS
Prelude.Show, forall x. Rep UpdateEndpointResponse x -> UpdateEndpointResponse
forall x. UpdateEndpointResponse -> Rep UpdateEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateEndpointResponse x -> UpdateEndpointResponse
$cfrom :: forall x. UpdateEndpointResponse -> Rep UpdateEndpointResponse x
Prelude.Generic)
newUpdateEndpointResponse ::
Prelude.Int ->
Prelude.Text ->
UpdateEndpointResponse
newUpdateEndpointResponse :: Int -> Text -> UpdateEndpointResponse
newUpdateEndpointResponse Int
pHttpStatus_ Text
pEndpointArn_ =
UpdateEndpointResponse'
{ $sel:httpStatus:UpdateEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:endpointArn:UpdateEndpointResponse' :: Text
endpointArn = Text
pEndpointArn_
}
updateEndpointResponse_httpStatus :: Lens.Lens' UpdateEndpointResponse Prelude.Int
updateEndpointResponse_httpStatus :: Lens' UpdateEndpointResponse Int
updateEndpointResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpointResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateEndpointResponse' :: UpdateEndpointResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateEndpointResponse
s@UpdateEndpointResponse' {} Int
a -> UpdateEndpointResponse
s {$sel:httpStatus:UpdateEndpointResponse' :: Int
httpStatus = Int
a} :: UpdateEndpointResponse)
updateEndpointResponse_endpointArn :: Lens.Lens' UpdateEndpointResponse Prelude.Text
updateEndpointResponse_endpointArn :: Lens' UpdateEndpointResponse Text
updateEndpointResponse_endpointArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEndpointResponse' {Text
endpointArn :: Text
$sel:endpointArn:UpdateEndpointResponse' :: UpdateEndpointResponse -> Text
endpointArn} -> Text
endpointArn) (\s :: UpdateEndpointResponse
s@UpdateEndpointResponse' {} Text
a -> UpdateEndpointResponse
s {$sel:endpointArn:UpdateEndpointResponse' :: Text
endpointArn = Text
a} :: UpdateEndpointResponse)
instance Prelude.NFData UpdateEndpointResponse where
rnf :: UpdateEndpointResponse -> ()
rnf UpdateEndpointResponse' {Int
Text
endpointArn :: Text
httpStatus :: Int
$sel:endpointArn:UpdateEndpointResponse' :: UpdateEndpointResponse -> Text
$sel:httpStatus:UpdateEndpointResponse' :: UpdateEndpointResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
endpointArn