{-# 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.CloudSearch.DescribeDomainEndpointOptions
(
DescribeDomainEndpointOptions (..),
newDescribeDomainEndpointOptions,
describeDomainEndpointOptions_deployed,
describeDomainEndpointOptions_domainName,
DescribeDomainEndpointOptionsResponse (..),
newDescribeDomainEndpointOptionsResponse,
describeDomainEndpointOptionsResponse_domainEndpointOptions,
describeDomainEndpointOptionsResponse_httpStatus,
)
where
import Amazonka.CloudSearch.Types
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
data DescribeDomainEndpointOptions = DescribeDomainEndpointOptions'
{
DescribeDomainEndpointOptions -> Maybe Bool
deployed :: Prelude.Maybe Prelude.Bool,
DescribeDomainEndpointOptions -> Text
domainName :: Prelude.Text
}
deriving (DescribeDomainEndpointOptions
-> DescribeDomainEndpointOptions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDomainEndpointOptions
-> DescribeDomainEndpointOptions -> Bool
$c/= :: DescribeDomainEndpointOptions
-> DescribeDomainEndpointOptions -> Bool
== :: DescribeDomainEndpointOptions
-> DescribeDomainEndpointOptions -> Bool
$c== :: DescribeDomainEndpointOptions
-> DescribeDomainEndpointOptions -> Bool
Prelude.Eq, ReadPrec [DescribeDomainEndpointOptions]
ReadPrec DescribeDomainEndpointOptions
Int -> ReadS DescribeDomainEndpointOptions
ReadS [DescribeDomainEndpointOptions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDomainEndpointOptions]
$creadListPrec :: ReadPrec [DescribeDomainEndpointOptions]
readPrec :: ReadPrec DescribeDomainEndpointOptions
$creadPrec :: ReadPrec DescribeDomainEndpointOptions
readList :: ReadS [DescribeDomainEndpointOptions]
$creadList :: ReadS [DescribeDomainEndpointOptions]
readsPrec :: Int -> ReadS DescribeDomainEndpointOptions
$creadsPrec :: Int -> ReadS DescribeDomainEndpointOptions
Prelude.Read, Int -> DescribeDomainEndpointOptions -> ShowS
[DescribeDomainEndpointOptions] -> ShowS
DescribeDomainEndpointOptions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDomainEndpointOptions] -> ShowS
$cshowList :: [DescribeDomainEndpointOptions] -> ShowS
show :: DescribeDomainEndpointOptions -> String
$cshow :: DescribeDomainEndpointOptions -> String
showsPrec :: Int -> DescribeDomainEndpointOptions -> ShowS
$cshowsPrec :: Int -> DescribeDomainEndpointOptions -> ShowS
Prelude.Show, forall x.
Rep DescribeDomainEndpointOptions x
-> DescribeDomainEndpointOptions
forall x.
DescribeDomainEndpointOptions
-> Rep DescribeDomainEndpointOptions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDomainEndpointOptions x
-> DescribeDomainEndpointOptions
$cfrom :: forall x.
DescribeDomainEndpointOptions
-> Rep DescribeDomainEndpointOptions x
Prelude.Generic)
newDescribeDomainEndpointOptions ::
Prelude.Text ->
DescribeDomainEndpointOptions
newDescribeDomainEndpointOptions :: Text -> DescribeDomainEndpointOptions
newDescribeDomainEndpointOptions Text
pDomainName_ =
DescribeDomainEndpointOptions'
{ $sel:deployed:DescribeDomainEndpointOptions' :: Maybe Bool
deployed =
forall a. Maybe a
Prelude.Nothing,
$sel:domainName:DescribeDomainEndpointOptions' :: Text
domainName = Text
pDomainName_
}
describeDomainEndpointOptions_deployed :: Lens.Lens' DescribeDomainEndpointOptions (Prelude.Maybe Prelude.Bool)
describeDomainEndpointOptions_deployed :: Lens' DescribeDomainEndpointOptions (Maybe Bool)
describeDomainEndpointOptions_deployed = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDomainEndpointOptions' {Maybe Bool
deployed :: Maybe Bool
$sel:deployed:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Maybe Bool
deployed} -> Maybe Bool
deployed) (\s :: DescribeDomainEndpointOptions
s@DescribeDomainEndpointOptions' {} Maybe Bool
a -> DescribeDomainEndpointOptions
s {$sel:deployed:DescribeDomainEndpointOptions' :: Maybe Bool
deployed = Maybe Bool
a} :: DescribeDomainEndpointOptions)
describeDomainEndpointOptions_domainName :: Lens.Lens' DescribeDomainEndpointOptions Prelude.Text
describeDomainEndpointOptions_domainName :: Lens' DescribeDomainEndpointOptions Text
describeDomainEndpointOptions_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDomainEndpointOptions' {Text
domainName :: Text
$sel:domainName:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Text
domainName} -> Text
domainName) (\s :: DescribeDomainEndpointOptions
s@DescribeDomainEndpointOptions' {} Text
a -> DescribeDomainEndpointOptions
s {$sel:domainName:DescribeDomainEndpointOptions' :: Text
domainName = Text
a} :: DescribeDomainEndpointOptions)
instance
Core.AWSRequest
DescribeDomainEndpointOptions
where
type
AWSResponse DescribeDomainEndpointOptions =
DescribeDomainEndpointOptionsResponse
request :: (Service -> Service)
-> DescribeDomainEndpointOptions
-> Request DescribeDomainEndpointOptions
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDomainEndpointOptions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDomainEndpointOptions)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DescribeDomainEndpointOptionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DomainEndpointOptionsStatus
-> Int -> DescribeDomainEndpointOptionsResponse
DescribeDomainEndpointOptionsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DomainEndpointOptions")
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
DescribeDomainEndpointOptions
where
hashWithSalt :: Int -> DescribeDomainEndpointOptions -> Int
hashWithSalt Int
_salt DescribeDomainEndpointOptions' {Maybe Bool
Text
domainName :: Text
deployed :: Maybe Bool
$sel:domainName:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Text
$sel:deployed:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
deployed
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domainName
instance Prelude.NFData DescribeDomainEndpointOptions where
rnf :: DescribeDomainEndpointOptions -> ()
rnf DescribeDomainEndpointOptions' {Maybe Bool
Text
domainName :: Text
deployed :: Maybe Bool
$sel:domainName:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Text
$sel:deployed:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deployed
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
domainName
instance Data.ToHeaders DescribeDomainEndpointOptions where
toHeaders :: DescribeDomainEndpointOptions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeDomainEndpointOptions where
toPath :: DescribeDomainEndpointOptions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeDomainEndpointOptions where
toQuery :: DescribeDomainEndpointOptions -> QueryString
toQuery DescribeDomainEndpointOptions' {Maybe Bool
Text
domainName :: Text
deployed :: Maybe Bool
$sel:domainName:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Text
$sel:deployed:DescribeDomainEndpointOptions' :: DescribeDomainEndpointOptions -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeDomainEndpointOptions" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2013-01-01" :: Prelude.ByteString),
ByteString
"Deployed" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
deployed,
ByteString
"DomainName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
domainName
]
data DescribeDomainEndpointOptionsResponse = DescribeDomainEndpointOptionsResponse'
{
DescribeDomainEndpointOptionsResponse
-> Maybe DomainEndpointOptionsStatus
domainEndpointOptions :: Prelude.Maybe DomainEndpointOptionsStatus,
DescribeDomainEndpointOptionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDomainEndpointOptionsResponse
-> DescribeDomainEndpointOptionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDomainEndpointOptionsResponse
-> DescribeDomainEndpointOptionsResponse -> Bool
$c/= :: DescribeDomainEndpointOptionsResponse
-> DescribeDomainEndpointOptionsResponse -> Bool
== :: DescribeDomainEndpointOptionsResponse
-> DescribeDomainEndpointOptionsResponse -> Bool
$c== :: DescribeDomainEndpointOptionsResponse
-> DescribeDomainEndpointOptionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDomainEndpointOptionsResponse]
ReadPrec DescribeDomainEndpointOptionsResponse
Int -> ReadS DescribeDomainEndpointOptionsResponse
ReadS [DescribeDomainEndpointOptionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDomainEndpointOptionsResponse]
$creadListPrec :: ReadPrec [DescribeDomainEndpointOptionsResponse]
readPrec :: ReadPrec DescribeDomainEndpointOptionsResponse
$creadPrec :: ReadPrec DescribeDomainEndpointOptionsResponse
readList :: ReadS [DescribeDomainEndpointOptionsResponse]
$creadList :: ReadS [DescribeDomainEndpointOptionsResponse]
readsPrec :: Int -> ReadS DescribeDomainEndpointOptionsResponse
$creadsPrec :: Int -> ReadS DescribeDomainEndpointOptionsResponse
Prelude.Read, Int -> DescribeDomainEndpointOptionsResponse -> ShowS
[DescribeDomainEndpointOptionsResponse] -> ShowS
DescribeDomainEndpointOptionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDomainEndpointOptionsResponse] -> ShowS
$cshowList :: [DescribeDomainEndpointOptionsResponse] -> ShowS
show :: DescribeDomainEndpointOptionsResponse -> String
$cshow :: DescribeDomainEndpointOptionsResponse -> String
showsPrec :: Int -> DescribeDomainEndpointOptionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeDomainEndpointOptionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDomainEndpointOptionsResponse x
-> DescribeDomainEndpointOptionsResponse
forall x.
DescribeDomainEndpointOptionsResponse
-> Rep DescribeDomainEndpointOptionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDomainEndpointOptionsResponse x
-> DescribeDomainEndpointOptionsResponse
$cfrom :: forall x.
DescribeDomainEndpointOptionsResponse
-> Rep DescribeDomainEndpointOptionsResponse x
Prelude.Generic)
newDescribeDomainEndpointOptionsResponse ::
Prelude.Int ->
DescribeDomainEndpointOptionsResponse
newDescribeDomainEndpointOptionsResponse :: Int -> DescribeDomainEndpointOptionsResponse
newDescribeDomainEndpointOptionsResponse Int
pHttpStatus_ =
DescribeDomainEndpointOptionsResponse'
{ $sel:domainEndpointOptions:DescribeDomainEndpointOptionsResponse' :: Maybe DomainEndpointOptionsStatus
domainEndpointOptions =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDomainEndpointOptionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDomainEndpointOptionsResponse_domainEndpointOptions :: Lens.Lens' DescribeDomainEndpointOptionsResponse (Prelude.Maybe DomainEndpointOptionsStatus)
describeDomainEndpointOptionsResponse_domainEndpointOptions :: Lens'
DescribeDomainEndpointOptionsResponse
(Maybe DomainEndpointOptionsStatus)
describeDomainEndpointOptionsResponse_domainEndpointOptions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDomainEndpointOptionsResponse' {Maybe DomainEndpointOptionsStatus
domainEndpointOptions :: Maybe DomainEndpointOptionsStatus
$sel:domainEndpointOptions:DescribeDomainEndpointOptionsResponse' :: DescribeDomainEndpointOptionsResponse
-> Maybe DomainEndpointOptionsStatus
domainEndpointOptions} -> Maybe DomainEndpointOptionsStatus
domainEndpointOptions) (\s :: DescribeDomainEndpointOptionsResponse
s@DescribeDomainEndpointOptionsResponse' {} Maybe DomainEndpointOptionsStatus
a -> DescribeDomainEndpointOptionsResponse
s {$sel:domainEndpointOptions:DescribeDomainEndpointOptionsResponse' :: Maybe DomainEndpointOptionsStatus
domainEndpointOptions = Maybe DomainEndpointOptionsStatus
a} :: DescribeDomainEndpointOptionsResponse)
describeDomainEndpointOptionsResponse_httpStatus :: Lens.Lens' DescribeDomainEndpointOptionsResponse Prelude.Int
describeDomainEndpointOptionsResponse_httpStatus :: Lens' DescribeDomainEndpointOptionsResponse Int
describeDomainEndpointOptionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDomainEndpointOptionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDomainEndpointOptionsResponse' :: DescribeDomainEndpointOptionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDomainEndpointOptionsResponse
s@DescribeDomainEndpointOptionsResponse' {} Int
a -> DescribeDomainEndpointOptionsResponse
s {$sel:httpStatus:DescribeDomainEndpointOptionsResponse' :: Int
httpStatus = Int
a} :: DescribeDomainEndpointOptionsResponse)
instance
Prelude.NFData
DescribeDomainEndpointOptionsResponse
where
rnf :: DescribeDomainEndpointOptionsResponse -> ()
rnf DescribeDomainEndpointOptionsResponse' {Int
Maybe DomainEndpointOptionsStatus
httpStatus :: Int
domainEndpointOptions :: Maybe DomainEndpointOptionsStatus
$sel:httpStatus:DescribeDomainEndpointOptionsResponse' :: DescribeDomainEndpointOptionsResponse -> Int
$sel:domainEndpointOptions:DescribeDomainEndpointOptionsResponse' :: DescribeDomainEndpointOptionsResponse
-> Maybe DomainEndpointOptionsStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DomainEndpointOptionsStatus
domainEndpointOptions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus