{-# 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.CreateTaskSet
(
CreateTaskSet (..),
newCreateTaskSet,
createTaskSet_capacityProviderStrategy,
createTaskSet_clientToken,
createTaskSet_externalId,
createTaskSet_launchType,
createTaskSet_loadBalancers,
createTaskSet_networkConfiguration,
createTaskSet_platformVersion,
createTaskSet_scale,
createTaskSet_serviceRegistries,
createTaskSet_tags,
createTaskSet_service,
createTaskSet_cluster,
createTaskSet_taskDefinition,
CreateTaskSetResponse (..),
newCreateTaskSetResponse,
createTaskSetResponse_taskSet,
createTaskSetResponse_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 CreateTaskSet = CreateTaskSet'
{
CreateTaskSet -> Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy :: Prelude.Maybe [CapacityProviderStrategyItem],
CreateTaskSet -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateTaskSet -> Maybe Text
externalId :: Prelude.Maybe Prelude.Text,
CreateTaskSet -> Maybe LaunchType
launchType :: Prelude.Maybe LaunchType,
CreateTaskSet -> Maybe [LoadBalancer]
loadBalancers :: Prelude.Maybe [LoadBalancer],
CreateTaskSet -> Maybe NetworkConfiguration
networkConfiguration :: Prelude.Maybe NetworkConfiguration,
CreateTaskSet -> Maybe Text
platformVersion :: Prelude.Maybe Prelude.Text,
CreateTaskSet -> Maybe Scale
scale :: Prelude.Maybe Scale,
CreateTaskSet -> Maybe [ServiceRegistry]
serviceRegistries :: Prelude.Maybe [ServiceRegistry],
CreateTaskSet -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateTaskSet -> Text
service :: Prelude.Text,
CreateTaskSet -> Text
cluster :: Prelude.Text,
CreateTaskSet -> Text
taskDefinition :: Prelude.Text
}
deriving (CreateTaskSet -> CreateTaskSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTaskSet -> CreateTaskSet -> Bool
$c/= :: CreateTaskSet -> CreateTaskSet -> Bool
== :: CreateTaskSet -> CreateTaskSet -> Bool
$c== :: CreateTaskSet -> CreateTaskSet -> Bool
Prelude.Eq, ReadPrec [CreateTaskSet]
ReadPrec CreateTaskSet
Int -> ReadS CreateTaskSet
ReadS [CreateTaskSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTaskSet]
$creadListPrec :: ReadPrec [CreateTaskSet]
readPrec :: ReadPrec CreateTaskSet
$creadPrec :: ReadPrec CreateTaskSet
readList :: ReadS [CreateTaskSet]
$creadList :: ReadS [CreateTaskSet]
readsPrec :: Int -> ReadS CreateTaskSet
$creadsPrec :: Int -> ReadS CreateTaskSet
Prelude.Read, Int -> CreateTaskSet -> ShowS
[CreateTaskSet] -> ShowS
CreateTaskSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTaskSet] -> ShowS
$cshowList :: [CreateTaskSet] -> ShowS
show :: CreateTaskSet -> String
$cshow :: CreateTaskSet -> String
showsPrec :: Int -> CreateTaskSet -> ShowS
$cshowsPrec :: Int -> CreateTaskSet -> ShowS
Prelude.Show, forall x. Rep CreateTaskSet x -> CreateTaskSet
forall x. CreateTaskSet -> Rep CreateTaskSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTaskSet x -> CreateTaskSet
$cfrom :: forall x. CreateTaskSet -> Rep CreateTaskSet x
Prelude.Generic)
newCreateTaskSet ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateTaskSet
newCreateTaskSet :: Text -> Text -> Text -> CreateTaskSet
newCreateTaskSet Text
pService_ Text
pCluster_ Text
pTaskDefinition_ =
CreateTaskSet'
{ $sel:capacityProviderStrategy:CreateTaskSet' :: Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy =
forall a. Maybe a
Prelude.Nothing,
$sel:clientToken:CreateTaskSet' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:externalId:CreateTaskSet' :: Maybe Text
externalId = forall a. Maybe a
Prelude.Nothing,
$sel:launchType:CreateTaskSet' :: Maybe LaunchType
launchType = forall a. Maybe a
Prelude.Nothing,
$sel:loadBalancers:CreateTaskSet' :: Maybe [LoadBalancer]
loadBalancers = forall a. Maybe a
Prelude.Nothing,
$sel:networkConfiguration:CreateTaskSet' :: Maybe NetworkConfiguration
networkConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:platformVersion:CreateTaskSet' :: Maybe Text
platformVersion = forall a. Maybe a
Prelude.Nothing,
$sel:scale:CreateTaskSet' :: Maybe Scale
scale = forall a. Maybe a
Prelude.Nothing,
$sel:serviceRegistries:CreateTaskSet' :: Maybe [ServiceRegistry]
serviceRegistries = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateTaskSet' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:service:CreateTaskSet' :: Text
service = Text
pService_,
$sel:cluster:CreateTaskSet' :: Text
cluster = Text
pCluster_,
$sel:taskDefinition:CreateTaskSet' :: Text
taskDefinition = Text
pTaskDefinition_
}
createTaskSet_capacityProviderStrategy :: Lens.Lens' CreateTaskSet (Prelude.Maybe [CapacityProviderStrategyItem])
createTaskSet_capacityProviderStrategy :: Lens' CreateTaskSet (Maybe [CapacityProviderStrategyItem])
createTaskSet_capacityProviderStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:capacityProviderStrategy:CreateTaskSet' :: CreateTaskSet -> Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy} -> Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe [CapacityProviderStrategyItem]
a -> CreateTaskSet
s {$sel:capacityProviderStrategy:CreateTaskSet' :: Maybe [CapacityProviderStrategyItem]
capacityProviderStrategy = Maybe [CapacityProviderStrategyItem]
a} :: CreateTaskSet) 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
createTaskSet_clientToken :: Lens.Lens' CreateTaskSet (Prelude.Maybe Prelude.Text)
createTaskSet_clientToken :: Lens' CreateTaskSet (Maybe Text)
createTaskSet_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateTaskSet' :: CreateTaskSet -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe Text
a -> CreateTaskSet
s {$sel:clientToken:CreateTaskSet' :: Maybe Text
clientToken = Maybe Text
a} :: CreateTaskSet)
createTaskSet_externalId :: Lens.Lens' CreateTaskSet (Prelude.Maybe Prelude.Text)
createTaskSet_externalId :: Lens' CreateTaskSet (Maybe Text)
createTaskSet_externalId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe Text
externalId :: Maybe Text
$sel:externalId:CreateTaskSet' :: CreateTaskSet -> Maybe Text
externalId} -> Maybe Text
externalId) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe Text
a -> CreateTaskSet
s {$sel:externalId:CreateTaskSet' :: Maybe Text
externalId = Maybe Text
a} :: CreateTaskSet)
createTaskSet_launchType :: Lens.Lens' CreateTaskSet (Prelude.Maybe LaunchType)
createTaskSet_launchType :: Lens' CreateTaskSet (Maybe LaunchType)
createTaskSet_launchType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe LaunchType
launchType :: Maybe LaunchType
$sel:launchType:CreateTaskSet' :: CreateTaskSet -> Maybe LaunchType
launchType} -> Maybe LaunchType
launchType) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe LaunchType
a -> CreateTaskSet
s {$sel:launchType:CreateTaskSet' :: Maybe LaunchType
launchType = Maybe LaunchType
a} :: CreateTaskSet)
createTaskSet_loadBalancers :: Lens.Lens' CreateTaskSet (Prelude.Maybe [LoadBalancer])
createTaskSet_loadBalancers :: Lens' CreateTaskSet (Maybe [LoadBalancer])
createTaskSet_loadBalancers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe [LoadBalancer]
loadBalancers :: Maybe [LoadBalancer]
$sel:loadBalancers:CreateTaskSet' :: CreateTaskSet -> Maybe [LoadBalancer]
loadBalancers} -> Maybe [LoadBalancer]
loadBalancers) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe [LoadBalancer]
a -> CreateTaskSet
s {$sel:loadBalancers:CreateTaskSet' :: Maybe [LoadBalancer]
loadBalancers = Maybe [LoadBalancer]
a} :: CreateTaskSet) 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
createTaskSet_networkConfiguration :: Lens.Lens' CreateTaskSet (Prelude.Maybe NetworkConfiguration)
createTaskSet_networkConfiguration :: Lens' CreateTaskSet (Maybe NetworkConfiguration)
createTaskSet_networkConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe NetworkConfiguration
networkConfiguration :: Maybe NetworkConfiguration
$sel:networkConfiguration:CreateTaskSet' :: CreateTaskSet -> Maybe NetworkConfiguration
networkConfiguration} -> Maybe NetworkConfiguration
networkConfiguration) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe NetworkConfiguration
a -> CreateTaskSet
s {$sel:networkConfiguration:CreateTaskSet' :: Maybe NetworkConfiguration
networkConfiguration = Maybe NetworkConfiguration
a} :: CreateTaskSet)
createTaskSet_platformVersion :: Lens.Lens' CreateTaskSet (Prelude.Maybe Prelude.Text)
createTaskSet_platformVersion :: Lens' CreateTaskSet (Maybe Text)
createTaskSet_platformVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe Text
platformVersion :: Maybe Text
$sel:platformVersion:CreateTaskSet' :: CreateTaskSet -> Maybe Text
platformVersion} -> Maybe Text
platformVersion) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe Text
a -> CreateTaskSet
s {$sel:platformVersion:CreateTaskSet' :: Maybe Text
platformVersion = Maybe Text
a} :: CreateTaskSet)
createTaskSet_scale :: Lens.Lens' CreateTaskSet (Prelude.Maybe Scale)
createTaskSet_scale :: Lens' CreateTaskSet (Maybe Scale)
createTaskSet_scale = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe Scale
scale :: Maybe Scale
$sel:scale:CreateTaskSet' :: CreateTaskSet -> Maybe Scale
scale} -> Maybe Scale
scale) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe Scale
a -> CreateTaskSet
s {$sel:scale:CreateTaskSet' :: Maybe Scale
scale = Maybe Scale
a} :: CreateTaskSet)
createTaskSet_serviceRegistries :: Lens.Lens' CreateTaskSet (Prelude.Maybe [ServiceRegistry])
createTaskSet_serviceRegistries :: Lens' CreateTaskSet (Maybe [ServiceRegistry])
createTaskSet_serviceRegistries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe [ServiceRegistry]
serviceRegistries :: Maybe [ServiceRegistry]
$sel:serviceRegistries:CreateTaskSet' :: CreateTaskSet -> Maybe [ServiceRegistry]
serviceRegistries} -> Maybe [ServiceRegistry]
serviceRegistries) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe [ServiceRegistry]
a -> CreateTaskSet
s {$sel:serviceRegistries:CreateTaskSet' :: Maybe [ServiceRegistry]
serviceRegistries = Maybe [ServiceRegistry]
a} :: CreateTaskSet) 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
createTaskSet_tags :: Lens.Lens' CreateTaskSet (Prelude.Maybe [Tag])
createTaskSet_tags :: Lens' CreateTaskSet (Maybe [Tag])
createTaskSet_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateTaskSet' :: CreateTaskSet -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateTaskSet
s@CreateTaskSet' {} Maybe [Tag]
a -> CreateTaskSet
s {$sel:tags:CreateTaskSet' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateTaskSet) 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
createTaskSet_service :: Lens.Lens' CreateTaskSet Prelude.Text
createTaskSet_service :: Lens' CreateTaskSet Text
createTaskSet_service = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Text
service :: Text
$sel:service:CreateTaskSet' :: CreateTaskSet -> Text
service} -> Text
service) (\s :: CreateTaskSet
s@CreateTaskSet' {} Text
a -> CreateTaskSet
s {$sel:service:CreateTaskSet' :: Text
service = Text
a} :: CreateTaskSet)
createTaskSet_cluster :: Lens.Lens' CreateTaskSet Prelude.Text
createTaskSet_cluster :: Lens' CreateTaskSet Text
createTaskSet_cluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Text
cluster :: Text
$sel:cluster:CreateTaskSet' :: CreateTaskSet -> Text
cluster} -> Text
cluster) (\s :: CreateTaskSet
s@CreateTaskSet' {} Text
a -> CreateTaskSet
s {$sel:cluster:CreateTaskSet' :: Text
cluster = Text
a} :: CreateTaskSet)
createTaskSet_taskDefinition :: Lens.Lens' CreateTaskSet Prelude.Text
createTaskSet_taskDefinition :: Lens' CreateTaskSet Text
createTaskSet_taskDefinition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSet' {Text
taskDefinition :: Text
$sel:taskDefinition:CreateTaskSet' :: CreateTaskSet -> Text
taskDefinition} -> Text
taskDefinition) (\s :: CreateTaskSet
s@CreateTaskSet' {} Text
a -> CreateTaskSet
s {$sel:taskDefinition:CreateTaskSet' :: Text
taskDefinition = Text
a} :: CreateTaskSet)
instance Core.AWSRequest CreateTaskSet where
type
AWSResponse CreateTaskSet =
CreateTaskSetResponse
request :: (Service -> Service) -> CreateTaskSet -> Request CreateTaskSet
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 CreateTaskSet
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateTaskSet)))
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 TaskSet -> Int -> CreateTaskSetResponse
CreateTaskSetResponse'
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
"taskSet")
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 CreateTaskSet where
hashWithSalt :: Int -> CreateTaskSet -> Int
hashWithSalt Int
_salt CreateTaskSet' {Maybe [CapacityProviderStrategyItem]
Maybe [LoadBalancer]
Maybe [ServiceRegistry]
Maybe [Tag]
Maybe Text
Maybe LaunchType
Maybe NetworkConfiguration
Maybe Scale
Text
taskDefinition :: Text
cluster :: Text
service :: Text
tags :: Maybe [Tag]
serviceRegistries :: Maybe [ServiceRegistry]
scale :: Maybe Scale
platformVersion :: Maybe Text
networkConfiguration :: Maybe NetworkConfiguration
loadBalancers :: Maybe [LoadBalancer]
launchType :: Maybe LaunchType
externalId :: Maybe Text
clientToken :: Maybe Text
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:taskDefinition:CreateTaskSet' :: CreateTaskSet -> Text
$sel:cluster:CreateTaskSet' :: CreateTaskSet -> Text
$sel:service:CreateTaskSet' :: CreateTaskSet -> Text
$sel:tags:CreateTaskSet' :: CreateTaskSet -> Maybe [Tag]
$sel:serviceRegistries:CreateTaskSet' :: CreateTaskSet -> Maybe [ServiceRegistry]
$sel:scale:CreateTaskSet' :: CreateTaskSet -> Maybe Scale
$sel:platformVersion:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:networkConfiguration:CreateTaskSet' :: CreateTaskSet -> Maybe NetworkConfiguration
$sel:loadBalancers:CreateTaskSet' :: CreateTaskSet -> Maybe [LoadBalancer]
$sel:launchType:CreateTaskSet' :: CreateTaskSet -> Maybe LaunchType
$sel:externalId:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:clientToken:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:capacityProviderStrategy:CreateTaskSet' :: CreateTaskSet -> 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
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
externalId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LaunchType
launchType
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 Text
platformVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Scale
scale
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ServiceRegistry]
serviceRegistries
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
service
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
cluster
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskDefinition
instance Prelude.NFData CreateTaskSet where
rnf :: CreateTaskSet -> ()
rnf CreateTaskSet' {Maybe [CapacityProviderStrategyItem]
Maybe [LoadBalancer]
Maybe [ServiceRegistry]
Maybe [Tag]
Maybe Text
Maybe LaunchType
Maybe NetworkConfiguration
Maybe Scale
Text
taskDefinition :: Text
cluster :: Text
service :: Text
tags :: Maybe [Tag]
serviceRegistries :: Maybe [ServiceRegistry]
scale :: Maybe Scale
platformVersion :: Maybe Text
networkConfiguration :: Maybe NetworkConfiguration
loadBalancers :: Maybe [LoadBalancer]
launchType :: Maybe LaunchType
externalId :: Maybe Text
clientToken :: Maybe Text
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:taskDefinition:CreateTaskSet' :: CreateTaskSet -> Text
$sel:cluster:CreateTaskSet' :: CreateTaskSet -> Text
$sel:service:CreateTaskSet' :: CreateTaskSet -> Text
$sel:tags:CreateTaskSet' :: CreateTaskSet -> Maybe [Tag]
$sel:serviceRegistries:CreateTaskSet' :: CreateTaskSet -> Maybe [ServiceRegistry]
$sel:scale:CreateTaskSet' :: CreateTaskSet -> Maybe Scale
$sel:platformVersion:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:networkConfiguration:CreateTaskSet' :: CreateTaskSet -> Maybe NetworkConfiguration
$sel:loadBalancers:CreateTaskSet' :: CreateTaskSet -> Maybe [LoadBalancer]
$sel:launchType:CreateTaskSet' :: CreateTaskSet -> Maybe LaunchType
$sel:externalId:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:clientToken:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:capacityProviderStrategy:CreateTaskSet' :: CreateTaskSet -> 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
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
externalId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LaunchType
launchType
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 Text
platformVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Scale
scale
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 [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
service
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
cluster
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
taskDefinition
instance Data.ToHeaders CreateTaskSet where
toHeaders :: CreateTaskSet -> 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.CreateTaskSet" ::
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 CreateTaskSet where
toJSON :: CreateTaskSet -> Value
toJSON CreateTaskSet' {Maybe [CapacityProviderStrategyItem]
Maybe [LoadBalancer]
Maybe [ServiceRegistry]
Maybe [Tag]
Maybe Text
Maybe LaunchType
Maybe NetworkConfiguration
Maybe Scale
Text
taskDefinition :: Text
cluster :: Text
service :: Text
tags :: Maybe [Tag]
serviceRegistries :: Maybe [ServiceRegistry]
scale :: Maybe Scale
platformVersion :: Maybe Text
networkConfiguration :: Maybe NetworkConfiguration
loadBalancers :: Maybe [LoadBalancer]
launchType :: Maybe LaunchType
externalId :: Maybe Text
clientToken :: Maybe Text
capacityProviderStrategy :: Maybe [CapacityProviderStrategyItem]
$sel:taskDefinition:CreateTaskSet' :: CreateTaskSet -> Text
$sel:cluster:CreateTaskSet' :: CreateTaskSet -> Text
$sel:service:CreateTaskSet' :: CreateTaskSet -> Text
$sel:tags:CreateTaskSet' :: CreateTaskSet -> Maybe [Tag]
$sel:serviceRegistries:CreateTaskSet' :: CreateTaskSet -> Maybe [ServiceRegistry]
$sel:scale:CreateTaskSet' :: CreateTaskSet -> Maybe Scale
$sel:platformVersion:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:networkConfiguration:CreateTaskSet' :: CreateTaskSet -> Maybe NetworkConfiguration
$sel:loadBalancers:CreateTaskSet' :: CreateTaskSet -> Maybe [LoadBalancer]
$sel:launchType:CreateTaskSet' :: CreateTaskSet -> Maybe LaunchType
$sel:externalId:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:clientToken:CreateTaskSet' :: CreateTaskSet -> Maybe Text
$sel:capacityProviderStrategy:CreateTaskSet' :: CreateTaskSet -> 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
"clientToken" 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
clientToken,
(Key
"externalId" 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
externalId,
(Key
"launchType" 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 LaunchType
launchType,
(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
"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
"scale" 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 Scale
scale,
(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
"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
"service" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
service),
forall a. a -> Maybe a
Prelude.Just (Key
"cluster" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
cluster),
forall a. a -> Maybe a
Prelude.Just
(Key
"taskDefinition" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
taskDefinition)
]
)
instance Data.ToPath CreateTaskSet where
toPath :: CreateTaskSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateTaskSet where
toQuery :: CreateTaskSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateTaskSetResponse = CreateTaskSetResponse'
{
CreateTaskSetResponse -> Maybe TaskSet
taskSet :: Prelude.Maybe TaskSet,
CreateTaskSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateTaskSetResponse -> CreateTaskSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTaskSetResponse -> CreateTaskSetResponse -> Bool
$c/= :: CreateTaskSetResponse -> CreateTaskSetResponse -> Bool
== :: CreateTaskSetResponse -> CreateTaskSetResponse -> Bool
$c== :: CreateTaskSetResponse -> CreateTaskSetResponse -> Bool
Prelude.Eq, ReadPrec [CreateTaskSetResponse]
ReadPrec CreateTaskSetResponse
Int -> ReadS CreateTaskSetResponse
ReadS [CreateTaskSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTaskSetResponse]
$creadListPrec :: ReadPrec [CreateTaskSetResponse]
readPrec :: ReadPrec CreateTaskSetResponse
$creadPrec :: ReadPrec CreateTaskSetResponse
readList :: ReadS [CreateTaskSetResponse]
$creadList :: ReadS [CreateTaskSetResponse]
readsPrec :: Int -> ReadS CreateTaskSetResponse
$creadsPrec :: Int -> ReadS CreateTaskSetResponse
Prelude.Read, Int -> CreateTaskSetResponse -> ShowS
[CreateTaskSetResponse] -> ShowS
CreateTaskSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTaskSetResponse] -> ShowS
$cshowList :: [CreateTaskSetResponse] -> ShowS
show :: CreateTaskSetResponse -> String
$cshow :: CreateTaskSetResponse -> String
showsPrec :: Int -> CreateTaskSetResponse -> ShowS
$cshowsPrec :: Int -> CreateTaskSetResponse -> ShowS
Prelude.Show, forall x. Rep CreateTaskSetResponse x -> CreateTaskSetResponse
forall x. CreateTaskSetResponse -> Rep CreateTaskSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTaskSetResponse x -> CreateTaskSetResponse
$cfrom :: forall x. CreateTaskSetResponse -> Rep CreateTaskSetResponse x
Prelude.Generic)
newCreateTaskSetResponse ::
Prelude.Int ->
CreateTaskSetResponse
newCreateTaskSetResponse :: Int -> CreateTaskSetResponse
newCreateTaskSetResponse Int
pHttpStatus_ =
CreateTaskSetResponse'
{ $sel:taskSet:CreateTaskSetResponse' :: Maybe TaskSet
taskSet = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateTaskSetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createTaskSetResponse_taskSet :: Lens.Lens' CreateTaskSetResponse (Prelude.Maybe TaskSet)
createTaskSetResponse_taskSet :: Lens' CreateTaskSetResponse (Maybe TaskSet)
createTaskSetResponse_taskSet = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSetResponse' {Maybe TaskSet
taskSet :: Maybe TaskSet
$sel:taskSet:CreateTaskSetResponse' :: CreateTaskSetResponse -> Maybe TaskSet
taskSet} -> Maybe TaskSet
taskSet) (\s :: CreateTaskSetResponse
s@CreateTaskSetResponse' {} Maybe TaskSet
a -> CreateTaskSetResponse
s {$sel:taskSet:CreateTaskSetResponse' :: Maybe TaskSet
taskSet = Maybe TaskSet
a} :: CreateTaskSetResponse)
createTaskSetResponse_httpStatus :: Lens.Lens' CreateTaskSetResponse Prelude.Int
createTaskSetResponse_httpStatus :: Lens' CreateTaskSetResponse Int
createTaskSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTaskSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTaskSetResponse' :: CreateTaskSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTaskSetResponse
s@CreateTaskSetResponse' {} Int
a -> CreateTaskSetResponse
s {$sel:httpStatus:CreateTaskSetResponse' :: Int
httpStatus = Int
a} :: CreateTaskSetResponse)
instance Prelude.NFData CreateTaskSetResponse where
rnf :: CreateTaskSetResponse -> ()
rnf CreateTaskSetResponse' {Int
Maybe TaskSet
httpStatus :: Int
taskSet :: Maybe TaskSet
$sel:httpStatus:CreateTaskSetResponse' :: CreateTaskSetResponse -> Int
$sel:taskSet:CreateTaskSetResponse' :: CreateTaskSetResponse -> Maybe TaskSet
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe TaskSet
taskSet
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus