{-# 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.ECS.UpdateService
(
UpdateService (..),
newUpdateService,
updateService_capacityProviderStrategy,
updateService_cluster,
updateService_deploymentConfiguration,
updateService_desiredCount,
updateService_enableECSManagedTags,
updateService_enableExecuteCommand,
updateService_forceNewDeployment,
updateService_healthCheckGracePeriodSeconds,
updateService_loadBalancers,
updateService_networkConfiguration,
updateService_placementConstraints,
updateService_placementStrategy,
updateService_platformVersion,
updateService_propagateTags,
updateService_serviceConnectConfiguration,
updateService_serviceRegistries,
updateService_taskDefinition,
updateService_service,
UpdateServiceResponse (..),
newUpdateServiceResponse,
updateServiceResponse_service,
updateServiceResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ECS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateService = UpdateService'
{
UpdateService -> Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy :: Prelude.Maybe [CapacityProviderStrategyItem],
UpdateService -> Maybe Text
cluster :: Prelude.Maybe Prelude.Text,
UpdateService -> Maybe DeploymentConfiguration
deploymentConfiguration :: Prelude.Maybe DeploymentConfiguration,
UpdateService -> Maybe Int
desiredCount :: Prelude.Maybe Prelude.Int,
UpdateService -> Maybe Bool
enableECSManagedTags :: Prelude.Maybe Prelude.Bool,
UpdateService -> Maybe Bool
enableExecuteCommand :: Prelude.Maybe Prelude.Bool,
UpdateService -> Maybe Bool
forceNewDeployment :: Prelude.Maybe Prelude.Bool,
UpdateService -> Maybe Int
healthCheckGracePeriodSeconds :: Prelude.Maybe Prelude.Int,
UpdateService -> Maybe [LoadBalancer]
loadBalancers :: Prelude.Maybe [LoadBalancer],
UpdateService -> Maybe NetworkConfiguration
networkConfiguration :: Prelude.Maybe NetworkConfiguration,
UpdateService -> Maybe [PlacementConstraint]
placementConstraints :: Prelude.Maybe [PlacementConstraint],
UpdateService -> Maybe [PlacementStrategy]
placementStrategy :: Prelude.Maybe [PlacementStrategy],
UpdateService -> Maybe Text
platformVersion :: Prelude.Maybe Prelude.Text,
UpdateService -> Maybe PropagateTags
propagateTags :: Prelude.Maybe PropagateTags,
UpdateService -> Maybe ServiceConnectConfiguration
serviceConnectConfiguration :: Prelude.Maybe ServiceConnectConfiguration,
UpdateService -> Maybe [ServiceRegistry]
serviceRegistries :: Prelude.Maybe [ServiceRegistry],
UpdateService -> Maybe Text
taskDefinition :: Prelude.Maybe Prelude.Text,
UpdateService -> Text
service :: 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, ReadPrec [UpdateService]
ReadPrec UpdateService
Int -> ReadS UpdateService
ReadS [UpdateService]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateService]
$creadListPrec :: ReadPrec [UpdateService]
readPrec :: ReadPrec UpdateService
$creadPrec :: ReadPrec UpdateService
readList :: ReadS [UpdateService]
$creadList :: ReadS [UpdateService]
readsPrec :: Int -> ReadS UpdateService
$creadsPrec :: Int -> ReadS UpdateService
Prelude.Read, 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
pService_ =
UpdateService'
{ $sel:capacityProviderStrategy:UpdateService' :: Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy =
forall a. Maybe a
Prelude.Nothing,
$sel:cluster:UpdateService' :: Maybe Text
cluster = forall a. Maybe a
Prelude.Nothing,
$sel:deploymentConfiguration:UpdateService' :: Maybe DeploymentConfiguration
deploymentConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:desiredCount:UpdateService' :: Maybe Int
desiredCount = forall a. Maybe a
Prelude.Nothing,
$sel:enableECSManagedTags:UpdateService' :: Maybe Bool
enableECSManagedTags = forall a. Maybe a
Prelude.Nothing,
$sel:enableExecuteCommand:UpdateService' :: Maybe Bool
enableExecuteCommand = forall a. Maybe a
Prelude.Nothing,
$sel:forceNewDeployment:UpdateService' :: Maybe Bool
forceNewDeployment = forall a. Maybe a
Prelude.Nothing,
$sel:healthCheckGracePeriodSeconds:UpdateService' :: Maybe Int
healthCheckGracePeriodSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:loadBalancers:UpdateService' :: Maybe [LoadBalancer]
loadBalancers = forall a. Maybe a
Prelude.Nothing,
$sel:networkConfiguration:UpdateService' :: Maybe NetworkConfiguration
networkConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:placementConstraints:UpdateService' :: Maybe [PlacementConstraint]
placementConstraints = forall a. Maybe a
Prelude.Nothing,
$sel:placementStrategy:UpdateService' :: Maybe [PlacementStrategy]
placementStrategy = forall a. Maybe a
Prelude.Nothing,
$sel:platformVersion:UpdateService' :: Maybe Text
platformVersion = forall a. Maybe a
Prelude.Nothing,
$sel:propagateTags:UpdateService' :: Maybe PropagateTags
propagateTags = forall a. Maybe a
Prelude.Nothing,
$sel:serviceConnectConfiguration:UpdateService' :: Maybe ServiceConnectConfiguration
serviceConnectConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:serviceRegistries:UpdateService' :: Maybe [ServiceRegistry]
serviceRegistries = forall a. Maybe a
Prelude.Nothing,
$sel:taskDefinition:UpdateService' :: Maybe Text
taskDefinition = forall a. Maybe a
Prelude.Nothing,
$sel:service:UpdateService' :: Text
service = Text
pService_
}
updateService_capacityProviderStrategy :: Lens.Lens' UpdateService (Prelude.Maybe [CapacityProviderStrategyItem])
updateService_capacityProviderStrategy :: Lens' UpdateService (Maybe [CapacityProviderStrategyItem])
updateService_capacityProviderStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:capacityProviderStrategy:UpdateService' :: UpdateService -> Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy} -> Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy) (\s :: UpdateService
s@UpdateService' {} Maybe [CapacityProviderStrategyItem]
a -> UpdateService
s {$sel:capacityProviderStrategy:UpdateService' :: Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy = Maybe [CapacityProviderStrategyItem]
a} :: UpdateService) 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
updateService_cluster :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Text)
updateService_cluster :: Lens' UpdateService (Maybe Text)
updateService_cluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Text
cluster :: Maybe Text
$sel:cluster:UpdateService' :: UpdateService -> Maybe Text
cluster} -> Maybe Text
cluster) (\s :: UpdateService
s@UpdateService' {} Maybe Text
a -> UpdateService
s {$sel:cluster:UpdateService' :: Maybe Text
cluster = Maybe Text
a} :: UpdateService)
updateService_deploymentConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe DeploymentConfiguration)
updateService_deploymentConfiguration :: Lens' UpdateService (Maybe DeploymentConfiguration)
updateService_deploymentConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe DeploymentConfiguration
deploymentConfiguration :: Maybe DeploymentConfiguration
$sel:deploymentConfiguration:UpdateService' :: UpdateService -> Maybe DeploymentConfiguration
deploymentConfiguration} -> Maybe DeploymentConfiguration
deploymentConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe DeploymentConfiguration
a -> UpdateService
s {$sel:deploymentConfiguration:UpdateService' :: Maybe DeploymentConfiguration
deploymentConfiguration = Maybe DeploymentConfiguration
a} :: UpdateService)
updateService_desiredCount :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Int)
updateService_desiredCount :: Lens' UpdateService (Maybe Int)
updateService_desiredCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Int
desiredCount :: Maybe Int
$sel:desiredCount:UpdateService' :: UpdateService -> Maybe Int
desiredCount} -> Maybe Int
desiredCount) (\s :: UpdateService
s@UpdateService' {} Maybe Int
a -> UpdateService
s {$sel:desiredCount:UpdateService' :: Maybe Int
desiredCount = Maybe Int
a} :: UpdateService)
updateService_enableECSManagedTags :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Bool)
updateService_enableECSManagedTags :: Lens' UpdateService (Maybe Bool)
updateService_enableECSManagedTags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Bool
enableECSManagedTags :: Maybe Bool
$sel:enableECSManagedTags:UpdateService' :: UpdateService -> Maybe Bool
enableECSManagedTags} -> Maybe Bool
enableECSManagedTags) (\s :: UpdateService
s@UpdateService' {} Maybe Bool
a -> UpdateService
s {$sel:enableECSManagedTags:UpdateService' :: Maybe Bool
enableECSManagedTags = Maybe Bool
a} :: UpdateService)
updateService_enableExecuteCommand :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Bool)
updateService_enableExecuteCommand :: Lens' UpdateService (Maybe Bool)
updateService_enableExecuteCommand = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Bool
enableExecuteCommand :: Maybe Bool
$sel:enableExecuteCommand:UpdateService' :: UpdateService -> Maybe Bool
enableExecuteCommand} -> Maybe Bool
enableExecuteCommand) (\s :: UpdateService
s@UpdateService' {} Maybe Bool
a -> UpdateService
s {$sel:enableExecuteCommand:UpdateService' :: Maybe Bool
enableExecuteCommand = Maybe Bool
a} :: UpdateService)
updateService_forceNewDeployment :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Bool)
updateService_forceNewDeployment :: Lens' UpdateService (Maybe Bool)
updateService_forceNewDeployment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Bool
forceNewDeployment :: Maybe Bool
$sel:forceNewDeployment:UpdateService' :: UpdateService -> Maybe Bool
forceNewDeployment} -> Maybe Bool
forceNewDeployment) (\s :: UpdateService
s@UpdateService' {} Maybe Bool
a -> UpdateService
s {$sel:forceNewDeployment:UpdateService' :: Maybe Bool
forceNewDeployment = Maybe Bool
a} :: UpdateService)
updateService_healthCheckGracePeriodSeconds :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Int)
updateService_healthCheckGracePeriodSeconds :: Lens' UpdateService (Maybe Int)
updateService_healthCheckGracePeriodSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Int
healthCheckGracePeriodSeconds :: Maybe Int
$sel:healthCheckGracePeriodSeconds:UpdateService' :: UpdateService -> Maybe Int
healthCheckGracePeriodSeconds} -> Maybe Int
healthCheckGracePeriodSeconds) (\s :: UpdateService
s@UpdateService' {} Maybe Int
a -> UpdateService
s {$sel:healthCheckGracePeriodSeconds:UpdateService' :: Maybe Int
healthCheckGracePeriodSeconds = Maybe Int
a} :: UpdateService)
updateService_loadBalancers :: Lens.Lens' UpdateService (Prelude.Maybe [LoadBalancer])
updateService_loadBalancers :: Lens' UpdateService (Maybe [LoadBalancer])
updateService_loadBalancers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe [LoadBalancer]
loadBalancers :: Maybe [LoadBalancer]
$sel:loadBalancers:UpdateService' :: UpdateService -> Maybe [LoadBalancer]
loadBalancers} -> Maybe [LoadBalancer]
loadBalancers) (\s :: UpdateService
s@UpdateService' {} Maybe [LoadBalancer]
a -> UpdateService
s {$sel:loadBalancers:UpdateService' :: Maybe [LoadBalancer]
loadBalancers = Maybe [LoadBalancer]
a} :: UpdateService) 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
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_placementConstraints :: Lens.Lens' UpdateService (Prelude.Maybe [PlacementConstraint])
updateService_placementConstraints :: Lens' UpdateService (Maybe [PlacementConstraint])
updateService_placementConstraints = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe [PlacementConstraint]
placementConstraints :: Maybe [PlacementConstraint]
$sel:placementConstraints:UpdateService' :: UpdateService -> Maybe [PlacementConstraint]
placementConstraints} -> Maybe [PlacementConstraint]
placementConstraints) (\s :: UpdateService
s@UpdateService' {} Maybe [PlacementConstraint]
a -> UpdateService
s {$sel:placementConstraints:UpdateService' :: Maybe [PlacementConstraint]
placementConstraints = Maybe [PlacementConstraint]
a} :: UpdateService) 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
updateService_placementStrategy :: Lens.Lens' UpdateService (Prelude.Maybe [PlacementStrategy])
updateService_placementStrategy :: Lens' UpdateService (Maybe [PlacementStrategy])
updateService_placementStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe [PlacementStrategy]
placementStrategy :: Maybe [PlacementStrategy]
$sel:placementStrategy:UpdateService' :: UpdateService -> Maybe [PlacementStrategy]
placementStrategy} -> Maybe [PlacementStrategy]
placementStrategy) (\s :: UpdateService
s@UpdateService' {} Maybe [PlacementStrategy]
a -> UpdateService
s {$sel:placementStrategy:UpdateService' :: Maybe [PlacementStrategy]
placementStrategy = Maybe [PlacementStrategy]
a} :: UpdateService) 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
updateService_platformVersion :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Text)
updateService_platformVersion :: Lens' UpdateService (Maybe Text)
updateService_platformVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Text
platformVersion :: Maybe Text
$sel:platformVersion:UpdateService' :: UpdateService -> Maybe Text
platformVersion} -> Maybe Text
platformVersion) (\s :: UpdateService
s@UpdateService' {} Maybe Text
a -> UpdateService
s {$sel:platformVersion:UpdateService' :: Maybe Text
platformVersion = Maybe Text
a} :: UpdateService)
updateService_propagateTags :: Lens.Lens' UpdateService (Prelude.Maybe PropagateTags)
updateService_propagateTags :: Lens' UpdateService (Maybe PropagateTags)
updateService_propagateTags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe PropagateTags
propagateTags :: Maybe PropagateTags
$sel:propagateTags:UpdateService' :: UpdateService -> Maybe PropagateTags
propagateTags} -> Maybe PropagateTags
propagateTags) (\s :: UpdateService
s@UpdateService' {} Maybe PropagateTags
a -> UpdateService
s {$sel:propagateTags:UpdateService' :: Maybe PropagateTags
propagateTags = Maybe PropagateTags
a} :: UpdateService)
updateService_serviceConnectConfiguration :: Lens.Lens' UpdateService (Prelude.Maybe ServiceConnectConfiguration)
updateService_serviceConnectConfiguration :: Lens' UpdateService (Maybe ServiceConnectConfiguration)
updateService_serviceConnectConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe ServiceConnectConfiguration
serviceConnectConfiguration :: Maybe ServiceConnectConfiguration
$sel:serviceConnectConfiguration:UpdateService' :: UpdateService -> Maybe ServiceConnectConfiguration
serviceConnectConfiguration} -> Maybe ServiceConnectConfiguration
serviceConnectConfiguration) (\s :: UpdateService
s@UpdateService' {} Maybe ServiceConnectConfiguration
a -> UpdateService
s {$sel:serviceConnectConfiguration:UpdateService' :: Maybe ServiceConnectConfiguration
serviceConnectConfiguration = Maybe ServiceConnectConfiguration
a} :: UpdateService)
updateService_serviceRegistries :: Lens.Lens' UpdateService (Prelude.Maybe [ServiceRegistry])
updateService_serviceRegistries :: Lens' UpdateService (Maybe [ServiceRegistry])
updateService_serviceRegistries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe [ServiceRegistry]
serviceRegistries :: Maybe [ServiceRegistry]
$sel:serviceRegistries:UpdateService' :: UpdateService -> Maybe [ServiceRegistry]
serviceRegistries} -> Maybe [ServiceRegistry]
serviceRegistries) (\s :: UpdateService
s@UpdateService' {} Maybe [ServiceRegistry]
a -> UpdateService
s {$sel:serviceRegistries:UpdateService' :: Maybe [ServiceRegistry]
serviceRegistries = Maybe [ServiceRegistry]
a} :: UpdateService) 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
updateService_taskDefinition :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Text)
updateService_taskDefinition :: Lens' UpdateService (Maybe Text)
updateService_taskDefinition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Maybe Text
taskDefinition :: Maybe Text
$sel:taskDefinition:UpdateService' :: UpdateService -> Maybe Text
taskDefinition} -> Maybe Text
taskDefinition) (\s :: UpdateService
s@UpdateService' {} Maybe Text
a -> UpdateService
s {$sel:taskDefinition:UpdateService' :: Maybe Text
taskDefinition = Maybe Text
a} :: UpdateService)
updateService_service :: Lens.Lens' UpdateService Prelude.Text
updateService_service :: Lens' UpdateService Text
updateService_service = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateService' {Text
service :: Text
$sel:service:UpdateService' :: UpdateService -> Text
service} -> Text
service) (\s :: UpdateService
s@UpdateService' {} Text
a -> UpdateService
s {$sel:service:UpdateService' :: Text
service = 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 ->
Maybe ContainerService -> Int -> UpdateServiceResponse
UpdateServiceResponse'
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
"service")
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 UpdateService where
hashWithSalt :: Int -> UpdateService -> Int
hashWithSalt Int
_salt UpdateService' {Maybe Bool
Maybe Int
Maybe [CapacityProviderStrategyItem]
Maybe [LoadBalancer]
Maybe [PlacementConstraint]
Maybe [PlacementStrategy]
Maybe [ServiceRegistry]
Maybe Text
Maybe DeploymentConfiguration
Maybe NetworkConfiguration
Maybe PropagateTags
Maybe ServiceConnectConfiguration
Text
service :: Text
taskDefinition :: Maybe Text
serviceRegistries :: Maybe [ServiceRegistry]
serviceConnectConfiguration :: Maybe ServiceConnectConfiguration
propagateTags :: Maybe PropagateTags
platformVersion :: Maybe Text
placementStrategy :: Maybe [PlacementStrategy]
placementConstraints :: Maybe [PlacementConstraint]
networkConfiguration :: Maybe NetworkConfiguration
loadBalancers :: Maybe [LoadBalancer]
healthCheckGracePeriodSeconds :: Maybe Int
forceNewDeployment :: Maybe Bool
enableExecuteCommand :: Maybe Bool
enableECSManagedTags :: Maybe Bool
desiredCount :: Maybe Int
deploymentConfiguration :: Maybe DeploymentConfiguration
cluster :: Maybe Text
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:service:UpdateService' :: UpdateService -> Text
$sel:taskDefinition:UpdateService' :: UpdateService -> Maybe Text
$sel:serviceRegistries:UpdateService' :: UpdateService -> Maybe [ServiceRegistry]
$sel:serviceConnectConfiguration:UpdateService' :: UpdateService -> Maybe ServiceConnectConfiguration
$sel:propagateTags:UpdateService' :: UpdateService -> Maybe PropagateTags
$sel:platformVersion:UpdateService' :: UpdateService -> Maybe Text
$sel:placementStrategy:UpdateService' :: UpdateService -> Maybe [PlacementStrategy]
$sel:placementConstraints:UpdateService' :: UpdateService -> Maybe [PlacementConstraint]
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
$sel:loadBalancers:UpdateService' :: UpdateService -> Maybe [LoadBalancer]
$sel:healthCheckGracePeriodSeconds:UpdateService' :: UpdateService -> Maybe Int
$sel:forceNewDeployment:UpdateService' :: UpdateService -> Maybe Bool
$sel:enableExecuteCommand:UpdateService' :: UpdateService -> Maybe Bool
$sel:enableECSManagedTags:UpdateService' :: UpdateService -> Maybe Bool
$sel:desiredCount:UpdateService' :: UpdateService -> Maybe Int
$sel:deploymentConfiguration:UpdateService' :: UpdateService -> Maybe DeploymentConfiguration
$sel:cluster:UpdateService' :: UpdateService -> Maybe Text
$sel:capacityProviderStrategy:UpdateService' :: UpdateService -> Maybe [CapacityProviderStrategyItem]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cluster
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeploymentConfiguration
deploymentConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
desiredCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableECSManagedTags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableExecuteCommand
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
forceNewDeployment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
healthCheckGracePeriodSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [LoadBalancer]
loadBalancers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe NetworkConfiguration
networkConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PlacementConstraint]
placementConstraints
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PlacementStrategy]
placementStrategy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
platformVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PropagateTags
propagateTags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ServiceConnectConfiguration
serviceConnectConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ServiceRegistry]
serviceRegistries
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
taskDefinition
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
service
instance Prelude.NFData UpdateService where
rnf :: UpdateService -> ()
rnf UpdateService' {Maybe Bool
Maybe Int
Maybe [CapacityProviderStrategyItem]
Maybe [LoadBalancer]
Maybe [PlacementConstraint]
Maybe [PlacementStrategy]
Maybe [ServiceRegistry]
Maybe Text
Maybe DeploymentConfiguration
Maybe NetworkConfiguration
Maybe PropagateTags
Maybe ServiceConnectConfiguration
Text
service :: Text
taskDefinition :: Maybe Text
serviceRegistries :: Maybe [ServiceRegistry]
serviceConnectConfiguration :: Maybe ServiceConnectConfiguration
propagateTags :: Maybe PropagateTags
platformVersion :: Maybe Text
placementStrategy :: Maybe [PlacementStrategy]
placementConstraints :: Maybe [PlacementConstraint]
networkConfiguration :: Maybe NetworkConfiguration
loadBalancers :: Maybe [LoadBalancer]
healthCheckGracePeriodSeconds :: Maybe Int
forceNewDeployment :: Maybe Bool
enableExecuteCommand :: Maybe Bool
enableECSManagedTags :: Maybe Bool
desiredCount :: Maybe Int
deploymentConfiguration :: Maybe DeploymentConfiguration
cluster :: Maybe Text
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:service:UpdateService' :: UpdateService -> Text
$sel:taskDefinition:UpdateService' :: UpdateService -> Maybe Text
$sel:serviceRegistries:UpdateService' :: UpdateService -> Maybe [ServiceRegistry]
$sel:serviceConnectConfiguration:UpdateService' :: UpdateService -> Maybe ServiceConnectConfiguration
$sel:propagateTags:UpdateService' :: UpdateService -> Maybe PropagateTags
$sel:platformVersion:UpdateService' :: UpdateService -> Maybe Text
$sel:placementStrategy:UpdateService' :: UpdateService -> Maybe [PlacementStrategy]
$sel:placementConstraints:UpdateService' :: UpdateService -> Maybe [PlacementConstraint]
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
$sel:loadBalancers:UpdateService' :: UpdateService -> Maybe [LoadBalancer]
$sel:healthCheckGracePeriodSeconds:UpdateService' :: UpdateService -> Maybe Int
$sel:forceNewDeployment:UpdateService' :: UpdateService -> Maybe Bool
$sel:enableExecuteCommand:UpdateService' :: UpdateService -> Maybe Bool
$sel:enableECSManagedTags:UpdateService' :: UpdateService -> Maybe Bool
$sel:desiredCount:UpdateService' :: UpdateService -> Maybe Int
$sel:deploymentConfiguration:UpdateService' :: UpdateService -> Maybe DeploymentConfiguration
$sel:cluster:UpdateService' :: UpdateService -> Maybe Text
$sel:capacityProviderStrategy:UpdateService' :: UpdateService -> Maybe [CapacityProviderStrategyItem]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cluster
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeploymentConfiguration
deploymentConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
desiredCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableECSManagedTags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableExecuteCommand
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
forceNewDeployment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
healthCheckGracePeriodSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [LoadBalancer]
loadBalancers
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 [PlacementConstraint]
placementConstraints
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PlacementStrategy]
placementStrategy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
platformVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PropagateTags
propagateTags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ServiceConnectConfiguration
serviceConnectConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ServiceRegistry]
serviceRegistries
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
taskDefinition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
service
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
"AmazonEC2ContainerServiceV20141113.UpdateService" ::
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 UpdateService where
toJSON :: UpdateService -> Value
toJSON UpdateService' {Maybe Bool
Maybe Int
Maybe [CapacityProviderStrategyItem]
Maybe [LoadBalancer]
Maybe [PlacementConstraint]
Maybe [PlacementStrategy]
Maybe [ServiceRegistry]
Maybe Text
Maybe DeploymentConfiguration
Maybe NetworkConfiguration
Maybe PropagateTags
Maybe ServiceConnectConfiguration
Text
service :: Text
taskDefinition :: Maybe Text
serviceRegistries :: Maybe [ServiceRegistry]
serviceConnectConfiguration :: Maybe ServiceConnectConfiguration
propagateTags :: Maybe PropagateTags
platformVersion :: Maybe Text
placementStrategy :: Maybe [PlacementStrategy]
placementConstraints :: Maybe [PlacementConstraint]
networkConfiguration :: Maybe NetworkConfiguration
loadBalancers :: Maybe [LoadBalancer]
healthCheckGracePeriodSeconds :: Maybe Int
forceNewDeployment :: Maybe Bool
enableExecuteCommand :: Maybe Bool
enableECSManagedTags :: Maybe Bool
desiredCount :: Maybe Int
deploymentConfiguration :: Maybe DeploymentConfiguration
cluster :: Maybe Text
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:service:UpdateService' :: UpdateService -> Text
$sel:taskDefinition:UpdateService' :: UpdateService -> Maybe Text
$sel:serviceRegistries:UpdateService' :: UpdateService -> Maybe [ServiceRegistry]
$sel:serviceConnectConfiguration:UpdateService' :: UpdateService -> Maybe ServiceConnectConfiguration
$sel:propagateTags:UpdateService' :: UpdateService -> Maybe PropagateTags
$sel:platformVersion:UpdateService' :: UpdateService -> Maybe Text
$sel:placementStrategy:UpdateService' :: UpdateService -> Maybe [PlacementStrategy]
$sel:placementConstraints:UpdateService' :: UpdateService -> Maybe [PlacementConstraint]
$sel:networkConfiguration:UpdateService' :: UpdateService -> Maybe NetworkConfiguration
$sel:loadBalancers:UpdateService' :: UpdateService -> Maybe [LoadBalancer]
$sel:healthCheckGracePeriodSeconds:UpdateService' :: UpdateService -> Maybe Int
$sel:forceNewDeployment:UpdateService' :: UpdateService -> Maybe Bool
$sel:enableExecuteCommand:UpdateService' :: UpdateService -> Maybe Bool
$sel:enableECSManagedTags:UpdateService' :: UpdateService -> Maybe Bool
$sel:desiredCount:UpdateService' :: UpdateService -> Maybe Int
$sel:deploymentConfiguration:UpdateService' :: UpdateService -> Maybe DeploymentConfiguration
$sel:cluster:UpdateService' :: UpdateService -> Maybe Text
$sel:capacityProviderStrategy:UpdateService' :: UpdateService -> Maybe [CapacityProviderStrategyItem]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"capacityProviderStrategy" 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 [CapacityProviderStrategyItem]
capacityProviderStrategy,
(Key
"cluster" 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
cluster,
(Key
"deploymentConfiguration" 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 DeploymentConfiguration
deploymentConfiguration,
(Key
"desiredCount" 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 Int
desiredCount,
(Key
"enableECSManagedTags" 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
enableECSManagedTags,
(Key
"enableExecuteCommand" 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
enableExecuteCommand,
(Key
"forceNewDeployment" 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
forceNewDeployment,
(Key
"healthCheckGracePeriodSeconds" 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 Int
healthCheckGracePeriodSeconds,
(Key
"loadBalancers" 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 [LoadBalancer]
loadBalancers,
(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
"placementConstraints" 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 [PlacementConstraint]
placementConstraints,
(Key
"placementStrategy" 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 [PlacementStrategy]
placementStrategy,
(Key
"platformVersion" 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
platformVersion,
(Key
"propagateTags" 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 PropagateTags
propagateTags,
(Key
"serviceConnectConfiguration" 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 ServiceConnectConfiguration
serviceConnectConfiguration,
(Key
"serviceRegistries" 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 [ServiceRegistry]
serviceRegistries,
(Key
"taskDefinition" 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
taskDefinition,
forall a. a -> Maybe a
Prelude.Just (Key
"service" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
service)
]
)
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 -> Maybe ContainerService
service :: Prelude.Maybe ContainerService,
UpdateServiceResponse -> Int
httpStatus :: Prelude.Int
}
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, ReadPrec [UpdateServiceResponse]
ReadPrec UpdateServiceResponse
Int -> ReadS UpdateServiceResponse
ReadS [UpdateServiceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateServiceResponse]
$creadListPrec :: ReadPrec [UpdateServiceResponse]
readPrec :: ReadPrec UpdateServiceResponse
$creadPrec :: ReadPrec UpdateServiceResponse
readList :: ReadS [UpdateServiceResponse]
$creadList :: ReadS [UpdateServiceResponse]
readsPrec :: Int -> ReadS UpdateServiceResponse
$creadsPrec :: Int -> ReadS UpdateServiceResponse
Prelude.Read, 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 ->
UpdateServiceResponse
newUpdateServiceResponse :: Int -> UpdateServiceResponse
newUpdateServiceResponse Int
pHttpStatus_ =
UpdateServiceResponse'
{ $sel:service:UpdateServiceResponse' :: Maybe ContainerService
service = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateServiceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateServiceResponse_service :: Lens.Lens' UpdateServiceResponse (Prelude.Maybe ContainerService)
updateServiceResponse_service :: Lens' UpdateServiceResponse (Maybe ContainerService)
updateServiceResponse_service = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateServiceResponse' {Maybe ContainerService
service :: Maybe ContainerService
$sel:service:UpdateServiceResponse' :: UpdateServiceResponse -> Maybe ContainerService
service} -> Maybe ContainerService
service) (\s :: UpdateServiceResponse
s@UpdateServiceResponse' {} Maybe ContainerService
a -> UpdateServiceResponse
s {$sel:service:UpdateServiceResponse' :: Maybe ContainerService
service = Maybe ContainerService
a} :: UpdateServiceResponse)
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)
instance Prelude.NFData UpdateServiceResponse where
rnf :: UpdateServiceResponse -> ()
rnf UpdateServiceResponse' {Int
Maybe ContainerService
httpStatus :: Int
service :: Maybe ContainerService
$sel:httpStatus:UpdateServiceResponse' :: UpdateServiceResponse -> Int
$sel:service:UpdateServiceResponse' :: UpdateServiceResponse -> Maybe ContainerService
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ContainerService
service
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus