{-# 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.Batch.CreateComputeEnvironment
(
CreateComputeEnvironment (..),
newCreateComputeEnvironment,
createComputeEnvironment_computeResources,
createComputeEnvironment_eksConfiguration,
createComputeEnvironment_serviceRole,
createComputeEnvironment_state,
createComputeEnvironment_tags,
createComputeEnvironment_unmanagedvCpus,
createComputeEnvironment_computeEnvironmentName,
createComputeEnvironment_type,
CreateComputeEnvironmentResponse (..),
newCreateComputeEnvironmentResponse,
createComputeEnvironmentResponse_computeEnvironmentArn,
createComputeEnvironmentResponse_computeEnvironmentName,
createComputeEnvironmentResponse_httpStatus,
)
where
import Amazonka.Batch.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateComputeEnvironment = CreateComputeEnvironment'
{
CreateComputeEnvironment -> Maybe ComputeResource
computeResources :: Prelude.Maybe ComputeResource,
CreateComputeEnvironment -> Maybe EksConfiguration
eksConfiguration :: Prelude.Maybe EksConfiguration,
CreateComputeEnvironment -> Maybe Text
serviceRole :: Prelude.Maybe Prelude.Text,
CreateComputeEnvironment -> Maybe CEState
state :: Prelude.Maybe CEState,
CreateComputeEnvironment -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateComputeEnvironment -> Maybe Int
unmanagedvCpus :: Prelude.Maybe Prelude.Int,
CreateComputeEnvironment -> Text
computeEnvironmentName :: Prelude.Text,
CreateComputeEnvironment -> CEType
type' :: CEType
}
deriving (CreateComputeEnvironment -> CreateComputeEnvironment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateComputeEnvironment -> CreateComputeEnvironment -> Bool
$c/= :: CreateComputeEnvironment -> CreateComputeEnvironment -> Bool
== :: CreateComputeEnvironment -> CreateComputeEnvironment -> Bool
$c== :: CreateComputeEnvironment -> CreateComputeEnvironment -> Bool
Prelude.Eq, ReadPrec [CreateComputeEnvironment]
ReadPrec CreateComputeEnvironment
Int -> ReadS CreateComputeEnvironment
ReadS [CreateComputeEnvironment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateComputeEnvironment]
$creadListPrec :: ReadPrec [CreateComputeEnvironment]
readPrec :: ReadPrec CreateComputeEnvironment
$creadPrec :: ReadPrec CreateComputeEnvironment
readList :: ReadS [CreateComputeEnvironment]
$creadList :: ReadS [CreateComputeEnvironment]
readsPrec :: Int -> ReadS CreateComputeEnvironment
$creadsPrec :: Int -> ReadS CreateComputeEnvironment
Prelude.Read, Int -> CreateComputeEnvironment -> ShowS
[CreateComputeEnvironment] -> ShowS
CreateComputeEnvironment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateComputeEnvironment] -> ShowS
$cshowList :: [CreateComputeEnvironment] -> ShowS
show :: CreateComputeEnvironment -> String
$cshow :: CreateComputeEnvironment -> String
showsPrec :: Int -> CreateComputeEnvironment -> ShowS
$cshowsPrec :: Int -> CreateComputeEnvironment -> ShowS
Prelude.Show, forall x.
Rep CreateComputeEnvironment x -> CreateComputeEnvironment
forall x.
CreateComputeEnvironment -> Rep CreateComputeEnvironment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateComputeEnvironment x -> CreateComputeEnvironment
$cfrom :: forall x.
CreateComputeEnvironment -> Rep CreateComputeEnvironment x
Prelude.Generic)
newCreateComputeEnvironment ::
Prelude.Text ->
CEType ->
CreateComputeEnvironment
newCreateComputeEnvironment :: Text -> CEType -> CreateComputeEnvironment
newCreateComputeEnvironment
Text
pComputeEnvironmentName_
CEType
pType_ =
CreateComputeEnvironment'
{ $sel:computeResources:CreateComputeEnvironment' :: Maybe ComputeResource
computeResources =
forall a. Maybe a
Prelude.Nothing,
$sel:eksConfiguration:CreateComputeEnvironment' :: Maybe EksConfiguration
eksConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:serviceRole:CreateComputeEnvironment' :: Maybe Text
serviceRole = forall a. Maybe a
Prelude.Nothing,
$sel:state:CreateComputeEnvironment' :: Maybe CEState
state = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateComputeEnvironment' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:unmanagedvCpus:CreateComputeEnvironment' :: Maybe Int
unmanagedvCpus = forall a. Maybe a
Prelude.Nothing,
$sel:computeEnvironmentName:CreateComputeEnvironment' :: Text
computeEnvironmentName = Text
pComputeEnvironmentName_,
$sel:type':CreateComputeEnvironment' :: CEType
type' = CEType
pType_
}
createComputeEnvironment_computeResources :: Lens.Lens' CreateComputeEnvironment (Prelude.Maybe ComputeResource)
createComputeEnvironment_computeResources :: Lens' CreateComputeEnvironment (Maybe ComputeResource)
createComputeEnvironment_computeResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Maybe ComputeResource
computeResources :: Maybe ComputeResource
$sel:computeResources:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe ComputeResource
computeResources} -> Maybe ComputeResource
computeResources) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Maybe ComputeResource
a -> CreateComputeEnvironment
s {$sel:computeResources:CreateComputeEnvironment' :: Maybe ComputeResource
computeResources = Maybe ComputeResource
a} :: CreateComputeEnvironment)
createComputeEnvironment_eksConfiguration :: Lens.Lens' CreateComputeEnvironment (Prelude.Maybe EksConfiguration)
createComputeEnvironment_eksConfiguration :: Lens' CreateComputeEnvironment (Maybe EksConfiguration)
createComputeEnvironment_eksConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Maybe EksConfiguration
eksConfiguration :: Maybe EksConfiguration
$sel:eksConfiguration:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe EksConfiguration
eksConfiguration} -> Maybe EksConfiguration
eksConfiguration) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Maybe EksConfiguration
a -> CreateComputeEnvironment
s {$sel:eksConfiguration:CreateComputeEnvironment' :: Maybe EksConfiguration
eksConfiguration = Maybe EksConfiguration
a} :: CreateComputeEnvironment)
createComputeEnvironment_serviceRole :: Lens.Lens' CreateComputeEnvironment (Prelude.Maybe Prelude.Text)
createComputeEnvironment_serviceRole :: Lens' CreateComputeEnvironment (Maybe Text)
createComputeEnvironment_serviceRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Maybe Text
serviceRole :: Maybe Text
$sel:serviceRole:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Text
serviceRole} -> Maybe Text
serviceRole) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Maybe Text
a -> CreateComputeEnvironment
s {$sel:serviceRole:CreateComputeEnvironment' :: Maybe Text
serviceRole = Maybe Text
a} :: CreateComputeEnvironment)
createComputeEnvironment_state :: Lens.Lens' CreateComputeEnvironment (Prelude.Maybe CEState)
createComputeEnvironment_state :: Lens' CreateComputeEnvironment (Maybe CEState)
createComputeEnvironment_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Maybe CEState
state :: Maybe CEState
$sel:state:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe CEState
state} -> Maybe CEState
state) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Maybe CEState
a -> CreateComputeEnvironment
s {$sel:state:CreateComputeEnvironment' :: Maybe CEState
state = Maybe CEState
a} :: CreateComputeEnvironment)
createComputeEnvironment_tags :: Lens.Lens' CreateComputeEnvironment (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createComputeEnvironment_tags :: Lens' CreateComputeEnvironment (Maybe (HashMap Text Text))
createComputeEnvironment_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Maybe (HashMap Text Text)
a -> CreateComputeEnvironment
s {$sel:tags:CreateComputeEnvironment' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateComputeEnvironment) 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
createComputeEnvironment_unmanagedvCpus :: Lens.Lens' CreateComputeEnvironment (Prelude.Maybe Prelude.Int)
createComputeEnvironment_unmanagedvCpus :: Lens' CreateComputeEnvironment (Maybe Int)
createComputeEnvironment_unmanagedvCpus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Maybe Int
unmanagedvCpus :: Maybe Int
$sel:unmanagedvCpus:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Int
unmanagedvCpus} -> Maybe Int
unmanagedvCpus) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Maybe Int
a -> CreateComputeEnvironment
s {$sel:unmanagedvCpus:CreateComputeEnvironment' :: Maybe Int
unmanagedvCpus = Maybe Int
a} :: CreateComputeEnvironment)
createComputeEnvironment_computeEnvironmentName :: Lens.Lens' CreateComputeEnvironment Prelude.Text
createComputeEnvironment_computeEnvironmentName :: Lens' CreateComputeEnvironment Text
createComputeEnvironment_computeEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {Text
computeEnvironmentName :: Text
$sel:computeEnvironmentName:CreateComputeEnvironment' :: CreateComputeEnvironment -> Text
computeEnvironmentName} -> Text
computeEnvironmentName) (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} Text
a -> CreateComputeEnvironment
s {$sel:computeEnvironmentName:CreateComputeEnvironment' :: Text
computeEnvironmentName = Text
a} :: CreateComputeEnvironment)
createComputeEnvironment_type :: Lens.Lens' CreateComputeEnvironment CEType
createComputeEnvironment_type :: Lens' CreateComputeEnvironment CEType
createComputeEnvironment_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironment' {CEType
type' :: CEType
$sel:type':CreateComputeEnvironment' :: CreateComputeEnvironment -> CEType
type'} -> CEType
type') (\s :: CreateComputeEnvironment
s@CreateComputeEnvironment' {} CEType
a -> CreateComputeEnvironment
s {$sel:type':CreateComputeEnvironment' :: CEType
type' = CEType
a} :: CreateComputeEnvironment)
instance Core.AWSRequest CreateComputeEnvironment where
type
AWSResponse CreateComputeEnvironment =
CreateComputeEnvironmentResponse
request :: (Service -> Service)
-> CreateComputeEnvironment -> Request CreateComputeEnvironment
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 CreateComputeEnvironment
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateComputeEnvironment)))
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 Text -> Maybe Text -> Int -> CreateComputeEnvironmentResponse
CreateComputeEnvironmentResponse'
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
"computeEnvironmentArn")
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
"computeEnvironmentName")
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 CreateComputeEnvironment where
hashWithSalt :: Int -> CreateComputeEnvironment -> Int
hashWithSalt Int
_salt CreateComputeEnvironment' {Maybe Int
Maybe Text
Maybe (HashMap Text Text)
Maybe CEState
Maybe EksConfiguration
Maybe ComputeResource
Text
CEType
type' :: CEType
computeEnvironmentName :: Text
unmanagedvCpus :: Maybe Int
tags :: Maybe (HashMap Text Text)
state :: Maybe CEState
serviceRole :: Maybe Text
eksConfiguration :: Maybe EksConfiguration
computeResources :: Maybe ComputeResource
$sel:type':CreateComputeEnvironment' :: CreateComputeEnvironment -> CEType
$sel:computeEnvironmentName:CreateComputeEnvironment' :: CreateComputeEnvironment -> Text
$sel:unmanagedvCpus:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Int
$sel:tags:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe (HashMap Text Text)
$sel:state:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe CEState
$sel:serviceRole:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Text
$sel:eksConfiguration:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe EksConfiguration
$sel:computeResources:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe ComputeResource
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ComputeResource
computeResources
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EksConfiguration
eksConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serviceRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CEState
state
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
unmanagedvCpus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
computeEnvironmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` CEType
type'
instance Prelude.NFData CreateComputeEnvironment where
rnf :: CreateComputeEnvironment -> ()
rnf CreateComputeEnvironment' {Maybe Int
Maybe Text
Maybe (HashMap Text Text)
Maybe CEState
Maybe EksConfiguration
Maybe ComputeResource
Text
CEType
type' :: CEType
computeEnvironmentName :: Text
unmanagedvCpus :: Maybe Int
tags :: Maybe (HashMap Text Text)
state :: Maybe CEState
serviceRole :: Maybe Text
eksConfiguration :: Maybe EksConfiguration
computeResources :: Maybe ComputeResource
$sel:type':CreateComputeEnvironment' :: CreateComputeEnvironment -> CEType
$sel:computeEnvironmentName:CreateComputeEnvironment' :: CreateComputeEnvironment -> Text
$sel:unmanagedvCpus:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Int
$sel:tags:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe (HashMap Text Text)
$sel:state:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe CEState
$sel:serviceRole:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Text
$sel:eksConfiguration:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe EksConfiguration
$sel:computeResources:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe ComputeResource
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ComputeResource
computeResources
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EksConfiguration
eksConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serviceRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CEState
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
unmanagedvCpus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
computeEnvironmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf CEType
type'
instance Data.ToHeaders CreateComputeEnvironment where
toHeaders :: CreateComputeEnvironment -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateComputeEnvironment where
toJSON :: CreateComputeEnvironment -> Value
toJSON CreateComputeEnvironment' {Maybe Int
Maybe Text
Maybe (HashMap Text Text)
Maybe CEState
Maybe EksConfiguration
Maybe ComputeResource
Text
CEType
type' :: CEType
computeEnvironmentName :: Text
unmanagedvCpus :: Maybe Int
tags :: Maybe (HashMap Text Text)
state :: Maybe CEState
serviceRole :: Maybe Text
eksConfiguration :: Maybe EksConfiguration
computeResources :: Maybe ComputeResource
$sel:type':CreateComputeEnvironment' :: CreateComputeEnvironment -> CEType
$sel:computeEnvironmentName:CreateComputeEnvironment' :: CreateComputeEnvironment -> Text
$sel:unmanagedvCpus:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Int
$sel:tags:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe (HashMap Text Text)
$sel:state:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe CEState
$sel:serviceRole:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe Text
$sel:eksConfiguration:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe EksConfiguration
$sel:computeResources:CreateComputeEnvironment' :: CreateComputeEnvironment -> Maybe ComputeResource
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"computeResources" 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 ComputeResource
computeResources,
(Key
"eksConfiguration" 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 EksConfiguration
eksConfiguration,
(Key
"serviceRole" 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
serviceRole,
(Key
"state" 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 CEState
state,
(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 (HashMap Text Text)
tags,
(Key
"unmanagedvCpus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
unmanagedvCpus,
forall a. a -> Maybe a
Prelude.Just
( Key
"computeEnvironmentName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
computeEnvironmentName
),
forall a. a -> Maybe a
Prelude.Just (Key
"type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= CEType
type')
]
)
instance Data.ToPath CreateComputeEnvironment where
toPath :: CreateComputeEnvironment -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/v1/createcomputeenvironment"
instance Data.ToQuery CreateComputeEnvironment where
toQuery :: CreateComputeEnvironment -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateComputeEnvironmentResponse = CreateComputeEnvironmentResponse'
{
CreateComputeEnvironmentResponse -> Maybe Text
computeEnvironmentArn :: Prelude.Maybe Prelude.Text,
CreateComputeEnvironmentResponse -> Maybe Text
computeEnvironmentName :: Prelude.Maybe Prelude.Text,
CreateComputeEnvironmentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateComputeEnvironmentResponse
-> CreateComputeEnvironmentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateComputeEnvironmentResponse
-> CreateComputeEnvironmentResponse -> Bool
$c/= :: CreateComputeEnvironmentResponse
-> CreateComputeEnvironmentResponse -> Bool
== :: CreateComputeEnvironmentResponse
-> CreateComputeEnvironmentResponse -> Bool
$c== :: CreateComputeEnvironmentResponse
-> CreateComputeEnvironmentResponse -> Bool
Prelude.Eq, ReadPrec [CreateComputeEnvironmentResponse]
ReadPrec CreateComputeEnvironmentResponse
Int -> ReadS CreateComputeEnvironmentResponse
ReadS [CreateComputeEnvironmentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateComputeEnvironmentResponse]
$creadListPrec :: ReadPrec [CreateComputeEnvironmentResponse]
readPrec :: ReadPrec CreateComputeEnvironmentResponse
$creadPrec :: ReadPrec CreateComputeEnvironmentResponse
readList :: ReadS [CreateComputeEnvironmentResponse]
$creadList :: ReadS [CreateComputeEnvironmentResponse]
readsPrec :: Int -> ReadS CreateComputeEnvironmentResponse
$creadsPrec :: Int -> ReadS CreateComputeEnvironmentResponse
Prelude.Read, Int -> CreateComputeEnvironmentResponse -> ShowS
[CreateComputeEnvironmentResponse] -> ShowS
CreateComputeEnvironmentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateComputeEnvironmentResponse] -> ShowS
$cshowList :: [CreateComputeEnvironmentResponse] -> ShowS
show :: CreateComputeEnvironmentResponse -> String
$cshow :: CreateComputeEnvironmentResponse -> String
showsPrec :: Int -> CreateComputeEnvironmentResponse -> ShowS
$cshowsPrec :: Int -> CreateComputeEnvironmentResponse -> ShowS
Prelude.Show, forall x.
Rep CreateComputeEnvironmentResponse x
-> CreateComputeEnvironmentResponse
forall x.
CreateComputeEnvironmentResponse
-> Rep CreateComputeEnvironmentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateComputeEnvironmentResponse x
-> CreateComputeEnvironmentResponse
$cfrom :: forall x.
CreateComputeEnvironmentResponse
-> Rep CreateComputeEnvironmentResponse x
Prelude.Generic)
newCreateComputeEnvironmentResponse ::
Prelude.Int ->
CreateComputeEnvironmentResponse
newCreateComputeEnvironmentResponse :: Int -> CreateComputeEnvironmentResponse
newCreateComputeEnvironmentResponse Int
pHttpStatus_ =
CreateComputeEnvironmentResponse'
{ $sel:computeEnvironmentArn:CreateComputeEnvironmentResponse' :: Maybe Text
computeEnvironmentArn =
forall a. Maybe a
Prelude.Nothing,
$sel:computeEnvironmentName:CreateComputeEnvironmentResponse' :: Maybe Text
computeEnvironmentName = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateComputeEnvironmentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createComputeEnvironmentResponse_computeEnvironmentArn :: Lens.Lens' CreateComputeEnvironmentResponse (Prelude.Maybe Prelude.Text)
createComputeEnvironmentResponse_computeEnvironmentArn :: Lens' CreateComputeEnvironmentResponse (Maybe Text)
createComputeEnvironmentResponse_computeEnvironmentArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironmentResponse' {Maybe Text
computeEnvironmentArn :: Maybe Text
$sel:computeEnvironmentArn:CreateComputeEnvironmentResponse' :: CreateComputeEnvironmentResponse -> Maybe Text
computeEnvironmentArn} -> Maybe Text
computeEnvironmentArn) (\s :: CreateComputeEnvironmentResponse
s@CreateComputeEnvironmentResponse' {} Maybe Text
a -> CreateComputeEnvironmentResponse
s {$sel:computeEnvironmentArn:CreateComputeEnvironmentResponse' :: Maybe Text
computeEnvironmentArn = Maybe Text
a} :: CreateComputeEnvironmentResponse)
createComputeEnvironmentResponse_computeEnvironmentName :: Lens.Lens' CreateComputeEnvironmentResponse (Prelude.Maybe Prelude.Text)
createComputeEnvironmentResponse_computeEnvironmentName :: Lens' CreateComputeEnvironmentResponse (Maybe Text)
createComputeEnvironmentResponse_computeEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironmentResponse' {Maybe Text
computeEnvironmentName :: Maybe Text
$sel:computeEnvironmentName:CreateComputeEnvironmentResponse' :: CreateComputeEnvironmentResponse -> Maybe Text
computeEnvironmentName} -> Maybe Text
computeEnvironmentName) (\s :: CreateComputeEnvironmentResponse
s@CreateComputeEnvironmentResponse' {} Maybe Text
a -> CreateComputeEnvironmentResponse
s {$sel:computeEnvironmentName:CreateComputeEnvironmentResponse' :: Maybe Text
computeEnvironmentName = Maybe Text
a} :: CreateComputeEnvironmentResponse)
createComputeEnvironmentResponse_httpStatus :: Lens.Lens' CreateComputeEnvironmentResponse Prelude.Int
createComputeEnvironmentResponse_httpStatus :: Lens' CreateComputeEnvironmentResponse Int
createComputeEnvironmentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateComputeEnvironmentResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateComputeEnvironmentResponse' :: CreateComputeEnvironmentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateComputeEnvironmentResponse
s@CreateComputeEnvironmentResponse' {} Int
a -> CreateComputeEnvironmentResponse
s {$sel:httpStatus:CreateComputeEnvironmentResponse' :: Int
httpStatus = Int
a} :: CreateComputeEnvironmentResponse)
instance
Prelude.NFData
CreateComputeEnvironmentResponse
where
rnf :: CreateComputeEnvironmentResponse -> ()
rnf CreateComputeEnvironmentResponse' {Int
Maybe Text
httpStatus :: Int
computeEnvironmentName :: Maybe Text
computeEnvironmentArn :: Maybe Text
$sel:httpStatus:CreateComputeEnvironmentResponse' :: CreateComputeEnvironmentResponse -> Int
$sel:computeEnvironmentName:CreateComputeEnvironmentResponse' :: CreateComputeEnvironmentResponse -> Maybe Text
$sel:computeEnvironmentArn:CreateComputeEnvironmentResponse' :: CreateComputeEnvironmentResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
computeEnvironmentArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
computeEnvironmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus