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