{-# 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.DescribeElasticsearchDomainConfig
(
DescribeElasticsearchDomainConfig (..),
newDescribeElasticsearchDomainConfig,
describeElasticsearchDomainConfig_domainName,
DescribeElasticsearchDomainConfigResponse (..),
newDescribeElasticsearchDomainConfigResponse,
describeElasticsearchDomainConfigResponse_httpStatus,
describeElasticsearchDomainConfigResponse_domainConfig,
)
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 DescribeElasticsearchDomainConfig = DescribeElasticsearchDomainConfig'
{
DescribeElasticsearchDomainConfig -> Text
domainName :: Prelude.Text
}
deriving (DescribeElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfig -> Bool
$c/= :: DescribeElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfig -> Bool
== :: DescribeElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfig -> Bool
$c== :: DescribeElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfig -> Bool
Prelude.Eq, ReadPrec [DescribeElasticsearchDomainConfig]
ReadPrec DescribeElasticsearchDomainConfig
Int -> ReadS DescribeElasticsearchDomainConfig
ReadS [DescribeElasticsearchDomainConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeElasticsearchDomainConfig]
$creadListPrec :: ReadPrec [DescribeElasticsearchDomainConfig]
readPrec :: ReadPrec DescribeElasticsearchDomainConfig
$creadPrec :: ReadPrec DescribeElasticsearchDomainConfig
readList :: ReadS [DescribeElasticsearchDomainConfig]
$creadList :: ReadS [DescribeElasticsearchDomainConfig]
readsPrec :: Int -> ReadS DescribeElasticsearchDomainConfig
$creadsPrec :: Int -> ReadS DescribeElasticsearchDomainConfig
Prelude.Read, Int -> DescribeElasticsearchDomainConfig -> ShowS
[DescribeElasticsearchDomainConfig] -> ShowS
DescribeElasticsearchDomainConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeElasticsearchDomainConfig] -> ShowS
$cshowList :: [DescribeElasticsearchDomainConfig] -> ShowS
show :: DescribeElasticsearchDomainConfig -> String
$cshow :: DescribeElasticsearchDomainConfig -> String
showsPrec :: Int -> DescribeElasticsearchDomainConfig -> ShowS
$cshowsPrec :: Int -> DescribeElasticsearchDomainConfig -> ShowS
Prelude.Show, forall x.
Rep DescribeElasticsearchDomainConfig x
-> DescribeElasticsearchDomainConfig
forall x.
DescribeElasticsearchDomainConfig
-> Rep DescribeElasticsearchDomainConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeElasticsearchDomainConfig x
-> DescribeElasticsearchDomainConfig
$cfrom :: forall x.
DescribeElasticsearchDomainConfig
-> Rep DescribeElasticsearchDomainConfig x
Prelude.Generic)
newDescribeElasticsearchDomainConfig ::
Prelude.Text ->
DescribeElasticsearchDomainConfig
newDescribeElasticsearchDomainConfig :: Text -> DescribeElasticsearchDomainConfig
newDescribeElasticsearchDomainConfig Text
pDomainName_ =
DescribeElasticsearchDomainConfig'
{ $sel:domainName:DescribeElasticsearchDomainConfig' :: Text
domainName =
Text
pDomainName_
}
describeElasticsearchDomainConfig_domainName :: Lens.Lens' DescribeElasticsearchDomainConfig Prelude.Text
describeElasticsearchDomainConfig_domainName :: Lens' DescribeElasticsearchDomainConfig Text
describeElasticsearchDomainConfig_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeElasticsearchDomainConfig' {Text
domainName :: Text
$sel:domainName:DescribeElasticsearchDomainConfig' :: DescribeElasticsearchDomainConfig -> Text
domainName} -> Text
domainName) (\s :: DescribeElasticsearchDomainConfig
s@DescribeElasticsearchDomainConfig' {} Text
a -> DescribeElasticsearchDomainConfig
s {$sel:domainName:DescribeElasticsearchDomainConfig' :: Text
domainName = Text
a} :: DescribeElasticsearchDomainConfig)
instance
Core.AWSRequest
DescribeElasticsearchDomainConfig
where
type
AWSResponse DescribeElasticsearchDomainConfig =
DescribeElasticsearchDomainConfigResponse
request :: (Service -> Service)
-> DescribeElasticsearchDomainConfig
-> Request DescribeElasticsearchDomainConfig
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeElasticsearchDomainConfig
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeElasticsearchDomainConfig)))
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 ->
Int
-> ElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfigResponse
DescribeElasticsearchDomainConfigResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"DomainConfig")
)
instance
Prelude.Hashable
DescribeElasticsearchDomainConfig
where
hashWithSalt :: Int -> DescribeElasticsearchDomainConfig -> Int
hashWithSalt
Int
_salt
DescribeElasticsearchDomainConfig' {Text
domainName :: Text
$sel:domainName:DescribeElasticsearchDomainConfig' :: DescribeElasticsearchDomainConfig -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domainName
instance
Prelude.NFData
DescribeElasticsearchDomainConfig
where
rnf :: DescribeElasticsearchDomainConfig -> ()
rnf DescribeElasticsearchDomainConfig' {Text
domainName :: Text
$sel:domainName:DescribeElasticsearchDomainConfig' :: DescribeElasticsearchDomainConfig -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
domainName
instance
Data.ToHeaders
DescribeElasticsearchDomainConfig
where
toHeaders :: DescribeElasticsearchDomainConfig -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DescribeElasticsearchDomainConfig
where
toPath :: DescribeElasticsearchDomainConfig -> ByteString
toPath DescribeElasticsearchDomainConfig' {Text
domainName :: Text
$sel:domainName:DescribeElasticsearchDomainConfig' :: DescribeElasticsearchDomainConfig -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2015-01-01/es/domain/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
domainName,
ByteString
"/config"
]
instance
Data.ToQuery
DescribeElasticsearchDomainConfig
where
toQuery :: DescribeElasticsearchDomainConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeElasticsearchDomainConfigResponse = DescribeElasticsearchDomainConfigResponse'
{
DescribeElasticsearchDomainConfigResponse -> Int
httpStatus :: Prelude.Int,
DescribeElasticsearchDomainConfigResponse
-> ElasticsearchDomainConfig
domainConfig :: ElasticsearchDomainConfig
}
deriving (DescribeElasticsearchDomainConfigResponse
-> DescribeElasticsearchDomainConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeElasticsearchDomainConfigResponse
-> DescribeElasticsearchDomainConfigResponse -> Bool
$c/= :: DescribeElasticsearchDomainConfigResponse
-> DescribeElasticsearchDomainConfigResponse -> Bool
== :: DescribeElasticsearchDomainConfigResponse
-> DescribeElasticsearchDomainConfigResponse -> Bool
$c== :: DescribeElasticsearchDomainConfigResponse
-> DescribeElasticsearchDomainConfigResponse -> Bool
Prelude.Eq, ReadPrec [DescribeElasticsearchDomainConfigResponse]
ReadPrec DescribeElasticsearchDomainConfigResponse
Int -> ReadS DescribeElasticsearchDomainConfigResponse
ReadS [DescribeElasticsearchDomainConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeElasticsearchDomainConfigResponse]
$creadListPrec :: ReadPrec [DescribeElasticsearchDomainConfigResponse]
readPrec :: ReadPrec DescribeElasticsearchDomainConfigResponse
$creadPrec :: ReadPrec DescribeElasticsearchDomainConfigResponse
readList :: ReadS [DescribeElasticsearchDomainConfigResponse]
$creadList :: ReadS [DescribeElasticsearchDomainConfigResponse]
readsPrec :: Int -> ReadS DescribeElasticsearchDomainConfigResponse
$creadsPrec :: Int -> ReadS DescribeElasticsearchDomainConfigResponse
Prelude.Read, Int -> DescribeElasticsearchDomainConfigResponse -> ShowS
[DescribeElasticsearchDomainConfigResponse] -> ShowS
DescribeElasticsearchDomainConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeElasticsearchDomainConfigResponse] -> ShowS
$cshowList :: [DescribeElasticsearchDomainConfigResponse] -> ShowS
show :: DescribeElasticsearchDomainConfigResponse -> String
$cshow :: DescribeElasticsearchDomainConfigResponse -> String
showsPrec :: Int -> DescribeElasticsearchDomainConfigResponse -> ShowS
$cshowsPrec :: Int -> DescribeElasticsearchDomainConfigResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeElasticsearchDomainConfigResponse x
-> DescribeElasticsearchDomainConfigResponse
forall x.
DescribeElasticsearchDomainConfigResponse
-> Rep DescribeElasticsearchDomainConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeElasticsearchDomainConfigResponse x
-> DescribeElasticsearchDomainConfigResponse
$cfrom :: forall x.
DescribeElasticsearchDomainConfigResponse
-> Rep DescribeElasticsearchDomainConfigResponse x
Prelude.Generic)
newDescribeElasticsearchDomainConfigResponse ::
Prelude.Int ->
ElasticsearchDomainConfig ->
DescribeElasticsearchDomainConfigResponse
newDescribeElasticsearchDomainConfigResponse :: Int
-> ElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfigResponse
newDescribeElasticsearchDomainConfigResponse
Int
pHttpStatus_
ElasticsearchDomainConfig
pDomainConfig_ =
DescribeElasticsearchDomainConfigResponse'
{ $sel:httpStatus:DescribeElasticsearchDomainConfigResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:domainConfig:DescribeElasticsearchDomainConfigResponse' :: ElasticsearchDomainConfig
domainConfig = ElasticsearchDomainConfig
pDomainConfig_
}
describeElasticsearchDomainConfigResponse_httpStatus :: Lens.Lens' DescribeElasticsearchDomainConfigResponse Prelude.Int
describeElasticsearchDomainConfigResponse_httpStatus :: Lens' DescribeElasticsearchDomainConfigResponse Int
describeElasticsearchDomainConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeElasticsearchDomainConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeElasticsearchDomainConfigResponse' :: DescribeElasticsearchDomainConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeElasticsearchDomainConfigResponse
s@DescribeElasticsearchDomainConfigResponse' {} Int
a -> DescribeElasticsearchDomainConfigResponse
s {$sel:httpStatus:DescribeElasticsearchDomainConfigResponse' :: Int
httpStatus = Int
a} :: DescribeElasticsearchDomainConfigResponse)
describeElasticsearchDomainConfigResponse_domainConfig :: Lens.Lens' DescribeElasticsearchDomainConfigResponse ElasticsearchDomainConfig
describeElasticsearchDomainConfigResponse_domainConfig :: Lens'
DescribeElasticsearchDomainConfigResponse ElasticsearchDomainConfig
describeElasticsearchDomainConfigResponse_domainConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeElasticsearchDomainConfigResponse' {ElasticsearchDomainConfig
domainConfig :: ElasticsearchDomainConfig
$sel:domainConfig:DescribeElasticsearchDomainConfigResponse' :: DescribeElasticsearchDomainConfigResponse
-> ElasticsearchDomainConfig
domainConfig} -> ElasticsearchDomainConfig
domainConfig) (\s :: DescribeElasticsearchDomainConfigResponse
s@DescribeElasticsearchDomainConfigResponse' {} ElasticsearchDomainConfig
a -> DescribeElasticsearchDomainConfigResponse
s {$sel:domainConfig:DescribeElasticsearchDomainConfigResponse' :: ElasticsearchDomainConfig
domainConfig = ElasticsearchDomainConfig
a} :: DescribeElasticsearchDomainConfigResponse)
instance
Prelude.NFData
DescribeElasticsearchDomainConfigResponse
where
rnf :: DescribeElasticsearchDomainConfigResponse -> ()
rnf DescribeElasticsearchDomainConfigResponse' {Int
ElasticsearchDomainConfig
domainConfig :: ElasticsearchDomainConfig
httpStatus :: Int
$sel:domainConfig:DescribeElasticsearchDomainConfigResponse' :: DescribeElasticsearchDomainConfigResponse
-> ElasticsearchDomainConfig
$sel:httpStatus:DescribeElasticsearchDomainConfigResponse' :: DescribeElasticsearchDomainConfigResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ElasticsearchDomainConfig
domainConfig