{-# 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.ElasticSearch.DeleteInboundCrossClusterSearchConnection
(
DeleteInboundCrossClusterSearchConnection (..),
newDeleteInboundCrossClusterSearchConnection,
deleteInboundCrossClusterSearchConnection_crossClusterSearchConnectionId,
DeleteInboundCrossClusterSearchConnectionResponse (..),
newDeleteInboundCrossClusterSearchConnectionResponse,
deleteInboundCrossClusterSearchConnectionResponse_crossClusterSearchConnection,
deleteInboundCrossClusterSearchConnectionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import Amazonka.ElasticSearch.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteInboundCrossClusterSearchConnection = DeleteInboundCrossClusterSearchConnection'
{
DeleteInboundCrossClusterSearchConnection -> Text
crossClusterSearchConnectionId :: Prelude.Text
}
deriving (DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool
(DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool)
-> (DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool)
-> Eq DeleteInboundCrossClusterSearchConnection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool
$c/= :: DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool
== :: DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool
$c== :: DeleteInboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnection -> Bool
Prelude.Eq, ReadPrec [DeleteInboundCrossClusterSearchConnection]
ReadPrec DeleteInboundCrossClusterSearchConnection
Int -> ReadS DeleteInboundCrossClusterSearchConnection
ReadS [DeleteInboundCrossClusterSearchConnection]
(Int -> ReadS DeleteInboundCrossClusterSearchConnection)
-> ReadS [DeleteInboundCrossClusterSearchConnection]
-> ReadPrec DeleteInboundCrossClusterSearchConnection
-> ReadPrec [DeleteInboundCrossClusterSearchConnection]
-> Read DeleteInboundCrossClusterSearchConnection
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteInboundCrossClusterSearchConnection]
$creadListPrec :: ReadPrec [DeleteInboundCrossClusterSearchConnection]
readPrec :: ReadPrec DeleteInboundCrossClusterSearchConnection
$creadPrec :: ReadPrec DeleteInboundCrossClusterSearchConnection
readList :: ReadS [DeleteInboundCrossClusterSearchConnection]
$creadList :: ReadS [DeleteInboundCrossClusterSearchConnection]
readsPrec :: Int -> ReadS DeleteInboundCrossClusterSearchConnection
$creadsPrec :: Int -> ReadS DeleteInboundCrossClusterSearchConnection
Prelude.Read, Int -> DeleteInboundCrossClusterSearchConnection -> ShowS
[DeleteInboundCrossClusterSearchConnection] -> ShowS
DeleteInboundCrossClusterSearchConnection -> String
(Int -> DeleteInboundCrossClusterSearchConnection -> ShowS)
-> (DeleteInboundCrossClusterSearchConnection -> String)
-> ([DeleteInboundCrossClusterSearchConnection] -> ShowS)
-> Show DeleteInboundCrossClusterSearchConnection
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteInboundCrossClusterSearchConnection] -> ShowS
$cshowList :: [DeleteInboundCrossClusterSearchConnection] -> ShowS
show :: DeleteInboundCrossClusterSearchConnection -> String
$cshow :: DeleteInboundCrossClusterSearchConnection -> String
showsPrec :: Int -> DeleteInboundCrossClusterSearchConnection -> ShowS
$cshowsPrec :: Int -> DeleteInboundCrossClusterSearchConnection -> ShowS
Prelude.Show, (forall x.
DeleteInboundCrossClusterSearchConnection
-> Rep DeleteInboundCrossClusterSearchConnection x)
-> (forall x.
Rep DeleteInboundCrossClusterSearchConnection x
-> DeleteInboundCrossClusterSearchConnection)
-> Generic DeleteInboundCrossClusterSearchConnection
forall x.
Rep DeleteInboundCrossClusterSearchConnection x
-> DeleteInboundCrossClusterSearchConnection
forall x.
DeleteInboundCrossClusterSearchConnection
-> Rep DeleteInboundCrossClusterSearchConnection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteInboundCrossClusterSearchConnection x
-> DeleteInboundCrossClusterSearchConnection
$cfrom :: forall x.
DeleteInboundCrossClusterSearchConnection
-> Rep DeleteInboundCrossClusterSearchConnection x
Prelude.Generic)
newDeleteInboundCrossClusterSearchConnection ::
Prelude.Text ->
DeleteInboundCrossClusterSearchConnection
newDeleteInboundCrossClusterSearchConnection :: Text -> DeleteInboundCrossClusterSearchConnection
newDeleteInboundCrossClusterSearchConnection
Text
pCrossClusterSearchConnectionId_ =
DeleteInboundCrossClusterSearchConnection' :: Text -> DeleteInboundCrossClusterSearchConnection
DeleteInboundCrossClusterSearchConnection'
{ $sel:crossClusterSearchConnectionId:DeleteInboundCrossClusterSearchConnection' :: Text
crossClusterSearchConnectionId =
Text
pCrossClusterSearchConnectionId_
}
deleteInboundCrossClusterSearchConnection_crossClusterSearchConnectionId :: Lens.Lens' DeleteInboundCrossClusterSearchConnection Prelude.Text
deleteInboundCrossClusterSearchConnection_crossClusterSearchConnectionId :: (Text -> f Text)
-> DeleteInboundCrossClusterSearchConnection
-> f DeleteInboundCrossClusterSearchConnection
deleteInboundCrossClusterSearchConnection_crossClusterSearchConnectionId = (DeleteInboundCrossClusterSearchConnection -> Text)
-> (DeleteInboundCrossClusterSearchConnection
-> Text -> DeleteInboundCrossClusterSearchConnection)
-> Lens
DeleteInboundCrossClusterSearchConnection
DeleteInboundCrossClusterSearchConnection
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInboundCrossClusterSearchConnection' {Text
crossClusterSearchConnectionId :: Text
$sel:crossClusterSearchConnectionId:DeleteInboundCrossClusterSearchConnection' :: DeleteInboundCrossClusterSearchConnection -> Text
crossClusterSearchConnectionId} -> Text
crossClusterSearchConnectionId) (\s :: DeleteInboundCrossClusterSearchConnection
s@DeleteInboundCrossClusterSearchConnection' {} Text
a -> DeleteInboundCrossClusterSearchConnection
s {$sel:crossClusterSearchConnectionId:DeleteInboundCrossClusterSearchConnection' :: Text
crossClusterSearchConnectionId = Text
a} :: DeleteInboundCrossClusterSearchConnection)
instance
Core.AWSRequest
DeleteInboundCrossClusterSearchConnection
where
type
AWSResponse
DeleteInboundCrossClusterSearchConnection =
DeleteInboundCrossClusterSearchConnectionResponse
request :: DeleteInboundCrossClusterSearchConnection
-> Request DeleteInboundCrossClusterSearchConnection
request = Service
-> DeleteInboundCrossClusterSearchConnection
-> Request DeleteInboundCrossClusterSearchConnection
forall a. ToRequest a => Service -> a -> Request a
Request.delete Service
defaultService
response :: Logger
-> Service
-> Proxy DeleteInboundCrossClusterSearchConnection
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DeleteInboundCrossClusterSearchConnection)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either
String (AWSResponse DeleteInboundCrossClusterSearchConnection))
-> Logger
-> Service
-> Proxy DeleteInboundCrossClusterSearchConnection
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DeleteInboundCrossClusterSearchConnection)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe InboundCrossClusterSearchConnection
-> Int -> DeleteInboundCrossClusterSearchConnectionResponse
DeleteInboundCrossClusterSearchConnectionResponse'
(Maybe InboundCrossClusterSearchConnection
-> Int -> DeleteInboundCrossClusterSearchConnectionResponse)
-> Either String (Maybe InboundCrossClusterSearchConnection)
-> Either
String (Int -> DeleteInboundCrossClusterSearchConnectionResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object
-> Text
-> Either String (Maybe InboundCrossClusterSearchConnection)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"CrossClusterSearchConnection")
Either
String (Int -> DeleteInboundCrossClusterSearchConnectionResponse)
-> Either String Int
-> Either String DeleteInboundCrossClusterSearchConnectionResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DeleteInboundCrossClusterSearchConnection
instance
Prelude.NFData
DeleteInboundCrossClusterSearchConnection
instance
Core.ToHeaders
DeleteInboundCrossClusterSearchConnection
where
toHeaders :: DeleteInboundCrossClusterSearchConnection -> ResponseHeaders
toHeaders = ResponseHeaders
-> DeleteInboundCrossClusterSearchConnection -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance
Core.ToPath
DeleteInboundCrossClusterSearchConnection
where
toPath :: DeleteInboundCrossClusterSearchConnection -> ByteString
toPath DeleteInboundCrossClusterSearchConnection' {Text
crossClusterSearchConnectionId :: Text
$sel:crossClusterSearchConnectionId:DeleteInboundCrossClusterSearchConnection' :: DeleteInboundCrossClusterSearchConnection -> Text
..} =
[ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2015-01-01/es/ccs/inboundConnection/",
Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
crossClusterSearchConnectionId
]
instance
Core.ToQuery
DeleteInboundCrossClusterSearchConnection
where
toQuery :: DeleteInboundCrossClusterSearchConnection -> QueryString
toQuery = QueryString
-> DeleteInboundCrossClusterSearchConnection -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data DeleteInboundCrossClusterSearchConnectionResponse = DeleteInboundCrossClusterSearchConnectionResponse'
{
DeleteInboundCrossClusterSearchConnectionResponse
-> Maybe InboundCrossClusterSearchConnection
crossClusterSearchConnection :: Prelude.Maybe InboundCrossClusterSearchConnection,
DeleteInboundCrossClusterSearchConnectionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool
(DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool)
-> (DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool)
-> Eq DeleteInboundCrossClusterSearchConnectionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool
$c/= :: DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool
== :: DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool
$c== :: DeleteInboundCrossClusterSearchConnectionResponse
-> DeleteInboundCrossClusterSearchConnectionResponse -> Bool
Prelude.Eq, ReadPrec [DeleteInboundCrossClusterSearchConnectionResponse]
ReadPrec DeleteInboundCrossClusterSearchConnectionResponse
Int -> ReadS DeleteInboundCrossClusterSearchConnectionResponse
ReadS [DeleteInboundCrossClusterSearchConnectionResponse]
(Int -> ReadS DeleteInboundCrossClusterSearchConnectionResponse)
-> ReadS [DeleteInboundCrossClusterSearchConnectionResponse]
-> ReadPrec DeleteInboundCrossClusterSearchConnectionResponse
-> ReadPrec [DeleteInboundCrossClusterSearchConnectionResponse]
-> Read DeleteInboundCrossClusterSearchConnectionResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteInboundCrossClusterSearchConnectionResponse]
$creadListPrec :: ReadPrec [DeleteInboundCrossClusterSearchConnectionResponse]
readPrec :: ReadPrec DeleteInboundCrossClusterSearchConnectionResponse
$creadPrec :: ReadPrec DeleteInboundCrossClusterSearchConnectionResponse
readList :: ReadS [DeleteInboundCrossClusterSearchConnectionResponse]
$creadList :: ReadS [DeleteInboundCrossClusterSearchConnectionResponse]
readsPrec :: Int -> ReadS DeleteInboundCrossClusterSearchConnectionResponse
$creadsPrec :: Int -> ReadS DeleteInboundCrossClusterSearchConnectionResponse
Prelude.Read, Int -> DeleteInboundCrossClusterSearchConnectionResponse -> ShowS
[DeleteInboundCrossClusterSearchConnectionResponse] -> ShowS
DeleteInboundCrossClusterSearchConnectionResponse -> String
(Int -> DeleteInboundCrossClusterSearchConnectionResponse -> ShowS)
-> (DeleteInboundCrossClusterSearchConnectionResponse -> String)
-> ([DeleteInboundCrossClusterSearchConnectionResponse] -> ShowS)
-> Show DeleteInboundCrossClusterSearchConnectionResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteInboundCrossClusterSearchConnectionResponse] -> ShowS
$cshowList :: [DeleteInboundCrossClusterSearchConnectionResponse] -> ShowS
show :: DeleteInboundCrossClusterSearchConnectionResponse -> String
$cshow :: DeleteInboundCrossClusterSearchConnectionResponse -> String
showsPrec :: Int -> DeleteInboundCrossClusterSearchConnectionResponse -> ShowS
$cshowsPrec :: Int -> DeleteInboundCrossClusterSearchConnectionResponse -> ShowS
Prelude.Show, (forall x.
DeleteInboundCrossClusterSearchConnectionResponse
-> Rep DeleteInboundCrossClusterSearchConnectionResponse x)
-> (forall x.
Rep DeleteInboundCrossClusterSearchConnectionResponse x
-> DeleteInboundCrossClusterSearchConnectionResponse)
-> Generic DeleteInboundCrossClusterSearchConnectionResponse
forall x.
Rep DeleteInboundCrossClusterSearchConnectionResponse x
-> DeleteInboundCrossClusterSearchConnectionResponse
forall x.
DeleteInboundCrossClusterSearchConnectionResponse
-> Rep DeleteInboundCrossClusterSearchConnectionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteInboundCrossClusterSearchConnectionResponse x
-> DeleteInboundCrossClusterSearchConnectionResponse
$cfrom :: forall x.
DeleteInboundCrossClusterSearchConnectionResponse
-> Rep DeleteInboundCrossClusterSearchConnectionResponse x
Prelude.Generic)
newDeleteInboundCrossClusterSearchConnectionResponse ::
Prelude.Int ->
DeleteInboundCrossClusterSearchConnectionResponse
newDeleteInboundCrossClusterSearchConnectionResponse :: Int -> DeleteInboundCrossClusterSearchConnectionResponse
newDeleteInboundCrossClusterSearchConnectionResponse
Int
pHttpStatus_ =
DeleteInboundCrossClusterSearchConnectionResponse' :: Maybe InboundCrossClusterSearchConnection
-> Int -> DeleteInboundCrossClusterSearchConnectionResponse
DeleteInboundCrossClusterSearchConnectionResponse'
{ $sel:crossClusterSearchConnection:DeleteInboundCrossClusterSearchConnectionResponse' :: Maybe InboundCrossClusterSearchConnection
crossClusterSearchConnection =
Maybe InboundCrossClusterSearchConnection
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteInboundCrossClusterSearchConnectionResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteInboundCrossClusterSearchConnectionResponse_crossClusterSearchConnection :: Lens.Lens' DeleteInboundCrossClusterSearchConnectionResponse (Prelude.Maybe InboundCrossClusterSearchConnection)
deleteInboundCrossClusterSearchConnectionResponse_crossClusterSearchConnection :: (Maybe InboundCrossClusterSearchConnection
-> f (Maybe InboundCrossClusterSearchConnection))
-> DeleteInboundCrossClusterSearchConnectionResponse
-> f DeleteInboundCrossClusterSearchConnectionResponse
deleteInboundCrossClusterSearchConnectionResponse_crossClusterSearchConnection = (DeleteInboundCrossClusterSearchConnectionResponse
-> Maybe InboundCrossClusterSearchConnection)
-> (DeleteInboundCrossClusterSearchConnectionResponse
-> Maybe InboundCrossClusterSearchConnection
-> DeleteInboundCrossClusterSearchConnectionResponse)
-> Lens
DeleteInboundCrossClusterSearchConnectionResponse
DeleteInboundCrossClusterSearchConnectionResponse
(Maybe InboundCrossClusterSearchConnection)
(Maybe InboundCrossClusterSearchConnection)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInboundCrossClusterSearchConnectionResponse' {Maybe InboundCrossClusterSearchConnection
crossClusterSearchConnection :: Maybe InboundCrossClusterSearchConnection
$sel:crossClusterSearchConnection:DeleteInboundCrossClusterSearchConnectionResponse' :: DeleteInboundCrossClusterSearchConnectionResponse
-> Maybe InboundCrossClusterSearchConnection
crossClusterSearchConnection} -> Maybe InboundCrossClusterSearchConnection
crossClusterSearchConnection) (\s :: DeleteInboundCrossClusterSearchConnectionResponse
s@DeleteInboundCrossClusterSearchConnectionResponse' {} Maybe InboundCrossClusterSearchConnection
a -> DeleteInboundCrossClusterSearchConnectionResponse
s {$sel:crossClusterSearchConnection:DeleteInboundCrossClusterSearchConnectionResponse' :: Maybe InboundCrossClusterSearchConnection
crossClusterSearchConnection = Maybe InboundCrossClusterSearchConnection
a} :: DeleteInboundCrossClusterSearchConnectionResponse)
deleteInboundCrossClusterSearchConnectionResponse_httpStatus :: Lens.Lens' DeleteInboundCrossClusterSearchConnectionResponse Prelude.Int
deleteInboundCrossClusterSearchConnectionResponse_httpStatus :: (Int -> f Int)
-> DeleteInboundCrossClusterSearchConnectionResponse
-> f DeleteInboundCrossClusterSearchConnectionResponse
deleteInboundCrossClusterSearchConnectionResponse_httpStatus = (DeleteInboundCrossClusterSearchConnectionResponse -> Int)
-> (DeleteInboundCrossClusterSearchConnectionResponse
-> Int -> DeleteInboundCrossClusterSearchConnectionResponse)
-> Lens
DeleteInboundCrossClusterSearchConnectionResponse
DeleteInboundCrossClusterSearchConnectionResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInboundCrossClusterSearchConnectionResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteInboundCrossClusterSearchConnectionResponse' :: DeleteInboundCrossClusterSearchConnectionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteInboundCrossClusterSearchConnectionResponse
s@DeleteInboundCrossClusterSearchConnectionResponse' {} Int
a -> DeleteInboundCrossClusterSearchConnectionResponse
s {$sel:httpStatus:DeleteInboundCrossClusterSearchConnectionResponse' :: Int
httpStatus = Int
a} :: DeleteInboundCrossClusterSearchConnectionResponse)
instance
Prelude.NFData
DeleteInboundCrossClusterSearchConnectionResponse