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