{-# 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.WorkSpaces.DescribeWorkspaceBundles
(
DescribeWorkspaceBundles (..),
newDescribeWorkspaceBundles,
describeWorkspaceBundles_bundleIds,
describeWorkspaceBundles_nextToken,
describeWorkspaceBundles_owner,
DescribeWorkspaceBundlesResponse (..),
newDescribeWorkspaceBundlesResponse,
describeWorkspaceBundlesResponse_bundles,
describeWorkspaceBundlesResponse_nextToken,
describeWorkspaceBundlesResponse_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.WorkSpaces.Types
data DescribeWorkspaceBundles = DescribeWorkspaceBundles'
{
DescribeWorkspaceBundles -> Maybe (NonEmpty Text)
bundleIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
DescribeWorkspaceBundles -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeWorkspaceBundles -> Maybe Text
owner :: Prelude.Maybe Prelude.Text
}
deriving (DescribeWorkspaceBundles -> DescribeWorkspaceBundles -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeWorkspaceBundles -> DescribeWorkspaceBundles -> Bool
$c/= :: DescribeWorkspaceBundles -> DescribeWorkspaceBundles -> Bool
== :: DescribeWorkspaceBundles -> DescribeWorkspaceBundles -> Bool
$c== :: DescribeWorkspaceBundles -> DescribeWorkspaceBundles -> Bool
Prelude.Eq, ReadPrec [DescribeWorkspaceBundles]
ReadPrec DescribeWorkspaceBundles
Int -> ReadS DescribeWorkspaceBundles
ReadS [DescribeWorkspaceBundles]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeWorkspaceBundles]
$creadListPrec :: ReadPrec [DescribeWorkspaceBundles]
readPrec :: ReadPrec DescribeWorkspaceBundles
$creadPrec :: ReadPrec DescribeWorkspaceBundles
readList :: ReadS [DescribeWorkspaceBundles]
$creadList :: ReadS [DescribeWorkspaceBundles]
readsPrec :: Int -> ReadS DescribeWorkspaceBundles
$creadsPrec :: Int -> ReadS DescribeWorkspaceBundles
Prelude.Read, Int -> DescribeWorkspaceBundles -> ShowS
[DescribeWorkspaceBundles] -> ShowS
DescribeWorkspaceBundles -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeWorkspaceBundles] -> ShowS
$cshowList :: [DescribeWorkspaceBundles] -> ShowS
show :: DescribeWorkspaceBundles -> String
$cshow :: DescribeWorkspaceBundles -> String
showsPrec :: Int -> DescribeWorkspaceBundles -> ShowS
$cshowsPrec :: Int -> DescribeWorkspaceBundles -> ShowS
Prelude.Show, forall x.
Rep DescribeWorkspaceBundles x -> DescribeWorkspaceBundles
forall x.
DescribeWorkspaceBundles -> Rep DescribeWorkspaceBundles x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeWorkspaceBundles x -> DescribeWorkspaceBundles
$cfrom :: forall x.
DescribeWorkspaceBundles -> Rep DescribeWorkspaceBundles x
Prelude.Generic)
newDescribeWorkspaceBundles ::
DescribeWorkspaceBundles
newDescribeWorkspaceBundles :: DescribeWorkspaceBundles
newDescribeWorkspaceBundles =
DescribeWorkspaceBundles'
{ $sel:bundleIds:DescribeWorkspaceBundles' :: Maybe (NonEmpty Text)
bundleIds =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeWorkspaceBundles' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:owner:DescribeWorkspaceBundles' :: Maybe Text
owner = forall a. Maybe a
Prelude.Nothing
}
describeWorkspaceBundles_bundleIds :: Lens.Lens' DescribeWorkspaceBundles (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
describeWorkspaceBundles_bundleIds :: Lens' DescribeWorkspaceBundles (Maybe (NonEmpty Text))
describeWorkspaceBundles_bundleIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceBundles' {Maybe (NonEmpty Text)
bundleIds :: Maybe (NonEmpty Text)
$sel:bundleIds:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe (NonEmpty Text)
bundleIds} -> Maybe (NonEmpty Text)
bundleIds) (\s :: DescribeWorkspaceBundles
s@DescribeWorkspaceBundles' {} Maybe (NonEmpty Text)
a -> DescribeWorkspaceBundles
s {$sel:bundleIds:DescribeWorkspaceBundles' :: Maybe (NonEmpty Text)
bundleIds = Maybe (NonEmpty Text)
a} :: DescribeWorkspaceBundles) 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
describeWorkspaceBundles_nextToken :: Lens.Lens' DescribeWorkspaceBundles (Prelude.Maybe Prelude.Text)
describeWorkspaceBundles_nextToken :: Lens' DescribeWorkspaceBundles (Maybe Text)
describeWorkspaceBundles_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceBundles' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeWorkspaceBundles
s@DescribeWorkspaceBundles' {} Maybe Text
a -> DescribeWorkspaceBundles
s {$sel:nextToken:DescribeWorkspaceBundles' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeWorkspaceBundles)
describeWorkspaceBundles_owner :: Lens.Lens' DescribeWorkspaceBundles (Prelude.Maybe Prelude.Text)
describeWorkspaceBundles_owner :: Lens' DescribeWorkspaceBundles (Maybe Text)
describeWorkspaceBundles_owner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceBundles' {Maybe Text
owner :: Maybe Text
$sel:owner:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
owner} -> Maybe Text
owner) (\s :: DescribeWorkspaceBundles
s@DescribeWorkspaceBundles' {} Maybe Text
a -> DescribeWorkspaceBundles
s {$sel:owner:DescribeWorkspaceBundles' :: Maybe Text
owner = Maybe Text
a} :: DescribeWorkspaceBundles)
instance Core.AWSPager DescribeWorkspaceBundles where
page :: DescribeWorkspaceBundles
-> AWSResponse DescribeWorkspaceBundles
-> Maybe DescribeWorkspaceBundles
page DescribeWorkspaceBundles
rq AWSResponse DescribeWorkspaceBundles
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeWorkspaceBundles
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeWorkspaceBundlesResponse (Maybe Text)
describeWorkspaceBundlesResponse_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 DescribeWorkspaceBundles
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeWorkspaceBundlesResponse (Maybe [WorkspaceBundle])
describeWorkspaceBundlesResponse_bundles
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.$ DescribeWorkspaceBundles
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeWorkspaceBundles (Maybe Text)
describeWorkspaceBundles_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeWorkspaceBundles
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeWorkspaceBundlesResponse (Maybe Text)
describeWorkspaceBundlesResponse_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 DescribeWorkspaceBundles where
type
AWSResponse DescribeWorkspaceBundles =
DescribeWorkspaceBundlesResponse
request :: (Service -> Service)
-> DescribeWorkspaceBundles -> Request DescribeWorkspaceBundles
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 DescribeWorkspaceBundles
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeWorkspaceBundles)))
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 [WorkspaceBundle]
-> Maybe Text -> Int -> DescribeWorkspaceBundlesResponse
DescribeWorkspaceBundlesResponse'
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
"Bundles" 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 DescribeWorkspaceBundles where
hashWithSalt :: Int -> DescribeWorkspaceBundles -> Int
hashWithSalt Int
_salt DescribeWorkspaceBundles' {Maybe (NonEmpty Text)
Maybe Text
owner :: Maybe Text
nextToken :: Maybe Text
bundleIds :: Maybe (NonEmpty Text)
$sel:owner:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
$sel:nextToken:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
$sel:bundleIds:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe (NonEmpty Text)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
bundleIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
owner
instance Prelude.NFData DescribeWorkspaceBundles where
rnf :: DescribeWorkspaceBundles -> ()
rnf DescribeWorkspaceBundles' {Maybe (NonEmpty Text)
Maybe Text
owner :: Maybe Text
nextToken :: Maybe Text
bundleIds :: Maybe (NonEmpty Text)
$sel:owner:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
$sel:nextToken:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
$sel:bundleIds:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe (NonEmpty Text)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
bundleIds
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 Maybe Text
owner
instance Data.ToHeaders DescribeWorkspaceBundles where
toHeaders :: DescribeWorkspaceBundles -> 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
"WorkspacesService.DescribeWorkspaceBundles" ::
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 DescribeWorkspaceBundles where
toJSON :: DescribeWorkspaceBundles -> Value
toJSON DescribeWorkspaceBundles' {Maybe (NonEmpty Text)
Maybe Text
owner :: Maybe Text
nextToken :: Maybe Text
bundleIds :: Maybe (NonEmpty Text)
$sel:owner:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
$sel:nextToken:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe Text
$sel:bundleIds:DescribeWorkspaceBundles' :: DescribeWorkspaceBundles -> Maybe (NonEmpty Text)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"BundleIds" 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 (NonEmpty Text)
bundleIds,
(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,
(Key
"Owner" 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
owner
]
)
instance Data.ToPath DescribeWorkspaceBundles where
toPath :: DescribeWorkspaceBundles -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeWorkspaceBundles where
toQuery :: DescribeWorkspaceBundles -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeWorkspaceBundlesResponse = DescribeWorkspaceBundlesResponse'
{
DescribeWorkspaceBundlesResponse -> Maybe [WorkspaceBundle]
bundles :: Prelude.Maybe [WorkspaceBundle],
DescribeWorkspaceBundlesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeWorkspaceBundlesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeWorkspaceBundlesResponse
-> DescribeWorkspaceBundlesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeWorkspaceBundlesResponse
-> DescribeWorkspaceBundlesResponse -> Bool
$c/= :: DescribeWorkspaceBundlesResponse
-> DescribeWorkspaceBundlesResponse -> Bool
== :: DescribeWorkspaceBundlesResponse
-> DescribeWorkspaceBundlesResponse -> Bool
$c== :: DescribeWorkspaceBundlesResponse
-> DescribeWorkspaceBundlesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeWorkspaceBundlesResponse]
ReadPrec DescribeWorkspaceBundlesResponse
Int -> ReadS DescribeWorkspaceBundlesResponse
ReadS [DescribeWorkspaceBundlesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeWorkspaceBundlesResponse]
$creadListPrec :: ReadPrec [DescribeWorkspaceBundlesResponse]
readPrec :: ReadPrec DescribeWorkspaceBundlesResponse
$creadPrec :: ReadPrec DescribeWorkspaceBundlesResponse
readList :: ReadS [DescribeWorkspaceBundlesResponse]
$creadList :: ReadS [DescribeWorkspaceBundlesResponse]
readsPrec :: Int -> ReadS DescribeWorkspaceBundlesResponse
$creadsPrec :: Int -> ReadS DescribeWorkspaceBundlesResponse
Prelude.Read, Int -> DescribeWorkspaceBundlesResponse -> ShowS
[DescribeWorkspaceBundlesResponse] -> ShowS
DescribeWorkspaceBundlesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeWorkspaceBundlesResponse] -> ShowS
$cshowList :: [DescribeWorkspaceBundlesResponse] -> ShowS
show :: DescribeWorkspaceBundlesResponse -> String
$cshow :: DescribeWorkspaceBundlesResponse -> String
showsPrec :: Int -> DescribeWorkspaceBundlesResponse -> ShowS
$cshowsPrec :: Int -> DescribeWorkspaceBundlesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeWorkspaceBundlesResponse x
-> DescribeWorkspaceBundlesResponse
forall x.
DescribeWorkspaceBundlesResponse
-> Rep DescribeWorkspaceBundlesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeWorkspaceBundlesResponse x
-> DescribeWorkspaceBundlesResponse
$cfrom :: forall x.
DescribeWorkspaceBundlesResponse
-> Rep DescribeWorkspaceBundlesResponse x
Prelude.Generic)
newDescribeWorkspaceBundlesResponse ::
Prelude.Int ->
DescribeWorkspaceBundlesResponse
newDescribeWorkspaceBundlesResponse :: Int -> DescribeWorkspaceBundlesResponse
newDescribeWorkspaceBundlesResponse Int
pHttpStatus_ =
DescribeWorkspaceBundlesResponse'
{ $sel:bundles:DescribeWorkspaceBundlesResponse' :: Maybe [WorkspaceBundle]
bundles =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeWorkspaceBundlesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeWorkspaceBundlesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeWorkspaceBundlesResponse_bundles :: Lens.Lens' DescribeWorkspaceBundlesResponse (Prelude.Maybe [WorkspaceBundle])
describeWorkspaceBundlesResponse_bundles :: Lens' DescribeWorkspaceBundlesResponse (Maybe [WorkspaceBundle])
describeWorkspaceBundlesResponse_bundles = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceBundlesResponse' {Maybe [WorkspaceBundle]
bundles :: Maybe [WorkspaceBundle]
$sel:bundles:DescribeWorkspaceBundlesResponse' :: DescribeWorkspaceBundlesResponse -> Maybe [WorkspaceBundle]
bundles} -> Maybe [WorkspaceBundle]
bundles) (\s :: DescribeWorkspaceBundlesResponse
s@DescribeWorkspaceBundlesResponse' {} Maybe [WorkspaceBundle]
a -> DescribeWorkspaceBundlesResponse
s {$sel:bundles:DescribeWorkspaceBundlesResponse' :: Maybe [WorkspaceBundle]
bundles = Maybe [WorkspaceBundle]
a} :: DescribeWorkspaceBundlesResponse) 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
describeWorkspaceBundlesResponse_nextToken :: Lens.Lens' DescribeWorkspaceBundlesResponse (Prelude.Maybe Prelude.Text)
describeWorkspaceBundlesResponse_nextToken :: Lens' DescribeWorkspaceBundlesResponse (Maybe Text)
describeWorkspaceBundlesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceBundlesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeWorkspaceBundlesResponse' :: DescribeWorkspaceBundlesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeWorkspaceBundlesResponse
s@DescribeWorkspaceBundlesResponse' {} Maybe Text
a -> DescribeWorkspaceBundlesResponse
s {$sel:nextToken:DescribeWorkspaceBundlesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeWorkspaceBundlesResponse)
describeWorkspaceBundlesResponse_httpStatus :: Lens.Lens' DescribeWorkspaceBundlesResponse Prelude.Int
describeWorkspaceBundlesResponse_httpStatus :: Lens' DescribeWorkspaceBundlesResponse Int
describeWorkspaceBundlesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceBundlesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeWorkspaceBundlesResponse' :: DescribeWorkspaceBundlesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeWorkspaceBundlesResponse
s@DescribeWorkspaceBundlesResponse' {} Int
a -> DescribeWorkspaceBundlesResponse
s {$sel:httpStatus:DescribeWorkspaceBundlesResponse' :: Int
httpStatus = Int
a} :: DescribeWorkspaceBundlesResponse)
instance
Prelude.NFData
DescribeWorkspaceBundlesResponse
where
rnf :: DescribeWorkspaceBundlesResponse -> ()
rnf DescribeWorkspaceBundlesResponse' {Int
Maybe [WorkspaceBundle]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
bundles :: Maybe [WorkspaceBundle]
$sel:httpStatus:DescribeWorkspaceBundlesResponse' :: DescribeWorkspaceBundlesResponse -> Int
$sel:nextToken:DescribeWorkspaceBundlesResponse' :: DescribeWorkspaceBundlesResponse -> Maybe Text
$sel:bundles:DescribeWorkspaceBundlesResponse' :: DescribeWorkspaceBundlesResponse -> Maybe [WorkspaceBundle]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [WorkspaceBundle]
bundles
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