{-# 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.ComprehendMedical.DescribeICD10CMInferenceJob
(
DescribeICD10CMInferenceJob (..),
newDescribeICD10CMInferenceJob,
describeICD10CMInferenceJob_jobId,
DescribeICD10CMInferenceJobResponse (..),
newDescribeICD10CMInferenceJobResponse,
describeICD10CMInferenceJobResponse_comprehendMedicalAsyncJobProperties,
describeICD10CMInferenceJobResponse_httpStatus,
)
where
import Amazonka.ComprehendMedical.Types
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
data DescribeICD10CMInferenceJob = DescribeICD10CMInferenceJob'
{
DescribeICD10CMInferenceJob -> Text
jobId :: Prelude.Text
}
deriving (DescribeICD10CMInferenceJob -> DescribeICD10CMInferenceJob -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeICD10CMInferenceJob -> DescribeICD10CMInferenceJob -> Bool
$c/= :: DescribeICD10CMInferenceJob -> DescribeICD10CMInferenceJob -> Bool
== :: DescribeICD10CMInferenceJob -> DescribeICD10CMInferenceJob -> Bool
$c== :: DescribeICD10CMInferenceJob -> DescribeICD10CMInferenceJob -> Bool
Prelude.Eq, ReadPrec [DescribeICD10CMInferenceJob]
ReadPrec DescribeICD10CMInferenceJob
Int -> ReadS DescribeICD10CMInferenceJob
ReadS [DescribeICD10CMInferenceJob]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeICD10CMInferenceJob]
$creadListPrec :: ReadPrec [DescribeICD10CMInferenceJob]
readPrec :: ReadPrec DescribeICD10CMInferenceJob
$creadPrec :: ReadPrec DescribeICD10CMInferenceJob
readList :: ReadS [DescribeICD10CMInferenceJob]
$creadList :: ReadS [DescribeICD10CMInferenceJob]
readsPrec :: Int -> ReadS DescribeICD10CMInferenceJob
$creadsPrec :: Int -> ReadS DescribeICD10CMInferenceJob
Prelude.Read, Int -> DescribeICD10CMInferenceJob -> ShowS
[DescribeICD10CMInferenceJob] -> ShowS
DescribeICD10CMInferenceJob -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeICD10CMInferenceJob] -> ShowS
$cshowList :: [DescribeICD10CMInferenceJob] -> ShowS
show :: DescribeICD10CMInferenceJob -> String
$cshow :: DescribeICD10CMInferenceJob -> String
showsPrec :: Int -> DescribeICD10CMInferenceJob -> ShowS
$cshowsPrec :: Int -> DescribeICD10CMInferenceJob -> ShowS
Prelude.Show, forall x.
Rep DescribeICD10CMInferenceJob x -> DescribeICD10CMInferenceJob
forall x.
DescribeICD10CMInferenceJob -> Rep DescribeICD10CMInferenceJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeICD10CMInferenceJob x -> DescribeICD10CMInferenceJob
$cfrom :: forall x.
DescribeICD10CMInferenceJob -> Rep DescribeICD10CMInferenceJob x
Prelude.Generic)
newDescribeICD10CMInferenceJob ::
Prelude.Text ->
DescribeICD10CMInferenceJob
newDescribeICD10CMInferenceJob :: Text -> DescribeICD10CMInferenceJob
newDescribeICD10CMInferenceJob Text
pJobId_ =
DescribeICD10CMInferenceJob' {$sel:jobId:DescribeICD10CMInferenceJob' :: Text
jobId = Text
pJobId_}
describeICD10CMInferenceJob_jobId :: Lens.Lens' DescribeICD10CMInferenceJob Prelude.Text
describeICD10CMInferenceJob_jobId :: Lens' DescribeICD10CMInferenceJob Text
describeICD10CMInferenceJob_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeICD10CMInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeICD10CMInferenceJob' :: DescribeICD10CMInferenceJob -> Text
jobId} -> Text
jobId) (\s :: DescribeICD10CMInferenceJob
s@DescribeICD10CMInferenceJob' {} Text
a -> DescribeICD10CMInferenceJob
s {$sel:jobId:DescribeICD10CMInferenceJob' :: Text
jobId = Text
a} :: DescribeICD10CMInferenceJob)
instance Core.AWSRequest DescribeICD10CMInferenceJob where
type
AWSResponse DescribeICD10CMInferenceJob =
DescribeICD10CMInferenceJobResponse
request :: (Service -> Service)
-> DescribeICD10CMInferenceJob
-> Request DescribeICD10CMInferenceJob
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 DescribeICD10CMInferenceJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeICD10CMInferenceJob)))
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 ComprehendMedicalAsyncJobProperties
-> Int -> DescribeICD10CMInferenceJobResponse
DescribeICD10CMInferenceJobResponse'
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
"ComprehendMedicalAsyncJobProperties")
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 DescribeICD10CMInferenceJob where
hashWithSalt :: Int -> DescribeICD10CMInferenceJob -> Int
hashWithSalt Int
_salt DescribeICD10CMInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeICD10CMInferenceJob' :: DescribeICD10CMInferenceJob -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData DescribeICD10CMInferenceJob where
rnf :: DescribeICD10CMInferenceJob -> ()
rnf DescribeICD10CMInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeICD10CMInferenceJob' :: DescribeICD10CMInferenceJob -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders DescribeICD10CMInferenceJob where
toHeaders :: DescribeICD10CMInferenceJob -> 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
"ComprehendMedical_20181030.DescribeICD10CMInferenceJob" ::
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 DescribeICD10CMInferenceJob where
toJSON :: DescribeICD10CMInferenceJob -> Value
toJSON DescribeICD10CMInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeICD10CMInferenceJob' :: DescribeICD10CMInferenceJob -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"JobId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
jobId)]
)
instance Data.ToPath DescribeICD10CMInferenceJob where
toPath :: DescribeICD10CMInferenceJob -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeICD10CMInferenceJob where
toQuery :: DescribeICD10CMInferenceJob -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeICD10CMInferenceJobResponse = DescribeICD10CMInferenceJobResponse'
{
DescribeICD10CMInferenceJobResponse
-> Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties :: Prelude.Maybe ComprehendMedicalAsyncJobProperties,
DescribeICD10CMInferenceJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeICD10CMInferenceJobResponse
-> DescribeICD10CMInferenceJobResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeICD10CMInferenceJobResponse
-> DescribeICD10CMInferenceJobResponse -> Bool
$c/= :: DescribeICD10CMInferenceJobResponse
-> DescribeICD10CMInferenceJobResponse -> Bool
== :: DescribeICD10CMInferenceJobResponse
-> DescribeICD10CMInferenceJobResponse -> Bool
$c== :: DescribeICD10CMInferenceJobResponse
-> DescribeICD10CMInferenceJobResponse -> Bool
Prelude.Eq, ReadPrec [DescribeICD10CMInferenceJobResponse]
ReadPrec DescribeICD10CMInferenceJobResponse
Int -> ReadS DescribeICD10CMInferenceJobResponse
ReadS [DescribeICD10CMInferenceJobResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeICD10CMInferenceJobResponse]
$creadListPrec :: ReadPrec [DescribeICD10CMInferenceJobResponse]
readPrec :: ReadPrec DescribeICD10CMInferenceJobResponse
$creadPrec :: ReadPrec DescribeICD10CMInferenceJobResponse
readList :: ReadS [DescribeICD10CMInferenceJobResponse]
$creadList :: ReadS [DescribeICD10CMInferenceJobResponse]
readsPrec :: Int -> ReadS DescribeICD10CMInferenceJobResponse
$creadsPrec :: Int -> ReadS DescribeICD10CMInferenceJobResponse
Prelude.Read, Int -> DescribeICD10CMInferenceJobResponse -> ShowS
[DescribeICD10CMInferenceJobResponse] -> ShowS
DescribeICD10CMInferenceJobResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeICD10CMInferenceJobResponse] -> ShowS
$cshowList :: [DescribeICD10CMInferenceJobResponse] -> ShowS
show :: DescribeICD10CMInferenceJobResponse -> String
$cshow :: DescribeICD10CMInferenceJobResponse -> String
showsPrec :: Int -> DescribeICD10CMInferenceJobResponse -> ShowS
$cshowsPrec :: Int -> DescribeICD10CMInferenceJobResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeICD10CMInferenceJobResponse x
-> DescribeICD10CMInferenceJobResponse
forall x.
DescribeICD10CMInferenceJobResponse
-> Rep DescribeICD10CMInferenceJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeICD10CMInferenceJobResponse x
-> DescribeICD10CMInferenceJobResponse
$cfrom :: forall x.
DescribeICD10CMInferenceJobResponse
-> Rep DescribeICD10CMInferenceJobResponse x
Prelude.Generic)
newDescribeICD10CMInferenceJobResponse ::
Prelude.Int ->
DescribeICD10CMInferenceJobResponse
newDescribeICD10CMInferenceJobResponse :: Int -> DescribeICD10CMInferenceJobResponse
newDescribeICD10CMInferenceJobResponse Int
pHttpStatus_ =
DescribeICD10CMInferenceJobResponse'
{ $sel:comprehendMedicalAsyncJobProperties:DescribeICD10CMInferenceJobResponse' :: Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeICD10CMInferenceJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeICD10CMInferenceJobResponse_comprehendMedicalAsyncJobProperties :: Lens.Lens' DescribeICD10CMInferenceJobResponse (Prelude.Maybe ComprehendMedicalAsyncJobProperties)
describeICD10CMInferenceJobResponse_comprehendMedicalAsyncJobProperties :: Lens'
DescribeICD10CMInferenceJobResponse
(Maybe ComprehendMedicalAsyncJobProperties)
describeICD10CMInferenceJobResponse_comprehendMedicalAsyncJobProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeICD10CMInferenceJobResponse' {Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties :: Maybe ComprehendMedicalAsyncJobProperties
$sel:comprehendMedicalAsyncJobProperties:DescribeICD10CMInferenceJobResponse' :: DescribeICD10CMInferenceJobResponse
-> Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties} -> Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties) (\s :: DescribeICD10CMInferenceJobResponse
s@DescribeICD10CMInferenceJobResponse' {} Maybe ComprehendMedicalAsyncJobProperties
a -> DescribeICD10CMInferenceJobResponse
s {$sel:comprehendMedicalAsyncJobProperties:DescribeICD10CMInferenceJobResponse' :: Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties = Maybe ComprehendMedicalAsyncJobProperties
a} :: DescribeICD10CMInferenceJobResponse)
describeICD10CMInferenceJobResponse_httpStatus :: Lens.Lens' DescribeICD10CMInferenceJobResponse Prelude.Int
describeICD10CMInferenceJobResponse_httpStatus :: Lens' DescribeICD10CMInferenceJobResponse Int
describeICD10CMInferenceJobResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeICD10CMInferenceJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeICD10CMInferenceJobResponse' :: DescribeICD10CMInferenceJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeICD10CMInferenceJobResponse
s@DescribeICD10CMInferenceJobResponse' {} Int
a -> DescribeICD10CMInferenceJobResponse
s {$sel:httpStatus:DescribeICD10CMInferenceJobResponse' :: Int
httpStatus = Int
a} :: DescribeICD10CMInferenceJobResponse)
instance
Prelude.NFData
DescribeICD10CMInferenceJobResponse
where
rnf :: DescribeICD10CMInferenceJobResponse -> ()
rnf DescribeICD10CMInferenceJobResponse' {Int
Maybe ComprehendMedicalAsyncJobProperties
httpStatus :: Int
comprehendMedicalAsyncJobProperties :: Maybe ComprehendMedicalAsyncJobProperties
$sel:httpStatus:DescribeICD10CMInferenceJobResponse' :: DescribeICD10CMInferenceJobResponse -> Int
$sel:comprehendMedicalAsyncJobProperties:DescribeICD10CMInferenceJobResponse' :: DescribeICD10CMInferenceJobResponse
-> Maybe ComprehendMedicalAsyncJobProperties
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus