{-# 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.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
data ComprehendMedicalAsyncJobProperties = ComprehendMedicalAsyncJobProperties'
{
ComprehendMedicalAsyncJobProperties -> Maybe Text
dataAccessRoleArn :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe POSIX
endTime :: Prelude.Maybe Data.POSIX,
ComprehendMedicalAsyncJobProperties -> Maybe POSIX
expirationTime :: Prelude.Maybe Data.POSIX,
ComprehendMedicalAsyncJobProperties -> Maybe InputDataConfig
inputDataConfig :: Prelude.Maybe InputDataConfig,
ComprehendMedicalAsyncJobProperties -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
jobName :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe JobStatus
jobStatus :: Prelude.Maybe JobStatus,
ComprehendMedicalAsyncJobProperties -> Maybe Text
kmsKey :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe LanguageCode
languageCode :: Prelude.Maybe LanguageCode,
ComprehendMedicalAsyncJobProperties -> Maybe Text
manifestFilePath :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
message :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe Text
modelVersion :: Prelude.Maybe Prelude.Text,
ComprehendMedicalAsyncJobProperties -> Maybe OutputDataConfig
outputDataConfig :: Prelude.Maybe OutputDataConfig,
ComprehendMedicalAsyncJobProperties -> Maybe POSIX
submitTime :: Prelude.Maybe Data.POSIX
}
deriving (ComprehendMedicalAsyncJobProperties
-> ComprehendMedicalAsyncJobProperties -> Bool
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]
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
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.
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'
{ $sel:dataAccessRoleArn:ComprehendMedicalAsyncJobProperties' :: Maybe Text
dataAccessRoleArn =
forall a. Maybe a
Prelude.Nothing,
$sel:endTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
endTime = forall a. Maybe a
Prelude.Nothing,
$sel:expirationTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
expirationTime = forall a. Maybe a
Prelude.Nothing,
$sel:inputDataConfig:ComprehendMedicalAsyncJobProperties' :: Maybe InputDataConfig
inputDataConfig = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:ComprehendMedicalAsyncJobProperties' :: Maybe Text
jobId = forall a. Maybe a
Prelude.Nothing,
$sel:jobName:ComprehendMedicalAsyncJobProperties' :: Maybe Text
jobName = forall a. Maybe a
Prelude.Nothing,
$sel:jobStatus:ComprehendMedicalAsyncJobProperties' :: Maybe JobStatus
jobStatus = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKey:ComprehendMedicalAsyncJobProperties' :: Maybe Text
kmsKey = forall a. Maybe a
Prelude.Nothing,
$sel:languageCode:ComprehendMedicalAsyncJobProperties' :: Maybe LanguageCode
languageCode = forall a. Maybe a
Prelude.Nothing,
$sel:manifestFilePath:ComprehendMedicalAsyncJobProperties' :: Maybe Text
manifestFilePath = forall a. Maybe a
Prelude.Nothing,
$sel:message:ComprehendMedicalAsyncJobProperties' :: Maybe Text
message = forall a. Maybe a
Prelude.Nothing,
$sel:modelVersion:ComprehendMedicalAsyncJobProperties' :: Maybe Text
modelVersion = forall a. Maybe a
Prelude.Nothing,
$sel:outputDataConfig:ComprehendMedicalAsyncJobProperties' :: Maybe OutputDataConfig
outputDataConfig = forall a. Maybe a
Prelude.Nothing,
$sel:submitTime:ComprehendMedicalAsyncJobProperties' :: Maybe POSIX
submitTime = forall a. Maybe a
Prelude.Nothing
}
comprehendMedicalAsyncJobProperties_dataAccessRoleArn :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_dataAccessRoleArn :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_dataAccessRoleArn = 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_endTime :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.UTCTime)
comprehendMedicalAsyncJobProperties_endTime :: Lens' ComprehendMedicalAsyncJobProperties (Maybe UTCTime)
comprehendMedicalAsyncJobProperties_endTime = 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) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
comprehendMedicalAsyncJobProperties_expirationTime :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.UTCTime)
comprehendMedicalAsyncJobProperties_expirationTime :: Lens' ComprehendMedicalAsyncJobProperties (Maybe UTCTime)
comprehendMedicalAsyncJobProperties_expirationTime = 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) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
comprehendMedicalAsyncJobProperties_inputDataConfig :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe InputDataConfig)
comprehendMedicalAsyncJobProperties_inputDataConfig :: Lens' ComprehendMedicalAsyncJobProperties (Maybe InputDataConfig)
comprehendMedicalAsyncJobProperties_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_jobId :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_jobId :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_jobId = 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 :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_jobName = 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_jobStatus :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe JobStatus)
comprehendMedicalAsyncJobProperties_jobStatus :: Lens' ComprehendMedicalAsyncJobProperties (Maybe JobStatus)
comprehendMedicalAsyncJobProperties_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_kmsKey :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_kmsKey :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_kmsKey = 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_languageCode :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe LanguageCode)
comprehendMedicalAsyncJobProperties_languageCode :: Lens' ComprehendMedicalAsyncJobProperties (Maybe LanguageCode)
comprehendMedicalAsyncJobProperties_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_manifestFilePath :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_manifestFilePath :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_manifestFilePath = 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_message :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_message :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_message = 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_modelVersion :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.Text)
comprehendMedicalAsyncJobProperties_modelVersion :: Lens' ComprehendMedicalAsyncJobProperties (Maybe Text)
comprehendMedicalAsyncJobProperties_modelVersion = 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_outputDataConfig :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe OutputDataConfig)
comprehendMedicalAsyncJobProperties_outputDataConfig :: Lens' ComprehendMedicalAsyncJobProperties (Maybe OutputDataConfig)
comprehendMedicalAsyncJobProperties_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_submitTime :: Lens.Lens' ComprehendMedicalAsyncJobProperties (Prelude.Maybe Prelude.UTCTime)
comprehendMedicalAsyncJobProperties_submitTime :: Lens' ComprehendMedicalAsyncJobProperties (Maybe UTCTime)
comprehendMedicalAsyncJobProperties_submitTime = 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) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
instance
Data.FromJSON
ComprehendMedicalAsyncJobProperties
where
parseJSON :: Value -> Parser ComprehendMedicalAsyncJobProperties
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"ComprehendMedicalAsyncJobProperties"
( \Object
x ->
Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> Maybe InputDataConfig
-> Maybe Text
-> Maybe Text
-> Maybe JobStatus
-> Maybe Text
-> Maybe LanguageCode
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe OutputDataConfig
-> Maybe POSIX
-> ComprehendMedicalAsyncJobProperties
ComprehendMedicalAsyncJobProperties'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"DataAccessRoleArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"EndTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ExpirationTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"InputDataConfig")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (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 -> Parser (Maybe a)
Data..:? Key
"JobName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"JobStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"KMSKey")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"LanguageCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ManifestFilePath")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Message")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ModelVersion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"OutputDataConfig")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"SubmitTime")
)
instance
Prelude.Hashable
ComprehendMedicalAsyncJobProperties
where
hashWithSalt :: Int -> ComprehendMedicalAsyncJobProperties -> Int
hashWithSalt
Int
_salt
ComprehendMedicalAsyncJobProperties' {Maybe Text
Maybe POSIX
Maybe InputDataConfig
Maybe JobStatus
Maybe LanguageCode
Maybe OutputDataConfig
submitTime :: Maybe POSIX
outputDataConfig :: Maybe OutputDataConfig
modelVersion :: Maybe Text
message :: Maybe Text
manifestFilePath :: Maybe Text
languageCode :: Maybe LanguageCode
kmsKey :: Maybe Text
jobStatus :: Maybe JobStatus
jobName :: Maybe Text
jobId :: Maybe Text
inputDataConfig :: Maybe InputDataConfig
expirationTime :: Maybe POSIX
endTime :: Maybe POSIX
dataAccessRoleArn :: Maybe Text
$sel:submitTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
$sel:outputDataConfig:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe OutputDataConfig
$sel:modelVersion:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:message:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:manifestFilePath:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:languageCode:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe LanguageCode
$sel:kmsKey:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:jobStatus:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe JobStatus
$sel:jobName:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:jobId:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:inputDataConfig:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe InputDataConfig
$sel:expirationTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
$sel:endTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
$sel:dataAccessRoleArn:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dataAccessRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
endTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
expirationTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputDataConfig
inputDataConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
jobId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
jobName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe JobStatus
jobStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKey
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LanguageCode
languageCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
manifestFilePath
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
message
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
modelVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OutputDataConfig
outputDataConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
submitTime
instance
Prelude.NFData
ComprehendMedicalAsyncJobProperties
where
rnf :: ComprehendMedicalAsyncJobProperties -> ()
rnf ComprehendMedicalAsyncJobProperties' {Maybe Text
Maybe POSIX
Maybe InputDataConfig
Maybe JobStatus
Maybe LanguageCode
Maybe OutputDataConfig
submitTime :: Maybe POSIX
outputDataConfig :: Maybe OutputDataConfig
modelVersion :: Maybe Text
message :: Maybe Text
manifestFilePath :: Maybe Text
languageCode :: Maybe LanguageCode
kmsKey :: Maybe Text
jobStatus :: Maybe JobStatus
jobName :: Maybe Text
jobId :: Maybe Text
inputDataConfig :: Maybe InputDataConfig
expirationTime :: Maybe POSIX
endTime :: Maybe POSIX
dataAccessRoleArn :: Maybe Text
$sel:submitTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
$sel:outputDataConfig:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe OutputDataConfig
$sel:modelVersion:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:message:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:manifestFilePath:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:languageCode:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe LanguageCode
$sel:kmsKey:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:jobStatus:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe JobStatus
$sel:jobName:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:jobId:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
$sel:inputDataConfig:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe InputDataConfig
$sel:expirationTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
$sel:endTime:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe POSIX
$sel:dataAccessRoleArn:ComprehendMedicalAsyncJobProperties' :: ComprehendMedicalAsyncJobProperties -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dataAccessRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
endTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
expirationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InputDataConfig
inputDataConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Text
jobName
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 Maybe Text
kmsKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LanguageCode
languageCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
manifestFilePath
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
message
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
modelVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OutputDataConfig
outputDataConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
submitTime