{-# 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.GameLift.DescribeInstances
(
DescribeInstances (..),
newDescribeInstances,
describeInstances_instanceId,
describeInstances_limit,
describeInstances_location,
describeInstances_nextToken,
describeInstances_fleetId,
DescribeInstancesResponse (..),
newDescribeInstancesResponse,
describeInstancesResponse_instances,
describeInstancesResponse_nextToken,
describeInstancesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GameLift.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeInstances = DescribeInstances'
{
DescribeInstances -> Maybe Text
instanceId :: Prelude.Maybe Prelude.Text,
DescribeInstances -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
DescribeInstances -> Maybe Text
location :: Prelude.Maybe Prelude.Text,
DescribeInstances -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeInstances -> Text
fleetId :: Prelude.Text
}
deriving (DescribeInstances -> DescribeInstances -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstances -> DescribeInstances -> Bool
$c/= :: DescribeInstances -> DescribeInstances -> Bool
== :: DescribeInstances -> DescribeInstances -> Bool
$c== :: DescribeInstances -> DescribeInstances -> Bool
Prelude.Eq, ReadPrec [DescribeInstances]
ReadPrec DescribeInstances
Int -> ReadS DescribeInstances
ReadS [DescribeInstances]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstances]
$creadListPrec :: ReadPrec [DescribeInstances]
readPrec :: ReadPrec DescribeInstances
$creadPrec :: ReadPrec DescribeInstances
readList :: ReadS [DescribeInstances]
$creadList :: ReadS [DescribeInstances]
readsPrec :: Int -> ReadS DescribeInstances
$creadsPrec :: Int -> ReadS DescribeInstances
Prelude.Read, Int -> DescribeInstances -> ShowS
[DescribeInstances] -> ShowS
DescribeInstances -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstances] -> ShowS
$cshowList :: [DescribeInstances] -> ShowS
show :: DescribeInstances -> String
$cshow :: DescribeInstances -> String
showsPrec :: Int -> DescribeInstances -> ShowS
$cshowsPrec :: Int -> DescribeInstances -> ShowS
Prelude.Show, forall x. Rep DescribeInstances x -> DescribeInstances
forall x. DescribeInstances -> Rep DescribeInstances x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeInstances x -> DescribeInstances
$cfrom :: forall x. DescribeInstances -> Rep DescribeInstances x
Prelude.Generic)
newDescribeInstances ::
Prelude.Text ->
DescribeInstances
newDescribeInstances :: Text -> DescribeInstances
newDescribeInstances Text
pFleetId_ =
DescribeInstances'
{ $sel:instanceId:DescribeInstances' :: Maybe Text
instanceId = forall a. Maybe a
Prelude.Nothing,
$sel:limit:DescribeInstances' :: Maybe Natural
limit = forall a. Maybe a
Prelude.Nothing,
$sel:location:DescribeInstances' :: Maybe Text
location = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeInstances' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:fleetId:DescribeInstances' :: Text
fleetId = Text
pFleetId_
}
describeInstances_instanceId :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Text)
describeInstances_instanceId :: Lens' DescribeInstances (Maybe Text)
describeInstances_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Text
instanceId :: Maybe Text
$sel:instanceId:DescribeInstances' :: DescribeInstances -> Maybe Text
instanceId} -> Maybe Text
instanceId) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Text
a -> DescribeInstances
s {$sel:instanceId:DescribeInstances' :: Maybe Text
instanceId = Maybe Text
a} :: DescribeInstances)
describeInstances_limit :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Natural)
describeInstances_limit :: Lens' DescribeInstances (Maybe Natural)
describeInstances_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Natural
limit :: Maybe Natural
$sel:limit:DescribeInstances' :: DescribeInstances -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Natural
a -> DescribeInstances
s {$sel:limit:DescribeInstances' :: Maybe Natural
limit = Maybe Natural
a} :: DescribeInstances)
describeInstances_location :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Text)
describeInstances_location :: Lens' DescribeInstances (Maybe Text)
describeInstances_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Text
location :: Maybe Text
$sel:location:DescribeInstances' :: DescribeInstances -> Maybe Text
location} -> Maybe Text
location) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Text
a -> DescribeInstances
s {$sel:location:DescribeInstances' :: Maybe Text
location = Maybe Text
a} :: DescribeInstances)
describeInstances_nextToken :: Lens.Lens' DescribeInstances (Prelude.Maybe Prelude.Text)
describeInstances_nextToken :: Lens' DescribeInstances (Maybe Text)
describeInstances_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstances
s@DescribeInstances' {} Maybe Text
a -> DescribeInstances
s {$sel:nextToken:DescribeInstances' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstances)
describeInstances_fleetId :: Lens.Lens' DescribeInstances Prelude.Text
describeInstances_fleetId :: Lens' DescribeInstances Text
describeInstances_fleetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstances' {Text
fleetId :: Text
$sel:fleetId:DescribeInstances' :: DescribeInstances -> Text
fleetId} -> Text
fleetId) (\s :: DescribeInstances
s@DescribeInstances' {} Text
a -> DescribeInstances
s {$sel:fleetId:DescribeInstances' :: Text
fleetId = Text
a} :: DescribeInstances)
instance Core.AWSPager DescribeInstances where
page :: DescribeInstances
-> AWSResponse DescribeInstances -> Maybe DescribeInstances
page DescribeInstances
rq AWSResponse DescribeInstances
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeInstances
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstancesResponse (Maybe Text)
describeInstancesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeInstances
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstancesResponse (Maybe [Instance])
describeInstancesResponse_instances
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeInstances
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeInstances (Maybe Text)
describeInstances_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeInstances
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstancesResponse (Maybe Text)
describeInstancesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest DescribeInstances where
type
AWSResponse DescribeInstances =
DescribeInstancesResponse
request :: (Service -> Service)
-> DescribeInstances -> Request DescribeInstances
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 DescribeInstances
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeInstances)))
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 [Instance] -> Maybe Text -> Int -> DescribeInstancesResponse
DescribeInstancesResponse'
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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextToken")
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 DescribeInstances where
hashWithSalt :: Int -> DescribeInstances -> Int
hashWithSalt Int
_salt DescribeInstances' {Maybe Natural
Maybe Text
Text
fleetId :: Text
nextToken :: Maybe Text
location :: Maybe Text
limit :: Maybe Natural
instanceId :: Maybe Text
$sel:fleetId:DescribeInstances' :: DescribeInstances -> Text
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:location:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:limit:DescribeInstances' :: DescribeInstances -> Maybe Natural
$sel:instanceId:DescribeInstances' :: DescribeInstances -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
instanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
limit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
location
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetId
instance Prelude.NFData DescribeInstances where
rnf :: DescribeInstances -> ()
rnf DescribeInstances' {Maybe Natural
Maybe Text
Text
fleetId :: Text
nextToken :: Maybe Text
location :: Maybe Text
limit :: Maybe Natural
instanceId :: Maybe Text
$sel:fleetId:DescribeInstances' :: DescribeInstances -> Text
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:location:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:limit:DescribeInstances' :: DescribeInstances -> Maybe Natural
$sel:instanceId:DescribeInstances' :: DescribeInstances -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
instanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
limit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
location
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
fleetId
instance Data.ToHeaders DescribeInstances where
toHeaders :: DescribeInstances -> 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
"GameLift.DescribeInstances" :: 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 DescribeInstances where
toJSON :: DescribeInstances -> Value
toJSON DescribeInstances' {Maybe Natural
Maybe Text
Text
fleetId :: Text
nextToken :: Maybe Text
location :: Maybe Text
limit :: Maybe Natural
instanceId :: Maybe Text
$sel:fleetId:DescribeInstances' :: DescribeInstances -> Text
$sel:nextToken:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:location:DescribeInstances' :: DescribeInstances -> Maybe Text
$sel:limit:DescribeInstances' :: DescribeInstances -> Maybe Natural
$sel:instanceId:DescribeInstances' :: DescribeInstances -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"InstanceId" 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 Text
instanceId,
(Key
"Limit" 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
limit,
(Key
"Location" 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 Text
location,
(Key
"NextToken" 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 Text
nextToken,
forall a. a -> Maybe a
Prelude.Just (Key
"FleetId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
fleetId)
]
)
instance Data.ToPath DescribeInstances where
toPath :: DescribeInstances -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeInstances where
toQuery :: DescribeInstances -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeInstancesResponse = DescribeInstancesResponse'
{
DescribeInstancesResponse -> Maybe [Instance]
instances :: Prelude.Maybe [Instance],
DescribeInstancesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeInstancesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
$c/= :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
== :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
$c== :: DescribeInstancesResponse -> DescribeInstancesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeInstancesResponse]
ReadPrec DescribeInstancesResponse
Int -> ReadS DescribeInstancesResponse
ReadS [DescribeInstancesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstancesResponse]
$creadListPrec :: ReadPrec [DescribeInstancesResponse]
readPrec :: ReadPrec DescribeInstancesResponse
$creadPrec :: ReadPrec DescribeInstancesResponse
readList :: ReadS [DescribeInstancesResponse]
$creadList :: ReadS [DescribeInstancesResponse]
readsPrec :: Int -> ReadS DescribeInstancesResponse
$creadsPrec :: Int -> ReadS DescribeInstancesResponse
Prelude.Read, Int -> DescribeInstancesResponse -> ShowS
[DescribeInstancesResponse] -> ShowS
DescribeInstancesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstancesResponse] -> ShowS
$cshowList :: [DescribeInstancesResponse] -> ShowS
show :: DescribeInstancesResponse -> String
$cshow :: DescribeInstancesResponse -> String
showsPrec :: Int -> DescribeInstancesResponse -> ShowS
$cshowsPrec :: Int -> DescribeInstancesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeInstancesResponse x -> DescribeInstancesResponse
forall x.
DescribeInstancesResponse -> Rep DescribeInstancesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstancesResponse x -> DescribeInstancesResponse
$cfrom :: forall x.
DescribeInstancesResponse -> Rep DescribeInstancesResponse x
Prelude.Generic)
newDescribeInstancesResponse ::
Prelude.Int ->
DescribeInstancesResponse
newDescribeInstancesResponse :: Int -> DescribeInstancesResponse
newDescribeInstancesResponse Int
pHttpStatus_ =
DescribeInstancesResponse'
{ $sel:instances:DescribeInstancesResponse' :: Maybe [Instance]
instances =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeInstancesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeInstancesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeInstancesResponse_instances :: Lens.Lens' DescribeInstancesResponse (Prelude.Maybe [Instance])
describeInstancesResponse_instances :: Lens' DescribeInstancesResponse (Maybe [Instance])
describeInstancesResponse_instances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstancesResponse' {Maybe [Instance]
instances :: Maybe [Instance]
$sel:instances:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe [Instance]
instances} -> Maybe [Instance]
instances) (\s :: DescribeInstancesResponse
s@DescribeInstancesResponse' {} Maybe [Instance]
a -> DescribeInstancesResponse
s {$sel:instances:DescribeInstancesResponse' :: Maybe [Instance]
instances = Maybe [Instance]
a} :: DescribeInstancesResponse) 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
describeInstancesResponse_nextToken :: Lens.Lens' DescribeInstancesResponse (Prelude.Maybe Prelude.Text)
describeInstancesResponse_nextToken :: Lens' DescribeInstancesResponse (Maybe Text)
describeInstancesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstancesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstancesResponse
s@DescribeInstancesResponse' {} Maybe Text
a -> DescribeInstancesResponse
s {$sel:nextToken:DescribeInstancesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstancesResponse)
describeInstancesResponse_httpStatus :: Lens.Lens' DescribeInstancesResponse Prelude.Int
describeInstancesResponse_httpStatus :: Lens' DescribeInstancesResponse Int
describeInstancesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstancesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeInstancesResponse' :: DescribeInstancesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeInstancesResponse
s@DescribeInstancesResponse' {} Int
a -> DescribeInstancesResponse
s {$sel:httpStatus:DescribeInstancesResponse' :: Int
httpStatus = Int
a} :: DescribeInstancesResponse)
instance Prelude.NFData DescribeInstancesResponse where
rnf :: DescribeInstancesResponse -> ()
rnf DescribeInstancesResponse' {Int
Maybe [Instance]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
instances :: Maybe [Instance]
$sel:httpStatus:DescribeInstancesResponse' :: DescribeInstancesResponse -> Int
$sel:nextToken:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe Text
$sel:instances:DescribeInstancesResponse' :: DescribeInstancesResponse -> Maybe [Instance]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Instance]
instances
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus