{-# 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.AppRunner.UpdateService
(
UpdateService (..),
newUpdateService,
updateService_autoScalingConfigurationArn,
updateService_healthCheckConfiguration,
updateService_instanceConfiguration,
updateService_networkConfiguration,
updateService_observabilityConfiguration,
updateService_sourceConfiguration,
updateService_serviceArn,
UpdateServiceResponse (..),
newUpdateServiceResponse,
updateServiceResponse_httpStatus,
updateServiceResponse_service,
updateServiceResponse_operationId,
)
where
import Amazonka.AppRunner.Types
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
data UpdateService = UpdateService'
{
UpdateService -> Maybe Text
autoScalingConfigurationArn :: Prelude.Maybe Prelude.Text,
UpdateService -> Maybe HealthCheckConfiguration
healthCheckConfiguration :: Prelude.Maybe HealthCheckConfiguration,
UpdateService -> Maybe InstanceConfiguration
instanceConfiguration :: Prelude.Maybe InstanceConfiguration,
UpdateService -> Maybe NetworkConfiguration
networkConfiguration :: Prelude.Maybe NetworkConfiguration,
UpdateService -> Maybe ServiceObservabilityConfiguration
observabilityConfiguration :: Prelude.Maybe ServiceObservabilityConfiguration,
UpdateService -> Maybe SourceConfiguration
sourceConfiguration :: Prelude.Maybe SourceConfiguration,
UpdateService -> Text
serviceArn :: Prelude.Text
}
deriving (UpdateService -> UpdateService -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateService -> UpdateService -> Bool
$c/= :: UpdateService -> UpdateService -> Bool
== :: UpdateService -> UpdateService -> Bool
$c== :: UpdateService -> UpdateService -> Bool
Prelude.Eq, Int -> UpdateService -> ShowS
[UpdateService] -> ShowS
UpdateService -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateService] -> ShowS
$cshowList :: [UpdateService] -> ShowS
show :: UpdateService -> String
$cshow :: UpdateService -> String
showsPrec :: Int -> UpdateService -> ShowS
$cshowsPrec :: Int -> UpdateService -> ShowS
Prelude.Show, forall x. Rep UpdateService x -> UpdateService
forall x. UpdateService -> Rep UpdateService x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateService x -> UpdateService
$cfrom :: forall x. UpdateService -> Rep UpdateService x
Prelude.Generic)
newUpdateService ::
Prelude.Text ->
UpdateService
newUpdateService :: Text -> UpdateService
newUpdateService Text
pServiceArn_ =
UpdateService'
{ $sel:autoScalingConfigurationArn:UpdateService' :: Maybe Text
autoScalingConfigurationArn =
forall a. Maybe a
Prelude.Nothing,
$sel:healthCheckConfiguration:UpdateService' :: Maybe HealthCheckConfiguration
healthCheckConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:instanceConfiguration:UpdateService' :: Maybe InstanceConfiguration
instanceConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:networkConfiguration:UpdateService' :: Maybe NetworkConfiguration
networkConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:observabilityConfiguration:UpdateService' :: Maybe ServiceObservabilityConfiguration
observabilityConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:sourceConfiguration:UpdateService' :: Maybe SourceConfiguration
sourceConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:serviceArn:UpdateService' :: Text
serviceArn = Text
pServiceArn_
}
updateService_autoScalingConfigurationArn :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Text)
updateService_autoScalingConfigurationArn :: Lens' UpdateService (Maybe Text)
updateService_autoScalingConfigurationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Text
autoScalingConfigurationArn :: Maybe Text
$sel:autoScalingConfigurationArn:UpdateService' :: UpdateService -> Maybe Text
autoScalingConfigurationArn} -> Maybe Text
autoScalingConfigurationArn) (\s :: UpdateService
s@UpdateService' {} Maybe Text
a -> UpdateService
s {$sel:autoScalingConfigurationArn:UpdateService' :: Maybe Text
autoScalingConfigurationArn = Maybe Text
a} :: UpdateService)
updateService_healthCheckConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe HealthCheckConfiguration)
updateService_healthCheckConfiguration :: Lens' UpdateService (Maybe HealthCheckConfiguration)
updateService_healthCheckConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe HealthCheckConfiguration
healthCheckConfiguration :: Maybe HealthCheckConfiguration
$sel:healthCheckConfiguration:UpdateService' :: UpdateService -> Maybe HealthCheckConfiguration
healthCheckConfiguration} -> Maybe HealthCheckConfiguration
healthCheckConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe HealthCheckConfiguration
a -> UpdateService
s {$sel:healthCheckConfiguration:UpdateService' :: Maybe HealthCheckConfiguration
healthCheckConfiguration = Maybe HealthCheckConfiguration
a} :: UpdateService)
updateService_instanceConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe InstanceConfiguration)
updateService_instanceConfiguration :: Lens' UpdateService (Maybe InstanceConfiguration)
updateService_instanceConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe InstanceConfiguration
instanceConfiguration :: Maybe InstanceConfiguration
$sel:instanceConfiguration:UpdateService' :: UpdateService -> Maybe InstanceConfiguration
instanceConfiguration} -> Maybe InstanceConfiguration
instanceConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe InstanceConfiguration
a -> UpdateService
s {$sel:instanceConfiguration:UpdateService' :: Maybe InstanceConfiguration
instanceConfiguration = Maybe InstanceConfiguration
a} :: UpdateService)
updateService_networkConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe NetworkConfiguration)
updateService_networkConfiguration :: Lens' UpdateService (Maybe NetworkConfiguration)
updateService_networkConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe NetworkConfiguration
networkConfiguration :: Maybe NetworkConfiguration
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
networkConfiguration} -> Maybe NetworkConfiguration
networkConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe NetworkConfiguration
a -> UpdateService
s {$sel:networkConfiguration:UpdateService' :: Maybe NetworkConfiguration
networkConfiguration = Maybe NetworkConfiguration
a} :: UpdateService)
updateService_observabilityConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe ServiceObservabilityConfiguration)
updateService_observabilityConfiguration :: Lens' UpdateService (Maybe ServiceObservabilityConfiguration)
updateService_observabilityConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe ServiceObservabilityConfiguration
observabilityConfiguration :: Maybe ServiceObservabilityConfiguration
$sel:observabilityConfiguration:UpdateService' :: UpdateService -> Maybe ServiceObservabilityConfiguration
observabilityConfiguration} -> Maybe ServiceObservabilityConfiguration
observabilityConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe ServiceObservabilityConfiguration
a -> UpdateService
s {$sel:observabilityConfiguration:UpdateService' :: Maybe ServiceObservabilityConfiguration
observabilityConfiguration = Maybe ServiceObservabilityConfiguration
a} :: UpdateService)
updateService_sourceConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe SourceConfiguration)
updateService_sourceConfiguration :: Lens' UpdateService (Maybe SourceConfiguration)
updateService_sourceConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe SourceConfiguration
sourceConfiguration :: Maybe SourceConfiguration
$sel:sourceConfiguration:UpdateService' :: UpdateService -> Maybe SourceConfiguration
sourceConfiguration} -> Maybe SourceConfiguration
sourceConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe SourceConfiguration
a -> UpdateService
s {$sel:sourceConfiguration:UpdateService' :: Maybe SourceConfiguration
sourceConfiguration = Maybe SourceConfiguration
a} :: UpdateService)
updateService_serviceArn :: Lens.Lens' UpdateService Prelude.Text
updateService_serviceArn :: Lens' UpdateService Text
updateService_serviceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Text
serviceArn :: Text
$sel:serviceArn:UpdateService' :: UpdateService -> Text
serviceArn} -> Text
serviceArn) (\s :: UpdateService
s@UpdateService' {} Text
a -> UpdateService
s {$sel:serviceArn:UpdateService' :: Text
serviceArn = Text
a} :: UpdateService)
instance Core.AWSRequest UpdateService where
type
AWSResponse UpdateService =
UpdateServiceResponse
request :: (Service -> Service) -> UpdateService -> Request UpdateService
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 UpdateService
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateService)))
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 -> Service -> Text -> UpdateServiceResponse
UpdateServiceResponse'
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
"Service")
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
"OperationId")
)
instance Prelude.Hashable UpdateService where
hashWithSalt :: Int -> UpdateService -> Int
hashWithSalt Int
_salt UpdateService' {Maybe Text
Maybe HealthCheckConfiguration
Maybe InstanceConfiguration
Maybe NetworkConfiguration
Maybe ServiceObservabilityConfiguration
Maybe SourceConfiguration
Text
serviceArn :: Text
sourceConfiguration :: Maybe SourceConfiguration
observabilityConfiguration :: Maybe ServiceObservabilityConfiguration
networkConfiguration :: Maybe NetworkConfiguration
instanceConfiguration :: Maybe InstanceConfiguration
healthCheckConfiguration :: Maybe HealthCheckConfiguration
autoScalingConfigurationArn :: Maybe Text
$sel:serviceArn:UpdateService' :: UpdateService -> Text
$sel:sourceConfiguration:UpdateService' :: UpdateService -> Maybe SourceConfiguration
$sel:observabilityConfiguration:UpdateService' :: UpdateService -> Maybe ServiceObservabilityConfiguration
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
$sel:instanceConfiguration:UpdateService' :: UpdateService -> Maybe InstanceConfiguration
$sel:healthCheckConfiguration:UpdateService' :: UpdateService -> Maybe HealthCheckConfiguration
$sel:autoScalingConfigurationArn:UpdateService' :: UpdateService -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
autoScalingConfigurationArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe HealthCheckConfiguration
healthCheckConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InstanceConfiguration
instanceConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe NetworkConfiguration
networkConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ServiceObservabilityConfiguration
observabilityConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SourceConfiguration
sourceConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceArn
instance Prelude.NFData UpdateService where
rnf :: UpdateService -> ()
rnf UpdateService' {Maybe Text
Maybe HealthCheckConfiguration
Maybe InstanceConfiguration
Maybe NetworkConfiguration
Maybe ServiceObservabilityConfiguration
Maybe SourceConfiguration
Text
serviceArn :: Text
sourceConfiguration :: Maybe SourceConfiguration
observabilityConfiguration :: Maybe ServiceObservabilityConfiguration
networkConfiguration :: Maybe NetworkConfiguration
instanceConfiguration :: Maybe InstanceConfiguration
healthCheckConfiguration :: Maybe HealthCheckConfiguration
autoScalingConfigurationArn :: Maybe Text
$sel:serviceArn:UpdateService' :: UpdateService -> Text
$sel:sourceConfiguration:UpdateService' :: UpdateService -> Maybe SourceConfiguration
$sel:observabilityConfiguration:UpdateService' :: UpdateService -> Maybe ServiceObservabilityConfiguration
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
$sel:instanceConfiguration:UpdateService' :: UpdateService -> Maybe InstanceConfiguration
$sel:healthCheckConfiguration:UpdateService' :: UpdateService -> Maybe HealthCheckConfiguration
$sel:autoScalingConfigurationArn:UpdateService' :: UpdateService -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
autoScalingConfigurationArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HealthCheckConfiguration
healthCheckConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InstanceConfiguration
instanceConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe NetworkConfiguration
networkConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ServiceObservabilityConfiguration
observabilityConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SourceConfiguration
sourceConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceArn
instance Data.ToHeaders UpdateService where
toHeaders :: UpdateService -> 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
"AppRunner.UpdateService" :: Prelude.ByteString),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateService where
toJSON :: UpdateService -> Value
toJSON UpdateService' {Maybe Text
Maybe HealthCheckConfiguration
Maybe InstanceConfiguration
Maybe NetworkConfiguration
Maybe ServiceObservabilityConfiguration
Maybe SourceConfiguration
Text
serviceArn :: Text
sourceConfiguration :: Maybe SourceConfiguration
observabilityConfiguration :: Maybe ServiceObservabilityConfiguration
networkConfiguration :: Maybe NetworkConfiguration
instanceConfiguration :: Maybe InstanceConfiguration
healthCheckConfiguration :: Maybe HealthCheckConfiguration
autoScalingConfigurationArn :: Maybe Text
$sel:serviceArn:UpdateService' :: UpdateService -> Text
$sel:sourceConfiguration:UpdateService' :: UpdateService -> Maybe SourceConfiguration
$sel:observabilityConfiguration:UpdateService' :: UpdateService -> Maybe ServiceObservabilityConfiguration
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
$sel:instanceConfiguration:UpdateService' :: UpdateService -> Maybe InstanceConfiguration
$sel:healthCheckConfiguration:UpdateService' :: UpdateService -> Maybe HealthCheckConfiguration
$sel:autoScalingConfigurationArn:UpdateService' :: UpdateService -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AutoScalingConfigurationArn" 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
autoScalingConfigurationArn,
(Key
"HealthCheckConfiguration" 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 HealthCheckConfiguration
healthCheckConfiguration,
(Key
"InstanceConfiguration" 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 InstanceConfiguration
instanceConfiguration,
(Key
"NetworkConfiguration" 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 NetworkConfiguration
networkConfiguration,
(Key
"ObservabilityConfiguration" 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 ServiceObservabilityConfiguration
observabilityConfiguration,
(Key
"SourceConfiguration" 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 SourceConfiguration
sourceConfiguration,
forall a. a -> Maybe a
Prelude.Just (Key
"ServiceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
serviceArn)
]
)
instance Data.ToPath UpdateService where
toPath :: UpdateService -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateService where
toQuery :: UpdateService -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateServiceResponse = UpdateServiceResponse'
{
UpdateServiceResponse -> Int
httpStatus :: Prelude.Int,
UpdateServiceResponse -> Service
service :: Service,
UpdateServiceResponse -> Text
operationId :: Prelude.Text
}
deriving (UpdateServiceResponse -> UpdateServiceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateServiceResponse -> UpdateServiceResponse -> Bool
$c/= :: UpdateServiceResponse -> UpdateServiceResponse -> Bool
== :: UpdateServiceResponse -> UpdateServiceResponse -> Bool
$c== :: UpdateServiceResponse -> UpdateServiceResponse -> Bool
Prelude.Eq, Int -> UpdateServiceResponse -> ShowS
[UpdateServiceResponse] -> ShowS
UpdateServiceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateServiceResponse] -> ShowS
$cshowList :: [UpdateServiceResponse] -> ShowS
show :: UpdateServiceResponse -> String
$cshow :: UpdateServiceResponse -> String
showsPrec :: Int -> UpdateServiceResponse -> ShowS
$cshowsPrec :: Int -> UpdateServiceResponse -> ShowS
Prelude.Show, forall x. Rep UpdateServiceResponse x -> UpdateServiceResponse
forall x. UpdateServiceResponse -> Rep UpdateServiceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateServiceResponse x -> UpdateServiceResponse
$cfrom :: forall x. UpdateServiceResponse -> Rep UpdateServiceResponse x
Prelude.Generic)
newUpdateServiceResponse ::
Prelude.Int ->
Service ->
Prelude.Text ->
UpdateServiceResponse
newUpdateServiceResponse :: Int -> Service -> Text -> UpdateServiceResponse
newUpdateServiceResponse
Int
pHttpStatus_
Service
pService_
Text
pOperationId_ =
UpdateServiceResponse'
{ $sel:httpStatus:UpdateServiceResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:service:UpdateServiceResponse' :: Service
service = Service
pService_,
$sel:operationId:UpdateServiceResponse' :: Text
operationId = Text
pOperationId_
}
updateServiceResponse_httpStatus :: Lens.Lens' UpdateServiceResponse Prelude.Int
updateServiceResponse_httpStatus :: Lens' UpdateServiceResponse Int
updateServiceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateServiceResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateServiceResponse' :: UpdateServiceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateServiceResponse
s@UpdateServiceResponse' {} Int
a -> UpdateServiceResponse
s {$sel:httpStatus:UpdateServiceResponse' :: Int
httpStatus = Int
a} :: UpdateServiceResponse)
updateServiceResponse_service :: Lens.Lens' UpdateServiceResponse Service
updateServiceResponse_service :: Lens' UpdateServiceResponse Service
updateServiceResponse_service = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateServiceResponse' {Service
service :: Service
$sel:service:UpdateServiceResponse' :: UpdateServiceResponse -> Service
service} -> Service
service) (\s :: UpdateServiceResponse
s@UpdateServiceResponse' {} Service
a -> UpdateServiceResponse
s {$sel:service:UpdateServiceResponse' :: Service
service = Service
a} :: UpdateServiceResponse)
updateServiceResponse_operationId :: Lens.Lens' UpdateServiceResponse Prelude.Text
updateServiceResponse_operationId :: Lens' UpdateServiceResponse Text
updateServiceResponse_operationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateServiceResponse' {Text
operationId :: Text
$sel:operationId:UpdateServiceResponse' :: UpdateServiceResponse -> Text
operationId} -> Text
operationId) (\s :: UpdateServiceResponse
s@UpdateServiceResponse' {} Text
a -> UpdateServiceResponse
s {$sel:operationId:UpdateServiceResponse' :: Text
operationId = Text
a} :: UpdateServiceResponse)
instance Prelude.NFData UpdateServiceResponse where
rnf :: UpdateServiceResponse -> ()
rnf UpdateServiceResponse' {Int
Text
Service
operationId :: Text
service :: Service
httpStatus :: Int
$sel:operationId:UpdateServiceResponse' :: UpdateServiceResponse -> Text
$sel:service:UpdateServiceResponse' :: UpdateServiceResponse -> Service
$sel:httpStatus:UpdateServiceResponse' :: UpdateServiceResponse -> 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 Service
service
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
operationId