{-# 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.DeleteEntityRecognizer
(
DeleteEntityRecognizer (..),
newDeleteEntityRecognizer,
deleteEntityRecognizer_entityRecognizerArn,
DeleteEntityRecognizerResponse (..),
newDeleteEntityRecognizerResponse,
deleteEntityRecognizerResponse_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 DeleteEntityRecognizer = DeleteEntityRecognizer'
{
DeleteEntityRecognizer -> Text
entityRecognizerArn :: Prelude.Text
}
deriving (DeleteEntityRecognizer -> DeleteEntityRecognizer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteEntityRecognizer -> DeleteEntityRecognizer -> Bool
$c/= :: DeleteEntityRecognizer -> DeleteEntityRecognizer -> Bool
== :: DeleteEntityRecognizer -> DeleteEntityRecognizer -> Bool
$c== :: DeleteEntityRecognizer -> DeleteEntityRecognizer -> Bool
Prelude.Eq, ReadPrec [DeleteEntityRecognizer]
ReadPrec DeleteEntityRecognizer
Int -> ReadS DeleteEntityRecognizer
ReadS [DeleteEntityRecognizer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteEntityRecognizer]
$creadListPrec :: ReadPrec [DeleteEntityRecognizer]
readPrec :: ReadPrec DeleteEntityRecognizer
$creadPrec :: ReadPrec DeleteEntityRecognizer
readList :: ReadS [DeleteEntityRecognizer]
$creadList :: ReadS [DeleteEntityRecognizer]
readsPrec :: Int -> ReadS DeleteEntityRecognizer
$creadsPrec :: Int -> ReadS DeleteEntityRecognizer
Prelude.Read, Int -> DeleteEntityRecognizer -> ShowS
[DeleteEntityRecognizer] -> ShowS
DeleteEntityRecognizer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteEntityRecognizer] -> ShowS
$cshowList :: [DeleteEntityRecognizer] -> ShowS
show :: DeleteEntityRecognizer -> String
$cshow :: DeleteEntityRecognizer -> String
showsPrec :: Int -> DeleteEntityRecognizer -> ShowS
$cshowsPrec :: Int -> DeleteEntityRecognizer -> ShowS
Prelude.Show, forall x. Rep DeleteEntityRecognizer x -> DeleteEntityRecognizer
forall x. DeleteEntityRecognizer -> Rep DeleteEntityRecognizer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteEntityRecognizer x -> DeleteEntityRecognizer
$cfrom :: forall x. DeleteEntityRecognizer -> Rep DeleteEntityRecognizer x
Prelude.Generic)
newDeleteEntityRecognizer ::
Prelude.Text ->
DeleteEntityRecognizer
newDeleteEntityRecognizer :: Text -> DeleteEntityRecognizer
newDeleteEntityRecognizer Text
pEntityRecognizerArn_ =
DeleteEntityRecognizer'
{ $sel:entityRecognizerArn:DeleteEntityRecognizer' :: Text
entityRecognizerArn =
Text
pEntityRecognizerArn_
}
deleteEntityRecognizer_entityRecognizerArn :: Lens.Lens' DeleteEntityRecognizer Prelude.Text
deleteEntityRecognizer_entityRecognizerArn :: Lens' DeleteEntityRecognizer Text
deleteEntityRecognizer_entityRecognizerArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteEntityRecognizer' {Text
entityRecognizerArn :: Text
$sel:entityRecognizerArn:DeleteEntityRecognizer' :: DeleteEntityRecognizer -> Text
entityRecognizerArn} -> Text
entityRecognizerArn) (\s :: DeleteEntityRecognizer
s@DeleteEntityRecognizer' {} Text
a -> DeleteEntityRecognizer
s {$sel:entityRecognizerArn:DeleteEntityRecognizer' :: Text
entityRecognizerArn = Text
a} :: DeleteEntityRecognizer)
instance Core.AWSRequest DeleteEntityRecognizer where
type
AWSResponse DeleteEntityRecognizer =
DeleteEntityRecognizerResponse
request :: (Service -> Service)
-> DeleteEntityRecognizer -> Request DeleteEntityRecognizer
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 DeleteEntityRecognizer
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteEntityRecognizer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteEntityRecognizerResponse
DeleteEntityRecognizerResponse'
forall (f :: * -> *) a b. Functor 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 DeleteEntityRecognizer where
hashWithSalt :: Int -> DeleteEntityRecognizer -> Int
hashWithSalt Int
_salt DeleteEntityRecognizer' {Text
entityRecognizerArn :: Text
$sel:entityRecognizerArn:DeleteEntityRecognizer' :: DeleteEntityRecognizer -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
entityRecognizerArn
instance Prelude.NFData DeleteEntityRecognizer where
rnf :: DeleteEntityRecognizer -> ()
rnf DeleteEntityRecognizer' {Text
entityRecognizerArn :: Text
$sel:entityRecognizerArn:DeleteEntityRecognizer' :: DeleteEntityRecognizer -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
entityRecognizerArn
instance Data.ToHeaders DeleteEntityRecognizer where
toHeaders :: DeleteEntityRecognizer -> 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.DeleteEntityRecognizer" ::
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 DeleteEntityRecognizer where
toJSON :: DeleteEntityRecognizer -> Value
toJSON DeleteEntityRecognizer' {Text
entityRecognizerArn :: Text
$sel:entityRecognizerArn:DeleteEntityRecognizer' :: DeleteEntityRecognizer -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"EntityRecognizerArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
entityRecognizerArn)
]
)
instance Data.ToPath DeleteEntityRecognizer where
toPath :: DeleteEntityRecognizer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteEntityRecognizer where
toQuery :: DeleteEntityRecognizer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteEntityRecognizerResponse = DeleteEntityRecognizerResponse'
{
DeleteEntityRecognizerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteEntityRecognizerResponse
-> DeleteEntityRecognizerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteEntityRecognizerResponse
-> DeleteEntityRecognizerResponse -> Bool
$c/= :: DeleteEntityRecognizerResponse
-> DeleteEntityRecognizerResponse -> Bool
== :: DeleteEntityRecognizerResponse
-> DeleteEntityRecognizerResponse -> Bool
$c== :: DeleteEntityRecognizerResponse
-> DeleteEntityRecognizerResponse -> Bool
Prelude.Eq, ReadPrec [DeleteEntityRecognizerResponse]
ReadPrec DeleteEntityRecognizerResponse
Int -> ReadS DeleteEntityRecognizerResponse
ReadS [DeleteEntityRecognizerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteEntityRecognizerResponse]
$creadListPrec :: ReadPrec [DeleteEntityRecognizerResponse]
readPrec :: ReadPrec DeleteEntityRecognizerResponse
$creadPrec :: ReadPrec DeleteEntityRecognizerResponse
readList :: ReadS [DeleteEntityRecognizerResponse]
$creadList :: ReadS [DeleteEntityRecognizerResponse]
readsPrec :: Int -> ReadS DeleteEntityRecognizerResponse
$creadsPrec :: Int -> ReadS DeleteEntityRecognizerResponse
Prelude.Read, Int -> DeleteEntityRecognizerResponse -> ShowS
[DeleteEntityRecognizerResponse] -> ShowS
DeleteEntityRecognizerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteEntityRecognizerResponse] -> ShowS
$cshowList :: [DeleteEntityRecognizerResponse] -> ShowS
show :: DeleteEntityRecognizerResponse -> String
$cshow :: DeleteEntityRecognizerResponse -> String
showsPrec :: Int -> DeleteEntityRecognizerResponse -> ShowS
$cshowsPrec :: Int -> DeleteEntityRecognizerResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteEntityRecognizerResponse x
-> DeleteEntityRecognizerResponse
forall x.
DeleteEntityRecognizerResponse
-> Rep DeleteEntityRecognizerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteEntityRecognizerResponse x
-> DeleteEntityRecognizerResponse
$cfrom :: forall x.
DeleteEntityRecognizerResponse
-> Rep DeleteEntityRecognizerResponse x
Prelude.Generic)
newDeleteEntityRecognizerResponse ::
Prelude.Int ->
DeleteEntityRecognizerResponse
newDeleteEntityRecognizerResponse :: Int -> DeleteEntityRecognizerResponse
newDeleteEntityRecognizerResponse Int
pHttpStatus_ =
DeleteEntityRecognizerResponse'
{ $sel:httpStatus:DeleteEntityRecognizerResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteEntityRecognizerResponse_httpStatus :: Lens.Lens' DeleteEntityRecognizerResponse Prelude.Int
deleteEntityRecognizerResponse_httpStatus :: Lens' DeleteEntityRecognizerResponse Int
deleteEntityRecognizerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteEntityRecognizerResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteEntityRecognizerResponse' :: DeleteEntityRecognizerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteEntityRecognizerResponse
s@DeleteEntityRecognizerResponse' {} Int
a -> DeleteEntityRecognizerResponse
s {$sel:httpStatus:DeleteEntityRecognizerResponse' :: Int
httpStatus = Int
a} :: DeleteEntityRecognizerResponse)
instance
Prelude.NFData
DeleteEntityRecognizerResponse
where
rnf :: DeleteEntityRecognizerResponse -> ()
rnf DeleteEntityRecognizerResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteEntityRecognizerResponse' :: DeleteEntityRecognizerResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus