{-# 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.RegisterTaskDefinition
(
RegisterTaskDefinition (..),
newRegisterTaskDefinition,
registerTaskDefinition_cpu,
registerTaskDefinition_ephemeralStorage,
registerTaskDefinition_executionRoleArn,
registerTaskDefinition_inferenceAccelerators,
registerTaskDefinition_ipcMode,
registerTaskDefinition_memory,
registerTaskDefinition_networkMode,
registerTaskDefinition_pidMode,
registerTaskDefinition_placementConstraints,
registerTaskDefinition_proxyConfiguration,
registerTaskDefinition_requiresCompatibilities,
registerTaskDefinition_runtimePlatform,
registerTaskDefinition_tags,
registerTaskDefinition_taskRoleArn,
registerTaskDefinition_volumes,
registerTaskDefinition_family,
registerTaskDefinition_containerDefinitions,
RegisterTaskDefinitionResponse (..),
newRegisterTaskDefinitionResponse,
registerTaskDefinitionResponse_tags,
registerTaskDefinitionResponse_taskDefinition,
registerTaskDefinitionResponse_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 RegisterTaskDefinition = RegisterTaskDefinition'
{
RegisterTaskDefinition -> Maybe Text
cpu :: Prelude.Maybe Prelude.Text,
RegisterTaskDefinition -> Maybe EphemeralStorage
ephemeralStorage :: Prelude.Maybe EphemeralStorage,
RegisterTaskDefinition -> Maybe Text
executionRoleArn :: Prelude.Maybe Prelude.Text,
RegisterTaskDefinition -> Maybe [InferenceAccelerator]
inferenceAccelerators :: Prelude.Maybe [InferenceAccelerator],
RegisterTaskDefinition -> Maybe IpcMode
ipcMode :: Prelude.Maybe IpcMode,
RegisterTaskDefinition -> Maybe Text
memory :: Prelude.Maybe Prelude.Text,
RegisterTaskDefinition -> Maybe NetworkMode
networkMode :: Prelude.Maybe NetworkMode,
RegisterTaskDefinition -> Maybe PidMode
pidMode :: Prelude.Maybe PidMode,
RegisterTaskDefinition -> Maybe [TaskDefinitionPlacementConstraint]
placementConstraints :: Prelude.Maybe [TaskDefinitionPlacementConstraint],
RegisterTaskDefinition -> Maybe ProxyConfiguration
proxyConfiguration :: Prelude.Maybe ProxyConfiguration,
RegisterTaskDefinition -> Maybe [Compatibility]
requiresCompatibilities :: Prelude.Maybe [Compatibility],
RegisterTaskDefinition -> Maybe RuntimePlatform
runtimePlatform :: Prelude.Maybe RuntimePlatform,
RegisterTaskDefinition -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
RegisterTaskDefinition -> Maybe Text
taskRoleArn :: Prelude.Maybe Prelude.Text,
RegisterTaskDefinition -> Maybe [Volume]
volumes :: Prelude.Maybe [Volume],
RegisterTaskDefinition -> Text
family :: Prelude.Text,
RegisterTaskDefinition -> [ContainerDefinition]
containerDefinitions :: [ContainerDefinition]
}
deriving (RegisterTaskDefinition -> RegisterTaskDefinition -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterTaskDefinition -> RegisterTaskDefinition -> Bool
$c/= :: RegisterTaskDefinition -> RegisterTaskDefinition -> Bool
== :: RegisterTaskDefinition -> RegisterTaskDefinition -> Bool
$c== :: RegisterTaskDefinition -> RegisterTaskDefinition -> Bool
Prelude.Eq, ReadPrec [RegisterTaskDefinition]
ReadPrec RegisterTaskDefinition
Int -> ReadS RegisterTaskDefinition
ReadS [RegisterTaskDefinition]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterTaskDefinition]
$creadListPrec :: ReadPrec [RegisterTaskDefinition]
readPrec :: ReadPrec RegisterTaskDefinition
$creadPrec :: ReadPrec RegisterTaskDefinition
readList :: ReadS [RegisterTaskDefinition]
$creadList :: ReadS [RegisterTaskDefinition]
readsPrec :: Int -> ReadS RegisterTaskDefinition
$creadsPrec :: Int -> ReadS RegisterTaskDefinition
Prelude.Read, Int -> RegisterTaskDefinition -> ShowS
[RegisterTaskDefinition] -> ShowS
RegisterTaskDefinition -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterTaskDefinition] -> ShowS
$cshowList :: [RegisterTaskDefinition] -> ShowS
show :: RegisterTaskDefinition -> String
$cshow :: RegisterTaskDefinition -> String
showsPrec :: Int -> RegisterTaskDefinition -> ShowS
$cshowsPrec :: Int -> RegisterTaskDefinition -> ShowS
Prelude.Show, forall x. Rep RegisterTaskDefinition x -> RegisterTaskDefinition
forall x. RegisterTaskDefinition -> Rep RegisterTaskDefinition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RegisterTaskDefinition x -> RegisterTaskDefinition
$cfrom :: forall x. RegisterTaskDefinition -> Rep RegisterTaskDefinition x
Prelude.Generic)
newRegisterTaskDefinition ::
Prelude.Text ->
RegisterTaskDefinition
newRegisterTaskDefinition :: Text -> RegisterTaskDefinition
newRegisterTaskDefinition Text
pFamily_ =
RegisterTaskDefinition'
{ $sel:cpu:RegisterTaskDefinition' :: Maybe Text
cpu = forall a. Maybe a
Prelude.Nothing,
$sel:ephemeralStorage:RegisterTaskDefinition' :: Maybe EphemeralStorage
ephemeralStorage = forall a. Maybe a
Prelude.Nothing,
$sel:executionRoleArn:RegisterTaskDefinition' :: Maybe Text
executionRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:inferenceAccelerators:RegisterTaskDefinition' :: Maybe [InferenceAccelerator]
inferenceAccelerators = forall a. Maybe a
Prelude.Nothing,
$sel:ipcMode:RegisterTaskDefinition' :: Maybe IpcMode
ipcMode = forall a. Maybe a
Prelude.Nothing,
$sel:memory:RegisterTaskDefinition' :: Maybe Text
memory = forall a. Maybe a
Prelude.Nothing,
$sel:networkMode:RegisterTaskDefinition' :: Maybe NetworkMode
networkMode = forall a. Maybe a
Prelude.Nothing,
$sel:pidMode:RegisterTaskDefinition' :: Maybe PidMode
pidMode = forall a. Maybe a
Prelude.Nothing,
$sel:placementConstraints:RegisterTaskDefinition' :: Maybe [TaskDefinitionPlacementConstraint]
placementConstraints = forall a. Maybe a
Prelude.Nothing,
$sel:proxyConfiguration:RegisterTaskDefinition' :: Maybe ProxyConfiguration
proxyConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:requiresCompatibilities:RegisterTaskDefinition' :: Maybe [Compatibility]
requiresCompatibilities = forall a. Maybe a
Prelude.Nothing,
$sel:runtimePlatform:RegisterTaskDefinition' :: Maybe RuntimePlatform
runtimePlatform = forall a. Maybe a
Prelude.Nothing,
$sel:tags:RegisterTaskDefinition' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:taskRoleArn:RegisterTaskDefinition' :: Maybe Text
taskRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:volumes:RegisterTaskDefinition' :: Maybe [Volume]
volumes = forall a. Maybe a
Prelude.Nothing,
$sel:family:RegisterTaskDefinition' :: Text
family = Text
pFamily_,
$sel:containerDefinitions:RegisterTaskDefinition' :: [ContainerDefinition]
containerDefinitions = forall a. Monoid a => a
Prelude.mempty
}
registerTaskDefinition_cpu :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe Prelude.Text)
registerTaskDefinition_cpu :: Lens' RegisterTaskDefinition (Maybe Text)
registerTaskDefinition_cpu = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe Text
cpu :: Maybe Text
$sel:cpu:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
cpu} -> Maybe Text
cpu) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe Text
a -> RegisterTaskDefinition
s {$sel:cpu:RegisterTaskDefinition' :: Maybe Text
cpu = Maybe Text
a} :: RegisterTaskDefinition)
registerTaskDefinition_ephemeralStorage :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe EphemeralStorage)
registerTaskDefinition_ephemeralStorage :: Lens' RegisterTaskDefinition (Maybe EphemeralStorage)
registerTaskDefinition_ephemeralStorage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe EphemeralStorage
ephemeralStorage :: Maybe EphemeralStorage
$sel:ephemeralStorage:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe EphemeralStorage
ephemeralStorage} -> Maybe EphemeralStorage
ephemeralStorage) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe EphemeralStorage
a -> RegisterTaskDefinition
s {$sel:ephemeralStorage:RegisterTaskDefinition' :: Maybe EphemeralStorage
ephemeralStorage = Maybe EphemeralStorage
a} :: RegisterTaskDefinition)
registerTaskDefinition_executionRoleArn :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe Prelude.Text)
registerTaskDefinition_executionRoleArn :: Lens' RegisterTaskDefinition (Maybe Text)
registerTaskDefinition_executionRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe Text
executionRoleArn :: Maybe Text
$sel:executionRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
executionRoleArn} -> Maybe Text
executionRoleArn) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe Text
a -> RegisterTaskDefinition
s {$sel:executionRoleArn:RegisterTaskDefinition' :: Maybe Text
executionRoleArn = Maybe Text
a} :: RegisterTaskDefinition)
registerTaskDefinition_inferenceAccelerators :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe [InferenceAccelerator])
registerTaskDefinition_inferenceAccelerators :: Lens' RegisterTaskDefinition (Maybe [InferenceAccelerator])
registerTaskDefinition_inferenceAccelerators = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe [InferenceAccelerator]
inferenceAccelerators :: Maybe [InferenceAccelerator]
$sel:inferenceAccelerators:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [InferenceAccelerator]
inferenceAccelerators} -> Maybe [InferenceAccelerator]
inferenceAccelerators) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe [InferenceAccelerator]
a -> RegisterTaskDefinition
s {$sel:inferenceAccelerators:RegisterTaskDefinition' :: Maybe [InferenceAccelerator]
inferenceAccelerators = Maybe [InferenceAccelerator]
a} :: RegisterTaskDefinition) 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
registerTaskDefinition_ipcMode :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe IpcMode)
registerTaskDefinition_ipcMode :: Lens' RegisterTaskDefinition (Maybe IpcMode)
registerTaskDefinition_ipcMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe IpcMode
ipcMode :: Maybe IpcMode
$sel:ipcMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe IpcMode
ipcMode} -> Maybe IpcMode
ipcMode) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe IpcMode
a -> RegisterTaskDefinition
s {$sel:ipcMode:RegisterTaskDefinition' :: Maybe IpcMode
ipcMode = Maybe IpcMode
a} :: RegisterTaskDefinition)
registerTaskDefinition_memory :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe Prelude.Text)
registerTaskDefinition_memory :: Lens' RegisterTaskDefinition (Maybe Text)
registerTaskDefinition_memory = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe Text
memory :: Maybe Text
$sel:memory:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
memory} -> Maybe Text
memory) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe Text
a -> RegisterTaskDefinition
s {$sel:memory:RegisterTaskDefinition' :: Maybe Text
memory = Maybe Text
a} :: RegisterTaskDefinition)
registerTaskDefinition_networkMode :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe NetworkMode)
registerTaskDefinition_networkMode :: Lens' RegisterTaskDefinition (Maybe NetworkMode)
registerTaskDefinition_networkMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe NetworkMode
networkMode :: Maybe NetworkMode
$sel:networkMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe NetworkMode
networkMode} -> Maybe NetworkMode
networkMode) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe NetworkMode
a -> RegisterTaskDefinition
s {$sel:networkMode:RegisterTaskDefinition' :: Maybe NetworkMode
networkMode = Maybe NetworkMode
a} :: RegisterTaskDefinition)
registerTaskDefinition_pidMode :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe PidMode)
registerTaskDefinition_pidMode :: Lens' RegisterTaskDefinition (Maybe PidMode)
registerTaskDefinition_pidMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe PidMode
pidMode :: Maybe PidMode
$sel:pidMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe PidMode
pidMode} -> Maybe PidMode
pidMode) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe PidMode
a -> RegisterTaskDefinition
s {$sel:pidMode:RegisterTaskDefinition' :: Maybe PidMode
pidMode = Maybe PidMode
a} :: RegisterTaskDefinition)
registerTaskDefinition_placementConstraints :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe [TaskDefinitionPlacementConstraint])
registerTaskDefinition_placementConstraints :: Lens'
RegisterTaskDefinition (Maybe [TaskDefinitionPlacementConstraint])
registerTaskDefinition_placementConstraints = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe [TaskDefinitionPlacementConstraint]
placementConstraints :: Maybe [TaskDefinitionPlacementConstraint]
$sel:placementConstraints:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [TaskDefinitionPlacementConstraint]
placementConstraints} -> Maybe [TaskDefinitionPlacementConstraint]
placementConstraints) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe [TaskDefinitionPlacementConstraint]
a -> RegisterTaskDefinition
s {$sel:placementConstraints:RegisterTaskDefinition' :: Maybe [TaskDefinitionPlacementConstraint]
placementConstraints = Maybe [TaskDefinitionPlacementConstraint]
a} :: RegisterTaskDefinition) 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
registerTaskDefinition_proxyConfiguration :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe ProxyConfiguration)
registerTaskDefinition_proxyConfiguration :: Lens' RegisterTaskDefinition (Maybe ProxyConfiguration)
registerTaskDefinition_proxyConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe ProxyConfiguration
proxyConfiguration :: Maybe ProxyConfiguration
$sel:proxyConfiguration:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe ProxyConfiguration
proxyConfiguration} -> Maybe ProxyConfiguration
proxyConfiguration) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe ProxyConfiguration
a -> RegisterTaskDefinition
s {$sel:proxyConfiguration:RegisterTaskDefinition' :: Maybe ProxyConfiguration
proxyConfiguration = Maybe ProxyConfiguration
a} :: RegisterTaskDefinition)
registerTaskDefinition_requiresCompatibilities :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe [Compatibility])
registerTaskDefinition_requiresCompatibilities :: Lens' RegisterTaskDefinition (Maybe [Compatibility])
registerTaskDefinition_requiresCompatibilities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe [Compatibility]
requiresCompatibilities :: Maybe [Compatibility]
$sel:requiresCompatibilities:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Compatibility]
requiresCompatibilities} -> Maybe [Compatibility]
requiresCompatibilities) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe [Compatibility]
a -> RegisterTaskDefinition
s {$sel:requiresCompatibilities:RegisterTaskDefinition' :: Maybe [Compatibility]
requiresCompatibilities = Maybe [Compatibility]
a} :: RegisterTaskDefinition) 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
registerTaskDefinition_runtimePlatform :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe RuntimePlatform)
registerTaskDefinition_runtimePlatform :: Lens' RegisterTaskDefinition (Maybe RuntimePlatform)
registerTaskDefinition_runtimePlatform = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe RuntimePlatform
runtimePlatform :: Maybe RuntimePlatform
$sel:runtimePlatform:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe RuntimePlatform
runtimePlatform} -> Maybe RuntimePlatform
runtimePlatform) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe RuntimePlatform
a -> RegisterTaskDefinition
s {$sel:runtimePlatform:RegisterTaskDefinition' :: Maybe RuntimePlatform
runtimePlatform = Maybe RuntimePlatform
a} :: RegisterTaskDefinition)
registerTaskDefinition_tags :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe [Tag])
registerTaskDefinition_tags :: Lens' RegisterTaskDefinition (Maybe [Tag])
registerTaskDefinition_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe [Tag]
a -> RegisterTaskDefinition
s {$sel:tags:RegisterTaskDefinition' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: RegisterTaskDefinition) 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
registerTaskDefinition_taskRoleArn :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe Prelude.Text)
registerTaskDefinition_taskRoleArn :: Lens' RegisterTaskDefinition (Maybe Text)
registerTaskDefinition_taskRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe Text
taskRoleArn :: Maybe Text
$sel:taskRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
taskRoleArn} -> Maybe Text
taskRoleArn) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe Text
a -> RegisterTaskDefinition
s {$sel:taskRoleArn:RegisterTaskDefinition' :: Maybe Text
taskRoleArn = Maybe Text
a} :: RegisterTaskDefinition)
registerTaskDefinition_volumes :: Lens.Lens' RegisterTaskDefinition (Prelude.Maybe [Volume])
registerTaskDefinition_volumes :: Lens' RegisterTaskDefinition (Maybe [Volume])
registerTaskDefinition_volumes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Maybe [Volume]
volumes :: Maybe [Volume]
$sel:volumes:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Volume]
volumes} -> Maybe [Volume]
volumes) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Maybe [Volume]
a -> RegisterTaskDefinition
s {$sel:volumes:RegisterTaskDefinition' :: Maybe [Volume]
volumes = Maybe [Volume]
a} :: RegisterTaskDefinition) 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
registerTaskDefinition_family :: Lens.Lens' RegisterTaskDefinition Prelude.Text
registerTaskDefinition_family :: Lens' RegisterTaskDefinition Text
registerTaskDefinition_family = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {Text
family :: Text
$sel:family:RegisterTaskDefinition' :: RegisterTaskDefinition -> Text
family} -> Text
family) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} Text
a -> RegisterTaskDefinition
s {$sel:family:RegisterTaskDefinition' :: Text
family = Text
a} :: RegisterTaskDefinition)
registerTaskDefinition_containerDefinitions :: Lens.Lens' RegisterTaskDefinition [ContainerDefinition]
registerTaskDefinition_containerDefinitions :: Lens' RegisterTaskDefinition [ContainerDefinition]
registerTaskDefinition_containerDefinitions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinition' {[ContainerDefinition]
containerDefinitions :: [ContainerDefinition]
$sel:containerDefinitions:RegisterTaskDefinition' :: RegisterTaskDefinition -> [ContainerDefinition]
containerDefinitions} -> [ContainerDefinition]
containerDefinitions) (\s :: RegisterTaskDefinition
s@RegisterTaskDefinition' {} [ContainerDefinition]
a -> RegisterTaskDefinition
s {$sel:containerDefinitions:RegisterTaskDefinition' :: [ContainerDefinition]
containerDefinitions = [ContainerDefinition]
a} :: RegisterTaskDefinition) 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
instance Core.AWSRequest RegisterTaskDefinition where
type
AWSResponse RegisterTaskDefinition =
RegisterTaskDefinitionResponse
request :: (Service -> Service)
-> RegisterTaskDefinition -> Request RegisterTaskDefinition
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 RegisterTaskDefinition
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RegisterTaskDefinition)))
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 [Tag]
-> Maybe TaskDefinition -> Int -> RegisterTaskDefinitionResponse
RegisterTaskDefinitionResponse'
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
"tags" 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
"taskDefinition")
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 RegisterTaskDefinition where
hashWithSalt :: Int -> RegisterTaskDefinition -> Int
hashWithSalt Int
_salt RegisterTaskDefinition' {[ContainerDefinition]
Maybe [Compatibility]
Maybe [InferenceAccelerator]
Maybe [Tag]
Maybe [TaskDefinitionPlacementConstraint]
Maybe [Volume]
Maybe Text
Maybe EphemeralStorage
Maybe IpcMode
Maybe NetworkMode
Maybe PidMode
Maybe ProxyConfiguration
Maybe RuntimePlatform
Text
containerDefinitions :: [ContainerDefinition]
family :: Text
volumes :: Maybe [Volume]
taskRoleArn :: Maybe Text
tags :: Maybe [Tag]
runtimePlatform :: Maybe RuntimePlatform
requiresCompatibilities :: Maybe [Compatibility]
proxyConfiguration :: Maybe ProxyConfiguration
placementConstraints :: Maybe [TaskDefinitionPlacementConstraint]
pidMode :: Maybe PidMode
networkMode :: Maybe NetworkMode
memory :: Maybe Text
ipcMode :: Maybe IpcMode
inferenceAccelerators :: Maybe [InferenceAccelerator]
executionRoleArn :: Maybe Text
ephemeralStorage :: Maybe EphemeralStorage
cpu :: Maybe Text
$sel:containerDefinitions:RegisterTaskDefinition' :: RegisterTaskDefinition -> [ContainerDefinition]
$sel:family:RegisterTaskDefinition' :: RegisterTaskDefinition -> Text
$sel:volumes:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Volume]
$sel:taskRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:tags:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Tag]
$sel:runtimePlatform:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe RuntimePlatform
$sel:requiresCompatibilities:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Compatibility]
$sel:proxyConfiguration:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe ProxyConfiguration
$sel:placementConstraints:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [TaskDefinitionPlacementConstraint]
$sel:pidMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe PidMode
$sel:networkMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe NetworkMode
$sel:memory:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:ipcMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe IpcMode
$sel:inferenceAccelerators:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [InferenceAccelerator]
$sel:executionRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:ephemeralStorage:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe EphemeralStorage
$sel:cpu:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cpu
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EphemeralStorage
ephemeralStorage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
executionRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [InferenceAccelerator]
inferenceAccelerators
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IpcMode
ipcMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
memory
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe NetworkMode
networkMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PidMode
pidMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [TaskDefinitionPlacementConstraint]
placementConstraints
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProxyConfiguration
proxyConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Compatibility]
requiresCompatibilities
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RuntimePlatform
runtimePlatform
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
taskRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Volume]
volumes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
family
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [ContainerDefinition]
containerDefinitions
instance Prelude.NFData RegisterTaskDefinition where
rnf :: RegisterTaskDefinition -> ()
rnf RegisterTaskDefinition' {[ContainerDefinition]
Maybe [Compatibility]
Maybe [InferenceAccelerator]
Maybe [Tag]
Maybe [TaskDefinitionPlacementConstraint]
Maybe [Volume]
Maybe Text
Maybe EphemeralStorage
Maybe IpcMode
Maybe NetworkMode
Maybe PidMode
Maybe ProxyConfiguration
Maybe RuntimePlatform
Text
containerDefinitions :: [ContainerDefinition]
family :: Text
volumes :: Maybe [Volume]
taskRoleArn :: Maybe Text
tags :: Maybe [Tag]
runtimePlatform :: Maybe RuntimePlatform
requiresCompatibilities :: Maybe [Compatibility]
proxyConfiguration :: Maybe ProxyConfiguration
placementConstraints :: Maybe [TaskDefinitionPlacementConstraint]
pidMode :: Maybe PidMode
networkMode :: Maybe NetworkMode
memory :: Maybe Text
ipcMode :: Maybe IpcMode
inferenceAccelerators :: Maybe [InferenceAccelerator]
executionRoleArn :: Maybe Text
ephemeralStorage :: Maybe EphemeralStorage
cpu :: Maybe Text
$sel:containerDefinitions:RegisterTaskDefinition' :: RegisterTaskDefinition -> [ContainerDefinition]
$sel:family:RegisterTaskDefinition' :: RegisterTaskDefinition -> Text
$sel:volumes:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Volume]
$sel:taskRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:tags:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Tag]
$sel:runtimePlatform:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe RuntimePlatform
$sel:requiresCompatibilities:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Compatibility]
$sel:proxyConfiguration:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe ProxyConfiguration
$sel:placementConstraints:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [TaskDefinitionPlacementConstraint]
$sel:pidMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe PidMode
$sel:networkMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe NetworkMode
$sel:memory:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:ipcMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe IpcMode
$sel:inferenceAccelerators:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [InferenceAccelerator]
$sel:executionRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:ephemeralStorage:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe EphemeralStorage
$sel:cpu:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cpu
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EphemeralStorage
ephemeralStorage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
executionRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [InferenceAccelerator]
inferenceAccelerators
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IpcMode
ipcMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
memory
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe NetworkMode
networkMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PidMode
pidMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TaskDefinitionPlacementConstraint]
placementConstraints
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProxyConfiguration
proxyConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Compatibility]
requiresCompatibilities
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RuntimePlatform
runtimePlatform
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 Maybe Text
taskRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Volume]
volumes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
family
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ContainerDefinition]
containerDefinitions
instance Data.ToHeaders RegisterTaskDefinition where
toHeaders :: RegisterTaskDefinition -> 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.RegisterTaskDefinition" ::
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 RegisterTaskDefinition where
toJSON :: RegisterTaskDefinition -> Value
toJSON RegisterTaskDefinition' {[ContainerDefinition]
Maybe [Compatibility]
Maybe [InferenceAccelerator]
Maybe [Tag]
Maybe [TaskDefinitionPlacementConstraint]
Maybe [Volume]
Maybe Text
Maybe EphemeralStorage
Maybe IpcMode
Maybe NetworkMode
Maybe PidMode
Maybe ProxyConfiguration
Maybe RuntimePlatform
Text
containerDefinitions :: [ContainerDefinition]
family :: Text
volumes :: Maybe [Volume]
taskRoleArn :: Maybe Text
tags :: Maybe [Tag]
runtimePlatform :: Maybe RuntimePlatform
requiresCompatibilities :: Maybe [Compatibility]
proxyConfiguration :: Maybe ProxyConfiguration
placementConstraints :: Maybe [TaskDefinitionPlacementConstraint]
pidMode :: Maybe PidMode
networkMode :: Maybe NetworkMode
memory :: Maybe Text
ipcMode :: Maybe IpcMode
inferenceAccelerators :: Maybe [InferenceAccelerator]
executionRoleArn :: Maybe Text
ephemeralStorage :: Maybe EphemeralStorage
cpu :: Maybe Text
$sel:containerDefinitions:RegisterTaskDefinition' :: RegisterTaskDefinition -> [ContainerDefinition]
$sel:family:RegisterTaskDefinition' :: RegisterTaskDefinition -> Text
$sel:volumes:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Volume]
$sel:taskRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:tags:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Tag]
$sel:runtimePlatform:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe RuntimePlatform
$sel:requiresCompatibilities:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [Compatibility]
$sel:proxyConfiguration:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe ProxyConfiguration
$sel:placementConstraints:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [TaskDefinitionPlacementConstraint]
$sel:pidMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe PidMode
$sel:networkMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe NetworkMode
$sel:memory:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:ipcMode:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe IpcMode
$sel:inferenceAccelerators:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe [InferenceAccelerator]
$sel:executionRoleArn:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
$sel:ephemeralStorage:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe EphemeralStorage
$sel:cpu:RegisterTaskDefinition' :: RegisterTaskDefinition -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"cpu" 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
cpu,
(Key
"ephemeralStorage" 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 EphemeralStorage
ephemeralStorage,
(Key
"executionRoleArn" 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
executionRoleArn,
(Key
"inferenceAccelerators" 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 [InferenceAccelerator]
inferenceAccelerators,
(Key
"ipcMode" 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 IpcMode
ipcMode,
(Key
"memory" 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
memory,
(Key
"networkMode" 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 NetworkMode
networkMode,
(Key
"pidMode" 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 PidMode
pidMode,
(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 [TaskDefinitionPlacementConstraint]
placementConstraints,
(Key
"proxyConfiguration" 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 ProxyConfiguration
proxyConfiguration,
(Key
"requiresCompatibilities" 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 [Compatibility]
requiresCompatibilities,
(Key
"runtimePlatform" 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 RuntimePlatform
runtimePlatform,
(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,
(Key
"taskRoleArn" 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
taskRoleArn,
(Key
"volumes" 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 [Volume]
volumes,
forall a. a -> Maybe a
Prelude.Just (Key
"family" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
family),
forall a. a -> Maybe a
Prelude.Just
( Key
"containerDefinitions"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [ContainerDefinition]
containerDefinitions
)
]
)
instance Data.ToPath RegisterTaskDefinition where
toPath :: RegisterTaskDefinition -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RegisterTaskDefinition where
toQuery :: RegisterTaskDefinition -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RegisterTaskDefinitionResponse = RegisterTaskDefinitionResponse'
{
RegisterTaskDefinitionResponse -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
RegisterTaskDefinitionResponse -> Maybe TaskDefinition
taskDefinition :: Prelude.Maybe TaskDefinition,
RegisterTaskDefinitionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RegisterTaskDefinitionResponse
-> RegisterTaskDefinitionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterTaskDefinitionResponse
-> RegisterTaskDefinitionResponse -> Bool
$c/= :: RegisterTaskDefinitionResponse
-> RegisterTaskDefinitionResponse -> Bool
== :: RegisterTaskDefinitionResponse
-> RegisterTaskDefinitionResponse -> Bool
$c== :: RegisterTaskDefinitionResponse
-> RegisterTaskDefinitionResponse -> Bool
Prelude.Eq, ReadPrec [RegisterTaskDefinitionResponse]
ReadPrec RegisterTaskDefinitionResponse
Int -> ReadS RegisterTaskDefinitionResponse
ReadS [RegisterTaskDefinitionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterTaskDefinitionResponse]
$creadListPrec :: ReadPrec [RegisterTaskDefinitionResponse]
readPrec :: ReadPrec RegisterTaskDefinitionResponse
$creadPrec :: ReadPrec RegisterTaskDefinitionResponse
readList :: ReadS [RegisterTaskDefinitionResponse]
$creadList :: ReadS [RegisterTaskDefinitionResponse]
readsPrec :: Int -> ReadS RegisterTaskDefinitionResponse
$creadsPrec :: Int -> ReadS RegisterTaskDefinitionResponse
Prelude.Read, Int -> RegisterTaskDefinitionResponse -> ShowS
[RegisterTaskDefinitionResponse] -> ShowS
RegisterTaskDefinitionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterTaskDefinitionResponse] -> ShowS
$cshowList :: [RegisterTaskDefinitionResponse] -> ShowS
show :: RegisterTaskDefinitionResponse -> String
$cshow :: RegisterTaskDefinitionResponse -> String
showsPrec :: Int -> RegisterTaskDefinitionResponse -> ShowS
$cshowsPrec :: Int -> RegisterTaskDefinitionResponse -> ShowS
Prelude.Show, forall x.
Rep RegisterTaskDefinitionResponse x
-> RegisterTaskDefinitionResponse
forall x.
RegisterTaskDefinitionResponse
-> Rep RegisterTaskDefinitionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisterTaskDefinitionResponse x
-> RegisterTaskDefinitionResponse
$cfrom :: forall x.
RegisterTaskDefinitionResponse
-> Rep RegisterTaskDefinitionResponse x
Prelude.Generic)
newRegisterTaskDefinitionResponse ::
Prelude.Int ->
RegisterTaskDefinitionResponse
newRegisterTaskDefinitionResponse :: Int -> RegisterTaskDefinitionResponse
newRegisterTaskDefinitionResponse Int
pHttpStatus_ =
RegisterTaskDefinitionResponse'
{ $sel:tags:RegisterTaskDefinitionResponse' :: Maybe [Tag]
tags =
forall a. Maybe a
Prelude.Nothing,
$sel:taskDefinition:RegisterTaskDefinitionResponse' :: Maybe TaskDefinition
taskDefinition = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RegisterTaskDefinitionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
registerTaskDefinitionResponse_tags :: Lens.Lens' RegisterTaskDefinitionResponse (Prelude.Maybe [Tag])
registerTaskDefinitionResponse_tags :: Lens' RegisterTaskDefinitionResponse (Maybe [Tag])
registerTaskDefinitionResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinitionResponse' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:RegisterTaskDefinitionResponse' :: RegisterTaskDefinitionResponse -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: RegisterTaskDefinitionResponse
s@RegisterTaskDefinitionResponse' {} Maybe [Tag]
a -> RegisterTaskDefinitionResponse
s {$sel:tags:RegisterTaskDefinitionResponse' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: RegisterTaskDefinitionResponse) 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
registerTaskDefinitionResponse_taskDefinition :: Lens.Lens' RegisterTaskDefinitionResponse (Prelude.Maybe TaskDefinition)
registerTaskDefinitionResponse_taskDefinition :: Lens' RegisterTaskDefinitionResponse (Maybe TaskDefinition)
registerTaskDefinitionResponse_taskDefinition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinitionResponse' {Maybe TaskDefinition
taskDefinition :: Maybe TaskDefinition
$sel:taskDefinition:RegisterTaskDefinitionResponse' :: RegisterTaskDefinitionResponse -> Maybe TaskDefinition
taskDefinition} -> Maybe TaskDefinition
taskDefinition) (\s :: RegisterTaskDefinitionResponse
s@RegisterTaskDefinitionResponse' {} Maybe TaskDefinition
a -> RegisterTaskDefinitionResponse
s {$sel:taskDefinition:RegisterTaskDefinitionResponse' :: Maybe TaskDefinition
taskDefinition = Maybe TaskDefinition
a} :: RegisterTaskDefinitionResponse)
registerTaskDefinitionResponse_httpStatus :: Lens.Lens' RegisterTaskDefinitionResponse Prelude.Int
registerTaskDefinitionResponse_httpStatus :: Lens' RegisterTaskDefinitionResponse Int
registerTaskDefinitionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterTaskDefinitionResponse' {Int
httpStatus :: Int
$sel:httpStatus:RegisterTaskDefinitionResponse' :: RegisterTaskDefinitionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RegisterTaskDefinitionResponse
s@RegisterTaskDefinitionResponse' {} Int
a -> RegisterTaskDefinitionResponse
s {$sel:httpStatus:RegisterTaskDefinitionResponse' :: Int
httpStatus = Int
a} :: RegisterTaskDefinitionResponse)
instance
Prelude.NFData
RegisterTaskDefinitionResponse
where
rnf :: RegisterTaskDefinitionResponse -> ()
rnf RegisterTaskDefinitionResponse' {Int
Maybe [Tag]
Maybe TaskDefinition
httpStatus :: Int
taskDefinition :: Maybe TaskDefinition
tags :: Maybe [Tag]
$sel:httpStatus:RegisterTaskDefinitionResponse' :: RegisterTaskDefinitionResponse -> Int
$sel:taskDefinition:RegisterTaskDefinitionResponse' :: RegisterTaskDefinitionResponse -> Maybe TaskDefinition
$sel:tags:RegisterTaskDefinitionResponse' :: RegisterTaskDefinitionResponse -> Maybe [Tag]
..} =
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 Maybe TaskDefinition
taskDefinition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus