{-# 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.Kendra.DeleteThesaurus
(
DeleteThesaurus (..),
newDeleteThesaurus,
deleteThesaurus_id,
deleteThesaurus_indexId,
DeleteThesaurusResponse (..),
newDeleteThesaurusResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Kendra.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteThesaurus = DeleteThesaurus'
{
DeleteThesaurus -> Text
id :: Prelude.Text,
DeleteThesaurus -> Text
indexId :: Prelude.Text
}
deriving (DeleteThesaurus -> DeleteThesaurus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteThesaurus -> DeleteThesaurus -> Bool
$c/= :: DeleteThesaurus -> DeleteThesaurus -> Bool
== :: DeleteThesaurus -> DeleteThesaurus -> Bool
$c== :: DeleteThesaurus -> DeleteThesaurus -> Bool
Prelude.Eq, ReadPrec [DeleteThesaurus]
ReadPrec DeleteThesaurus
Int -> ReadS DeleteThesaurus
ReadS [DeleteThesaurus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteThesaurus]
$creadListPrec :: ReadPrec [DeleteThesaurus]
readPrec :: ReadPrec DeleteThesaurus
$creadPrec :: ReadPrec DeleteThesaurus
readList :: ReadS [DeleteThesaurus]
$creadList :: ReadS [DeleteThesaurus]
readsPrec :: Int -> ReadS DeleteThesaurus
$creadsPrec :: Int -> ReadS DeleteThesaurus
Prelude.Read, Int -> DeleteThesaurus -> ShowS
[DeleteThesaurus] -> ShowS
DeleteThesaurus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteThesaurus] -> ShowS
$cshowList :: [DeleteThesaurus] -> ShowS
show :: DeleteThesaurus -> String
$cshow :: DeleteThesaurus -> String
showsPrec :: Int -> DeleteThesaurus -> ShowS
$cshowsPrec :: Int -> DeleteThesaurus -> ShowS
Prelude.Show, forall x. Rep DeleteThesaurus x -> DeleteThesaurus
forall x. DeleteThesaurus -> Rep DeleteThesaurus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteThesaurus x -> DeleteThesaurus
$cfrom :: forall x. DeleteThesaurus -> Rep DeleteThesaurus x
Prelude.Generic)
newDeleteThesaurus ::
Prelude.Text ->
Prelude.Text ->
DeleteThesaurus
newDeleteThesaurus :: Text -> Text -> DeleteThesaurus
newDeleteThesaurus Text
pId_ Text
pIndexId_ =
DeleteThesaurus' {$sel:id:DeleteThesaurus' :: Text
id = Text
pId_, $sel:indexId:DeleteThesaurus' :: Text
indexId = Text
pIndexId_}
deleteThesaurus_id :: Lens.Lens' DeleteThesaurus Prelude.Text
deleteThesaurus_id :: Lens' DeleteThesaurus Text
deleteThesaurus_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteThesaurus' {Text
id :: Text
$sel:id:DeleteThesaurus' :: DeleteThesaurus -> Text
id} -> Text
id) (\s :: DeleteThesaurus
s@DeleteThesaurus' {} Text
a -> DeleteThesaurus
s {$sel:id:DeleteThesaurus' :: Text
id = Text
a} :: DeleteThesaurus)
deleteThesaurus_indexId :: Lens.Lens' DeleteThesaurus Prelude.Text
deleteThesaurus_indexId :: Lens' DeleteThesaurus Text
deleteThesaurus_indexId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteThesaurus' {Text
indexId :: Text
$sel:indexId:DeleteThesaurus' :: DeleteThesaurus -> Text
indexId} -> Text
indexId) (\s :: DeleteThesaurus
s@DeleteThesaurus' {} Text
a -> DeleteThesaurus
s {$sel:indexId:DeleteThesaurus' :: Text
indexId = Text
a} :: DeleteThesaurus)
instance Core.AWSRequest DeleteThesaurus where
type
AWSResponse DeleteThesaurus =
DeleteThesaurusResponse
request :: (Service -> Service) -> DeleteThesaurus -> Request DeleteThesaurus
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 DeleteThesaurus
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteThesaurus)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteThesaurusResponse
DeleteThesaurusResponse'
instance Prelude.Hashable DeleteThesaurus where
hashWithSalt :: Int -> DeleteThesaurus -> Int
hashWithSalt Int
_salt DeleteThesaurus' {Text
indexId :: Text
id :: Text
$sel:indexId:DeleteThesaurus' :: DeleteThesaurus -> Text
$sel:id:DeleteThesaurus' :: DeleteThesaurus -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
indexId
instance Prelude.NFData DeleteThesaurus where
rnf :: DeleteThesaurus -> ()
rnf DeleteThesaurus' {Text
indexId :: Text
id :: Text
$sel:indexId:DeleteThesaurus' :: DeleteThesaurus -> Text
$sel:id:DeleteThesaurus' :: DeleteThesaurus -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
id seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
indexId
instance Data.ToHeaders DeleteThesaurus where
toHeaders :: DeleteThesaurus -> [Header]
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 -> [Header]
Data.=# ( ByteString
"AWSKendraFrontendService.DeleteThesaurus" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteThesaurus where
toJSON :: DeleteThesaurus -> Value
toJSON DeleteThesaurus' {Text
indexId :: Text
id :: Text
$sel:indexId:DeleteThesaurus' :: DeleteThesaurus -> Text
$sel:id:DeleteThesaurus' :: DeleteThesaurus -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"Id" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
id),
forall a. a -> Maybe a
Prelude.Just (Key
"IndexId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
indexId)
]
)
instance Data.ToPath DeleteThesaurus where
toPath :: DeleteThesaurus -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteThesaurus where
toQuery :: DeleteThesaurus -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteThesaurusResponse = DeleteThesaurusResponse'
{
}
deriving (DeleteThesaurusResponse -> DeleteThesaurusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteThesaurusResponse -> DeleteThesaurusResponse -> Bool
$c/= :: DeleteThesaurusResponse -> DeleteThesaurusResponse -> Bool
== :: DeleteThesaurusResponse -> DeleteThesaurusResponse -> Bool
$c== :: DeleteThesaurusResponse -> DeleteThesaurusResponse -> Bool
Prelude.Eq, ReadPrec [DeleteThesaurusResponse]
ReadPrec DeleteThesaurusResponse
Int -> ReadS DeleteThesaurusResponse
ReadS [DeleteThesaurusResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteThesaurusResponse]
$creadListPrec :: ReadPrec [DeleteThesaurusResponse]
readPrec :: ReadPrec DeleteThesaurusResponse
$creadPrec :: ReadPrec DeleteThesaurusResponse
readList :: ReadS [DeleteThesaurusResponse]
$creadList :: ReadS [DeleteThesaurusResponse]
readsPrec :: Int -> ReadS DeleteThesaurusResponse
$creadsPrec :: Int -> ReadS DeleteThesaurusResponse
Prelude.Read, Int -> DeleteThesaurusResponse -> ShowS
[DeleteThesaurusResponse] -> ShowS
DeleteThesaurusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteThesaurusResponse] -> ShowS
$cshowList :: [DeleteThesaurusResponse] -> ShowS
show :: DeleteThesaurusResponse -> String
$cshow :: DeleteThesaurusResponse -> String
showsPrec :: Int -> DeleteThesaurusResponse -> ShowS
$cshowsPrec :: Int -> DeleteThesaurusResponse -> ShowS
Prelude.Show, forall x. Rep DeleteThesaurusResponse x -> DeleteThesaurusResponse
forall x. DeleteThesaurusResponse -> Rep DeleteThesaurusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteThesaurusResponse x -> DeleteThesaurusResponse
$cfrom :: forall x. DeleteThesaurusResponse -> Rep DeleteThesaurusResponse x
Prelude.Generic)
newDeleteThesaurusResponse ::
DeleteThesaurusResponse
newDeleteThesaurusResponse :: DeleteThesaurusResponse
newDeleteThesaurusResponse = DeleteThesaurusResponse
DeleteThesaurusResponse'
instance Prelude.NFData DeleteThesaurusResponse where
rnf :: DeleteThesaurusResponse -> ()
rnf DeleteThesaurusResponse
_ = ()