{-# 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.DescribeRxNormInferenceJob
(
DescribeRxNormInferenceJob (..),
newDescribeRxNormInferenceJob,
describeRxNormInferenceJob_jobId,
DescribeRxNormInferenceJobResponse (..),
newDescribeRxNormInferenceJobResponse,
describeRxNormInferenceJobResponse_comprehendMedicalAsyncJobProperties,
describeRxNormInferenceJobResponse_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 DescribeRxNormInferenceJob = DescribeRxNormInferenceJob'
{
DescribeRxNormInferenceJob -> Text
jobId :: Prelude.Text
}
deriving (DescribeRxNormInferenceJob -> DescribeRxNormInferenceJob -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRxNormInferenceJob -> DescribeRxNormInferenceJob -> Bool
$c/= :: DescribeRxNormInferenceJob -> DescribeRxNormInferenceJob -> Bool
== :: DescribeRxNormInferenceJob -> DescribeRxNormInferenceJob -> Bool
$c== :: DescribeRxNormInferenceJob -> DescribeRxNormInferenceJob -> Bool
Prelude.Eq, ReadPrec [DescribeRxNormInferenceJob]
ReadPrec DescribeRxNormInferenceJob
Int -> ReadS DescribeRxNormInferenceJob
ReadS [DescribeRxNormInferenceJob]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRxNormInferenceJob]
$creadListPrec :: ReadPrec [DescribeRxNormInferenceJob]
readPrec :: ReadPrec DescribeRxNormInferenceJob
$creadPrec :: ReadPrec DescribeRxNormInferenceJob
readList :: ReadS [DescribeRxNormInferenceJob]
$creadList :: ReadS [DescribeRxNormInferenceJob]
readsPrec :: Int -> ReadS DescribeRxNormInferenceJob
$creadsPrec :: Int -> ReadS DescribeRxNormInferenceJob
Prelude.Read, Int -> DescribeRxNormInferenceJob -> ShowS
[DescribeRxNormInferenceJob] -> ShowS
DescribeRxNormInferenceJob -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRxNormInferenceJob] -> ShowS
$cshowList :: [DescribeRxNormInferenceJob] -> ShowS
show :: DescribeRxNormInferenceJob -> String
$cshow :: DescribeRxNormInferenceJob -> String
showsPrec :: Int -> DescribeRxNormInferenceJob -> ShowS
$cshowsPrec :: Int -> DescribeRxNormInferenceJob -> ShowS
Prelude.Show, forall x.
Rep DescribeRxNormInferenceJob x -> DescribeRxNormInferenceJob
forall x.
DescribeRxNormInferenceJob -> Rep DescribeRxNormInferenceJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRxNormInferenceJob x -> DescribeRxNormInferenceJob
$cfrom :: forall x.
DescribeRxNormInferenceJob -> Rep DescribeRxNormInferenceJob x
Prelude.Generic)
newDescribeRxNormInferenceJob ::
Prelude.Text ->
DescribeRxNormInferenceJob
newDescribeRxNormInferenceJob :: Text -> DescribeRxNormInferenceJob
newDescribeRxNormInferenceJob Text
pJobId_ =
DescribeRxNormInferenceJob' {$sel:jobId:DescribeRxNormInferenceJob' :: Text
jobId = Text
pJobId_}
describeRxNormInferenceJob_jobId :: Lens.Lens' DescribeRxNormInferenceJob Prelude.Text
describeRxNormInferenceJob_jobId :: Lens' DescribeRxNormInferenceJob Text
describeRxNormInferenceJob_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRxNormInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeRxNormInferenceJob' :: DescribeRxNormInferenceJob -> Text
jobId} -> Text
jobId) (\s :: DescribeRxNormInferenceJob
s@DescribeRxNormInferenceJob' {} Text
a -> DescribeRxNormInferenceJob
s {$sel:jobId:DescribeRxNormInferenceJob' :: Text
jobId = Text
a} :: DescribeRxNormInferenceJob)
instance Core.AWSRequest DescribeRxNormInferenceJob where
type
AWSResponse DescribeRxNormInferenceJob =
DescribeRxNormInferenceJobResponse
request :: (Service -> Service)
-> DescribeRxNormInferenceJob -> Request DescribeRxNormInferenceJob
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 DescribeRxNormInferenceJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeRxNormInferenceJob)))
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 -> DescribeRxNormInferenceJobResponse
DescribeRxNormInferenceJobResponse'
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 DescribeRxNormInferenceJob where
hashWithSalt :: Int -> DescribeRxNormInferenceJob -> Int
hashWithSalt Int
_salt DescribeRxNormInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeRxNormInferenceJob' :: DescribeRxNormInferenceJob -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData DescribeRxNormInferenceJob where
rnf :: DescribeRxNormInferenceJob -> ()
rnf DescribeRxNormInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeRxNormInferenceJob' :: DescribeRxNormInferenceJob -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders DescribeRxNormInferenceJob where
toHeaders :: DescribeRxNormInferenceJob -> 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.DescribeRxNormInferenceJob" ::
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 DescribeRxNormInferenceJob where
toJSON :: DescribeRxNormInferenceJob -> Value
toJSON DescribeRxNormInferenceJob' {Text
jobId :: Text
$sel:jobId:DescribeRxNormInferenceJob' :: DescribeRxNormInferenceJob -> 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 DescribeRxNormInferenceJob where
toPath :: DescribeRxNormInferenceJob -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeRxNormInferenceJob where
toQuery :: DescribeRxNormInferenceJob -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeRxNormInferenceJobResponse = DescribeRxNormInferenceJobResponse'
{
DescribeRxNormInferenceJobResponse
-> Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties :: Prelude.Maybe ComprehendMedicalAsyncJobProperties,
DescribeRxNormInferenceJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeRxNormInferenceJobResponse
-> DescribeRxNormInferenceJobResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRxNormInferenceJobResponse
-> DescribeRxNormInferenceJobResponse -> Bool
$c/= :: DescribeRxNormInferenceJobResponse
-> DescribeRxNormInferenceJobResponse -> Bool
== :: DescribeRxNormInferenceJobResponse
-> DescribeRxNormInferenceJobResponse -> Bool
$c== :: DescribeRxNormInferenceJobResponse
-> DescribeRxNormInferenceJobResponse -> Bool
Prelude.Eq, ReadPrec [DescribeRxNormInferenceJobResponse]
ReadPrec DescribeRxNormInferenceJobResponse
Int -> ReadS DescribeRxNormInferenceJobResponse
ReadS [DescribeRxNormInferenceJobResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRxNormInferenceJobResponse]
$creadListPrec :: ReadPrec [DescribeRxNormInferenceJobResponse]
readPrec :: ReadPrec DescribeRxNormInferenceJobResponse
$creadPrec :: ReadPrec DescribeRxNormInferenceJobResponse
readList :: ReadS [DescribeRxNormInferenceJobResponse]
$creadList :: ReadS [DescribeRxNormInferenceJobResponse]
readsPrec :: Int -> ReadS DescribeRxNormInferenceJobResponse
$creadsPrec :: Int -> ReadS DescribeRxNormInferenceJobResponse
Prelude.Read, Int -> DescribeRxNormInferenceJobResponse -> ShowS
[DescribeRxNormInferenceJobResponse] -> ShowS
DescribeRxNormInferenceJobResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRxNormInferenceJobResponse] -> ShowS
$cshowList :: [DescribeRxNormInferenceJobResponse] -> ShowS
show :: DescribeRxNormInferenceJobResponse -> String
$cshow :: DescribeRxNormInferenceJobResponse -> String
showsPrec :: Int -> DescribeRxNormInferenceJobResponse -> ShowS
$cshowsPrec :: Int -> DescribeRxNormInferenceJobResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeRxNormInferenceJobResponse x
-> DescribeRxNormInferenceJobResponse
forall x.
DescribeRxNormInferenceJobResponse
-> Rep DescribeRxNormInferenceJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRxNormInferenceJobResponse x
-> DescribeRxNormInferenceJobResponse
$cfrom :: forall x.
DescribeRxNormInferenceJobResponse
-> Rep DescribeRxNormInferenceJobResponse x
Prelude.Generic)
newDescribeRxNormInferenceJobResponse ::
Prelude.Int ->
DescribeRxNormInferenceJobResponse
newDescribeRxNormInferenceJobResponse :: Int -> DescribeRxNormInferenceJobResponse
newDescribeRxNormInferenceJobResponse Int
pHttpStatus_ =
DescribeRxNormInferenceJobResponse'
{ $sel:comprehendMedicalAsyncJobProperties:DescribeRxNormInferenceJobResponse' :: Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeRxNormInferenceJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeRxNormInferenceJobResponse_comprehendMedicalAsyncJobProperties :: Lens.Lens' DescribeRxNormInferenceJobResponse (Prelude.Maybe ComprehendMedicalAsyncJobProperties)
describeRxNormInferenceJobResponse_comprehendMedicalAsyncJobProperties :: Lens'
DescribeRxNormInferenceJobResponse
(Maybe ComprehendMedicalAsyncJobProperties)
describeRxNormInferenceJobResponse_comprehendMedicalAsyncJobProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRxNormInferenceJobResponse' {Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties :: Maybe ComprehendMedicalAsyncJobProperties
$sel:comprehendMedicalAsyncJobProperties:DescribeRxNormInferenceJobResponse' :: DescribeRxNormInferenceJobResponse
-> Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties} -> Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties) (\s :: DescribeRxNormInferenceJobResponse
s@DescribeRxNormInferenceJobResponse' {} Maybe ComprehendMedicalAsyncJobProperties
a -> DescribeRxNormInferenceJobResponse
s {$sel:comprehendMedicalAsyncJobProperties:DescribeRxNormInferenceJobResponse' :: Maybe ComprehendMedicalAsyncJobProperties
comprehendMedicalAsyncJobProperties = Maybe ComprehendMedicalAsyncJobProperties
a} :: DescribeRxNormInferenceJobResponse)
describeRxNormInferenceJobResponse_httpStatus :: Lens.Lens' DescribeRxNormInferenceJobResponse Prelude.Int
describeRxNormInferenceJobResponse_httpStatus :: Lens' DescribeRxNormInferenceJobResponse Int
describeRxNormInferenceJobResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRxNormInferenceJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeRxNormInferenceJobResponse' :: DescribeRxNormInferenceJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeRxNormInferenceJobResponse
s@DescribeRxNormInferenceJobResponse' {} Int
a -> DescribeRxNormInferenceJobResponse
s {$sel:httpStatus:DescribeRxNormInferenceJobResponse' :: Int
httpStatus = Int
a} :: DescribeRxNormInferenceJobResponse)
instance
Prelude.NFData
DescribeRxNormInferenceJobResponse
where
rnf :: DescribeRxNormInferenceJobResponse -> ()
rnf DescribeRxNormInferenceJobResponse' {Int
Maybe ComprehendMedicalAsyncJobProperties
httpStatus :: Int
comprehendMedicalAsyncJobProperties :: Maybe ComprehendMedicalAsyncJobProperties
$sel:httpStatus:DescribeRxNormInferenceJobResponse' :: DescribeRxNormInferenceJobResponse -> Int
$sel:comprehendMedicalAsyncJobProperties:DescribeRxNormInferenceJobResponse' :: DescribeRxNormInferenceJobResponse
-> 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