{-# 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.Translate.StartTextTranslationJob
(
StartTextTranslationJob (..),
newStartTextTranslationJob,
startTextTranslationJob_jobName,
startTextTranslationJob_parallelDataNames,
startTextTranslationJob_settings,
startTextTranslationJob_terminologyNames,
startTextTranslationJob_inputDataConfig,
startTextTranslationJob_outputDataConfig,
startTextTranslationJob_dataAccessRoleArn,
startTextTranslationJob_sourceLanguageCode,
startTextTranslationJob_targetLanguageCodes,
startTextTranslationJob_clientToken,
StartTextTranslationJobResponse (..),
newStartTextTranslationJobResponse,
startTextTranslationJobResponse_jobId,
startTextTranslationJobResponse_jobStatus,
startTextTranslationJobResponse_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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Translate.Types
data StartTextTranslationJob = StartTextTranslationJob'
{
StartTextTranslationJob -> Maybe Text
jobName :: Prelude.Maybe Prelude.Text,
StartTextTranslationJob -> Maybe [Text]
parallelDataNames :: Prelude.Maybe [Prelude.Text],
StartTextTranslationJob -> Maybe TranslationSettings
settings :: Prelude.Maybe TranslationSettings,
StartTextTranslationJob -> Maybe [Text]
terminologyNames :: Prelude.Maybe [Prelude.Text],
StartTextTranslationJob -> InputDataConfig
inputDataConfig :: InputDataConfig,
StartTextTranslationJob -> OutputDataConfig
outputDataConfig :: OutputDataConfig,
StartTextTranslationJob -> Text
dataAccessRoleArn :: Prelude.Text,
StartTextTranslationJob -> Text
sourceLanguageCode :: Prelude.Text,
StartTextTranslationJob -> NonEmpty Text
targetLanguageCodes :: Prelude.NonEmpty Prelude.Text,
StartTextTranslationJob -> Text
clientToken :: Prelude.Text
}
deriving (StartTextTranslationJob -> StartTextTranslationJob -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartTextTranslationJob -> StartTextTranslationJob -> Bool
$c/= :: StartTextTranslationJob -> StartTextTranslationJob -> Bool
== :: StartTextTranslationJob -> StartTextTranslationJob -> Bool
$c== :: StartTextTranslationJob -> StartTextTranslationJob -> Bool
Prelude.Eq, ReadPrec [StartTextTranslationJob]
ReadPrec StartTextTranslationJob
Int -> ReadS StartTextTranslationJob
ReadS [StartTextTranslationJob]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartTextTranslationJob]
$creadListPrec :: ReadPrec [StartTextTranslationJob]
readPrec :: ReadPrec StartTextTranslationJob
$creadPrec :: ReadPrec StartTextTranslationJob
readList :: ReadS [StartTextTranslationJob]
$creadList :: ReadS [StartTextTranslationJob]
readsPrec :: Int -> ReadS StartTextTranslationJob
$creadsPrec :: Int -> ReadS StartTextTranslationJob
Prelude.Read, Int -> StartTextTranslationJob -> ShowS
[StartTextTranslationJob] -> ShowS
StartTextTranslationJob -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartTextTranslationJob] -> ShowS
$cshowList :: [StartTextTranslationJob] -> ShowS
show :: StartTextTranslationJob -> String
$cshow :: StartTextTranslationJob -> String
showsPrec :: Int -> StartTextTranslationJob -> ShowS
$cshowsPrec :: Int -> StartTextTranslationJob -> ShowS
Prelude.Show, forall x. Rep StartTextTranslationJob x -> StartTextTranslationJob
forall x. StartTextTranslationJob -> Rep StartTextTranslationJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartTextTranslationJob x -> StartTextTranslationJob
$cfrom :: forall x. StartTextTranslationJob -> Rep StartTextTranslationJob x
Prelude.Generic)
newStartTextTranslationJob ::
InputDataConfig ->
OutputDataConfig ->
Prelude.Text ->
Prelude.Text ->
Prelude.NonEmpty Prelude.Text ->
Prelude.Text ->
StartTextTranslationJob
newStartTextTranslationJob :: InputDataConfig
-> OutputDataConfig
-> Text
-> Text
-> NonEmpty Text
-> Text
-> StartTextTranslationJob
newStartTextTranslationJob
InputDataConfig
pInputDataConfig_
OutputDataConfig
pOutputDataConfig_
Text
pDataAccessRoleArn_
Text
pSourceLanguageCode_
NonEmpty Text
pTargetLanguageCodes_
Text
pClientToken_ =
StartTextTranslationJob'
{ $sel:jobName:StartTextTranslationJob' :: Maybe Text
jobName = forall a. Maybe a
Prelude.Nothing,
$sel:parallelDataNames:StartTextTranslationJob' :: Maybe [Text]
parallelDataNames = forall a. Maybe a
Prelude.Nothing,
$sel:settings:StartTextTranslationJob' :: Maybe TranslationSettings
settings = forall a. Maybe a
Prelude.Nothing,
$sel:terminologyNames:StartTextTranslationJob' :: Maybe [Text]
terminologyNames = forall a. Maybe a
Prelude.Nothing,
$sel:inputDataConfig:StartTextTranslationJob' :: InputDataConfig
inputDataConfig = InputDataConfig
pInputDataConfig_,
$sel:outputDataConfig:StartTextTranslationJob' :: OutputDataConfig
outputDataConfig = OutputDataConfig
pOutputDataConfig_,
$sel:dataAccessRoleArn:StartTextTranslationJob' :: Text
dataAccessRoleArn = Text
pDataAccessRoleArn_,
$sel:sourceLanguageCode:StartTextTranslationJob' :: Text
sourceLanguageCode = Text
pSourceLanguageCode_,
$sel:targetLanguageCodes:StartTextTranslationJob' :: NonEmpty Text
targetLanguageCodes =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty Text
pTargetLanguageCodes_,
$sel:clientToken:StartTextTranslationJob' :: Text
clientToken = Text
pClientToken_
}
startTextTranslationJob_jobName :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe Prelude.Text)
startTextTranslationJob_jobName :: Lens' StartTextTranslationJob (Maybe Text)
startTextTranslationJob_jobName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Maybe Text
jobName :: Maybe Text
$sel:jobName:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe Text
jobName} -> Maybe Text
jobName) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Maybe Text
a -> StartTextTranslationJob
s {$sel:jobName:StartTextTranslationJob' :: Maybe Text
jobName = Maybe Text
a} :: StartTextTranslationJob)
startTextTranslationJob_parallelDataNames :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe [Prelude.Text])
startTextTranslationJob_parallelDataNames :: Lens' StartTextTranslationJob (Maybe [Text])
startTextTranslationJob_parallelDataNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Maybe [Text]
parallelDataNames :: Maybe [Text]
$sel:parallelDataNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
parallelDataNames} -> Maybe [Text]
parallelDataNames) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Maybe [Text]
a -> StartTextTranslationJob
s {$sel:parallelDataNames:StartTextTranslationJob' :: Maybe [Text]
parallelDataNames = Maybe [Text]
a} :: StartTextTranslationJob) 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
startTextTranslationJob_settings :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe TranslationSettings)
startTextTranslationJob_settings :: Lens' StartTextTranslationJob (Maybe TranslationSettings)
startTextTranslationJob_settings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Maybe TranslationSettings
settings :: Maybe TranslationSettings
$sel:settings:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe TranslationSettings
settings} -> Maybe TranslationSettings
settings) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Maybe TranslationSettings
a -> StartTextTranslationJob
s {$sel:settings:StartTextTranslationJob' :: Maybe TranslationSettings
settings = Maybe TranslationSettings
a} :: StartTextTranslationJob)
startTextTranslationJob_terminologyNames :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe [Prelude.Text])
startTextTranslationJob_terminologyNames :: Lens' StartTextTranslationJob (Maybe [Text])
startTextTranslationJob_terminologyNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Maybe [Text]
terminologyNames :: Maybe [Text]
$sel:terminologyNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
terminologyNames} -> Maybe [Text]
terminologyNames) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Maybe [Text]
a -> StartTextTranslationJob
s {$sel:terminologyNames:StartTextTranslationJob' :: Maybe [Text]
terminologyNames = Maybe [Text]
a} :: StartTextTranslationJob) 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
startTextTranslationJob_inputDataConfig :: Lens.Lens' StartTextTranslationJob InputDataConfig
startTextTranslationJob_inputDataConfig :: Lens' StartTextTranslationJob InputDataConfig
startTextTranslationJob_inputDataConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {InputDataConfig
inputDataConfig :: InputDataConfig
$sel:inputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> InputDataConfig
inputDataConfig} -> InputDataConfig
inputDataConfig) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} InputDataConfig
a -> StartTextTranslationJob
s {$sel:inputDataConfig:StartTextTranslationJob' :: InputDataConfig
inputDataConfig = InputDataConfig
a} :: StartTextTranslationJob)
startTextTranslationJob_outputDataConfig :: Lens.Lens' StartTextTranslationJob OutputDataConfig
startTextTranslationJob_outputDataConfig :: Lens' StartTextTranslationJob OutputDataConfig
startTextTranslationJob_outputDataConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {OutputDataConfig
outputDataConfig :: OutputDataConfig
$sel:outputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> OutputDataConfig
outputDataConfig} -> OutputDataConfig
outputDataConfig) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} OutputDataConfig
a -> StartTextTranslationJob
s {$sel:outputDataConfig:StartTextTranslationJob' :: OutputDataConfig
outputDataConfig = OutputDataConfig
a} :: StartTextTranslationJob)
startTextTranslationJob_dataAccessRoleArn :: Lens.Lens' StartTextTranslationJob Prelude.Text
startTextTranslationJob_dataAccessRoleArn :: Lens' StartTextTranslationJob Text
startTextTranslationJob_dataAccessRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Text
dataAccessRoleArn :: Text
$sel:dataAccessRoleArn:StartTextTranslationJob' :: StartTextTranslationJob -> Text
dataAccessRoleArn} -> Text
dataAccessRoleArn) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Text
a -> StartTextTranslationJob
s {$sel:dataAccessRoleArn:StartTextTranslationJob' :: Text
dataAccessRoleArn = Text
a} :: StartTextTranslationJob)
startTextTranslationJob_sourceLanguageCode :: Lens.Lens' StartTextTranslationJob Prelude.Text
startTextTranslationJob_sourceLanguageCode :: Lens' StartTextTranslationJob Text
startTextTranslationJob_sourceLanguageCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Text
sourceLanguageCode :: Text
$sel:sourceLanguageCode:StartTextTranslationJob' :: StartTextTranslationJob -> Text
sourceLanguageCode} -> Text
sourceLanguageCode) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Text
a -> StartTextTranslationJob
s {$sel:sourceLanguageCode:StartTextTranslationJob' :: Text
sourceLanguageCode = Text
a} :: StartTextTranslationJob)
startTextTranslationJob_targetLanguageCodes :: Lens.Lens' StartTextTranslationJob (Prelude.NonEmpty Prelude.Text)
startTextTranslationJob_targetLanguageCodes :: Lens' StartTextTranslationJob (NonEmpty Text)
startTextTranslationJob_targetLanguageCodes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {NonEmpty Text
targetLanguageCodes :: NonEmpty Text
$sel:targetLanguageCodes:StartTextTranslationJob' :: StartTextTranslationJob -> NonEmpty Text
targetLanguageCodes} -> NonEmpty Text
targetLanguageCodes) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} NonEmpty Text
a -> StartTextTranslationJob
s {$sel:targetLanguageCodes:StartTextTranslationJob' :: NonEmpty Text
targetLanguageCodes = NonEmpty Text
a} :: StartTextTranslationJob) 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
startTextTranslationJob_clientToken :: Lens.Lens' StartTextTranslationJob Prelude.Text
startTextTranslationJob_clientToken :: Lens' StartTextTranslationJob Text
startTextTranslationJob_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJob' {Text
clientToken :: Text
$sel:clientToken:StartTextTranslationJob' :: StartTextTranslationJob -> Text
clientToken} -> Text
clientToken) (\s :: StartTextTranslationJob
s@StartTextTranslationJob' {} Text
a -> StartTextTranslationJob
s {$sel:clientToken:StartTextTranslationJob' :: Text
clientToken = Text
a} :: StartTextTranslationJob)
instance Core.AWSRequest StartTextTranslationJob where
type
AWSResponse StartTextTranslationJob =
StartTextTranslationJobResponse
request :: (Service -> Service)
-> StartTextTranslationJob -> Request StartTextTranslationJob
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 StartTextTranslationJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse StartTextTranslationJob)))
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 JobStatus -> Int -> StartTextTranslationJobResponse
StartTextTranslationJobResponse'
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
"JobId")
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
"JobStatus")
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 StartTextTranslationJob where
hashWithSalt :: Int -> StartTextTranslationJob -> Int
hashWithSalt Int
_salt StartTextTranslationJob' {Maybe [Text]
Maybe Text
Maybe TranslationSettings
NonEmpty Text
Text
InputDataConfig
OutputDataConfig
clientToken :: Text
targetLanguageCodes :: NonEmpty Text
sourceLanguageCode :: Text
dataAccessRoleArn :: Text
outputDataConfig :: OutputDataConfig
inputDataConfig :: InputDataConfig
terminologyNames :: Maybe [Text]
settings :: Maybe TranslationSettings
parallelDataNames :: Maybe [Text]
jobName :: Maybe Text
$sel:clientToken:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:targetLanguageCodes:StartTextTranslationJob' :: StartTextTranslationJob -> NonEmpty Text
$sel:sourceLanguageCode:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:dataAccessRoleArn:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:outputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> OutputDataConfig
$sel:inputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> InputDataConfig
$sel:terminologyNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
$sel:settings:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe TranslationSettings
$sel:parallelDataNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
$sel:jobName:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
jobName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
parallelDataNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TranslationSettings
settings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
terminologyNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InputDataConfig
inputDataConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` OutputDataConfig
outputDataConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dataAccessRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceLanguageCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty Text
targetLanguageCodes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clientToken
instance Prelude.NFData StartTextTranslationJob where
rnf :: StartTextTranslationJob -> ()
rnf StartTextTranslationJob' {Maybe [Text]
Maybe Text
Maybe TranslationSettings
NonEmpty Text
Text
InputDataConfig
OutputDataConfig
clientToken :: Text
targetLanguageCodes :: NonEmpty Text
sourceLanguageCode :: Text
dataAccessRoleArn :: Text
outputDataConfig :: OutputDataConfig
inputDataConfig :: InputDataConfig
terminologyNames :: Maybe [Text]
settings :: Maybe TranslationSettings
parallelDataNames :: Maybe [Text]
jobName :: Maybe Text
$sel:clientToken:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:targetLanguageCodes:StartTextTranslationJob' :: StartTextTranslationJob -> NonEmpty Text
$sel:sourceLanguageCode:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:dataAccessRoleArn:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:outputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> OutputDataConfig
$sel:inputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> InputDataConfig
$sel:terminologyNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
$sel:settings:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe TranslationSettings
$sel:parallelDataNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
$sel:jobName:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
parallelDataNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TranslationSettings
settings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
terminologyNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InputDataConfig
inputDataConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf OutputDataConfig
outputDataConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dataAccessRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceLanguageCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty Text
targetLanguageCodes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
clientToken
instance Data.ToHeaders StartTextTranslationJob where
toHeaders :: StartTextTranslationJob -> 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
"AWSShineFrontendService_20170701.StartTextTranslationJob" ::
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 StartTextTranslationJob where
toJSON :: StartTextTranslationJob -> Value
toJSON StartTextTranslationJob' {Maybe [Text]
Maybe Text
Maybe TranslationSettings
NonEmpty Text
Text
InputDataConfig
OutputDataConfig
clientToken :: Text
targetLanguageCodes :: NonEmpty Text
sourceLanguageCode :: Text
dataAccessRoleArn :: Text
outputDataConfig :: OutputDataConfig
inputDataConfig :: InputDataConfig
terminologyNames :: Maybe [Text]
settings :: Maybe TranslationSettings
parallelDataNames :: Maybe [Text]
jobName :: Maybe Text
$sel:clientToken:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:targetLanguageCodes:StartTextTranslationJob' :: StartTextTranslationJob -> NonEmpty Text
$sel:sourceLanguageCode:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:dataAccessRoleArn:StartTextTranslationJob' :: StartTextTranslationJob -> Text
$sel:outputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> OutputDataConfig
$sel:inputDataConfig:StartTextTranslationJob' :: StartTextTranslationJob -> InputDataConfig
$sel:terminologyNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
$sel:settings:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe TranslationSettings
$sel:parallelDataNames:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe [Text]
$sel:jobName:StartTextTranslationJob' :: StartTextTranslationJob -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"JobName" 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
jobName,
(Key
"ParallelDataNames" 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]
parallelDataNames,
(Key
"Settings" 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 TranslationSettings
settings,
(Key
"TerminologyNames" 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]
terminologyNames,
forall a. a -> Maybe a
Prelude.Just
(Key
"InputDataConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InputDataConfig
inputDataConfig),
forall a. a -> Maybe a
Prelude.Just
(Key
"OutputDataConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= OutputDataConfig
outputDataConfig),
forall a. a -> Maybe a
Prelude.Just
(Key
"DataAccessRoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
dataAccessRoleArn),
forall a. a -> Maybe a
Prelude.Just
(Key
"SourceLanguageCode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceLanguageCode),
forall a. a -> Maybe a
Prelude.Just
(Key
"TargetLanguageCodes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty Text
targetLanguageCodes),
forall a. a -> Maybe a
Prelude.Just (Key
"ClientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
clientToken)
]
)
instance Data.ToPath StartTextTranslationJob where
toPath :: StartTextTranslationJob -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StartTextTranslationJob where
toQuery :: StartTextTranslationJob -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartTextTranslationJobResponse = StartTextTranslationJobResponse'
{
StartTextTranslationJobResponse -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
StartTextTranslationJobResponse -> Maybe JobStatus
jobStatus :: Prelude.Maybe JobStatus,
StartTextTranslationJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartTextTranslationJobResponse
-> StartTextTranslationJobResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartTextTranslationJobResponse
-> StartTextTranslationJobResponse -> Bool
$c/= :: StartTextTranslationJobResponse
-> StartTextTranslationJobResponse -> Bool
== :: StartTextTranslationJobResponse
-> StartTextTranslationJobResponse -> Bool
$c== :: StartTextTranslationJobResponse
-> StartTextTranslationJobResponse -> Bool
Prelude.Eq, ReadPrec [StartTextTranslationJobResponse]
ReadPrec StartTextTranslationJobResponse
Int -> ReadS StartTextTranslationJobResponse
ReadS [StartTextTranslationJobResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartTextTranslationJobResponse]
$creadListPrec :: ReadPrec [StartTextTranslationJobResponse]
readPrec :: ReadPrec StartTextTranslationJobResponse
$creadPrec :: ReadPrec StartTextTranslationJobResponse
readList :: ReadS [StartTextTranslationJobResponse]
$creadList :: ReadS [StartTextTranslationJobResponse]
readsPrec :: Int -> ReadS StartTextTranslationJobResponse
$creadsPrec :: Int -> ReadS StartTextTranslationJobResponse
Prelude.Read, Int -> StartTextTranslationJobResponse -> ShowS
[StartTextTranslationJobResponse] -> ShowS
StartTextTranslationJobResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartTextTranslationJobResponse] -> ShowS
$cshowList :: [StartTextTranslationJobResponse] -> ShowS
show :: StartTextTranslationJobResponse -> String
$cshow :: StartTextTranslationJobResponse -> String
showsPrec :: Int -> StartTextTranslationJobResponse -> ShowS
$cshowsPrec :: Int -> StartTextTranslationJobResponse -> ShowS
Prelude.Show, forall x.
Rep StartTextTranslationJobResponse x
-> StartTextTranslationJobResponse
forall x.
StartTextTranslationJobResponse
-> Rep StartTextTranslationJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartTextTranslationJobResponse x
-> StartTextTranslationJobResponse
$cfrom :: forall x.
StartTextTranslationJobResponse
-> Rep StartTextTranslationJobResponse x
Prelude.Generic)
newStartTextTranslationJobResponse ::
Prelude.Int ->
StartTextTranslationJobResponse
newStartTextTranslationJobResponse :: Int -> StartTextTranslationJobResponse
newStartTextTranslationJobResponse Int
pHttpStatus_ =
StartTextTranslationJobResponse'
{ $sel:jobId:StartTextTranslationJobResponse' :: Maybe Text
jobId =
forall a. Maybe a
Prelude.Nothing,
$sel:jobStatus:StartTextTranslationJobResponse' :: Maybe JobStatus
jobStatus = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartTextTranslationJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startTextTranslationJobResponse_jobId :: Lens.Lens' StartTextTranslationJobResponse (Prelude.Maybe Prelude.Text)
startTextTranslationJobResponse_jobId :: Lens' StartTextTranslationJobResponse (Maybe Text)
startTextTranslationJobResponse_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJobResponse' {Maybe Text
jobId :: Maybe Text
$sel:jobId:StartTextTranslationJobResponse' :: StartTextTranslationJobResponse -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: StartTextTranslationJobResponse
s@StartTextTranslationJobResponse' {} Maybe Text
a -> StartTextTranslationJobResponse
s {$sel:jobId:StartTextTranslationJobResponse' :: Maybe Text
jobId = Maybe Text
a} :: StartTextTranslationJobResponse)
startTextTranslationJobResponse_jobStatus :: Lens.Lens' StartTextTranslationJobResponse (Prelude.Maybe JobStatus)
startTextTranslationJobResponse_jobStatus :: Lens' StartTextTranslationJobResponse (Maybe JobStatus)
startTextTranslationJobResponse_jobStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJobResponse' {Maybe JobStatus
jobStatus :: Maybe JobStatus
$sel:jobStatus:StartTextTranslationJobResponse' :: StartTextTranslationJobResponse -> Maybe JobStatus
jobStatus} -> Maybe JobStatus
jobStatus) (\s :: StartTextTranslationJobResponse
s@StartTextTranslationJobResponse' {} Maybe JobStatus
a -> StartTextTranslationJobResponse
s {$sel:jobStatus:StartTextTranslationJobResponse' :: Maybe JobStatus
jobStatus = Maybe JobStatus
a} :: StartTextTranslationJobResponse)
startTextTranslationJobResponse_httpStatus :: Lens.Lens' StartTextTranslationJobResponse Prelude.Int
startTextTranslationJobResponse_httpStatus :: Lens' StartTextTranslationJobResponse Int
startTextTranslationJobResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartTextTranslationJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartTextTranslationJobResponse' :: StartTextTranslationJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartTextTranslationJobResponse
s@StartTextTranslationJobResponse' {} Int
a -> StartTextTranslationJobResponse
s {$sel:httpStatus:StartTextTranslationJobResponse' :: Int
httpStatus = Int
a} :: StartTextTranslationJobResponse)
instance
Prelude.NFData
StartTextTranslationJobResponse
where
rnf :: StartTextTranslationJobResponse -> ()
rnf StartTextTranslationJobResponse' {Int
Maybe Text
Maybe JobStatus
httpStatus :: Int
jobStatus :: Maybe JobStatus
jobId :: Maybe Text
$sel:httpStatus:StartTextTranslationJobResponse' :: StartTextTranslationJobResponse -> Int
$sel:jobStatus:StartTextTranslationJobResponse' :: StartTextTranslationJobResponse -> Maybe JobStatus
$sel:jobId:StartTextTranslationJobResponse' :: StartTextTranslationJobResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe JobStatus
jobStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus