{-# 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.DisassociateEntitiesFromExperience
(
DisassociateEntitiesFromExperience (..),
newDisassociateEntitiesFromExperience,
disassociateEntitiesFromExperience_id,
disassociateEntitiesFromExperience_indexId,
disassociateEntitiesFromExperience_entityList,
DisassociateEntitiesFromExperienceResponse (..),
newDisassociateEntitiesFromExperienceResponse,
disassociateEntitiesFromExperienceResponse_failedEntityList,
disassociateEntitiesFromExperienceResponse_httpStatus,
)
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 DisassociateEntitiesFromExperience = DisassociateEntitiesFromExperience'
{
DisassociateEntitiesFromExperience -> Text
id :: Prelude.Text,
DisassociateEntitiesFromExperience -> Text
indexId :: Prelude.Text,
DisassociateEntitiesFromExperience -> NonEmpty EntityConfiguration
entityList :: Prelude.NonEmpty EntityConfiguration
}
deriving (DisassociateEntitiesFromExperience
-> DisassociateEntitiesFromExperience -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateEntitiesFromExperience
-> DisassociateEntitiesFromExperience -> Bool
$c/= :: DisassociateEntitiesFromExperience
-> DisassociateEntitiesFromExperience -> Bool
== :: DisassociateEntitiesFromExperience
-> DisassociateEntitiesFromExperience -> Bool
$c== :: DisassociateEntitiesFromExperience
-> DisassociateEntitiesFromExperience -> Bool
Prelude.Eq, ReadPrec [DisassociateEntitiesFromExperience]
ReadPrec DisassociateEntitiesFromExperience
Int -> ReadS DisassociateEntitiesFromExperience
ReadS [DisassociateEntitiesFromExperience]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateEntitiesFromExperience]
$creadListPrec :: ReadPrec [DisassociateEntitiesFromExperience]
readPrec :: ReadPrec DisassociateEntitiesFromExperience
$creadPrec :: ReadPrec DisassociateEntitiesFromExperience
readList :: ReadS [DisassociateEntitiesFromExperience]
$creadList :: ReadS [DisassociateEntitiesFromExperience]
readsPrec :: Int -> ReadS DisassociateEntitiesFromExperience
$creadsPrec :: Int -> ReadS DisassociateEntitiesFromExperience
Prelude.Read, Int -> DisassociateEntitiesFromExperience -> ShowS
[DisassociateEntitiesFromExperience] -> ShowS
DisassociateEntitiesFromExperience -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateEntitiesFromExperience] -> ShowS
$cshowList :: [DisassociateEntitiesFromExperience] -> ShowS
show :: DisassociateEntitiesFromExperience -> String
$cshow :: DisassociateEntitiesFromExperience -> String
showsPrec :: Int -> DisassociateEntitiesFromExperience -> ShowS
$cshowsPrec :: Int -> DisassociateEntitiesFromExperience -> ShowS
Prelude.Show, forall x.
Rep DisassociateEntitiesFromExperience x
-> DisassociateEntitiesFromExperience
forall x.
DisassociateEntitiesFromExperience
-> Rep DisassociateEntitiesFromExperience x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateEntitiesFromExperience x
-> DisassociateEntitiesFromExperience
$cfrom :: forall x.
DisassociateEntitiesFromExperience
-> Rep DisassociateEntitiesFromExperience x
Prelude.Generic)
newDisassociateEntitiesFromExperience ::
Prelude.Text ->
Prelude.Text ->
Prelude.NonEmpty EntityConfiguration ->
DisassociateEntitiesFromExperience
newDisassociateEntitiesFromExperience :: Text
-> Text
-> NonEmpty EntityConfiguration
-> DisassociateEntitiesFromExperience
newDisassociateEntitiesFromExperience
Text
pId_
Text
pIndexId_
NonEmpty EntityConfiguration
pEntityList_ =
DisassociateEntitiesFromExperience'
{ $sel:id:DisassociateEntitiesFromExperience' :: Text
id = Text
pId_,
$sel:indexId:DisassociateEntitiesFromExperience' :: Text
indexId = Text
pIndexId_,
$sel:entityList:DisassociateEntitiesFromExperience' :: NonEmpty EntityConfiguration
entityList =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty EntityConfiguration
pEntityList_
}
disassociateEntitiesFromExperience_id :: Lens.Lens' DisassociateEntitiesFromExperience Prelude.Text
disassociateEntitiesFromExperience_id :: Lens' DisassociateEntitiesFromExperience Text
disassociateEntitiesFromExperience_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateEntitiesFromExperience' {Text
id :: Text
$sel:id:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> Text
id} -> Text
id) (\s :: DisassociateEntitiesFromExperience
s@DisassociateEntitiesFromExperience' {} Text
a -> DisassociateEntitiesFromExperience
s {$sel:id:DisassociateEntitiesFromExperience' :: Text
id = Text
a} :: DisassociateEntitiesFromExperience)
disassociateEntitiesFromExperience_indexId :: Lens.Lens' DisassociateEntitiesFromExperience Prelude.Text
disassociateEntitiesFromExperience_indexId :: Lens' DisassociateEntitiesFromExperience Text
disassociateEntitiesFromExperience_indexId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateEntitiesFromExperience' {Text
indexId :: Text
$sel:indexId:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> Text
indexId} -> Text
indexId) (\s :: DisassociateEntitiesFromExperience
s@DisassociateEntitiesFromExperience' {} Text
a -> DisassociateEntitiesFromExperience
s {$sel:indexId:DisassociateEntitiesFromExperience' :: Text
indexId = Text
a} :: DisassociateEntitiesFromExperience)
disassociateEntitiesFromExperience_entityList :: Lens.Lens' DisassociateEntitiesFromExperience (Prelude.NonEmpty EntityConfiguration)
disassociateEntitiesFromExperience_entityList :: Lens'
DisassociateEntitiesFromExperience (NonEmpty EntityConfiguration)
disassociateEntitiesFromExperience_entityList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateEntitiesFromExperience' {NonEmpty EntityConfiguration
entityList :: NonEmpty EntityConfiguration
$sel:entityList:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> NonEmpty EntityConfiguration
entityList} -> NonEmpty EntityConfiguration
entityList) (\s :: DisassociateEntitiesFromExperience
s@DisassociateEntitiesFromExperience' {} NonEmpty EntityConfiguration
a -> DisassociateEntitiesFromExperience
s {$sel:entityList:DisassociateEntitiesFromExperience' :: NonEmpty EntityConfiguration
entityList = NonEmpty EntityConfiguration
a} :: DisassociateEntitiesFromExperience) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Core.AWSRequest
DisassociateEntitiesFromExperience
where
type
AWSResponse DisassociateEntitiesFromExperience =
DisassociateEntitiesFromExperienceResponse
request :: (Service -> Service)
-> DisassociateEntitiesFromExperience
-> Request DisassociateEntitiesFromExperience
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 DisassociateEntitiesFromExperience
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DisassociateEntitiesFromExperience)))
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 (NonEmpty FailedEntity)
-> Int -> DisassociateEntitiesFromExperienceResponse
DisassociateEntitiesFromExperienceResponse'
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
"FailedEntityList")
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
DisassociateEntitiesFromExperience
where
hashWithSalt :: Int -> DisassociateEntitiesFromExperience -> Int
hashWithSalt
Int
_salt
DisassociateEntitiesFromExperience' {NonEmpty EntityConfiguration
Text
entityList :: NonEmpty EntityConfiguration
indexId :: Text
id :: Text
$sel:entityList:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> NonEmpty EntityConfiguration
$sel:indexId:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> Text
$sel:id:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> 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
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty EntityConfiguration
entityList
instance
Prelude.NFData
DisassociateEntitiesFromExperience
where
rnf :: DisassociateEntitiesFromExperience -> ()
rnf DisassociateEntitiesFromExperience' {NonEmpty EntityConfiguration
Text
entityList :: NonEmpty EntityConfiguration
indexId :: Text
id :: Text
$sel:entityList:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> NonEmpty EntityConfiguration
$sel:indexId:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> Text
$sel:id:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> 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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty EntityConfiguration
entityList
instance
Data.ToHeaders
DisassociateEntitiesFromExperience
where
toHeaders :: DisassociateEntitiesFromExperience -> 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
"AWSKendraFrontendService.DisassociateEntitiesFromExperience" ::
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
DisassociateEntitiesFromExperience
where
toJSON :: DisassociateEntitiesFromExperience -> Value
toJSON DisassociateEntitiesFromExperience' {NonEmpty EntityConfiguration
Text
entityList :: NonEmpty EntityConfiguration
indexId :: Text
id :: Text
$sel:entityList:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> NonEmpty EntityConfiguration
$sel:indexId:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> Text
$sel:id:DisassociateEntitiesFromExperience' :: DisassociateEntitiesFromExperience -> 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),
forall a. a -> Maybe a
Prelude.Just (Key
"EntityList" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty EntityConfiguration
entityList)
]
)
instance
Data.ToPath
DisassociateEntitiesFromExperience
where
toPath :: DisassociateEntitiesFromExperience -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DisassociateEntitiesFromExperience
where
toQuery :: DisassociateEntitiesFromExperience -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateEntitiesFromExperienceResponse = DisassociateEntitiesFromExperienceResponse'
{
DisassociateEntitiesFromExperienceResponse
-> Maybe (NonEmpty FailedEntity)
failedEntityList :: Prelude.Maybe (Prelude.NonEmpty FailedEntity),
DisassociateEntitiesFromExperienceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DisassociateEntitiesFromExperienceResponse
-> DisassociateEntitiesFromExperienceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateEntitiesFromExperienceResponse
-> DisassociateEntitiesFromExperienceResponse -> Bool
$c/= :: DisassociateEntitiesFromExperienceResponse
-> DisassociateEntitiesFromExperienceResponse -> Bool
== :: DisassociateEntitiesFromExperienceResponse
-> DisassociateEntitiesFromExperienceResponse -> Bool
$c== :: DisassociateEntitiesFromExperienceResponse
-> DisassociateEntitiesFromExperienceResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateEntitiesFromExperienceResponse]
ReadPrec DisassociateEntitiesFromExperienceResponse
Int -> ReadS DisassociateEntitiesFromExperienceResponse
ReadS [DisassociateEntitiesFromExperienceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateEntitiesFromExperienceResponse]
$creadListPrec :: ReadPrec [DisassociateEntitiesFromExperienceResponse]
readPrec :: ReadPrec DisassociateEntitiesFromExperienceResponse
$creadPrec :: ReadPrec DisassociateEntitiesFromExperienceResponse
readList :: ReadS [DisassociateEntitiesFromExperienceResponse]
$creadList :: ReadS [DisassociateEntitiesFromExperienceResponse]
readsPrec :: Int -> ReadS DisassociateEntitiesFromExperienceResponse
$creadsPrec :: Int -> ReadS DisassociateEntitiesFromExperienceResponse
Prelude.Read, Int -> DisassociateEntitiesFromExperienceResponse -> ShowS
[DisassociateEntitiesFromExperienceResponse] -> ShowS
DisassociateEntitiesFromExperienceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateEntitiesFromExperienceResponse] -> ShowS
$cshowList :: [DisassociateEntitiesFromExperienceResponse] -> ShowS
show :: DisassociateEntitiesFromExperienceResponse -> String
$cshow :: DisassociateEntitiesFromExperienceResponse -> String
showsPrec :: Int -> DisassociateEntitiesFromExperienceResponse -> ShowS
$cshowsPrec :: Int -> DisassociateEntitiesFromExperienceResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateEntitiesFromExperienceResponse x
-> DisassociateEntitiesFromExperienceResponse
forall x.
DisassociateEntitiesFromExperienceResponse
-> Rep DisassociateEntitiesFromExperienceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateEntitiesFromExperienceResponse x
-> DisassociateEntitiesFromExperienceResponse
$cfrom :: forall x.
DisassociateEntitiesFromExperienceResponse
-> Rep DisassociateEntitiesFromExperienceResponse x
Prelude.Generic)
newDisassociateEntitiesFromExperienceResponse ::
Prelude.Int ->
DisassociateEntitiesFromExperienceResponse
newDisassociateEntitiesFromExperienceResponse :: Int -> DisassociateEntitiesFromExperienceResponse
newDisassociateEntitiesFromExperienceResponse
Int
pHttpStatus_ =
DisassociateEntitiesFromExperienceResponse'
{ $sel:failedEntityList:DisassociateEntitiesFromExperienceResponse' :: Maybe (NonEmpty FailedEntity)
failedEntityList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DisassociateEntitiesFromExperienceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
disassociateEntitiesFromExperienceResponse_failedEntityList :: Lens.Lens' DisassociateEntitiesFromExperienceResponse (Prelude.Maybe (Prelude.NonEmpty FailedEntity))
disassociateEntitiesFromExperienceResponse_failedEntityList :: Lens'
DisassociateEntitiesFromExperienceResponse
(Maybe (NonEmpty FailedEntity))
disassociateEntitiesFromExperienceResponse_failedEntityList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateEntitiesFromExperienceResponse' {Maybe (NonEmpty FailedEntity)
failedEntityList :: Maybe (NonEmpty FailedEntity)
$sel:failedEntityList:DisassociateEntitiesFromExperienceResponse' :: DisassociateEntitiesFromExperienceResponse
-> Maybe (NonEmpty FailedEntity)
failedEntityList} -> Maybe (NonEmpty FailedEntity)
failedEntityList) (\s :: DisassociateEntitiesFromExperienceResponse
s@DisassociateEntitiesFromExperienceResponse' {} Maybe (NonEmpty FailedEntity)
a -> DisassociateEntitiesFromExperienceResponse
s {$sel:failedEntityList:DisassociateEntitiesFromExperienceResponse' :: Maybe (NonEmpty FailedEntity)
failedEntityList = Maybe (NonEmpty FailedEntity)
a} :: DisassociateEntitiesFromExperienceResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
disassociateEntitiesFromExperienceResponse_httpStatus :: Lens.Lens' DisassociateEntitiesFromExperienceResponse Prelude.Int
disassociateEntitiesFromExperienceResponse_httpStatus :: Lens' DisassociateEntitiesFromExperienceResponse Int
disassociateEntitiesFromExperienceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateEntitiesFromExperienceResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateEntitiesFromExperienceResponse' :: DisassociateEntitiesFromExperienceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisassociateEntitiesFromExperienceResponse
s@DisassociateEntitiesFromExperienceResponse' {} Int
a -> DisassociateEntitiesFromExperienceResponse
s {$sel:httpStatus:DisassociateEntitiesFromExperienceResponse' :: Int
httpStatus = Int
a} :: DisassociateEntitiesFromExperienceResponse)
instance
Prelude.NFData
DisassociateEntitiesFromExperienceResponse
where
rnf :: DisassociateEntitiesFromExperienceResponse -> ()
rnf DisassociateEntitiesFromExperienceResponse' {Int
Maybe (NonEmpty FailedEntity)
httpStatus :: Int
failedEntityList :: Maybe (NonEmpty FailedEntity)
$sel:httpStatus:DisassociateEntitiesFromExperienceResponse' :: DisassociateEntitiesFromExperienceResponse -> Int
$sel:failedEntityList:DisassociateEntitiesFromExperienceResponse' :: DisassociateEntitiesFromExperienceResponse
-> Maybe (NonEmpty FailedEntity)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty FailedEntity)
failedEntityList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus