{-# 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.StartTask
(
StartTask (..),
newStartTask,
startTask_cluster,
startTask_enableECSManagedTags,
startTask_enableExecuteCommand,
startTask_group,
startTask_networkConfiguration,
startTask_overrides,
startTask_propagateTags,
startTask_referenceId,
startTask_startedBy,
startTask_tags,
startTask_containerInstances,
startTask_taskDefinition,
StartTaskResponse (..),
newStartTaskResponse,
startTaskResponse_failures,
startTaskResponse_tasks,
startTaskResponse_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 StartTask = StartTask'
{
StartTask -> Maybe Text
cluster :: Prelude.Maybe Prelude.Text,
StartTask -> Maybe Bool
enableECSManagedTags :: Prelude.Maybe Prelude.Bool,
StartTask -> Maybe Bool
enableExecuteCommand :: Prelude.Maybe Prelude.Bool,
StartTask -> Maybe Text
group' :: Prelude.Maybe Prelude.Text,
StartTask -> Maybe NetworkConfiguration
networkConfiguration :: Prelude.Maybe NetworkConfiguration,
StartTask -> Maybe TaskOverride
overrides :: Prelude.Maybe TaskOverride,
StartTask -> Maybe PropagateTags
propagateTags :: Prelude.Maybe PropagateTags,
StartTask -> Maybe Text
referenceId :: Prelude.Maybe Prelude.Text,
StartTask -> Maybe Text
startedBy :: Prelude.Maybe Prelude.Text,
StartTask -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
StartTask -> [Text]
containerInstances :: [Prelude.Text],
StartTask -> Text
taskDefinition :: Prelude.Text
}
deriving (StartTask -> StartTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartTask -> StartTask -> Bool
$c/= :: StartTask -> StartTask -> Bool
== :: StartTask -> StartTask -> Bool
$c== :: StartTask -> StartTask -> Bool
Prelude.Eq, ReadPrec [StartTask]
ReadPrec StartTask
Int -> ReadS StartTask
ReadS [StartTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartTask]
$creadListPrec :: ReadPrec [StartTask]
readPrec :: ReadPrec StartTask
$creadPrec :: ReadPrec StartTask
readList :: ReadS [StartTask]
$creadList :: ReadS [StartTask]
readsPrec :: Int -> ReadS StartTask
$creadsPrec :: Int -> ReadS StartTask
Prelude.Read, Int -> StartTask -> ShowS
[StartTask] -> ShowS
StartTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartTask] -> ShowS
$cshowList :: [StartTask] -> ShowS
show :: StartTask -> String
$cshow :: StartTask -> String
showsPrec :: Int -> StartTask -> ShowS
$cshowsPrec :: Int -> StartTask -> ShowS
Prelude.Show, forall x. Rep StartTask x -> StartTask
forall x. StartTask -> Rep StartTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartTask x -> StartTask
$cfrom :: forall x. StartTask -> Rep StartTask x
Prelude.Generic)
newStartTask ::
Prelude.Text ->
StartTask
newStartTask :: Text -> StartTask
newStartTask Text
pTaskDefinition_ =
StartTask'
{ $sel:cluster:StartTask' :: Maybe Text
cluster = forall a. Maybe a
Prelude.Nothing,
$sel:enableECSManagedTags:StartTask' :: Maybe Bool
enableECSManagedTags = forall a. Maybe a
Prelude.Nothing,
$sel:enableExecuteCommand:StartTask' :: Maybe Bool
enableExecuteCommand = forall a. Maybe a
Prelude.Nothing,
$sel:group':StartTask' :: Maybe Text
group' = forall a. Maybe a
Prelude.Nothing,
$sel:networkConfiguration:StartTask' :: Maybe NetworkConfiguration
networkConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:overrides:StartTask' :: Maybe TaskOverride
overrides = forall a. Maybe a
Prelude.Nothing,
$sel:propagateTags:StartTask' :: Maybe PropagateTags
propagateTags = forall a. Maybe a
Prelude.Nothing,
$sel:referenceId:StartTask' :: Maybe Text
referenceId = forall a. Maybe a
Prelude.Nothing,
$sel:startedBy:StartTask' :: Maybe Text
startedBy = forall a. Maybe a
Prelude.Nothing,
$sel:tags:StartTask' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:containerInstances:StartTask' :: [Text]
containerInstances = forall a. Monoid a => a
Prelude.mempty,
$sel:taskDefinition:StartTask' :: Text
taskDefinition = Text
pTaskDefinition_
}
startTask_cluster :: Lens.Lens' StartTask (Prelude.Maybe Prelude.Text)
startTask_cluster :: Lens' StartTask (Maybe Text)
startTask_cluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe Text
cluster :: Maybe Text
$sel:cluster:StartTask' :: StartTask -> Maybe Text
cluster} -> Maybe Text
cluster) (\s :: StartTask
s@StartTask' {} Maybe Text
a -> StartTask
s {$sel:cluster:StartTask' :: Maybe Text
cluster = Maybe Text
a} :: StartTask)
startTask_enableECSManagedTags :: Lens.Lens' StartTask (Prelude.Maybe Prelude.Bool)
startTask_enableECSManagedTags :: Lens' StartTask (Maybe Bool)
startTask_enableECSManagedTags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe Bool
enableECSManagedTags :: Maybe Bool
$sel:enableECSManagedTags:StartTask' :: StartTask -> Maybe Bool
enableECSManagedTags} -> Maybe Bool
enableECSManagedTags) (\s :: StartTask
s@StartTask' {} Maybe Bool
a -> StartTask
s {$sel:enableECSManagedTags:StartTask' :: Maybe Bool
enableECSManagedTags = Maybe Bool
a} :: StartTask)
startTask_enableExecuteCommand :: Lens.Lens' StartTask (Prelude.Maybe Prelude.Bool)
startTask_enableExecuteCommand :: Lens' StartTask (Maybe Bool)
startTask_enableExecuteCommand = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe Bool
enableExecuteCommand :: Maybe Bool
$sel:enableExecuteCommand:StartTask' :: StartTask -> Maybe Bool
enableExecuteCommand} -> Maybe Bool
enableExecuteCommand) (\s :: StartTask
s@StartTask' {} Maybe Bool
a -> StartTask
s {$sel:enableExecuteCommand:StartTask' :: Maybe Bool
enableExecuteCommand = Maybe Bool
a} :: StartTask)
startTask_group :: Lens.Lens' StartTask (Prelude.Maybe Prelude.Text)
startTask_group :: Lens' StartTask (Maybe Text)
startTask_group = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe Text
group' :: Maybe Text
$sel:group':StartTask' :: StartTask -> Maybe Text
group'} -> Maybe Text
group') (\s :: StartTask
s@StartTask' {} Maybe Text
a -> StartTask
s {$sel:group':StartTask' :: Maybe Text
group' = Maybe Text
a} :: StartTask)
startTask_networkConfiguration :: Lens.Lens' StartTask (Prelude.Maybe NetworkConfiguration)
startTask_networkConfiguration :: Lens' StartTask (Maybe NetworkConfiguration)
startTask_networkConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe NetworkConfiguration
networkConfiguration :: Maybe NetworkConfiguration
$sel:networkConfiguration:StartTask' :: StartTask -> Maybe NetworkConfiguration
networkConfiguration} -> Maybe NetworkConfiguration
networkConfiguration) (\s :: StartTask
s@StartTask' {} Maybe NetworkConfiguration
a -> StartTask
s {$sel:networkConfiguration:StartTask' :: Maybe NetworkConfiguration
networkConfiguration = Maybe NetworkConfiguration
a} :: StartTask)
startTask_overrides :: Lens.Lens' StartTask (Prelude.Maybe TaskOverride)
startTask_overrides :: Lens' StartTask (Maybe TaskOverride)
startTask_overrides = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe TaskOverride
overrides :: Maybe TaskOverride
$sel:overrides:StartTask' :: StartTask -> Maybe TaskOverride
overrides} -> Maybe TaskOverride
overrides) (\s :: StartTask
s@StartTask' {} Maybe TaskOverride
a -> StartTask
s {$sel:overrides:StartTask' :: Maybe TaskOverride
overrides = Maybe TaskOverride
a} :: StartTask)
startTask_propagateTags :: Lens.Lens' StartTask (Prelude.Maybe PropagateTags)
startTask_propagateTags :: Lens' StartTask (Maybe PropagateTags)
startTask_propagateTags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe PropagateTags
propagateTags :: Maybe PropagateTags
$sel:propagateTags:StartTask' :: StartTask -> Maybe PropagateTags
propagateTags} -> Maybe PropagateTags
propagateTags) (\s :: StartTask
s@StartTask' {} Maybe PropagateTags
a -> StartTask
s {$sel:propagateTags:StartTask' :: Maybe PropagateTags
propagateTags = Maybe PropagateTags
a} :: StartTask)
startTask_referenceId :: Lens.Lens' StartTask (Prelude.Maybe Prelude.Text)
startTask_referenceId :: Lens' StartTask (Maybe Text)
startTask_referenceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe Text
referenceId :: Maybe Text
$sel:referenceId:StartTask' :: StartTask -> Maybe Text
referenceId} -> Maybe Text
referenceId) (\s :: StartTask
s@StartTask' {} Maybe Text
a -> StartTask
s {$sel:referenceId:StartTask' :: Maybe Text
referenceId = Maybe Text
a} :: StartTask)
startTask_startedBy :: Lens.Lens' StartTask (Prelude.Maybe Prelude.Text)
startTask_startedBy :: Lens' StartTask (Maybe Text)
startTask_startedBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe Text
startedBy :: Maybe Text
$sel:startedBy:StartTask' :: StartTask -> Maybe Text
startedBy} -> Maybe Text
startedBy) (\s :: StartTask
s@StartTask' {} Maybe Text
a -> StartTask
s {$sel:startedBy:StartTask' :: Maybe Text
startedBy = Maybe Text
a} :: StartTask)
startTask_tags :: Lens.Lens' StartTask (Prelude.Maybe [Tag])
startTask_tags :: Lens' StartTask (Maybe [Tag])
startTask_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:StartTask' :: StartTask -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: StartTask
s@StartTask' {} Maybe [Tag]
a -> StartTask
s {$sel:tags:StartTask' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: StartTask) 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
startTask_containerInstances :: Lens.Lens' StartTask [Prelude.Text]
startTask_containerInstances :: Lens' StartTask [Text]
startTask_containerInstances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {[Text]
containerInstances :: [Text]
$sel:containerInstances:StartTask' :: StartTask -> [Text]
containerInstances} -> [Text]
containerInstances) (\s :: StartTask
s@StartTask' {} [Text]
a -> StartTask
s {$sel:containerInstances:StartTask' :: [Text]
containerInstances = [Text]
a} :: StartTask) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
startTask_taskDefinition :: Lens.Lens' StartTask Prelude.Text
startTask_taskDefinition :: Lens' StartTask Text
startTask_taskDefinition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTask' {Text
taskDefinition :: Text
$sel:taskDefinition:StartTask' :: StartTask -> Text
taskDefinition} -> Text
taskDefinition) (\s :: StartTask
s@StartTask' {} Text
a -> StartTask
s {$sel:taskDefinition:StartTask' :: Text
taskDefinition = Text
a} :: StartTask)
instance Core.AWSRequest StartTask where
type AWSResponse StartTask = StartTaskResponse
request :: (Service -> Service) -> StartTask -> Request StartTask
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 StartTask
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse StartTask)))
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 [Failure] -> Maybe [Task] -> Int -> StartTaskResponse
StartTaskResponse'
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
"failures" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tasks" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable StartTask where
hashWithSalt :: Int -> StartTask -> Int
hashWithSalt Int
_salt StartTask' {[Text]
Maybe Bool
Maybe [Tag]
Maybe Text
Maybe NetworkConfiguration
Maybe PropagateTags
Maybe TaskOverride
Text
taskDefinition :: Text
containerInstances :: [Text]
tags :: Maybe [Tag]
startedBy :: Maybe Text
referenceId :: Maybe Text
propagateTags :: Maybe PropagateTags
overrides :: Maybe TaskOverride
networkConfiguration :: Maybe NetworkConfiguration
group' :: Maybe Text
enableExecuteCommand :: Maybe Bool
enableECSManagedTags :: Maybe Bool
cluster :: Maybe Text
$sel:taskDefinition:StartTask' :: StartTask -> Text
$sel:containerInstances:StartTask' :: StartTask -> [Text]
$sel:tags:StartTask' :: StartTask -> Maybe [Tag]
$sel:startedBy:StartTask' :: StartTask -> Maybe Text
$sel:referenceId:StartTask' :: StartTask -> Maybe Text
$sel:propagateTags:StartTask' :: StartTask -> Maybe PropagateTags
$sel:overrides:StartTask' :: StartTask -> Maybe TaskOverride
$sel:networkConfiguration:StartTask' :: StartTask -> Maybe NetworkConfiguration
$sel:group':StartTask' :: StartTask -> Maybe Text
$sel:enableExecuteCommand:StartTask' :: StartTask -> Maybe Bool
$sel:enableECSManagedTags:StartTask' :: StartTask -> Maybe Bool
$sel:cluster:StartTask' :: StartTask -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cluster
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 Text
group'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe NetworkConfiguration
networkConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TaskOverride
overrides
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PropagateTags
propagateTags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
referenceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
startedBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
containerInstances
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskDefinition
instance Prelude.NFData StartTask where
rnf :: StartTask -> ()
rnf StartTask' {[Text]
Maybe Bool
Maybe [Tag]
Maybe Text
Maybe NetworkConfiguration
Maybe PropagateTags
Maybe TaskOverride
Text
taskDefinition :: Text
containerInstances :: [Text]
tags :: Maybe [Tag]
startedBy :: Maybe Text
referenceId :: Maybe Text
propagateTags :: Maybe PropagateTags
overrides :: Maybe TaskOverride
networkConfiguration :: Maybe NetworkConfiguration
group' :: Maybe Text
enableExecuteCommand :: Maybe Bool
enableECSManagedTags :: Maybe Bool
cluster :: Maybe Text
$sel:taskDefinition:StartTask' :: StartTask -> Text
$sel:containerInstances:StartTask' :: StartTask -> [Text]
$sel:tags:StartTask' :: StartTask -> Maybe [Tag]
$sel:startedBy:StartTask' :: StartTask -> Maybe Text
$sel:referenceId:StartTask' :: StartTask -> Maybe Text
$sel:propagateTags:StartTask' :: StartTask -> Maybe PropagateTags
$sel:overrides:StartTask' :: StartTask -> Maybe TaskOverride
$sel:networkConfiguration:StartTask' :: StartTask -> Maybe NetworkConfiguration
$sel:group':StartTask' :: StartTask -> Maybe Text
$sel:enableExecuteCommand:StartTask' :: StartTask -> Maybe Bool
$sel:enableECSManagedTags:StartTask' :: StartTask -> Maybe Bool
$sel:cluster:StartTask' :: StartTask -> Maybe Text
..} =
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 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 Text
group'
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 TaskOverride
overrides
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 Text
referenceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
startedBy
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]
containerInstances
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
taskDefinition
instance Data.ToHeaders StartTask where
toHeaders :: StartTask -> 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.StartTask" ::
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 StartTask where
toJSON :: StartTask -> Value
toJSON StartTask' {[Text]
Maybe Bool
Maybe [Tag]
Maybe Text
Maybe NetworkConfiguration
Maybe PropagateTags
Maybe TaskOverride
Text
taskDefinition :: Text
containerInstances :: [Text]
tags :: Maybe [Tag]
startedBy :: Maybe Text
referenceId :: Maybe Text
propagateTags :: Maybe PropagateTags
overrides :: Maybe TaskOverride
networkConfiguration :: Maybe NetworkConfiguration
group' :: Maybe Text
enableExecuteCommand :: Maybe Bool
enableECSManagedTags :: Maybe Bool
cluster :: Maybe Text
$sel:taskDefinition:StartTask' :: StartTask -> Text
$sel:containerInstances:StartTask' :: StartTask -> [Text]
$sel:tags:StartTask' :: StartTask -> Maybe [Tag]
$sel:startedBy:StartTask' :: StartTask -> Maybe Text
$sel:referenceId:StartTask' :: StartTask -> Maybe Text
$sel:propagateTags:StartTask' :: StartTask -> Maybe PropagateTags
$sel:overrides:StartTask' :: StartTask -> Maybe TaskOverride
$sel:networkConfiguration:StartTask' :: StartTask -> Maybe NetworkConfiguration
$sel:group':StartTask' :: StartTask -> Maybe Text
$sel:enableExecuteCommand:StartTask' :: StartTask -> Maybe Bool
$sel:enableECSManagedTags:StartTask' :: StartTask -> Maybe Bool
$sel:cluster:StartTask' :: StartTask -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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
"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
"group" 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
group',
(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
"overrides" 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 TaskOverride
overrides,
(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
"referenceId" 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
referenceId,
(Key
"startedBy" 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
startedBy,
(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
"containerInstances" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
containerInstances),
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 StartTask where
toPath :: StartTask -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StartTask where
toQuery :: StartTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartTaskResponse = StartTaskResponse'
{
StartTaskResponse -> Maybe [Failure]
failures :: Prelude.Maybe [Failure],
StartTaskResponse -> Maybe [Task]
tasks :: Prelude.Maybe [Task],
StartTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartTaskResponse -> StartTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartTaskResponse -> StartTaskResponse -> Bool
$c/= :: StartTaskResponse -> StartTaskResponse -> Bool
== :: StartTaskResponse -> StartTaskResponse -> Bool
$c== :: StartTaskResponse -> StartTaskResponse -> Bool
Prelude.Eq, ReadPrec [StartTaskResponse]
ReadPrec StartTaskResponse
Int -> ReadS StartTaskResponse
ReadS [StartTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartTaskResponse]
$creadListPrec :: ReadPrec [StartTaskResponse]
readPrec :: ReadPrec StartTaskResponse
$creadPrec :: ReadPrec StartTaskResponse
readList :: ReadS [StartTaskResponse]
$creadList :: ReadS [StartTaskResponse]
readsPrec :: Int -> ReadS StartTaskResponse
$creadsPrec :: Int -> ReadS StartTaskResponse
Prelude.Read, Int -> StartTaskResponse -> ShowS
[StartTaskResponse] -> ShowS
StartTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartTaskResponse] -> ShowS
$cshowList :: [StartTaskResponse] -> ShowS
show :: StartTaskResponse -> String
$cshow :: StartTaskResponse -> String
showsPrec :: Int -> StartTaskResponse -> ShowS
$cshowsPrec :: Int -> StartTaskResponse -> ShowS
Prelude.Show, forall x. Rep StartTaskResponse x -> StartTaskResponse
forall x. StartTaskResponse -> Rep StartTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartTaskResponse x -> StartTaskResponse
$cfrom :: forall x. StartTaskResponse -> Rep StartTaskResponse x
Prelude.Generic)
newStartTaskResponse ::
Prelude.Int ->
StartTaskResponse
newStartTaskResponse :: Int -> StartTaskResponse
newStartTaskResponse Int
pHttpStatus_ =
StartTaskResponse'
{ $sel:failures:StartTaskResponse' :: Maybe [Failure]
failures = forall a. Maybe a
Prelude.Nothing,
$sel:tasks:StartTaskResponse' :: Maybe [Task]
tasks = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartTaskResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startTaskResponse_failures :: Lens.Lens' StartTaskResponse (Prelude.Maybe [Failure])
startTaskResponse_failures :: Lens' StartTaskResponse (Maybe [Failure])
startTaskResponse_failures = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTaskResponse' {Maybe [Failure]
failures :: Maybe [Failure]
$sel:failures:StartTaskResponse' :: StartTaskResponse -> Maybe [Failure]
failures} -> Maybe [Failure]
failures) (\s :: StartTaskResponse
s@StartTaskResponse' {} Maybe [Failure]
a -> StartTaskResponse
s {$sel:failures:StartTaskResponse' :: Maybe [Failure]
failures = Maybe [Failure]
a} :: StartTaskResponse) 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
startTaskResponse_tasks :: Lens.Lens' StartTaskResponse (Prelude.Maybe [Task])
startTaskResponse_tasks :: Lens' StartTaskResponse (Maybe [Task])
startTaskResponse_tasks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTaskResponse' {Maybe [Task]
tasks :: Maybe [Task]
$sel:tasks:StartTaskResponse' :: StartTaskResponse -> Maybe [Task]
tasks} -> Maybe [Task]
tasks) (\s :: StartTaskResponse
s@StartTaskResponse' {} Maybe [Task]
a -> StartTaskResponse
s {$sel:tasks:StartTaskResponse' :: Maybe [Task]
tasks = Maybe [Task]
a} :: StartTaskResponse) 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
startTaskResponse_httpStatus :: Lens.Lens' StartTaskResponse Prelude.Int
startTaskResponse_httpStatus :: Lens' StartTaskResponse Int
startTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartTaskResponse' :: StartTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartTaskResponse
s@StartTaskResponse' {} Int
a -> StartTaskResponse
s {$sel:httpStatus:StartTaskResponse' :: Int
httpStatus = Int
a} :: StartTaskResponse)
instance Prelude.NFData StartTaskResponse where
rnf :: StartTaskResponse -> ()
rnf StartTaskResponse' {Int
Maybe [Failure]
Maybe [Task]
httpStatus :: Int
tasks :: Maybe [Task]
failures :: Maybe [Failure]
$sel:httpStatus:StartTaskResponse' :: StartTaskResponse -> Int
$sel:tasks:StartTaskResponse' :: StartTaskResponse -> Maybe [Task]
$sel:failures:StartTaskResponse' :: StartTaskResponse -> Maybe [Failure]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Failure]
failures
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Task]
tasks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus