{-# 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.Route53AutoNaming.DiscoverInstances
(
DiscoverInstances (..),
newDiscoverInstances,
discoverInstances_healthStatus,
discoverInstances_maxResults,
discoverInstances_optionalParameters,
discoverInstances_queryParameters,
discoverInstances_namespaceName,
discoverInstances_serviceName,
DiscoverInstancesResponse (..),
newDiscoverInstancesResponse,
discoverInstancesResponse_instances,
discoverInstancesResponse_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.Route53AutoNaming.Types
data DiscoverInstances = DiscoverInstances'
{
DiscoverInstances -> Maybe HealthStatusFilter
healthStatus :: Prelude.Maybe HealthStatusFilter,
DiscoverInstances -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DiscoverInstances -> Maybe (HashMap Text Text)
optionalParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DiscoverInstances -> Maybe (HashMap Text Text)
queryParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DiscoverInstances -> Text
namespaceName :: Prelude.Text,
DiscoverInstances -> Text
serviceName :: Prelude.Text
}
deriving (DiscoverInstances -> DiscoverInstances -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DiscoverInstances -> DiscoverInstances -> Bool
$c/= :: DiscoverInstances -> DiscoverInstances -> Bool
== :: DiscoverInstances -> DiscoverInstances -> Bool
$c== :: DiscoverInstances -> DiscoverInstances -> Bool
Prelude.Eq, ReadPrec [DiscoverInstances]
ReadPrec DiscoverInstances
Int -> ReadS DiscoverInstances
ReadS [DiscoverInstances]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DiscoverInstances]
$creadListPrec :: ReadPrec [DiscoverInstances]
readPrec :: ReadPrec DiscoverInstances
$creadPrec :: ReadPrec DiscoverInstances
readList :: ReadS [DiscoverInstances]
$creadList :: ReadS [DiscoverInstances]
readsPrec :: Int -> ReadS DiscoverInstances
$creadsPrec :: Int -> ReadS DiscoverInstances
Prelude.Read, Int -> DiscoverInstances -> ShowS
[DiscoverInstances] -> ShowS
DiscoverInstances -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DiscoverInstances] -> ShowS
$cshowList :: [DiscoverInstances] -> ShowS
show :: DiscoverInstances -> String
$cshow :: DiscoverInstances -> String
showsPrec :: Int -> DiscoverInstances -> ShowS
$cshowsPrec :: Int -> DiscoverInstances -> ShowS
Prelude.Show, forall x. Rep DiscoverInstances x -> DiscoverInstances
forall x. DiscoverInstances -> Rep DiscoverInstances x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DiscoverInstances x -> DiscoverInstances
$cfrom :: forall x. DiscoverInstances -> Rep DiscoverInstances x
Prelude.Generic)
newDiscoverInstances ::
Prelude.Text ->
Prelude.Text ->
DiscoverInstances
newDiscoverInstances :: Text -> Text -> DiscoverInstances
newDiscoverInstances Text
pNamespaceName_ Text
pServiceName_ =
DiscoverInstances'
{ $sel:healthStatus:DiscoverInstances' :: Maybe HealthStatusFilter
healthStatus = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DiscoverInstances' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:optionalParameters:DiscoverInstances' :: Maybe (HashMap Text Text)
optionalParameters = forall a. Maybe a
Prelude.Nothing,
$sel:queryParameters:DiscoverInstances' :: Maybe (HashMap Text Text)
queryParameters = forall a. Maybe a
Prelude.Nothing,
$sel:namespaceName:DiscoverInstances' :: Text
namespaceName = Text
pNamespaceName_,
$sel:serviceName:DiscoverInstances' :: Text
serviceName = Text
pServiceName_
}
discoverInstances_healthStatus :: Lens.Lens' DiscoverInstances (Prelude.Maybe HealthStatusFilter)
discoverInstances_healthStatus :: Lens' DiscoverInstances (Maybe HealthStatusFilter)
discoverInstances_healthStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstances' {Maybe HealthStatusFilter
healthStatus :: Maybe HealthStatusFilter
$sel:healthStatus:DiscoverInstances' :: DiscoverInstances -> Maybe HealthStatusFilter
healthStatus} -> Maybe HealthStatusFilter
healthStatus) (\s :: DiscoverInstances
s@DiscoverInstances' {} Maybe HealthStatusFilter
a -> DiscoverInstances
s {$sel:healthStatus:DiscoverInstances' :: Maybe HealthStatusFilter
healthStatus = Maybe HealthStatusFilter
a} :: DiscoverInstances)
discoverInstances_maxResults :: Lens.Lens' DiscoverInstances (Prelude.Maybe Prelude.Natural)
discoverInstances_maxResults :: Lens' DiscoverInstances (Maybe Natural)
discoverInstances_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstances' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DiscoverInstances' :: DiscoverInstances -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DiscoverInstances
s@DiscoverInstances' {} Maybe Natural
a -> DiscoverInstances
s {$sel:maxResults:DiscoverInstances' :: Maybe Natural
maxResults = Maybe Natural
a} :: DiscoverInstances)
discoverInstances_optionalParameters :: Lens.Lens' DiscoverInstances (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
discoverInstances_optionalParameters :: Lens' DiscoverInstances (Maybe (HashMap Text Text))
discoverInstances_optionalParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstances' {Maybe (HashMap Text Text)
optionalParameters :: Maybe (HashMap Text Text)
$sel:optionalParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
optionalParameters} -> Maybe (HashMap Text Text)
optionalParameters) (\s :: DiscoverInstances
s@DiscoverInstances' {} Maybe (HashMap Text Text)
a -> DiscoverInstances
s {$sel:optionalParameters:DiscoverInstances' :: Maybe (HashMap Text Text)
optionalParameters = Maybe (HashMap Text Text)
a} :: DiscoverInstances) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
discoverInstances_queryParameters :: Lens.Lens' DiscoverInstances (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
discoverInstances_queryParameters :: Lens' DiscoverInstances (Maybe (HashMap Text Text))
discoverInstances_queryParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstances' {Maybe (HashMap Text Text)
queryParameters :: Maybe (HashMap Text Text)
$sel:queryParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
queryParameters} -> Maybe (HashMap Text Text)
queryParameters) (\s :: DiscoverInstances
s@DiscoverInstances' {} Maybe (HashMap Text Text)
a -> DiscoverInstances
s {$sel:queryParameters:DiscoverInstances' :: Maybe (HashMap Text Text)
queryParameters = Maybe (HashMap Text Text)
a} :: DiscoverInstances) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
discoverInstances_namespaceName :: Lens.Lens' DiscoverInstances Prelude.Text
discoverInstances_namespaceName :: Lens' DiscoverInstances Text
discoverInstances_namespaceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstances' {Text
namespaceName :: Text
$sel:namespaceName:DiscoverInstances' :: DiscoverInstances -> Text
namespaceName} -> Text
namespaceName) (\s :: DiscoverInstances
s@DiscoverInstances' {} Text
a -> DiscoverInstances
s {$sel:namespaceName:DiscoverInstances' :: Text
namespaceName = Text
a} :: DiscoverInstances)
discoverInstances_serviceName :: Lens.Lens' DiscoverInstances Prelude.Text
discoverInstances_serviceName :: Lens' DiscoverInstances Text
discoverInstances_serviceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstances' {Text
serviceName :: Text
$sel:serviceName:DiscoverInstances' :: DiscoverInstances -> Text
serviceName} -> Text
serviceName) (\s :: DiscoverInstances
s@DiscoverInstances' {} Text
a -> DiscoverInstances
s {$sel:serviceName:DiscoverInstances' :: Text
serviceName = Text
a} :: DiscoverInstances)
instance Core.AWSRequest DiscoverInstances where
type
AWSResponse DiscoverInstances =
DiscoverInstancesResponse
request :: (Service -> Service)
-> DiscoverInstances -> Request DiscoverInstances
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 DiscoverInstances
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DiscoverInstances)))
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 [HttpInstanceSummary] -> Int -> DiscoverInstancesResponse
DiscoverInstancesResponse'
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
"Instances" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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 DiscoverInstances where
hashWithSalt :: Int -> DiscoverInstances -> Int
hashWithSalt Int
_salt DiscoverInstances' {Maybe Natural
Maybe (HashMap Text Text)
Maybe HealthStatusFilter
Text
serviceName :: Text
namespaceName :: Text
queryParameters :: Maybe (HashMap Text Text)
optionalParameters :: Maybe (HashMap Text Text)
maxResults :: Maybe Natural
healthStatus :: Maybe HealthStatusFilter
$sel:serviceName:DiscoverInstances' :: DiscoverInstances -> Text
$sel:namespaceName:DiscoverInstances' :: DiscoverInstances -> Text
$sel:queryParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
$sel:optionalParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
$sel:maxResults:DiscoverInstances' :: DiscoverInstances -> Maybe Natural
$sel:healthStatus:DiscoverInstances' :: DiscoverInstances -> Maybe HealthStatusFilter
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe HealthStatusFilter
healthStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
optionalParameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
queryParameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
namespaceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceName
instance Prelude.NFData DiscoverInstances where
rnf :: DiscoverInstances -> ()
rnf DiscoverInstances' {Maybe Natural
Maybe (HashMap Text Text)
Maybe HealthStatusFilter
Text
serviceName :: Text
namespaceName :: Text
queryParameters :: Maybe (HashMap Text Text)
optionalParameters :: Maybe (HashMap Text Text)
maxResults :: Maybe Natural
healthStatus :: Maybe HealthStatusFilter
$sel:serviceName:DiscoverInstances' :: DiscoverInstances -> Text
$sel:namespaceName:DiscoverInstances' :: DiscoverInstances -> Text
$sel:queryParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
$sel:optionalParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
$sel:maxResults:DiscoverInstances' :: DiscoverInstances -> Maybe Natural
$sel:healthStatus:DiscoverInstances' :: DiscoverInstances -> Maybe HealthStatusFilter
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe HealthStatusFilter
healthStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
optionalParameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
queryParameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
namespaceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceName
instance Data.ToHeaders DiscoverInstances where
toHeaders :: DiscoverInstances -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Route53AutoNaming_v20170314.DiscoverInstances" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DiscoverInstances where
toJSON :: DiscoverInstances -> Value
toJSON DiscoverInstances' {Maybe Natural
Maybe (HashMap Text Text)
Maybe HealthStatusFilter
Text
serviceName :: Text
namespaceName :: Text
queryParameters :: Maybe (HashMap Text Text)
optionalParameters :: Maybe (HashMap Text Text)
maxResults :: Maybe Natural
healthStatus :: Maybe HealthStatusFilter
$sel:serviceName:DiscoverInstances' :: DiscoverInstances -> Text
$sel:namespaceName:DiscoverInstances' :: DiscoverInstances -> Text
$sel:queryParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
$sel:optionalParameters:DiscoverInstances' :: DiscoverInstances -> Maybe (HashMap Text Text)
$sel:maxResults:DiscoverInstances' :: DiscoverInstances -> Maybe Natural
$sel:healthStatus:DiscoverInstances' :: DiscoverInstances -> Maybe HealthStatusFilter
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"HealthStatus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HealthStatusFilter
healthStatus,
(Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"OptionalParameters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
optionalParameters,
(Key
"QueryParameters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
queryParameters,
forall a. a -> Maybe a
Prelude.Just (Key
"NamespaceName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
namespaceName),
forall a. a -> Maybe a
Prelude.Just (Key
"ServiceName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
serviceName)
]
)
instance Data.ToPath DiscoverInstances where
toPath :: DiscoverInstances -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DiscoverInstances where
toQuery :: DiscoverInstances -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DiscoverInstancesResponse = DiscoverInstancesResponse'
{
DiscoverInstancesResponse -> Maybe [HttpInstanceSummary]
instances :: Prelude.Maybe [HttpInstanceSummary],
DiscoverInstancesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DiscoverInstancesResponse -> DiscoverInstancesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DiscoverInstancesResponse -> DiscoverInstancesResponse -> Bool
$c/= :: DiscoverInstancesResponse -> DiscoverInstancesResponse -> Bool
== :: DiscoverInstancesResponse -> DiscoverInstancesResponse -> Bool
$c== :: DiscoverInstancesResponse -> DiscoverInstancesResponse -> Bool
Prelude.Eq, ReadPrec [DiscoverInstancesResponse]
ReadPrec DiscoverInstancesResponse
Int -> ReadS DiscoverInstancesResponse
ReadS [DiscoverInstancesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DiscoverInstancesResponse]
$creadListPrec :: ReadPrec [DiscoverInstancesResponse]
readPrec :: ReadPrec DiscoverInstancesResponse
$creadPrec :: ReadPrec DiscoverInstancesResponse
readList :: ReadS [DiscoverInstancesResponse]
$creadList :: ReadS [DiscoverInstancesResponse]
readsPrec :: Int -> ReadS DiscoverInstancesResponse
$creadsPrec :: Int -> ReadS DiscoverInstancesResponse
Prelude.Read, Int -> DiscoverInstancesResponse -> ShowS
[DiscoverInstancesResponse] -> ShowS
DiscoverInstancesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DiscoverInstancesResponse] -> ShowS
$cshowList :: [DiscoverInstancesResponse] -> ShowS
show :: DiscoverInstancesResponse -> String
$cshow :: DiscoverInstancesResponse -> String
showsPrec :: Int -> DiscoverInstancesResponse -> ShowS
$cshowsPrec :: Int -> DiscoverInstancesResponse -> ShowS
Prelude.Show, forall x.
Rep DiscoverInstancesResponse x -> DiscoverInstancesResponse
forall x.
DiscoverInstancesResponse -> Rep DiscoverInstancesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DiscoverInstancesResponse x -> DiscoverInstancesResponse
$cfrom :: forall x.
DiscoverInstancesResponse -> Rep DiscoverInstancesResponse x
Prelude.Generic)
newDiscoverInstancesResponse ::
Prelude.Int ->
DiscoverInstancesResponse
newDiscoverInstancesResponse :: Int -> DiscoverInstancesResponse
newDiscoverInstancesResponse Int
pHttpStatus_ =
DiscoverInstancesResponse'
{ $sel:instances:DiscoverInstancesResponse' :: Maybe [HttpInstanceSummary]
instances =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DiscoverInstancesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
discoverInstancesResponse_instances :: Lens.Lens' DiscoverInstancesResponse (Prelude.Maybe [HttpInstanceSummary])
discoverInstancesResponse_instances :: Lens' DiscoverInstancesResponse (Maybe [HttpInstanceSummary])
discoverInstancesResponse_instances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstancesResponse' {Maybe [HttpInstanceSummary]
instances :: Maybe [HttpInstanceSummary]
$sel:instances:DiscoverInstancesResponse' :: DiscoverInstancesResponse -> Maybe [HttpInstanceSummary]
instances} -> Maybe [HttpInstanceSummary]
instances) (\s :: DiscoverInstancesResponse
s@DiscoverInstancesResponse' {} Maybe [HttpInstanceSummary]
a -> DiscoverInstancesResponse
s {$sel:instances:DiscoverInstancesResponse' :: Maybe [HttpInstanceSummary]
instances = Maybe [HttpInstanceSummary]
a} :: DiscoverInstancesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
discoverInstancesResponse_httpStatus :: Lens.Lens' DiscoverInstancesResponse Prelude.Int
discoverInstancesResponse_httpStatus :: Lens' DiscoverInstancesResponse Int
discoverInstancesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DiscoverInstancesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DiscoverInstancesResponse' :: DiscoverInstancesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DiscoverInstancesResponse
s@DiscoverInstancesResponse' {} Int
a -> DiscoverInstancesResponse
s {$sel:httpStatus:DiscoverInstancesResponse' :: Int
httpStatus = Int
a} :: DiscoverInstancesResponse)
instance Prelude.NFData DiscoverInstancesResponse where
rnf :: DiscoverInstancesResponse -> ()
rnf DiscoverInstancesResponse' {Int
Maybe [HttpInstanceSummary]
httpStatus :: Int
instances :: Maybe [HttpInstanceSummary]
$sel:httpStatus:DiscoverInstancesResponse' :: DiscoverInstancesResponse -> Int
$sel:instances:DiscoverInstancesResponse' :: DiscoverInstancesResponse -> Maybe [HttpInstanceSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [HttpInstanceSummary]
instances
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus