{-# 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.CreateOutboundCrossClusterSearchConnection
(
CreateOutboundCrossClusterSearchConnection (..),
newCreateOutboundCrossClusterSearchConnection,
createOutboundCrossClusterSearchConnection_sourceDomainInfo,
createOutboundCrossClusterSearchConnection_destinationDomainInfo,
createOutboundCrossClusterSearchConnection_connectionAlias,
CreateOutboundCrossClusterSearchConnectionResponse (..),
newCreateOutboundCrossClusterSearchConnectionResponse,
createOutboundCrossClusterSearchConnectionResponse_connectionAlias,
createOutboundCrossClusterSearchConnectionResponse_connectionStatus,
createOutboundCrossClusterSearchConnectionResponse_crossClusterSearchConnectionId,
createOutboundCrossClusterSearchConnectionResponse_destinationDomainInfo,
createOutboundCrossClusterSearchConnectionResponse_sourceDomainInfo,
createOutboundCrossClusterSearchConnectionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElasticSearch.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateOutboundCrossClusterSearchConnection = CreateOutboundCrossClusterSearchConnection'
{
CreateOutboundCrossClusterSearchConnection -> DomainInformation
sourceDomainInfo :: DomainInformation,
CreateOutboundCrossClusterSearchConnection -> DomainInformation
destinationDomainInfo :: DomainInformation,
CreateOutboundCrossClusterSearchConnection -> Text
connectionAlias :: Prelude.Text
}
deriving (CreateOutboundCrossClusterSearchConnection
-> CreateOutboundCrossClusterSearchConnection -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateOutboundCrossClusterSearchConnection
-> CreateOutboundCrossClusterSearchConnection -> Bool
$c/= :: CreateOutboundCrossClusterSearchConnection
-> CreateOutboundCrossClusterSearchConnection -> Bool
== :: CreateOutboundCrossClusterSearchConnection
-> CreateOutboundCrossClusterSearchConnection -> Bool
$c== :: CreateOutboundCrossClusterSearchConnection
-> CreateOutboundCrossClusterSearchConnection -> Bool
Prelude.Eq, ReadPrec [CreateOutboundCrossClusterSearchConnection]
ReadPrec CreateOutboundCrossClusterSearchConnection
Int -> ReadS CreateOutboundCrossClusterSearchConnection
ReadS [CreateOutboundCrossClusterSearchConnection]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateOutboundCrossClusterSearchConnection]
$creadListPrec :: ReadPrec [CreateOutboundCrossClusterSearchConnection]
readPrec :: ReadPrec CreateOutboundCrossClusterSearchConnection
$creadPrec :: ReadPrec CreateOutboundCrossClusterSearchConnection
readList :: ReadS [CreateOutboundCrossClusterSearchConnection]
$creadList :: ReadS [CreateOutboundCrossClusterSearchConnection]
readsPrec :: Int -> ReadS CreateOutboundCrossClusterSearchConnection
$creadsPrec :: Int -> ReadS CreateOutboundCrossClusterSearchConnection
Prelude.Read, Int -> CreateOutboundCrossClusterSearchConnection -> ShowS
[CreateOutboundCrossClusterSearchConnection] -> ShowS
CreateOutboundCrossClusterSearchConnection -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateOutboundCrossClusterSearchConnection] -> ShowS
$cshowList :: [CreateOutboundCrossClusterSearchConnection] -> ShowS
show :: CreateOutboundCrossClusterSearchConnection -> String
$cshow :: CreateOutboundCrossClusterSearchConnection -> String
showsPrec :: Int -> CreateOutboundCrossClusterSearchConnection -> ShowS
$cshowsPrec :: Int -> CreateOutboundCrossClusterSearchConnection -> ShowS
Prelude.Show, forall x.
Rep CreateOutboundCrossClusterSearchConnection x
-> CreateOutboundCrossClusterSearchConnection
forall x.
CreateOutboundCrossClusterSearchConnection
-> Rep CreateOutboundCrossClusterSearchConnection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateOutboundCrossClusterSearchConnection x
-> CreateOutboundCrossClusterSearchConnection
$cfrom :: forall x.
CreateOutboundCrossClusterSearchConnection
-> Rep CreateOutboundCrossClusterSearchConnection x
Prelude.Generic)
newCreateOutboundCrossClusterSearchConnection ::
DomainInformation ->
DomainInformation ->
Prelude.Text ->
CreateOutboundCrossClusterSearchConnection
newCreateOutboundCrossClusterSearchConnection :: DomainInformation
-> DomainInformation
-> Text
-> CreateOutboundCrossClusterSearchConnection
newCreateOutboundCrossClusterSearchConnection
DomainInformation
pSourceDomainInfo_
DomainInformation
pDestinationDomainInfo_
Text
pConnectionAlias_ =
CreateOutboundCrossClusterSearchConnection'
{ $sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnection' :: DomainInformation
sourceDomainInfo =
DomainInformation
pSourceDomainInfo_,
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnection' :: DomainInformation
destinationDomainInfo =
DomainInformation
pDestinationDomainInfo_,
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnection' :: Text
connectionAlias =
Text
pConnectionAlias_
}
createOutboundCrossClusterSearchConnection_sourceDomainInfo :: Lens.Lens' CreateOutboundCrossClusterSearchConnection DomainInformation
createOutboundCrossClusterSearchConnection_sourceDomainInfo :: Lens' CreateOutboundCrossClusterSearchConnection DomainInformation
createOutboundCrossClusterSearchConnection_sourceDomainInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnection' {DomainInformation
sourceDomainInfo :: DomainInformation
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
sourceDomainInfo} -> DomainInformation
sourceDomainInfo) (\s :: CreateOutboundCrossClusterSearchConnection
s@CreateOutboundCrossClusterSearchConnection' {} DomainInformation
a -> CreateOutboundCrossClusterSearchConnection
s {$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnection' :: DomainInformation
sourceDomainInfo = DomainInformation
a} :: CreateOutboundCrossClusterSearchConnection)
createOutboundCrossClusterSearchConnection_destinationDomainInfo :: Lens.Lens' CreateOutboundCrossClusterSearchConnection DomainInformation
createOutboundCrossClusterSearchConnection_destinationDomainInfo :: Lens' CreateOutboundCrossClusterSearchConnection DomainInformation
createOutboundCrossClusterSearchConnection_destinationDomainInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnection' {DomainInformation
destinationDomainInfo :: DomainInformation
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
destinationDomainInfo} -> DomainInformation
destinationDomainInfo) (\s :: CreateOutboundCrossClusterSearchConnection
s@CreateOutboundCrossClusterSearchConnection' {} DomainInformation
a -> CreateOutboundCrossClusterSearchConnection
s {$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnection' :: DomainInformation
destinationDomainInfo = DomainInformation
a} :: CreateOutboundCrossClusterSearchConnection)
createOutboundCrossClusterSearchConnection_connectionAlias :: Lens.Lens' CreateOutboundCrossClusterSearchConnection Prelude.Text
createOutboundCrossClusterSearchConnection_connectionAlias :: Lens' CreateOutboundCrossClusterSearchConnection Text
createOutboundCrossClusterSearchConnection_connectionAlias = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnection' {Text
connectionAlias :: Text
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> Text
connectionAlias} -> Text
connectionAlias) (\s :: CreateOutboundCrossClusterSearchConnection
s@CreateOutboundCrossClusterSearchConnection' {} Text
a -> CreateOutboundCrossClusterSearchConnection
s {$sel:connectionAlias:CreateOutboundCrossClusterSearchConnection' :: Text
connectionAlias = Text
a} :: CreateOutboundCrossClusterSearchConnection)
instance
Core.AWSRequest
CreateOutboundCrossClusterSearchConnection
where
type
AWSResponse
CreateOutboundCrossClusterSearchConnection =
CreateOutboundCrossClusterSearchConnectionResponse
request :: (Service -> Service)
-> CreateOutboundCrossClusterSearchConnection
-> Request CreateOutboundCrossClusterSearchConnection
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 CreateOutboundCrossClusterSearchConnection
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse CreateOutboundCrossClusterSearchConnection)))
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 Text
-> Maybe OutboundCrossClusterSearchConnectionStatus
-> Maybe Text
-> Maybe DomainInformation
-> Maybe DomainInformation
-> Int
-> CreateOutboundCrossClusterSearchConnectionResponse
CreateOutboundCrossClusterSearchConnectionResponse'
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
"ConnectionAlias")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ConnectionStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CrossClusterSearchConnectionId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"DestinationDomainInfo")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SourceDomainInfo")
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
CreateOutboundCrossClusterSearchConnection
where
hashWithSalt :: Int -> CreateOutboundCrossClusterSearchConnection -> Int
hashWithSalt
Int
_salt
CreateOutboundCrossClusterSearchConnection' {Text
DomainInformation
connectionAlias :: Text
destinationDomainInfo :: DomainInformation
sourceDomainInfo :: DomainInformation
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> Text
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` DomainInformation
sourceDomainInfo
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` DomainInformation
destinationDomainInfo
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
connectionAlias
instance
Prelude.NFData
CreateOutboundCrossClusterSearchConnection
where
rnf :: CreateOutboundCrossClusterSearchConnection -> ()
rnf CreateOutboundCrossClusterSearchConnection' {Text
DomainInformation
connectionAlias :: Text
destinationDomainInfo :: DomainInformation
sourceDomainInfo :: DomainInformation
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> Text
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
..} =
forall a. NFData a => a -> ()
Prelude.rnf DomainInformation
sourceDomainInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DomainInformation
destinationDomainInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
connectionAlias
instance
Data.ToHeaders
CreateOutboundCrossClusterSearchConnection
where
toHeaders :: CreateOutboundCrossClusterSearchConnection -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToJSON
CreateOutboundCrossClusterSearchConnection
where
toJSON :: CreateOutboundCrossClusterSearchConnection -> Value
toJSON
CreateOutboundCrossClusterSearchConnection' {Text
DomainInformation
connectionAlias :: Text
destinationDomainInfo :: DomainInformation
sourceDomainInfo :: DomainInformation
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> Text
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnection' :: CreateOutboundCrossClusterSearchConnection -> DomainInformation
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"SourceDomainInfo" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= DomainInformation
sourceDomainInfo),
forall a. a -> Maybe a
Prelude.Just
( Key
"DestinationDomainInfo"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= DomainInformation
destinationDomainInfo
),
forall a. a -> Maybe a
Prelude.Just
(Key
"ConnectionAlias" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
connectionAlias)
]
)
instance
Data.ToPath
CreateOutboundCrossClusterSearchConnection
where
toPath :: CreateOutboundCrossClusterSearchConnection -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const
ByteString
"/2015-01-01/es/ccs/outboundConnection"
instance
Data.ToQuery
CreateOutboundCrossClusterSearchConnection
where
toQuery :: CreateOutboundCrossClusterSearchConnection -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateOutboundCrossClusterSearchConnectionResponse = CreateOutboundCrossClusterSearchConnectionResponse'
{
CreateOutboundCrossClusterSearchConnectionResponse -> Maybe Text
connectionAlias :: Prelude.Maybe Prelude.Text,
CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus :: Prelude.Maybe OutboundCrossClusterSearchConnectionStatus,
CreateOutboundCrossClusterSearchConnectionResponse -> Maybe Text
crossClusterSearchConnectionId :: Prelude.Maybe Prelude.Text,
CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe DomainInformation
destinationDomainInfo :: Prelude.Maybe DomainInformation,
CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe DomainInformation
sourceDomainInfo :: Prelude.Maybe DomainInformation,
CreateOutboundCrossClusterSearchConnectionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateOutboundCrossClusterSearchConnectionResponse
-> CreateOutboundCrossClusterSearchConnectionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateOutboundCrossClusterSearchConnectionResponse
-> CreateOutboundCrossClusterSearchConnectionResponse -> Bool
$c/= :: CreateOutboundCrossClusterSearchConnectionResponse
-> CreateOutboundCrossClusterSearchConnectionResponse -> Bool
== :: CreateOutboundCrossClusterSearchConnectionResponse
-> CreateOutboundCrossClusterSearchConnectionResponse -> Bool
$c== :: CreateOutboundCrossClusterSearchConnectionResponse
-> CreateOutboundCrossClusterSearchConnectionResponse -> Bool
Prelude.Eq, ReadPrec [CreateOutboundCrossClusterSearchConnectionResponse]
ReadPrec CreateOutboundCrossClusterSearchConnectionResponse
Int -> ReadS CreateOutboundCrossClusterSearchConnectionResponse
ReadS [CreateOutboundCrossClusterSearchConnectionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateOutboundCrossClusterSearchConnectionResponse]
$creadListPrec :: ReadPrec [CreateOutboundCrossClusterSearchConnectionResponse]
readPrec :: ReadPrec CreateOutboundCrossClusterSearchConnectionResponse
$creadPrec :: ReadPrec CreateOutboundCrossClusterSearchConnectionResponse
readList :: ReadS [CreateOutboundCrossClusterSearchConnectionResponse]
$creadList :: ReadS [CreateOutboundCrossClusterSearchConnectionResponse]
readsPrec :: Int -> ReadS CreateOutboundCrossClusterSearchConnectionResponse
$creadsPrec :: Int -> ReadS CreateOutboundCrossClusterSearchConnectionResponse
Prelude.Read, Int -> CreateOutboundCrossClusterSearchConnectionResponse -> ShowS
[CreateOutboundCrossClusterSearchConnectionResponse] -> ShowS
CreateOutboundCrossClusterSearchConnectionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateOutboundCrossClusterSearchConnectionResponse] -> ShowS
$cshowList :: [CreateOutboundCrossClusterSearchConnectionResponse] -> ShowS
show :: CreateOutboundCrossClusterSearchConnectionResponse -> String
$cshow :: CreateOutboundCrossClusterSearchConnectionResponse -> String
showsPrec :: Int -> CreateOutboundCrossClusterSearchConnectionResponse -> ShowS
$cshowsPrec :: Int -> CreateOutboundCrossClusterSearchConnectionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateOutboundCrossClusterSearchConnectionResponse x
-> CreateOutboundCrossClusterSearchConnectionResponse
forall x.
CreateOutboundCrossClusterSearchConnectionResponse
-> Rep CreateOutboundCrossClusterSearchConnectionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateOutboundCrossClusterSearchConnectionResponse x
-> CreateOutboundCrossClusterSearchConnectionResponse
$cfrom :: forall x.
CreateOutboundCrossClusterSearchConnectionResponse
-> Rep CreateOutboundCrossClusterSearchConnectionResponse x
Prelude.Generic)
newCreateOutboundCrossClusterSearchConnectionResponse ::
Prelude.Int ->
CreateOutboundCrossClusterSearchConnectionResponse
newCreateOutboundCrossClusterSearchConnectionResponse :: Int -> CreateOutboundCrossClusterSearchConnectionResponse
newCreateOutboundCrossClusterSearchConnectionResponse
Int
pHttpStatus_ =
CreateOutboundCrossClusterSearchConnectionResponse'
{ $sel:connectionAlias:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe Text
connectionAlias =
forall a. Maybe a
Prelude.Nothing,
$sel:connectionStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:crossClusterSearchConnectionId:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe Text
crossClusterSearchConnectionId =
forall a. Maybe a
Prelude.Nothing,
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe DomainInformation
destinationDomainInfo =
forall a. Maybe a
Prelude.Nothing,
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe DomainInformation
sourceDomainInfo =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
createOutboundCrossClusterSearchConnectionResponse_connectionAlias :: Lens.Lens' CreateOutboundCrossClusterSearchConnectionResponse (Prelude.Maybe Prelude.Text)
createOutboundCrossClusterSearchConnectionResponse_connectionAlias :: Lens'
CreateOutboundCrossClusterSearchConnectionResponse (Maybe Text)
createOutboundCrossClusterSearchConnectionResponse_connectionAlias = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnectionResponse' {Maybe Text
connectionAlias :: Maybe Text
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse -> Maybe Text
connectionAlias} -> Maybe Text
connectionAlias) (\s :: CreateOutboundCrossClusterSearchConnectionResponse
s@CreateOutboundCrossClusterSearchConnectionResponse' {} Maybe Text
a -> CreateOutboundCrossClusterSearchConnectionResponse
s {$sel:connectionAlias:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe Text
connectionAlias = Maybe Text
a} :: CreateOutboundCrossClusterSearchConnectionResponse)
createOutboundCrossClusterSearchConnectionResponse_connectionStatus :: Lens.Lens' CreateOutboundCrossClusterSearchConnectionResponse (Prelude.Maybe OutboundCrossClusterSearchConnectionStatus)
createOutboundCrossClusterSearchConnectionResponse_connectionStatus :: Lens'
CreateOutboundCrossClusterSearchConnectionResponse
(Maybe OutboundCrossClusterSearchConnectionStatus)
createOutboundCrossClusterSearchConnectionResponse_connectionStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnectionResponse' {Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus :: Maybe OutboundCrossClusterSearchConnectionStatus
$sel:connectionStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus} -> Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus) (\s :: CreateOutboundCrossClusterSearchConnectionResponse
s@CreateOutboundCrossClusterSearchConnectionResponse' {} Maybe OutboundCrossClusterSearchConnectionStatus
a -> CreateOutboundCrossClusterSearchConnectionResponse
s {$sel:connectionStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus = Maybe OutboundCrossClusterSearchConnectionStatus
a} :: CreateOutboundCrossClusterSearchConnectionResponse)
createOutboundCrossClusterSearchConnectionResponse_crossClusterSearchConnectionId :: Lens.Lens' CreateOutboundCrossClusterSearchConnectionResponse (Prelude.Maybe Prelude.Text)
createOutboundCrossClusterSearchConnectionResponse_crossClusterSearchConnectionId :: Lens'
CreateOutboundCrossClusterSearchConnectionResponse (Maybe Text)
createOutboundCrossClusterSearchConnectionResponse_crossClusterSearchConnectionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnectionResponse' {Maybe Text
crossClusterSearchConnectionId :: Maybe Text
$sel:crossClusterSearchConnectionId:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse -> Maybe Text
crossClusterSearchConnectionId} -> Maybe Text
crossClusterSearchConnectionId) (\s :: CreateOutboundCrossClusterSearchConnectionResponse
s@CreateOutboundCrossClusterSearchConnectionResponse' {} Maybe Text
a -> CreateOutboundCrossClusterSearchConnectionResponse
s {$sel:crossClusterSearchConnectionId:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe Text
crossClusterSearchConnectionId = Maybe Text
a} :: CreateOutboundCrossClusterSearchConnectionResponse)
createOutboundCrossClusterSearchConnectionResponse_destinationDomainInfo :: Lens.Lens' CreateOutboundCrossClusterSearchConnectionResponse (Prelude.Maybe DomainInformation)
createOutboundCrossClusterSearchConnectionResponse_destinationDomainInfo :: Lens'
CreateOutboundCrossClusterSearchConnectionResponse
(Maybe DomainInformation)
createOutboundCrossClusterSearchConnectionResponse_destinationDomainInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnectionResponse' {Maybe DomainInformation
destinationDomainInfo :: Maybe DomainInformation
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe DomainInformation
destinationDomainInfo} -> Maybe DomainInformation
destinationDomainInfo) (\s :: CreateOutboundCrossClusterSearchConnectionResponse
s@CreateOutboundCrossClusterSearchConnectionResponse' {} Maybe DomainInformation
a -> CreateOutboundCrossClusterSearchConnectionResponse
s {$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe DomainInformation
destinationDomainInfo = Maybe DomainInformation
a} :: CreateOutboundCrossClusterSearchConnectionResponse)
createOutboundCrossClusterSearchConnectionResponse_sourceDomainInfo :: Lens.Lens' CreateOutboundCrossClusterSearchConnectionResponse (Prelude.Maybe DomainInformation)
createOutboundCrossClusterSearchConnectionResponse_sourceDomainInfo :: Lens'
CreateOutboundCrossClusterSearchConnectionResponse
(Maybe DomainInformation)
createOutboundCrossClusterSearchConnectionResponse_sourceDomainInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnectionResponse' {Maybe DomainInformation
sourceDomainInfo :: Maybe DomainInformation
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe DomainInformation
sourceDomainInfo} -> Maybe DomainInformation
sourceDomainInfo) (\s :: CreateOutboundCrossClusterSearchConnectionResponse
s@CreateOutboundCrossClusterSearchConnectionResponse' {} Maybe DomainInformation
a -> CreateOutboundCrossClusterSearchConnectionResponse
s {$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: Maybe DomainInformation
sourceDomainInfo = Maybe DomainInformation
a} :: CreateOutboundCrossClusterSearchConnectionResponse)
createOutboundCrossClusterSearchConnectionResponse_httpStatus :: Lens.Lens' CreateOutboundCrossClusterSearchConnectionResponse Prelude.Int
createOutboundCrossClusterSearchConnectionResponse_httpStatus :: Lens' CreateOutboundCrossClusterSearchConnectionResponse Int
createOutboundCrossClusterSearchConnectionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOutboundCrossClusterSearchConnectionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateOutboundCrossClusterSearchConnectionResponse
s@CreateOutboundCrossClusterSearchConnectionResponse' {} Int
a -> CreateOutboundCrossClusterSearchConnectionResponse
s {$sel:httpStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: Int
httpStatus = Int
a} :: CreateOutboundCrossClusterSearchConnectionResponse)
instance
Prelude.NFData
CreateOutboundCrossClusterSearchConnectionResponse
where
rnf :: CreateOutboundCrossClusterSearchConnectionResponse -> ()
rnf
CreateOutboundCrossClusterSearchConnectionResponse' {Int
Maybe Text
Maybe DomainInformation
Maybe OutboundCrossClusterSearchConnectionStatus
httpStatus :: Int
sourceDomainInfo :: Maybe DomainInformation
destinationDomainInfo :: Maybe DomainInformation
crossClusterSearchConnectionId :: Maybe Text
connectionStatus :: Maybe OutboundCrossClusterSearchConnectionStatus
connectionAlias :: Maybe Text
$sel:httpStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse -> Int
$sel:sourceDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe DomainInformation
$sel:destinationDomainInfo:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe DomainInformation
$sel:crossClusterSearchConnectionId:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse -> Maybe Text
$sel:connectionStatus:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse
-> Maybe OutboundCrossClusterSearchConnectionStatus
$sel:connectionAlias:CreateOutboundCrossClusterSearchConnectionResponse' :: CreateOutboundCrossClusterSearchConnectionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
connectionAlias
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OutboundCrossClusterSearchConnectionStatus
connectionStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
crossClusterSearchConnectionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DomainInformation
destinationDomainInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DomainInformation
sourceDomainInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus