{-# 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.Rekognition.CreateProjectVersion
(
CreateProjectVersion (..),
newCreateProjectVersion,
createProjectVersion_kmsKeyId,
createProjectVersion_tags,
createProjectVersion_testingData,
createProjectVersion_trainingData,
createProjectVersion_projectArn,
createProjectVersion_versionName,
createProjectVersion_outputConfig,
CreateProjectVersionResponse (..),
newCreateProjectVersionResponse,
createProjectVersionResponse_projectVersionArn,
createProjectVersionResponse_httpStatus,
)
where
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 Amazonka.Rekognition.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateProjectVersion = CreateProjectVersion'
{
CreateProjectVersion -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
CreateProjectVersion -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateProjectVersion -> Maybe TestingData
testingData :: Prelude.Maybe TestingData,
CreateProjectVersion -> Maybe TrainingData
trainingData :: Prelude.Maybe TrainingData,
CreateProjectVersion -> Text
projectArn :: Prelude.Text,
CreateProjectVersion -> Text
versionName :: Prelude.Text,
CreateProjectVersion -> OutputConfig
outputConfig :: OutputConfig
}
deriving (CreateProjectVersion -> CreateProjectVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateProjectVersion -> CreateProjectVersion -> Bool
$c/= :: CreateProjectVersion -> CreateProjectVersion -> Bool
== :: CreateProjectVersion -> CreateProjectVersion -> Bool
$c== :: CreateProjectVersion -> CreateProjectVersion -> Bool
Prelude.Eq, ReadPrec [CreateProjectVersion]
ReadPrec CreateProjectVersion
Int -> ReadS CreateProjectVersion
ReadS [CreateProjectVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateProjectVersion]
$creadListPrec :: ReadPrec [CreateProjectVersion]
readPrec :: ReadPrec CreateProjectVersion
$creadPrec :: ReadPrec CreateProjectVersion
readList :: ReadS [CreateProjectVersion]
$creadList :: ReadS [CreateProjectVersion]
readsPrec :: Int -> ReadS CreateProjectVersion
$creadsPrec :: Int -> ReadS CreateProjectVersion
Prelude.Read, Int -> CreateProjectVersion -> ShowS
[CreateProjectVersion] -> ShowS
CreateProjectVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateProjectVersion] -> ShowS
$cshowList :: [CreateProjectVersion] -> ShowS
show :: CreateProjectVersion -> String
$cshow :: CreateProjectVersion -> String
showsPrec :: Int -> CreateProjectVersion -> ShowS
$cshowsPrec :: Int -> CreateProjectVersion -> ShowS
Prelude.Show, forall x. Rep CreateProjectVersion x -> CreateProjectVersion
forall x. CreateProjectVersion -> Rep CreateProjectVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateProjectVersion x -> CreateProjectVersion
$cfrom :: forall x. CreateProjectVersion -> Rep CreateProjectVersion x
Prelude.Generic)
newCreateProjectVersion ::
Prelude.Text ->
Prelude.Text ->
OutputConfig ->
CreateProjectVersion
newCreateProjectVersion :: Text -> Text -> OutputConfig -> CreateProjectVersion
newCreateProjectVersion
Text
pProjectArn_
Text
pVersionName_
OutputConfig
pOutputConfig_ =
CreateProjectVersion'
{ $sel:kmsKeyId:CreateProjectVersion' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateProjectVersion' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:testingData:CreateProjectVersion' :: Maybe TestingData
testingData = forall a. Maybe a
Prelude.Nothing,
$sel:trainingData:CreateProjectVersion' :: Maybe TrainingData
trainingData = forall a. Maybe a
Prelude.Nothing,
$sel:projectArn:CreateProjectVersion' :: Text
projectArn = Text
pProjectArn_,
$sel:versionName:CreateProjectVersion' :: Text
versionName = Text
pVersionName_,
$sel:outputConfig:CreateProjectVersion' :: OutputConfig
outputConfig = OutputConfig
pOutputConfig_
}
createProjectVersion_kmsKeyId :: Lens.Lens' CreateProjectVersion (Prelude.Maybe Prelude.Text)
createProjectVersion_kmsKeyId :: Lens' CreateProjectVersion (Maybe Text)
createProjectVersion_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:CreateProjectVersion' :: CreateProjectVersion -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} Maybe Text
a -> CreateProjectVersion
s {$sel:kmsKeyId:CreateProjectVersion' :: Maybe Text
kmsKeyId = Maybe Text
a} :: CreateProjectVersion)
createProjectVersion_tags :: Lens.Lens' CreateProjectVersion (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createProjectVersion_tags :: Lens' CreateProjectVersion (Maybe (HashMap Text Text))
createProjectVersion_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateProjectVersion' :: CreateProjectVersion -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} Maybe (HashMap Text Text)
a -> CreateProjectVersion
s {$sel:tags:CreateProjectVersion' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateProjectVersion) 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
createProjectVersion_testingData :: Lens.Lens' CreateProjectVersion (Prelude.Maybe TestingData)
createProjectVersion_testingData :: Lens' CreateProjectVersion (Maybe TestingData)
createProjectVersion_testingData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {Maybe TestingData
testingData :: Maybe TestingData
$sel:testingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TestingData
testingData} -> Maybe TestingData
testingData) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} Maybe TestingData
a -> CreateProjectVersion
s {$sel:testingData:CreateProjectVersion' :: Maybe TestingData
testingData = Maybe TestingData
a} :: CreateProjectVersion)
createProjectVersion_trainingData :: Lens.Lens' CreateProjectVersion (Prelude.Maybe TrainingData)
createProjectVersion_trainingData :: Lens' CreateProjectVersion (Maybe TrainingData)
createProjectVersion_trainingData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {Maybe TrainingData
trainingData :: Maybe TrainingData
$sel:trainingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TrainingData
trainingData} -> Maybe TrainingData
trainingData) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} Maybe TrainingData
a -> CreateProjectVersion
s {$sel:trainingData:CreateProjectVersion' :: Maybe TrainingData
trainingData = Maybe TrainingData
a} :: CreateProjectVersion)
createProjectVersion_projectArn :: Lens.Lens' CreateProjectVersion Prelude.Text
createProjectVersion_projectArn :: Lens' CreateProjectVersion Text
createProjectVersion_projectArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {Text
projectArn :: Text
$sel:projectArn:CreateProjectVersion' :: CreateProjectVersion -> Text
projectArn} -> Text
projectArn) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} Text
a -> CreateProjectVersion
s {$sel:projectArn:CreateProjectVersion' :: Text
projectArn = Text
a} :: CreateProjectVersion)
createProjectVersion_versionName :: Lens.Lens' CreateProjectVersion Prelude.Text
createProjectVersion_versionName :: Lens' CreateProjectVersion Text
createProjectVersion_versionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {Text
versionName :: Text
$sel:versionName:CreateProjectVersion' :: CreateProjectVersion -> Text
versionName} -> Text
versionName) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} Text
a -> CreateProjectVersion
s {$sel:versionName:CreateProjectVersion' :: Text
versionName = Text
a} :: CreateProjectVersion)
createProjectVersion_outputConfig :: Lens.Lens' CreateProjectVersion OutputConfig
createProjectVersion_outputConfig :: Lens' CreateProjectVersion OutputConfig
createProjectVersion_outputConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersion' {OutputConfig
outputConfig :: OutputConfig
$sel:outputConfig:CreateProjectVersion' :: CreateProjectVersion -> OutputConfig
outputConfig} -> OutputConfig
outputConfig) (\s :: CreateProjectVersion
s@CreateProjectVersion' {} OutputConfig
a -> CreateProjectVersion
s {$sel:outputConfig:CreateProjectVersion' :: OutputConfig
outputConfig = OutputConfig
a} :: CreateProjectVersion)
instance Core.AWSRequest CreateProjectVersion where
type
AWSResponse CreateProjectVersion =
CreateProjectVersionResponse
request :: (Service -> Service)
-> CreateProjectVersion -> Request CreateProjectVersion
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 CreateProjectVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateProjectVersion)))
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 -> Int -> CreateProjectVersionResponse
CreateProjectVersionResponse'
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
"ProjectVersionArn")
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 CreateProjectVersion where
hashWithSalt :: Int -> CreateProjectVersion -> Int
hashWithSalt Int
_salt CreateProjectVersion' {Maybe Text
Maybe (HashMap Text Text)
Maybe TestingData
Maybe TrainingData
Text
OutputConfig
outputConfig :: OutputConfig
versionName :: Text
projectArn :: Text
trainingData :: Maybe TrainingData
testingData :: Maybe TestingData
tags :: Maybe (HashMap Text Text)
kmsKeyId :: Maybe Text
$sel:outputConfig:CreateProjectVersion' :: CreateProjectVersion -> OutputConfig
$sel:versionName:CreateProjectVersion' :: CreateProjectVersion -> Text
$sel:projectArn:CreateProjectVersion' :: CreateProjectVersion -> Text
$sel:trainingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TrainingData
$sel:testingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TestingData
$sel:tags:CreateProjectVersion' :: CreateProjectVersion -> Maybe (HashMap Text Text)
$sel:kmsKeyId:CreateProjectVersion' :: CreateProjectVersion -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TestingData
testingData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TrainingData
trainingData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
projectArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
versionName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` OutputConfig
outputConfig
instance Prelude.NFData CreateProjectVersion where
rnf :: CreateProjectVersion -> ()
rnf CreateProjectVersion' {Maybe Text
Maybe (HashMap Text Text)
Maybe TestingData
Maybe TrainingData
Text
OutputConfig
outputConfig :: OutputConfig
versionName :: Text
projectArn :: Text
trainingData :: Maybe TrainingData
testingData :: Maybe TestingData
tags :: Maybe (HashMap Text Text)
kmsKeyId :: Maybe Text
$sel:outputConfig:CreateProjectVersion' :: CreateProjectVersion -> OutputConfig
$sel:versionName:CreateProjectVersion' :: CreateProjectVersion -> Text
$sel:projectArn:CreateProjectVersion' :: CreateProjectVersion -> Text
$sel:trainingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TrainingData
$sel:testingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TestingData
$sel:tags:CreateProjectVersion' :: CreateProjectVersion -> Maybe (HashMap Text Text)
$sel:kmsKeyId:CreateProjectVersion' :: CreateProjectVersion -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
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 TestingData
testingData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TrainingData
trainingData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
projectArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
versionName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf OutputConfig
outputConfig
instance Data.ToHeaders CreateProjectVersion where
toHeaders :: CreateProjectVersion -> 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
"RekognitionService.CreateProjectVersion" ::
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 CreateProjectVersion where
toJSON :: CreateProjectVersion -> Value
toJSON CreateProjectVersion' {Maybe Text
Maybe (HashMap Text Text)
Maybe TestingData
Maybe TrainingData
Text
OutputConfig
outputConfig :: OutputConfig
versionName :: Text
projectArn :: Text
trainingData :: Maybe TrainingData
testingData :: Maybe TestingData
tags :: Maybe (HashMap Text Text)
kmsKeyId :: Maybe Text
$sel:outputConfig:CreateProjectVersion' :: CreateProjectVersion -> OutputConfig
$sel:versionName:CreateProjectVersion' :: CreateProjectVersion -> Text
$sel:projectArn:CreateProjectVersion' :: CreateProjectVersion -> Text
$sel:trainingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TrainingData
$sel:testingData:CreateProjectVersion' :: CreateProjectVersion -> Maybe TestingData
$sel:tags:CreateProjectVersion' :: CreateProjectVersion -> Maybe (HashMap Text Text)
$sel:kmsKeyId:CreateProjectVersion' :: CreateProjectVersion -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"KmsKeyId" 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
kmsKeyId,
(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
"TestingData" 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 TestingData
testingData,
(Key
"TrainingData" 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 TrainingData
trainingData,
forall a. a -> Maybe a
Prelude.Just (Key
"ProjectArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
projectArn),
forall a. a -> Maybe a
Prelude.Just (Key
"VersionName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
versionName),
forall a. a -> Maybe a
Prelude.Just (Key
"OutputConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= OutputConfig
outputConfig)
]
)
instance Data.ToPath CreateProjectVersion where
toPath :: CreateProjectVersion -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateProjectVersion where
toQuery :: CreateProjectVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateProjectVersionResponse = CreateProjectVersionResponse'
{
CreateProjectVersionResponse -> Maybe Text
projectVersionArn :: Prelude.Maybe Prelude.Text,
CreateProjectVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateProjectVersionResponse
-> CreateProjectVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateProjectVersionResponse
-> CreateProjectVersionResponse -> Bool
$c/= :: CreateProjectVersionResponse
-> CreateProjectVersionResponse -> Bool
== :: CreateProjectVersionResponse
-> CreateProjectVersionResponse -> Bool
$c== :: CreateProjectVersionResponse
-> CreateProjectVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateProjectVersionResponse]
ReadPrec CreateProjectVersionResponse
Int -> ReadS CreateProjectVersionResponse
ReadS [CreateProjectVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateProjectVersionResponse]
$creadListPrec :: ReadPrec [CreateProjectVersionResponse]
readPrec :: ReadPrec CreateProjectVersionResponse
$creadPrec :: ReadPrec CreateProjectVersionResponse
readList :: ReadS [CreateProjectVersionResponse]
$creadList :: ReadS [CreateProjectVersionResponse]
readsPrec :: Int -> ReadS CreateProjectVersionResponse
$creadsPrec :: Int -> ReadS CreateProjectVersionResponse
Prelude.Read, Int -> CreateProjectVersionResponse -> ShowS
[CreateProjectVersionResponse] -> ShowS
CreateProjectVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateProjectVersionResponse] -> ShowS
$cshowList :: [CreateProjectVersionResponse] -> ShowS
show :: CreateProjectVersionResponse -> String
$cshow :: CreateProjectVersionResponse -> String
showsPrec :: Int -> CreateProjectVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateProjectVersionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateProjectVersionResponse x -> CreateProjectVersionResponse
forall x.
CreateProjectVersionResponse -> Rep CreateProjectVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateProjectVersionResponse x -> CreateProjectVersionResponse
$cfrom :: forall x.
CreateProjectVersionResponse -> Rep CreateProjectVersionResponse x
Prelude.Generic)
newCreateProjectVersionResponse ::
Prelude.Int ->
CreateProjectVersionResponse
newCreateProjectVersionResponse :: Int -> CreateProjectVersionResponse
newCreateProjectVersionResponse Int
pHttpStatus_ =
CreateProjectVersionResponse'
{ $sel:projectVersionArn:CreateProjectVersionResponse' :: Maybe Text
projectVersionArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateProjectVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createProjectVersionResponse_projectVersionArn :: Lens.Lens' CreateProjectVersionResponse (Prelude.Maybe Prelude.Text)
createProjectVersionResponse_projectVersionArn :: Lens' CreateProjectVersionResponse (Maybe Text)
createProjectVersionResponse_projectVersionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersionResponse' {Maybe Text
projectVersionArn :: Maybe Text
$sel:projectVersionArn:CreateProjectVersionResponse' :: CreateProjectVersionResponse -> Maybe Text
projectVersionArn} -> Maybe Text
projectVersionArn) (\s :: CreateProjectVersionResponse
s@CreateProjectVersionResponse' {} Maybe Text
a -> CreateProjectVersionResponse
s {$sel:projectVersionArn:CreateProjectVersionResponse' :: Maybe Text
projectVersionArn = Maybe Text
a} :: CreateProjectVersionResponse)
createProjectVersionResponse_httpStatus :: Lens.Lens' CreateProjectVersionResponse Prelude.Int
createProjectVersionResponse_httpStatus :: Lens' CreateProjectVersionResponse Int
createProjectVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProjectVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateProjectVersionResponse' :: CreateProjectVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateProjectVersionResponse
s@CreateProjectVersionResponse' {} Int
a -> CreateProjectVersionResponse
s {$sel:httpStatus:CreateProjectVersionResponse' :: Int
httpStatus = Int
a} :: CreateProjectVersionResponse)
instance Prelude.NFData CreateProjectVersionResponse where
rnf :: CreateProjectVersionResponse -> ()
rnf CreateProjectVersionResponse' {Int
Maybe Text
httpStatus :: Int
projectVersionArn :: Maybe Text
$sel:httpStatus:CreateProjectVersionResponse' :: CreateProjectVersionResponse -> Int
$sel:projectVersionArn:CreateProjectVersionResponse' :: CreateProjectVersionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
projectVersionArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus