{-# 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.SageMaker.CreateTransformJob
(
CreateTransformJob (..),
newCreateTransformJob,
createTransformJob_batchStrategy,
createTransformJob_dataCaptureConfig,
createTransformJob_dataProcessing,
createTransformJob_environment,
createTransformJob_experimentConfig,
createTransformJob_maxConcurrentTransforms,
createTransformJob_maxPayloadInMB,
createTransformJob_modelClientConfig,
createTransformJob_tags,
createTransformJob_transformJobName,
createTransformJob_modelName,
createTransformJob_transformInput,
createTransformJob_transformOutput,
createTransformJob_transformResources,
CreateTransformJobResponse (..),
newCreateTransformJobResponse,
createTransformJobResponse_httpStatus,
createTransformJobResponse_transformJobArn,
)
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types
data CreateTransformJob = CreateTransformJob'
{
CreateTransformJob -> Maybe BatchStrategy
batchStrategy :: Prelude.Maybe BatchStrategy,
CreateTransformJob -> Maybe BatchDataCaptureConfig
dataCaptureConfig :: Prelude.Maybe BatchDataCaptureConfig,
CreateTransformJob -> Maybe DataProcessing
dataProcessing :: Prelude.Maybe DataProcessing,
CreateTransformJob -> Maybe (HashMap Text Text)
environment :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateTransformJob -> Maybe ExperimentConfig
experimentConfig :: Prelude.Maybe ExperimentConfig,
CreateTransformJob -> Maybe Natural
maxConcurrentTransforms :: Prelude.Maybe Prelude.Natural,
CreateTransformJob -> Maybe Natural
maxPayloadInMB :: Prelude.Maybe Prelude.Natural,
CreateTransformJob -> Maybe ModelClientConfig
modelClientConfig :: Prelude.Maybe ModelClientConfig,
CreateTransformJob -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateTransformJob -> Text
transformJobName :: Prelude.Text,
CreateTransformJob -> Text
modelName :: Prelude.Text,
CreateTransformJob -> TransformInput
transformInput :: TransformInput,
CreateTransformJob -> TransformOutput
transformOutput :: TransformOutput,
CreateTransformJob -> TransformResources
transformResources :: TransformResources
}
deriving (CreateTransformJob -> CreateTransformJob -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTransformJob -> CreateTransformJob -> Bool
$c/= :: CreateTransformJob -> CreateTransformJob -> Bool
== :: CreateTransformJob -> CreateTransformJob -> Bool
$c== :: CreateTransformJob -> CreateTransformJob -> Bool
Prelude.Eq, ReadPrec [CreateTransformJob]
ReadPrec CreateTransformJob
Int -> ReadS CreateTransformJob
ReadS [CreateTransformJob]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTransformJob]
$creadListPrec :: ReadPrec [CreateTransformJob]
readPrec :: ReadPrec CreateTransformJob
$creadPrec :: ReadPrec CreateTransformJob
readList :: ReadS [CreateTransformJob]
$creadList :: ReadS [CreateTransformJob]
readsPrec :: Int -> ReadS CreateTransformJob
$creadsPrec :: Int -> ReadS CreateTransformJob
Prelude.Read, Int -> CreateTransformJob -> ShowS
[CreateTransformJob] -> ShowS
CreateTransformJob -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTransformJob] -> ShowS
$cshowList :: [CreateTransformJob] -> ShowS
show :: CreateTransformJob -> String
$cshow :: CreateTransformJob -> String
showsPrec :: Int -> CreateTransformJob -> ShowS
$cshowsPrec :: Int -> CreateTransformJob -> ShowS
Prelude.Show, forall x. Rep CreateTransformJob x -> CreateTransformJob
forall x. CreateTransformJob -> Rep CreateTransformJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTransformJob x -> CreateTransformJob
$cfrom :: forall x. CreateTransformJob -> Rep CreateTransformJob x
Prelude.Generic)
newCreateTransformJob ::
Prelude.Text ->
Prelude.Text ->
TransformInput ->
TransformOutput ->
TransformResources ->
CreateTransformJob
newCreateTransformJob :: Text
-> Text
-> TransformInput
-> TransformOutput
-> TransformResources
-> CreateTransformJob
newCreateTransformJob
Text
pTransformJobName_
Text
pModelName_
TransformInput
pTransformInput_
TransformOutput
pTransformOutput_
TransformResources
pTransformResources_ =
CreateTransformJob'
{ $sel:batchStrategy:CreateTransformJob' :: Maybe BatchStrategy
batchStrategy =
forall a. Maybe a
Prelude.Nothing,
$sel:dataCaptureConfig:CreateTransformJob' :: Maybe BatchDataCaptureConfig
dataCaptureConfig = forall a. Maybe a
Prelude.Nothing,
$sel:dataProcessing:CreateTransformJob' :: Maybe DataProcessing
dataProcessing = forall a. Maybe a
Prelude.Nothing,
$sel:environment:CreateTransformJob' :: Maybe (HashMap Text Text)
environment = forall a. Maybe a
Prelude.Nothing,
$sel:experimentConfig:CreateTransformJob' :: Maybe ExperimentConfig
experimentConfig = forall a. Maybe a
Prelude.Nothing,
$sel:maxConcurrentTransforms:CreateTransformJob' :: Maybe Natural
maxConcurrentTransforms = forall a. Maybe a
Prelude.Nothing,
$sel:maxPayloadInMB:CreateTransformJob' :: Maybe Natural
maxPayloadInMB = forall a. Maybe a
Prelude.Nothing,
$sel:modelClientConfig:CreateTransformJob' :: Maybe ModelClientConfig
modelClientConfig = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateTransformJob' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:transformJobName:CreateTransformJob' :: Text
transformJobName = Text
pTransformJobName_,
$sel:modelName:CreateTransformJob' :: Text
modelName = Text
pModelName_,
$sel:transformInput:CreateTransformJob' :: TransformInput
transformInput = TransformInput
pTransformInput_,
$sel:transformOutput:CreateTransformJob' :: TransformOutput
transformOutput = TransformOutput
pTransformOutput_,
$sel:transformResources:CreateTransformJob' :: TransformResources
transformResources = TransformResources
pTransformResources_
}
createTransformJob_batchStrategy :: Lens.Lens' CreateTransformJob (Prelude.Maybe BatchStrategy)
createTransformJob_batchStrategy :: Lens' CreateTransformJob (Maybe BatchStrategy)
createTransformJob_batchStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe BatchStrategy
batchStrategy :: Maybe BatchStrategy
$sel:batchStrategy:CreateTransformJob' :: CreateTransformJob -> Maybe BatchStrategy
batchStrategy} -> Maybe BatchStrategy
batchStrategy) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe BatchStrategy
a -> CreateTransformJob
s {$sel:batchStrategy:CreateTransformJob' :: Maybe BatchStrategy
batchStrategy = Maybe BatchStrategy
a} :: CreateTransformJob)
createTransformJob_dataCaptureConfig :: Lens.Lens' CreateTransformJob (Prelude.Maybe BatchDataCaptureConfig)
createTransformJob_dataCaptureConfig :: Lens' CreateTransformJob (Maybe BatchDataCaptureConfig)
createTransformJob_dataCaptureConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe BatchDataCaptureConfig
dataCaptureConfig :: Maybe BatchDataCaptureConfig
$sel:dataCaptureConfig:CreateTransformJob' :: CreateTransformJob -> Maybe BatchDataCaptureConfig
dataCaptureConfig} -> Maybe BatchDataCaptureConfig
dataCaptureConfig) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe BatchDataCaptureConfig
a -> CreateTransformJob
s {$sel:dataCaptureConfig:CreateTransformJob' :: Maybe BatchDataCaptureConfig
dataCaptureConfig = Maybe BatchDataCaptureConfig
a} :: CreateTransformJob)
createTransformJob_dataProcessing :: Lens.Lens' CreateTransformJob (Prelude.Maybe DataProcessing)
createTransformJob_dataProcessing :: Lens' CreateTransformJob (Maybe DataProcessing)
createTransformJob_dataProcessing = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe DataProcessing
dataProcessing :: Maybe DataProcessing
$sel:dataProcessing:CreateTransformJob' :: CreateTransformJob -> Maybe DataProcessing
dataProcessing} -> Maybe DataProcessing
dataProcessing) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe DataProcessing
a -> CreateTransformJob
s {$sel:dataProcessing:CreateTransformJob' :: Maybe DataProcessing
dataProcessing = Maybe DataProcessing
a} :: CreateTransformJob)
createTransformJob_environment :: Lens.Lens' CreateTransformJob (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createTransformJob_environment :: Lens' CreateTransformJob (Maybe (HashMap Text Text))
createTransformJob_environment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe (HashMap Text Text)
environment :: Maybe (HashMap Text Text)
$sel:environment:CreateTransformJob' :: CreateTransformJob -> Maybe (HashMap Text Text)
environment} -> Maybe (HashMap Text Text)
environment) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe (HashMap Text Text)
a -> CreateTransformJob
s {$sel:environment:CreateTransformJob' :: Maybe (HashMap Text Text)
environment = Maybe (HashMap Text Text)
a} :: CreateTransformJob) 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
createTransformJob_experimentConfig :: Lens.Lens' CreateTransformJob (Prelude.Maybe ExperimentConfig)
createTransformJob_experimentConfig :: Lens' CreateTransformJob (Maybe ExperimentConfig)
createTransformJob_experimentConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe ExperimentConfig
experimentConfig :: Maybe ExperimentConfig
$sel:experimentConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ExperimentConfig
experimentConfig} -> Maybe ExperimentConfig
experimentConfig) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe ExperimentConfig
a -> CreateTransformJob
s {$sel:experimentConfig:CreateTransformJob' :: Maybe ExperimentConfig
experimentConfig = Maybe ExperimentConfig
a} :: CreateTransformJob)
createTransformJob_maxConcurrentTransforms :: Lens.Lens' CreateTransformJob (Prelude.Maybe Prelude.Natural)
createTransformJob_maxConcurrentTransforms :: Lens' CreateTransformJob (Maybe Natural)
createTransformJob_maxConcurrentTransforms = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe Natural
maxConcurrentTransforms :: Maybe Natural
$sel:maxConcurrentTransforms:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
maxConcurrentTransforms} -> Maybe Natural
maxConcurrentTransforms) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe Natural
a -> CreateTransformJob
s {$sel:maxConcurrentTransforms:CreateTransformJob' :: Maybe Natural
maxConcurrentTransforms = Maybe Natural
a} :: CreateTransformJob)
createTransformJob_maxPayloadInMB :: Lens.Lens' CreateTransformJob (Prelude.Maybe Prelude.Natural)
createTransformJob_maxPayloadInMB :: Lens' CreateTransformJob (Maybe Natural)
createTransformJob_maxPayloadInMB = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe Natural
maxPayloadInMB :: Maybe Natural
$sel:maxPayloadInMB:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
maxPayloadInMB} -> Maybe Natural
maxPayloadInMB) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe Natural
a -> CreateTransformJob
s {$sel:maxPayloadInMB:CreateTransformJob' :: Maybe Natural
maxPayloadInMB = Maybe Natural
a} :: CreateTransformJob)
createTransformJob_modelClientConfig :: Lens.Lens' CreateTransformJob (Prelude.Maybe ModelClientConfig)
createTransformJob_modelClientConfig :: Lens' CreateTransformJob (Maybe ModelClientConfig)
createTransformJob_modelClientConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe ModelClientConfig
modelClientConfig :: Maybe ModelClientConfig
$sel:modelClientConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ModelClientConfig
modelClientConfig} -> Maybe ModelClientConfig
modelClientConfig) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe ModelClientConfig
a -> CreateTransformJob
s {$sel:modelClientConfig:CreateTransformJob' :: Maybe ModelClientConfig
modelClientConfig = Maybe ModelClientConfig
a} :: CreateTransformJob)
createTransformJob_tags :: Lens.Lens' CreateTransformJob (Prelude.Maybe [Tag])
createTransformJob_tags :: Lens' CreateTransformJob (Maybe [Tag])
createTransformJob_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateTransformJob' :: CreateTransformJob -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateTransformJob
s@CreateTransformJob' {} Maybe [Tag]
a -> CreateTransformJob
s {$sel:tags:CreateTransformJob' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateTransformJob) 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
createTransformJob_transformJobName :: Lens.Lens' CreateTransformJob Prelude.Text
createTransformJob_transformJobName :: Lens' CreateTransformJob Text
createTransformJob_transformJobName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Text
transformJobName :: Text
$sel:transformJobName:CreateTransformJob' :: CreateTransformJob -> Text
transformJobName} -> Text
transformJobName) (\s :: CreateTransformJob
s@CreateTransformJob' {} Text
a -> CreateTransformJob
s {$sel:transformJobName:CreateTransformJob' :: Text
transformJobName = Text
a} :: CreateTransformJob)
createTransformJob_modelName :: Lens.Lens' CreateTransformJob Prelude.Text
createTransformJob_modelName :: Lens' CreateTransformJob Text
createTransformJob_modelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {Text
modelName :: Text
$sel:modelName:CreateTransformJob' :: CreateTransformJob -> Text
modelName} -> Text
modelName) (\s :: CreateTransformJob
s@CreateTransformJob' {} Text
a -> CreateTransformJob
s {$sel:modelName:CreateTransformJob' :: Text
modelName = Text
a} :: CreateTransformJob)
createTransformJob_transformInput :: Lens.Lens' CreateTransformJob TransformInput
createTransformJob_transformInput :: Lens' CreateTransformJob TransformInput
createTransformJob_transformInput = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {TransformInput
transformInput :: TransformInput
$sel:transformInput:CreateTransformJob' :: CreateTransformJob -> TransformInput
transformInput} -> TransformInput
transformInput) (\s :: CreateTransformJob
s@CreateTransformJob' {} TransformInput
a -> CreateTransformJob
s {$sel:transformInput:CreateTransformJob' :: TransformInput
transformInput = TransformInput
a} :: CreateTransformJob)
createTransformJob_transformOutput :: Lens.Lens' CreateTransformJob TransformOutput
createTransformJob_transformOutput :: Lens' CreateTransformJob TransformOutput
createTransformJob_transformOutput = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {TransformOutput
transformOutput :: TransformOutput
$sel:transformOutput:CreateTransformJob' :: CreateTransformJob -> TransformOutput
transformOutput} -> TransformOutput
transformOutput) (\s :: CreateTransformJob
s@CreateTransformJob' {} TransformOutput
a -> CreateTransformJob
s {$sel:transformOutput:CreateTransformJob' :: TransformOutput
transformOutput = TransformOutput
a} :: CreateTransformJob)
createTransformJob_transformResources :: Lens.Lens' CreateTransformJob TransformResources
createTransformJob_transformResources :: Lens' CreateTransformJob TransformResources
createTransformJob_transformResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJob' {TransformResources
transformResources :: TransformResources
$sel:transformResources:CreateTransformJob' :: CreateTransformJob -> TransformResources
transformResources} -> TransformResources
transformResources) (\s :: CreateTransformJob
s@CreateTransformJob' {} TransformResources
a -> CreateTransformJob
s {$sel:transformResources:CreateTransformJob' :: TransformResources
transformResources = TransformResources
a} :: CreateTransformJob)
instance Core.AWSRequest CreateTransformJob where
type
AWSResponse CreateTransformJob =
CreateTransformJobResponse
request :: (Service -> Service)
-> CreateTransformJob -> Request CreateTransformJob
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 CreateTransformJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateTransformJob)))
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 ->
Int -> Text -> CreateTransformJobResponse
CreateTransformJobResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"TransformJobArn")
)
instance Prelude.Hashable CreateTransformJob where
hashWithSalt :: Int -> CreateTransformJob -> Int
hashWithSalt Int
_salt CreateTransformJob' {Maybe Natural
Maybe [Tag]
Maybe (HashMap Text Text)
Maybe BatchDataCaptureConfig
Maybe BatchStrategy
Maybe ExperimentConfig
Maybe DataProcessing
Maybe ModelClientConfig
Text
TransformOutput
TransformResources
TransformInput
transformResources :: TransformResources
transformOutput :: TransformOutput
transformInput :: TransformInput
modelName :: Text
transformJobName :: Text
tags :: Maybe [Tag]
modelClientConfig :: Maybe ModelClientConfig
maxPayloadInMB :: Maybe Natural
maxConcurrentTransforms :: Maybe Natural
experimentConfig :: Maybe ExperimentConfig
environment :: Maybe (HashMap Text Text)
dataProcessing :: Maybe DataProcessing
dataCaptureConfig :: Maybe BatchDataCaptureConfig
batchStrategy :: Maybe BatchStrategy
$sel:transformResources:CreateTransformJob' :: CreateTransformJob -> TransformResources
$sel:transformOutput:CreateTransformJob' :: CreateTransformJob -> TransformOutput
$sel:transformInput:CreateTransformJob' :: CreateTransformJob -> TransformInput
$sel:modelName:CreateTransformJob' :: CreateTransformJob -> Text
$sel:transformJobName:CreateTransformJob' :: CreateTransformJob -> Text
$sel:tags:CreateTransformJob' :: CreateTransformJob -> Maybe [Tag]
$sel:modelClientConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ModelClientConfig
$sel:maxPayloadInMB:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
$sel:maxConcurrentTransforms:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
$sel:experimentConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ExperimentConfig
$sel:environment:CreateTransformJob' :: CreateTransformJob -> Maybe (HashMap Text Text)
$sel:dataProcessing:CreateTransformJob' :: CreateTransformJob -> Maybe DataProcessing
$sel:dataCaptureConfig:CreateTransformJob' :: CreateTransformJob -> Maybe BatchDataCaptureConfig
$sel:batchStrategy:CreateTransformJob' :: CreateTransformJob -> Maybe BatchStrategy
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BatchStrategy
batchStrategy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BatchDataCaptureConfig
dataCaptureConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DataProcessing
dataProcessing
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
environment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ExperimentConfig
experimentConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxConcurrentTransforms
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxPayloadInMB
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ModelClientConfig
modelClientConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
transformJobName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TransformInput
transformInput
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TransformOutput
transformOutput
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TransformResources
transformResources
instance Prelude.NFData CreateTransformJob where
rnf :: CreateTransformJob -> ()
rnf CreateTransformJob' {Maybe Natural
Maybe [Tag]
Maybe (HashMap Text Text)
Maybe BatchDataCaptureConfig
Maybe BatchStrategy
Maybe ExperimentConfig
Maybe DataProcessing
Maybe ModelClientConfig
Text
TransformOutput
TransformResources
TransformInput
transformResources :: TransformResources
transformOutput :: TransformOutput
transformInput :: TransformInput
modelName :: Text
transformJobName :: Text
tags :: Maybe [Tag]
modelClientConfig :: Maybe ModelClientConfig
maxPayloadInMB :: Maybe Natural
maxConcurrentTransforms :: Maybe Natural
experimentConfig :: Maybe ExperimentConfig
environment :: Maybe (HashMap Text Text)
dataProcessing :: Maybe DataProcessing
dataCaptureConfig :: Maybe BatchDataCaptureConfig
batchStrategy :: Maybe BatchStrategy
$sel:transformResources:CreateTransformJob' :: CreateTransformJob -> TransformResources
$sel:transformOutput:CreateTransformJob' :: CreateTransformJob -> TransformOutput
$sel:transformInput:CreateTransformJob' :: CreateTransformJob -> TransformInput
$sel:modelName:CreateTransformJob' :: CreateTransformJob -> Text
$sel:transformJobName:CreateTransformJob' :: CreateTransformJob -> Text
$sel:tags:CreateTransformJob' :: CreateTransformJob -> Maybe [Tag]
$sel:modelClientConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ModelClientConfig
$sel:maxPayloadInMB:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
$sel:maxConcurrentTransforms:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
$sel:experimentConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ExperimentConfig
$sel:environment:CreateTransformJob' :: CreateTransformJob -> Maybe (HashMap Text Text)
$sel:dataProcessing:CreateTransformJob' :: CreateTransformJob -> Maybe DataProcessing
$sel:dataCaptureConfig:CreateTransformJob' :: CreateTransformJob -> Maybe BatchDataCaptureConfig
$sel:batchStrategy:CreateTransformJob' :: CreateTransformJob -> Maybe BatchStrategy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BatchStrategy
batchStrategy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BatchDataCaptureConfig
dataCaptureConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DataProcessing
dataProcessing
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
environment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ExperimentConfig
experimentConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxConcurrentTransforms
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxPayloadInMB
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ModelClientConfig
modelClientConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
transformJobName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
modelName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TransformInput
transformInput
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TransformOutput
transformOutput
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TransformResources
transformResources
instance Data.ToHeaders CreateTransformJob where
toHeaders :: CreateTransformJob -> 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
"SageMaker.CreateTransformJob" ::
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 CreateTransformJob where
toJSON :: CreateTransformJob -> Value
toJSON CreateTransformJob' {Maybe Natural
Maybe [Tag]
Maybe (HashMap Text Text)
Maybe BatchDataCaptureConfig
Maybe BatchStrategy
Maybe ExperimentConfig
Maybe DataProcessing
Maybe ModelClientConfig
Text
TransformOutput
TransformResources
TransformInput
transformResources :: TransformResources
transformOutput :: TransformOutput
transformInput :: TransformInput
modelName :: Text
transformJobName :: Text
tags :: Maybe [Tag]
modelClientConfig :: Maybe ModelClientConfig
maxPayloadInMB :: Maybe Natural
maxConcurrentTransforms :: Maybe Natural
experimentConfig :: Maybe ExperimentConfig
environment :: Maybe (HashMap Text Text)
dataProcessing :: Maybe DataProcessing
dataCaptureConfig :: Maybe BatchDataCaptureConfig
batchStrategy :: Maybe BatchStrategy
$sel:transformResources:CreateTransformJob' :: CreateTransformJob -> TransformResources
$sel:transformOutput:CreateTransformJob' :: CreateTransformJob -> TransformOutput
$sel:transformInput:CreateTransformJob' :: CreateTransformJob -> TransformInput
$sel:modelName:CreateTransformJob' :: CreateTransformJob -> Text
$sel:transformJobName:CreateTransformJob' :: CreateTransformJob -> Text
$sel:tags:CreateTransformJob' :: CreateTransformJob -> Maybe [Tag]
$sel:modelClientConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ModelClientConfig
$sel:maxPayloadInMB:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
$sel:maxConcurrentTransforms:CreateTransformJob' :: CreateTransformJob -> Maybe Natural
$sel:experimentConfig:CreateTransformJob' :: CreateTransformJob -> Maybe ExperimentConfig
$sel:environment:CreateTransformJob' :: CreateTransformJob -> Maybe (HashMap Text Text)
$sel:dataProcessing:CreateTransformJob' :: CreateTransformJob -> Maybe DataProcessing
$sel:dataCaptureConfig:CreateTransformJob' :: CreateTransformJob -> Maybe BatchDataCaptureConfig
$sel:batchStrategy:CreateTransformJob' :: CreateTransformJob -> Maybe BatchStrategy
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"BatchStrategy" 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 BatchStrategy
batchStrategy,
(Key
"DataCaptureConfig" 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 BatchDataCaptureConfig
dataCaptureConfig,
(Key
"DataProcessing" 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 DataProcessing
dataProcessing,
(Key
"Environment" 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)
environment,
(Key
"ExperimentConfig" 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 ExperimentConfig
experimentConfig,
(Key
"MaxConcurrentTransforms" 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 Natural
maxConcurrentTransforms,
(Key
"MaxPayloadInMB" 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 Natural
maxPayloadInMB,
(Key
"ModelClientConfig" 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 ModelClientConfig
modelClientConfig,
(Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
forall a. a -> Maybe a
Prelude.Just
(Key
"TransformJobName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
transformJobName),
forall a. a -> Maybe a
Prelude.Just (Key
"ModelName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
modelName),
forall a. a -> Maybe a
Prelude.Just
(Key
"TransformInput" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= TransformInput
transformInput),
forall a. a -> Maybe a
Prelude.Just
(Key
"TransformOutput" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= TransformOutput
transformOutput),
forall a. a -> Maybe a
Prelude.Just
(Key
"TransformResources" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= TransformResources
transformResources)
]
)
instance Data.ToPath CreateTransformJob where
toPath :: CreateTransformJob -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateTransformJob where
toQuery :: CreateTransformJob -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateTransformJobResponse = CreateTransformJobResponse'
{
CreateTransformJobResponse -> Int
httpStatus :: Prelude.Int,
CreateTransformJobResponse -> Text
transformJobArn :: Prelude.Text
}
deriving (CreateTransformJobResponse -> CreateTransformJobResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTransformJobResponse -> CreateTransformJobResponse -> Bool
$c/= :: CreateTransformJobResponse -> CreateTransformJobResponse -> Bool
== :: CreateTransformJobResponse -> CreateTransformJobResponse -> Bool
$c== :: CreateTransformJobResponse -> CreateTransformJobResponse -> Bool
Prelude.Eq, ReadPrec [CreateTransformJobResponse]
ReadPrec CreateTransformJobResponse
Int -> ReadS CreateTransformJobResponse
ReadS [CreateTransformJobResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTransformJobResponse]
$creadListPrec :: ReadPrec [CreateTransformJobResponse]
readPrec :: ReadPrec CreateTransformJobResponse
$creadPrec :: ReadPrec CreateTransformJobResponse
readList :: ReadS [CreateTransformJobResponse]
$creadList :: ReadS [CreateTransformJobResponse]
readsPrec :: Int -> ReadS CreateTransformJobResponse
$creadsPrec :: Int -> ReadS CreateTransformJobResponse
Prelude.Read, Int -> CreateTransformJobResponse -> ShowS
[CreateTransformJobResponse] -> ShowS
CreateTransformJobResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTransformJobResponse] -> ShowS
$cshowList :: [CreateTransformJobResponse] -> ShowS
show :: CreateTransformJobResponse -> String
$cshow :: CreateTransformJobResponse -> String
showsPrec :: Int -> CreateTransformJobResponse -> ShowS
$cshowsPrec :: Int -> CreateTransformJobResponse -> ShowS
Prelude.Show, forall x.
Rep CreateTransformJobResponse x -> CreateTransformJobResponse
forall x.
CreateTransformJobResponse -> Rep CreateTransformJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTransformJobResponse x -> CreateTransformJobResponse
$cfrom :: forall x.
CreateTransformJobResponse -> Rep CreateTransformJobResponse x
Prelude.Generic)
newCreateTransformJobResponse ::
Prelude.Int ->
Prelude.Text ->
CreateTransformJobResponse
newCreateTransformJobResponse :: Int -> Text -> CreateTransformJobResponse
newCreateTransformJobResponse
Int
pHttpStatus_
Text
pTransformJobArn_ =
CreateTransformJobResponse'
{ $sel:httpStatus:CreateTransformJobResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:transformJobArn:CreateTransformJobResponse' :: Text
transformJobArn = Text
pTransformJobArn_
}
createTransformJobResponse_httpStatus :: Lens.Lens' CreateTransformJobResponse Prelude.Int
createTransformJobResponse_httpStatus :: Lens' CreateTransformJobResponse Int
createTransformJobResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTransformJobResponse' :: CreateTransformJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTransformJobResponse
s@CreateTransformJobResponse' {} Int
a -> CreateTransformJobResponse
s {$sel:httpStatus:CreateTransformJobResponse' :: Int
httpStatus = Int
a} :: CreateTransformJobResponse)
createTransformJobResponse_transformJobArn :: Lens.Lens' CreateTransformJobResponse Prelude.Text
createTransformJobResponse_transformJobArn :: Lens' CreateTransformJobResponse Text
createTransformJobResponse_transformJobArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTransformJobResponse' {Text
transformJobArn :: Text
$sel:transformJobArn:CreateTransformJobResponse' :: CreateTransformJobResponse -> Text
transformJobArn} -> Text
transformJobArn) (\s :: CreateTransformJobResponse
s@CreateTransformJobResponse' {} Text
a -> CreateTransformJobResponse
s {$sel:transformJobArn:CreateTransformJobResponse' :: Text
transformJobArn = Text
a} :: CreateTransformJobResponse)
instance Prelude.NFData CreateTransformJobResponse where
rnf :: CreateTransformJobResponse -> ()
rnf CreateTransformJobResponse' {Int
Text
transformJobArn :: Text
httpStatus :: Int
$sel:transformJobArn:CreateTransformJobResponse' :: CreateTransformJobResponse -> Text
$sel:httpStatus:CreateTransformJobResponse' :: CreateTransformJobResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
transformJobArn