{-# 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.Wisdom.UpdateKnowledgeBaseTemplateUri
(
UpdateKnowledgeBaseTemplateUri (..),
newUpdateKnowledgeBaseTemplateUri,
updateKnowledgeBaseTemplateUri_knowledgeBaseId,
updateKnowledgeBaseTemplateUri_templateUri,
UpdateKnowledgeBaseTemplateUriResponse (..),
newUpdateKnowledgeBaseTemplateUriResponse,
updateKnowledgeBaseTemplateUriResponse_knowledgeBase,
updateKnowledgeBaseTemplateUriResponse_httpStatus,
)
where
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
import Amazonka.Wisdom.Types
data UpdateKnowledgeBaseTemplateUri = UpdateKnowledgeBaseTemplateUri'
{
UpdateKnowledgeBaseTemplateUri -> Text
knowledgeBaseId :: Prelude.Text,
UpdateKnowledgeBaseTemplateUri -> Text
templateUri :: Prelude.Text
}
deriving (UpdateKnowledgeBaseTemplateUri
-> UpdateKnowledgeBaseTemplateUri -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateKnowledgeBaseTemplateUri
-> UpdateKnowledgeBaseTemplateUri -> Bool
$c/= :: UpdateKnowledgeBaseTemplateUri
-> UpdateKnowledgeBaseTemplateUri -> Bool
== :: UpdateKnowledgeBaseTemplateUri
-> UpdateKnowledgeBaseTemplateUri -> Bool
$c== :: UpdateKnowledgeBaseTemplateUri
-> UpdateKnowledgeBaseTemplateUri -> Bool
Prelude.Eq, ReadPrec [UpdateKnowledgeBaseTemplateUri]
ReadPrec UpdateKnowledgeBaseTemplateUri
Int -> ReadS UpdateKnowledgeBaseTemplateUri
ReadS [UpdateKnowledgeBaseTemplateUri]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateKnowledgeBaseTemplateUri]
$creadListPrec :: ReadPrec [UpdateKnowledgeBaseTemplateUri]
readPrec :: ReadPrec UpdateKnowledgeBaseTemplateUri
$creadPrec :: ReadPrec UpdateKnowledgeBaseTemplateUri
readList :: ReadS [UpdateKnowledgeBaseTemplateUri]
$creadList :: ReadS [UpdateKnowledgeBaseTemplateUri]
readsPrec :: Int -> ReadS UpdateKnowledgeBaseTemplateUri
$creadsPrec :: Int -> ReadS UpdateKnowledgeBaseTemplateUri
Prelude.Read, Int -> UpdateKnowledgeBaseTemplateUri -> ShowS
[UpdateKnowledgeBaseTemplateUri] -> ShowS
UpdateKnowledgeBaseTemplateUri -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateKnowledgeBaseTemplateUri] -> ShowS
$cshowList :: [UpdateKnowledgeBaseTemplateUri] -> ShowS
show :: UpdateKnowledgeBaseTemplateUri -> String
$cshow :: UpdateKnowledgeBaseTemplateUri -> String
showsPrec :: Int -> UpdateKnowledgeBaseTemplateUri -> ShowS
$cshowsPrec :: Int -> UpdateKnowledgeBaseTemplateUri -> ShowS
Prelude.Show, forall x.
Rep UpdateKnowledgeBaseTemplateUri x
-> UpdateKnowledgeBaseTemplateUri
forall x.
UpdateKnowledgeBaseTemplateUri
-> Rep UpdateKnowledgeBaseTemplateUri x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateKnowledgeBaseTemplateUri x
-> UpdateKnowledgeBaseTemplateUri
$cfrom :: forall x.
UpdateKnowledgeBaseTemplateUri
-> Rep UpdateKnowledgeBaseTemplateUri x
Prelude.Generic)
newUpdateKnowledgeBaseTemplateUri ::
Prelude.Text ->
Prelude.Text ->
UpdateKnowledgeBaseTemplateUri
newUpdateKnowledgeBaseTemplateUri :: Text -> Text -> UpdateKnowledgeBaseTemplateUri
newUpdateKnowledgeBaseTemplateUri
Text
pKnowledgeBaseId_
Text
pTemplateUri_ =
UpdateKnowledgeBaseTemplateUri'
{ $sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: Text
knowledgeBaseId =
Text
pKnowledgeBaseId_,
$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: Text
templateUri = Text
pTemplateUri_
}
updateKnowledgeBaseTemplateUri_knowledgeBaseId :: Lens.Lens' UpdateKnowledgeBaseTemplateUri Prelude.Text
updateKnowledgeBaseTemplateUri_knowledgeBaseId :: Lens' UpdateKnowledgeBaseTemplateUri Text
updateKnowledgeBaseTemplateUri_knowledgeBaseId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateKnowledgeBaseTemplateUri' {Text
knowledgeBaseId :: Text
$sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
knowledgeBaseId} -> Text
knowledgeBaseId) (\s :: UpdateKnowledgeBaseTemplateUri
s@UpdateKnowledgeBaseTemplateUri' {} Text
a -> UpdateKnowledgeBaseTemplateUri
s {$sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: Text
knowledgeBaseId = Text
a} :: UpdateKnowledgeBaseTemplateUri)
updateKnowledgeBaseTemplateUri_templateUri :: Lens.Lens' UpdateKnowledgeBaseTemplateUri Prelude.Text
updateKnowledgeBaseTemplateUri_templateUri :: Lens' UpdateKnowledgeBaseTemplateUri Text
updateKnowledgeBaseTemplateUri_templateUri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateKnowledgeBaseTemplateUri' {Text
templateUri :: Text
$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
templateUri} -> Text
templateUri) (\s :: UpdateKnowledgeBaseTemplateUri
s@UpdateKnowledgeBaseTemplateUri' {} Text
a -> UpdateKnowledgeBaseTemplateUri
s {$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: Text
templateUri = Text
a} :: UpdateKnowledgeBaseTemplateUri)
instance
Core.AWSRequest
UpdateKnowledgeBaseTemplateUri
where
type
AWSResponse UpdateKnowledgeBaseTemplateUri =
UpdateKnowledgeBaseTemplateUriResponse
request :: (Service -> Service)
-> UpdateKnowledgeBaseTemplateUri
-> Request UpdateKnowledgeBaseTemplateUri
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 UpdateKnowledgeBaseTemplateUri
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse UpdateKnowledgeBaseTemplateUri)))
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 KnowledgeBaseData
-> Int -> UpdateKnowledgeBaseTemplateUriResponse
UpdateKnowledgeBaseTemplateUriResponse'
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
"knowledgeBase")
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
UpdateKnowledgeBaseTemplateUri
where
hashWithSalt :: Int -> UpdateKnowledgeBaseTemplateUri -> Int
hashWithSalt
Int
_salt
UpdateKnowledgeBaseTemplateUri' {Text
templateUri :: Text
knowledgeBaseId :: Text
$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
$sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
knowledgeBaseId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
templateUri
instance
Prelude.NFData
UpdateKnowledgeBaseTemplateUri
where
rnf :: UpdateKnowledgeBaseTemplateUri -> ()
rnf UpdateKnowledgeBaseTemplateUri' {Text
templateUri :: Text
knowledgeBaseId :: Text
$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
$sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
knowledgeBaseId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
templateUri
instance
Data.ToHeaders
UpdateKnowledgeBaseTemplateUri
where
toHeaders :: UpdateKnowledgeBaseTemplateUri -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateKnowledgeBaseTemplateUri where
toJSON :: UpdateKnowledgeBaseTemplateUri -> Value
toJSON UpdateKnowledgeBaseTemplateUri' {Text
templateUri :: Text
knowledgeBaseId :: Text
$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
$sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"templateUri" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
templateUri)]
)
instance Data.ToPath UpdateKnowledgeBaseTemplateUri where
toPath :: UpdateKnowledgeBaseTemplateUri -> ByteString
toPath UpdateKnowledgeBaseTemplateUri' {Text
templateUri :: Text
knowledgeBaseId :: Text
$sel:templateUri:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
$sel:knowledgeBaseId:UpdateKnowledgeBaseTemplateUri' :: UpdateKnowledgeBaseTemplateUri -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/knowledgeBases/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
knowledgeBaseId,
ByteString
"/templateUri"
]
instance Data.ToQuery UpdateKnowledgeBaseTemplateUri where
toQuery :: UpdateKnowledgeBaseTemplateUri -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateKnowledgeBaseTemplateUriResponse = UpdateKnowledgeBaseTemplateUriResponse'
{
UpdateKnowledgeBaseTemplateUriResponse -> Maybe KnowledgeBaseData
knowledgeBase :: Prelude.Maybe KnowledgeBaseData,
UpdateKnowledgeBaseTemplateUriResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateKnowledgeBaseTemplateUriResponse
-> UpdateKnowledgeBaseTemplateUriResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateKnowledgeBaseTemplateUriResponse
-> UpdateKnowledgeBaseTemplateUriResponse -> Bool
$c/= :: UpdateKnowledgeBaseTemplateUriResponse
-> UpdateKnowledgeBaseTemplateUriResponse -> Bool
== :: UpdateKnowledgeBaseTemplateUriResponse
-> UpdateKnowledgeBaseTemplateUriResponse -> Bool
$c== :: UpdateKnowledgeBaseTemplateUriResponse
-> UpdateKnowledgeBaseTemplateUriResponse -> Bool
Prelude.Eq, ReadPrec [UpdateKnowledgeBaseTemplateUriResponse]
ReadPrec UpdateKnowledgeBaseTemplateUriResponse
Int -> ReadS UpdateKnowledgeBaseTemplateUriResponse
ReadS [UpdateKnowledgeBaseTemplateUriResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateKnowledgeBaseTemplateUriResponse]
$creadListPrec :: ReadPrec [UpdateKnowledgeBaseTemplateUriResponse]
readPrec :: ReadPrec UpdateKnowledgeBaseTemplateUriResponse
$creadPrec :: ReadPrec UpdateKnowledgeBaseTemplateUriResponse
readList :: ReadS [UpdateKnowledgeBaseTemplateUriResponse]
$creadList :: ReadS [UpdateKnowledgeBaseTemplateUriResponse]
readsPrec :: Int -> ReadS UpdateKnowledgeBaseTemplateUriResponse
$creadsPrec :: Int -> ReadS UpdateKnowledgeBaseTemplateUriResponse
Prelude.Read, Int -> UpdateKnowledgeBaseTemplateUriResponse -> ShowS
[UpdateKnowledgeBaseTemplateUriResponse] -> ShowS
UpdateKnowledgeBaseTemplateUriResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateKnowledgeBaseTemplateUriResponse] -> ShowS
$cshowList :: [UpdateKnowledgeBaseTemplateUriResponse] -> ShowS
show :: UpdateKnowledgeBaseTemplateUriResponse -> String
$cshow :: UpdateKnowledgeBaseTemplateUriResponse -> String
showsPrec :: Int -> UpdateKnowledgeBaseTemplateUriResponse -> ShowS
$cshowsPrec :: Int -> UpdateKnowledgeBaseTemplateUriResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateKnowledgeBaseTemplateUriResponse x
-> UpdateKnowledgeBaseTemplateUriResponse
forall x.
UpdateKnowledgeBaseTemplateUriResponse
-> Rep UpdateKnowledgeBaseTemplateUriResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateKnowledgeBaseTemplateUriResponse x
-> UpdateKnowledgeBaseTemplateUriResponse
$cfrom :: forall x.
UpdateKnowledgeBaseTemplateUriResponse
-> Rep UpdateKnowledgeBaseTemplateUriResponse x
Prelude.Generic)
newUpdateKnowledgeBaseTemplateUriResponse ::
Prelude.Int ->
UpdateKnowledgeBaseTemplateUriResponse
newUpdateKnowledgeBaseTemplateUriResponse :: Int -> UpdateKnowledgeBaseTemplateUriResponse
newUpdateKnowledgeBaseTemplateUriResponse
Int
pHttpStatus_ =
UpdateKnowledgeBaseTemplateUriResponse'
{ $sel:knowledgeBase:UpdateKnowledgeBaseTemplateUriResponse' :: Maybe KnowledgeBaseData
knowledgeBase =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateKnowledgeBaseTemplateUriResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateKnowledgeBaseTemplateUriResponse_knowledgeBase :: Lens.Lens' UpdateKnowledgeBaseTemplateUriResponse (Prelude.Maybe KnowledgeBaseData)
updateKnowledgeBaseTemplateUriResponse_knowledgeBase :: Lens'
UpdateKnowledgeBaseTemplateUriResponse (Maybe KnowledgeBaseData)
updateKnowledgeBaseTemplateUriResponse_knowledgeBase = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateKnowledgeBaseTemplateUriResponse' {Maybe KnowledgeBaseData
knowledgeBase :: Maybe KnowledgeBaseData
$sel:knowledgeBase:UpdateKnowledgeBaseTemplateUriResponse' :: UpdateKnowledgeBaseTemplateUriResponse -> Maybe KnowledgeBaseData
knowledgeBase} -> Maybe KnowledgeBaseData
knowledgeBase) (\s :: UpdateKnowledgeBaseTemplateUriResponse
s@UpdateKnowledgeBaseTemplateUriResponse' {} Maybe KnowledgeBaseData
a -> UpdateKnowledgeBaseTemplateUriResponse
s {$sel:knowledgeBase:UpdateKnowledgeBaseTemplateUriResponse' :: Maybe KnowledgeBaseData
knowledgeBase = Maybe KnowledgeBaseData
a} :: UpdateKnowledgeBaseTemplateUriResponse)
updateKnowledgeBaseTemplateUriResponse_httpStatus :: Lens.Lens' UpdateKnowledgeBaseTemplateUriResponse Prelude.Int
updateKnowledgeBaseTemplateUriResponse_httpStatus :: Lens' UpdateKnowledgeBaseTemplateUriResponse Int
updateKnowledgeBaseTemplateUriResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateKnowledgeBaseTemplateUriResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateKnowledgeBaseTemplateUriResponse' :: UpdateKnowledgeBaseTemplateUriResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateKnowledgeBaseTemplateUriResponse
s@UpdateKnowledgeBaseTemplateUriResponse' {} Int
a -> UpdateKnowledgeBaseTemplateUriResponse
s {$sel:httpStatus:UpdateKnowledgeBaseTemplateUriResponse' :: Int
httpStatus = Int
a} :: UpdateKnowledgeBaseTemplateUriResponse)
instance
Prelude.NFData
UpdateKnowledgeBaseTemplateUriResponse
where
rnf :: UpdateKnowledgeBaseTemplateUriResponse -> ()
rnf UpdateKnowledgeBaseTemplateUriResponse' {Int
Maybe KnowledgeBaseData
httpStatus :: Int
knowledgeBase :: Maybe KnowledgeBaseData
$sel:httpStatus:UpdateKnowledgeBaseTemplateUriResponse' :: UpdateKnowledgeBaseTemplateUriResponse -> Int
$sel:knowledgeBase:UpdateKnowledgeBaseTemplateUriResponse' :: UpdateKnowledgeBaseTemplateUriResponse -> Maybe KnowledgeBaseData
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe KnowledgeBaseData
knowledgeBase
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus