{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.ComprehendMedical.Types.ComprehendMedicalAsyncJobProperties where
import Amazonka.ComprehendMedical.Types.InputDataConfig
import Amazonka.ComprehendMedical.Types.JobStatus
import Amazonka.ComprehendMedical.Types.LanguageCode
import Amazonka.ComprehendMedical.Types.OutputDataConfig
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
data ComprehendMedicalAsyncJobProperties = ComprehendMedicalAsyncJobProperties'
{
ComprehendMedicalAsyncJobProperties -> Maybe LanguageCode
languageCode :: Prelude.Maybe LanguageCode,
ComprehendMedicalAsyncJobProperties -> Maybe Text
kmsKey :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
jobName :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
manifestFilePath :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe InputDataConfig
inputDataConfig :: Prelude.Maybe InputDataConfig,
ComprehendMedicalAsyncJobProperties -> Maybe POSIX
endTime :: Prelude.Maybe Core.POSIX,
ComprehendMedicalAsyncJobProperties -> Maybe OutputDataConfig
outputDataConfig :: Prelude.Maybe OutputDataConfig,
ComprehendMedicalAsyncJobProperties -> Maybe Text
modelVersion :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
dataAccessRoleArn :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe JobStatus
jobStatus :: Prelude.Maybe JobStatus,
ComprehendMedicalAsyncJobProperties -> Maybe Text
message :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe POSIX
expirationTime :: Prelude.Maybe Core.POSIX,
ComprehendMedicalAsyncJobProperties -> Maybe POSIX
submitTime :: Prelude.Maybe Core.POSIX
}
deriving (ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool
(ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool)
-> (ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool)
-> Eq ComprehendMedicalAsyncJobProperties
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool
$c/= :: ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool
== :: ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool
$c== :: ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool
Prelude.Eq, ReadPrec [ComprehendMedicalAsyncJobProperties]
ReadPrec ComprehendMedicalAsyncJobProperties
Int -> ReadS ComprehendMedicalAsyncJobProperties
ReadS [ComprehendMedicalAsyncJobProperties]
(Int -> ReadS ComprehendMedicalAsyncJobProperties)
-> ReadS [ComprehendMedicalAsyncJobProperties]
-> ReadPrec ComprehendMedicalAsyncJobProperties
-> ReadPrec [ComprehendMedicalAsyncJobProperties]
-> Read ComprehendMedicalAsyncJobProperties
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ComprehendMedicalAsyncJobProperties]
$creadListPrec :: ReadPrec [ComprehendMedicalAsyncJobProperties]
readPrec :: ReadPrec ComprehendMedicalAsyncJobProperties
$creadPrec :: ReadPrec ComprehendMedicalAsyncJobProperties
readList :: ReadS [ComprehendMedicalAsyncJobProperties]
$creadList :: ReadS [ComprehendMedicalAsyncJobProperties]
readsPrec :: Int -> ReadS ComprehendMedicalAsyncJobProperties
$creadsPrec :: Int -> ReadS ComprehendMedicalAsyncJobProperties
Prelude.Read, Int -> ComprehendMedicalAsyncJobProperties -> ShowS
[ComprehendMedicalAsyncJobProperties] -> ShowS
ComprehendMedicalAsyncJobProperties -> String
(Int -> ComprehendMedicalAsyncJobProperties -> ShowS)
-> (ComprehendMedicalAsyncJobProperties -> String)
-> ([ComprehendMedicalAsyncJobProperties] -> ShowS)
-> Show ComprehendMedicalAsyncJobProperties
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ComprehendMedicalAsyncJobProperties] -> ShowS
$cshowList :: [ComprehendMedicalAsyncJobProperties] -> ShowS
show :: ComprehendMedicalAsyncJobProperties -> String
$cshow :: ComprehendMedicalAsyncJobProperties -> String
showsPrec :: Int -> ComprehendMedicalAsyncJobProperties -> ShowS
$cshowsPrec :: Int -> ComprehendMedicalAsyncJobProperties -> ShowS
Prelude.Show, (forall x.
ComprehendMedicalAsyncJobProperties
-> Rep ComprehendMedicalAsyncJobProperties x)
-> (forall x.
Rep ComprehendMedicalAsyncJobProperties x
-> ComprehendMedicalAsyncJobProperties)
-> Generic ComprehendMedicalAsyncJobProperties
forall x.
Rep ComprehendMedicalAsyncJobProperties x
-> ComprehendMedicalAsyncJobProperties
forall x.
ComprehendMedicalAsyncJobProperties
-> Rep ComprehendMedicalAsyncJobProperties x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ComprehendMedicalAsyncJobProperties x
-> ComprehendMedicalAsyncJobProperties
$cfrom :: forall x.
ComprehendMedicalAsyncJobProperties
-> Rep ComprehendMedicalAsyncJobProperties x
Prelude.Generic)
newComprehendMedicalAsyncJobProperties ::
ComprehendMedicalAsyncJobProperties
newComprehendMedicalAsyncJobProperties :: ComprehendMedicalAsyncJobProperties
newComprehendMedicalAsyncJobProperties =
ComprehendMedicalAsyncJobProperties' :: Maybe LanguageCode
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties'
{ $sel:languageCode:ComprehendMedicalAsyncJobProperties' :: Maybe LanguageCode
languageCode =
Maybe LanguageCode
forall a. Maybe a
Prelude.Nothing,
$sel:kmsKey:ComprehendMedicalAsyncJobProperties' :: Maybe Text
kmsKey = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:jobId:ComprehendMedicalAsyncJobProperties' :: Maybe Text
jobId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:jobName:ComprehendMedicalAsyncJobProperties' :: Maybe Text
jobName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:manifestFilePath:ComprehendMedicalAsyncJobProperties' :: Maybe Text
manifestFilePath = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:inputDataConfig:ComprehendMedicalAsyncJobProperties' :: Maybe InputDataConfig
inputDataConfig = Maybe InputDataConfig
forall a. Maybe a
Prelude.Nothing,
$sel:endTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
endTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:outputDataConfig:ComprehendMedicalAsyncJobProperties' :: Maybe OutputDataConfig
outputDataConfig = Maybe OutputDataConfig
forall a. Maybe a
Prelude.Nothing,
$sel:modelVersion:ComprehendMedicalAsyncJobProperties' :: Maybe Text
modelVersion = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:dataAccessRoleArn:ComprehendMedicalAsyncJobProperties' :: Maybe Text
dataAccessRoleArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:jobStatus:ComprehendMedicalAsyncJobProperties' :: Maybe JobStatus
jobStatus = Maybe JobStatus
forall a. Maybe a
Prelude.Nothing,
$sel:message:ComprehendMedicalAsyncJobProperties' :: Maybe Text
message = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:expirationTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
expirationTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:submitTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
submitTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing
}
comprehendMedicalAsyncJobProperties_languageCode :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe LanguageCode)
comprehendMedicalAsyncJobProperties_languageCode :: (Maybe LanguageCode -> f (Maybe LanguageCode))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_languageCode = (ComprehendMedicalAsyncJobProperties -> Maybe LanguageCode)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe LanguageCode -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe LanguageCode)
(Maybe LanguageCode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe LanguageCode
languageCode :: Maybe LanguageCode
$sel:languageCode:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe LanguageCode
languageCode} -> Maybe LanguageCode
languageCode) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe LanguageCode
a -> ComprehendMedicalAsyncJobProperties
s {$sel:languageCode:ComprehendMedicalAsyncJobProperties' :: Maybe LanguageCode
languageCode = Maybe LanguageCode
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_kmsKey :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_kmsKey :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_kmsKey = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
kmsKey :: Maybe Text
$sel:kmsKey:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
kmsKey} -> Maybe Text
kmsKey) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:kmsKey:ComprehendMedicalAsyncJobProperties' :: Maybe Text
kmsKey = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_jobId :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_jobId :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_jobId = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
jobId :: Maybe Text
$sel:jobId:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:jobId:ComprehendMedicalAsyncJobProperties' :: Maybe Text
jobId = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_jobName :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_jobName :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_jobName = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
jobName :: Maybe Text
$sel:jobName:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
jobName} -> Maybe Text
jobName) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:jobName:ComprehendMedicalAsyncJobProperties' :: Maybe Text
jobName = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_manifestFilePath :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_manifestFilePath :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_manifestFilePath = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
manifestFilePath :: Maybe Text
$sel:manifestFilePath:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
manifestFilePath} -> Maybe Text
manifestFilePath) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:manifestFilePath:ComprehendMedicalAsyncJobProperties' :: Maybe Text
manifestFilePath = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_inputDataConfig :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe InputDataConfig)
comprehendMedicalAsyncJobProperties_inputDataConfig :: (Maybe InputDataConfig -> f (Maybe InputDataConfig))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_inputDataConfig = (ComprehendMedicalAsyncJobProperties -> Maybe InputDataConfig)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe InputDataConfig -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe InputDataConfig)
(Maybe InputDataConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe InputDataConfig
inputDataConfig :: Maybe InputDataConfig
$sel:inputDataConfig:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe InputDataConfig
inputDataConfig} -> Maybe InputDataConfig
inputDataConfig) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe InputDataConfig
a -> ComprehendMedicalAsyncJobProperties
s {$sel:inputDataConfig:ComprehendMedicalAsyncJobProperties' :: Maybe InputDataConfig
inputDataConfig = Maybe InputDataConfig
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_endTime :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.UTCTime)
comprehendMedicalAsyncJobProperties_endTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_endTime = (ComprehendMedicalAsyncJobProperties -> Maybe POSIX)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe POSIX)
(Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe POSIX
endTime :: Maybe POSIX
$sel:endTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
endTime} -> Maybe POSIX
endTime) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe POSIX
a -> ComprehendMedicalAsyncJobProperties
s {$sel:endTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
endTime = Maybe POSIX
a} :: ComprehendMedicalAsyncJobProperties) ((Maybe POSIX -> f (Maybe POSIX))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
comprehendMedicalAsyncJobProperties_outputDataConfig :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe OutputDataConfig)
comprehendMedicalAsyncJobProperties_outputDataConfig :: (Maybe OutputDataConfig -> f (Maybe OutputDataConfig))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_outputDataConfig = (ComprehendMedicalAsyncJobProperties -> Maybe OutputDataConfig)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe OutputDataConfig -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe OutputDataConfig)
(Maybe OutputDataConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe OutputDataConfig
outputDataConfig :: Maybe OutputDataConfig
$sel:outputDataConfig:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe OutputDataConfig
outputDataConfig} -> Maybe OutputDataConfig
outputDataConfig) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe OutputDataConfig
a -> ComprehendMedicalAsyncJobProperties
s {$sel:outputDataConfig:ComprehendMedicalAsyncJobProperties' :: Maybe OutputDataConfig
outputDataConfig = Maybe OutputDataConfig
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_modelVersion :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_modelVersion :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_modelVersion = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
modelVersion :: Maybe Text
$sel:modelVersion:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
modelVersion} -> Maybe Text
modelVersion) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:modelVersion:ComprehendMedicalAsyncJobProperties' :: Maybe Text
modelVersion = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_dataAccessRoleArn :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_dataAccessRoleArn :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_dataAccessRoleArn = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
dataAccessRoleArn :: Maybe Text
$sel:dataAccessRoleArn:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
dataAccessRoleArn} -> Maybe Text
dataAccessRoleArn) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:dataAccessRoleArn:ComprehendMedicalAsyncJobProperties' :: Maybe Text
dataAccessRoleArn = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_jobStatus :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe JobStatus)
comprehendMedicalAsyncJobProperties_jobStatus :: (Maybe JobStatus -> f (Maybe JobStatus))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_jobStatus = (ComprehendMedicalAsyncJobProperties -> Maybe JobStatus)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe JobStatus -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe JobStatus)
(Maybe JobStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe JobStatus
jobStatus :: Maybe JobStatus
$sel:jobStatus:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe JobStatus
jobStatus} -> Maybe JobStatus
jobStatus) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe JobStatus
a -> ComprehendMedicalAsyncJobProperties
s {$sel:jobStatus:ComprehendMedicalAsyncJobProperties' :: Maybe JobStatus
jobStatus = Maybe JobStatus
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_message :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_message :: (Maybe Text -> f (Maybe Text))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_message = (ComprehendMedicalAsyncJobProperties -> Maybe Text)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe Text -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe Text
message :: Maybe Text
$sel:message:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
message} -> Maybe Text
message) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe Text
a -> ComprehendMedicalAsyncJobProperties
s {$sel:message:ComprehendMedicalAsyncJobProperties' :: Maybe Text
message = Maybe Text
a} :: ComprehendMedicalAsyncJobProperties)
comprehendMedicalAsyncJobProperties_expirationTime :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.UTCTime)
comprehendMedicalAsyncJobProperties_expirationTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_expirationTime = (ComprehendMedicalAsyncJobProperties -> Maybe POSIX)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe POSIX)
(Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe POSIX
expirationTime :: Maybe POSIX
$sel:expirationTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
expirationTime} -> Maybe POSIX
expirationTime) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe POSIX
a -> ComprehendMedicalAsyncJobProperties
s {$sel:expirationTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
expirationTime = Maybe POSIX
a} :: ComprehendMedicalAsyncJobProperties) ((Maybe POSIX -> f (Maybe POSIX))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
comprehendMedicalAsyncJobProperties_submitTime :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.UTCTime)
comprehendMedicalAsyncJobProperties_submitTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties_submitTime = (ComprehendMedicalAsyncJobProperties -> Maybe POSIX)
-> (ComprehendMedicalAsyncJobProperties
-> Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
-> Lens
ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties
(Maybe POSIX)
(Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ComprehendMedicalAsyncJobProperties' {Maybe POSIX
submitTime :: Maybe POSIX
$sel:submitTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
submitTime} -> Maybe POSIX
submitTime) (\s :: ComprehendMedicalAsyncJobProperties
s@ComprehendMedicalAsyncJobProperties' {} Maybe POSIX
a -> ComprehendMedicalAsyncJobProperties
s {$sel:submitTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
submitTime = Maybe POSIX
a} :: ComprehendMedicalAsyncJobProperties) ((Maybe POSIX -> f (Maybe POSIX))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> ComprehendMedicalAsyncJobProperties
-> f ComprehendMedicalAsyncJobProperties
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
instance
Core.FromJSON
ComprehendMedicalAsyncJobProperties
where
parseJSON :: Value -> Parser ComprehendMedicalAsyncJobProperties
parseJSON =
String
-> (Object -> Parser ComprehendMedicalAsyncJobProperties)
-> Value
-> Parser ComprehendMedicalAsyncJobProperties
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
String
"ComprehendMedicalAsyncJobProperties"
( \Object
x ->
Maybe LanguageCode
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties'
(Maybe LanguageCode
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe LanguageCode)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe LanguageCode)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"LanguageCode")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"KMSKey")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"JobId")
Parser
(Maybe Text
-> Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"JobName")
Parser
(Maybe Text
-> Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"ManifestFilePath")
Parser
(Maybe InputDataConfig
-> Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe InputDataConfig)
-> Parser
(Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDataConfig)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"InputDataConfig")
Parser
(Maybe POSIX
-> Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe POSIX)
-> Parser
(Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"EndTime")
Parser
(Maybe OutputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe OutputDataConfig)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe OutputDataConfig)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"OutputDataConfig")
Parser
(Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"ModelVersion")
Parser
(Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"DataAccessRoleArn")
Parser
(Maybe JobStatus
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe JobStatus)
-> Parser
(Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe JobStatus)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"JobStatus")
Parser
(Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe Text)
-> Parser
(Maybe POSIX -> Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"Message")
Parser
(Maybe POSIX -> Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe POSIX)
-> Parser (Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"ExpirationTime")
Parser (Maybe POSIX -> ComprehendMedicalAsyncJobProperties)
-> Parser (Maybe POSIX)
-> Parser ComprehendMedicalAsyncJobProperties
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"SubmitTime")
)
instance
Prelude.Hashable
ComprehendMedicalAsyncJobProperties
instance
Prelude.NFData
ComprehendMedicalAsyncJobProperties