{-# 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.Proton.ListServiceInstanceProvisionedResources
(
ListServiceInstanceProvisionedResources (..),
newListServiceInstanceProvisionedResources,
listServiceInstanceProvisionedResources_nextToken,
listServiceInstanceProvisionedResources_serviceInstanceName,
listServiceInstanceProvisionedResources_serviceName,
ListServiceInstanceProvisionedResourcesResponse (..),
newListServiceInstanceProvisionedResourcesResponse,
listServiceInstanceProvisionedResourcesResponse_nextToken,
listServiceInstanceProvisionedResourcesResponse_httpStatus,
listServiceInstanceProvisionedResourcesResponse_provisionedResources,
)
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 Amazonka.Proton.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListServiceInstanceProvisionedResources = ListServiceInstanceProvisionedResources'
{
ListServiceInstanceProvisionedResources -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListServiceInstanceProvisionedResources -> Text
serviceInstanceName :: Prelude.Text,
ListServiceInstanceProvisionedResources -> Text
serviceName :: Prelude.Text
}
deriving (ListServiceInstanceProvisionedResources
-> ListServiceInstanceProvisionedResources -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListServiceInstanceProvisionedResources
-> ListServiceInstanceProvisionedResources -> Bool
$c/= :: ListServiceInstanceProvisionedResources
-> ListServiceInstanceProvisionedResources -> Bool
== :: ListServiceInstanceProvisionedResources
-> ListServiceInstanceProvisionedResources -> Bool
$c== :: ListServiceInstanceProvisionedResources
-> ListServiceInstanceProvisionedResources -> Bool
Prelude.Eq, ReadPrec [ListServiceInstanceProvisionedResources]
ReadPrec ListServiceInstanceProvisionedResources
Int -> ReadS ListServiceInstanceProvisionedResources
ReadS [ListServiceInstanceProvisionedResources]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListServiceInstanceProvisionedResources]
$creadListPrec :: ReadPrec [ListServiceInstanceProvisionedResources]
readPrec :: ReadPrec ListServiceInstanceProvisionedResources
$creadPrec :: ReadPrec ListServiceInstanceProvisionedResources
readList :: ReadS [ListServiceInstanceProvisionedResources]
$creadList :: ReadS [ListServiceInstanceProvisionedResources]
readsPrec :: Int -> ReadS ListServiceInstanceProvisionedResources
$creadsPrec :: Int -> ReadS ListServiceInstanceProvisionedResources
Prelude.Read, Int -> ListServiceInstanceProvisionedResources -> ShowS
[ListServiceInstanceProvisionedResources] -> ShowS
ListServiceInstanceProvisionedResources -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListServiceInstanceProvisionedResources] -> ShowS
$cshowList :: [ListServiceInstanceProvisionedResources] -> ShowS
show :: ListServiceInstanceProvisionedResources -> String
$cshow :: ListServiceInstanceProvisionedResources -> String
showsPrec :: Int -> ListServiceInstanceProvisionedResources -> ShowS
$cshowsPrec :: Int -> ListServiceInstanceProvisionedResources -> ShowS
Prelude.Show, forall x.
Rep ListServiceInstanceProvisionedResources x
-> ListServiceInstanceProvisionedResources
forall x.
ListServiceInstanceProvisionedResources
-> Rep ListServiceInstanceProvisionedResources x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListServiceInstanceProvisionedResources x
-> ListServiceInstanceProvisionedResources
$cfrom :: forall x.
ListServiceInstanceProvisionedResources
-> Rep ListServiceInstanceProvisionedResources x
Prelude.Generic)
newListServiceInstanceProvisionedResources ::
Prelude.Text ->
Prelude.Text ->
ListServiceInstanceProvisionedResources
newListServiceInstanceProvisionedResources :: Text -> Text -> ListServiceInstanceProvisionedResources
newListServiceInstanceProvisionedResources
Text
pServiceInstanceName_
Text
pServiceName_ =
ListServiceInstanceProvisionedResources'
{ $sel:nextToken:ListServiceInstanceProvisionedResources' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:serviceInstanceName:ListServiceInstanceProvisionedResources' :: Text
serviceInstanceName =
Text
pServiceInstanceName_,
$sel:serviceName:ListServiceInstanceProvisionedResources' :: Text
serviceName = Text
pServiceName_
}
listServiceInstanceProvisionedResources_nextToken :: Lens.Lens' ListServiceInstanceProvisionedResources (Prelude.Maybe Prelude.Text)
listServiceInstanceProvisionedResources_nextToken :: Lens' ListServiceInstanceProvisionedResources (Maybe Text)
listServiceInstanceProvisionedResources_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceInstanceProvisionedResources' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListServiceInstanceProvisionedResources
s@ListServiceInstanceProvisionedResources' {} Maybe Text
a -> ListServiceInstanceProvisionedResources
s {$sel:nextToken:ListServiceInstanceProvisionedResources' :: Maybe Text
nextToken = Maybe Text
a} :: ListServiceInstanceProvisionedResources)
listServiceInstanceProvisionedResources_serviceInstanceName :: Lens.Lens' ListServiceInstanceProvisionedResources Prelude.Text
listServiceInstanceProvisionedResources_serviceInstanceName :: Lens' ListServiceInstanceProvisionedResources Text
listServiceInstanceProvisionedResources_serviceInstanceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceInstanceProvisionedResources' {Text
serviceInstanceName :: Text
$sel:serviceInstanceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
serviceInstanceName} -> Text
serviceInstanceName) (\s :: ListServiceInstanceProvisionedResources
s@ListServiceInstanceProvisionedResources' {} Text
a -> ListServiceInstanceProvisionedResources
s {$sel:serviceInstanceName:ListServiceInstanceProvisionedResources' :: Text
serviceInstanceName = Text
a} :: ListServiceInstanceProvisionedResources)
listServiceInstanceProvisionedResources_serviceName :: Lens.Lens' ListServiceInstanceProvisionedResources Prelude.Text
listServiceInstanceProvisionedResources_serviceName :: Lens' ListServiceInstanceProvisionedResources Text
listServiceInstanceProvisionedResources_serviceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceInstanceProvisionedResources' {Text
serviceName :: Text
$sel:serviceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
serviceName} -> Text
serviceName) (\s :: ListServiceInstanceProvisionedResources
s@ListServiceInstanceProvisionedResources' {} Text
a -> ListServiceInstanceProvisionedResources
s {$sel:serviceName:ListServiceInstanceProvisionedResources' :: Text
serviceName = Text
a} :: ListServiceInstanceProvisionedResources)
instance
Core.AWSPager
ListServiceInstanceProvisionedResources
where
page :: ListServiceInstanceProvisionedResources
-> AWSResponse ListServiceInstanceProvisionedResources
-> Maybe ListServiceInstanceProvisionedResources
page ListServiceInstanceProvisionedResources
rq AWSResponse ListServiceInstanceProvisionedResources
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListServiceInstanceProvisionedResources
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListServiceInstanceProvisionedResourcesResponse (Maybe Text)
listServiceInstanceProvisionedResourcesResponse_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 ListServiceInstanceProvisionedResources
rs
forall s a. s -> Getting a s a -> a
Lens.^. Lens'
ListServiceInstanceProvisionedResourcesResponse
[ProvisionedResource]
listServiceInstanceProvisionedResourcesResponse_provisionedResources
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListServiceInstanceProvisionedResources
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListServiceInstanceProvisionedResources (Maybe Text)
listServiceInstanceProvisionedResources_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListServiceInstanceProvisionedResources
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListServiceInstanceProvisionedResourcesResponse (Maybe Text)
listServiceInstanceProvisionedResourcesResponse_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
ListServiceInstanceProvisionedResources
where
type
AWSResponse
ListServiceInstanceProvisionedResources =
ListServiceInstanceProvisionedResourcesResponse
request :: (Service -> Service)
-> ListServiceInstanceProvisionedResources
-> Request ListServiceInstanceProvisionedResources
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 ListServiceInstanceProvisionedResources
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ListServiceInstanceProvisionedResources)))
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 Text
-> Int
-> [ProvisionedResource]
-> ListServiceInstanceProvisionedResourcesResponse
ListServiceInstanceProvisionedResourcesResponse'
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
"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))
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
"provisionedResources"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance
Prelude.Hashable
ListServiceInstanceProvisionedResources
where
hashWithSalt :: Int -> ListServiceInstanceProvisionedResources -> Int
hashWithSalt
Int
_salt
ListServiceInstanceProvisionedResources' {Maybe Text
Text
serviceName :: Text
serviceInstanceName :: Text
nextToken :: Maybe Text
$sel:serviceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
$sel:serviceInstanceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
$sel:nextToken:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceInstanceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceName
instance
Prelude.NFData
ListServiceInstanceProvisionedResources
where
rnf :: ListServiceInstanceProvisionedResources -> ()
rnf ListServiceInstanceProvisionedResources' {Maybe Text
Text
serviceName :: Text
serviceInstanceName :: Text
nextToken :: Maybe Text
$sel:serviceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
$sel:serviceInstanceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
$sel:nextToken:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Maybe Text
..} =
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
serviceInstanceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceName
instance
Data.ToHeaders
ListServiceInstanceProvisionedResources
where
toHeaders :: ListServiceInstanceProvisionedResources -> 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
"AwsProton20200720.ListServiceInstanceProvisionedResources" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
ListServiceInstanceProvisionedResources
where
toJSON :: ListServiceInstanceProvisionedResources -> Value
toJSON ListServiceInstanceProvisionedResources' {Maybe Text
Text
serviceName :: Text
serviceInstanceName :: Text
nextToken :: Maybe Text
$sel:serviceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
$sel:serviceInstanceName:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Text
$sel:nextToken:ListServiceInstanceProvisionedResources' :: ListServiceInstanceProvisionedResources -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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
"serviceInstanceName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
serviceInstanceName),
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
ListServiceInstanceProvisionedResources
where
toPath :: ListServiceInstanceProvisionedResources -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
ListServiceInstanceProvisionedResources
where
toQuery :: ListServiceInstanceProvisionedResources -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListServiceInstanceProvisionedResourcesResponse = ListServiceInstanceProvisionedResourcesResponse'
{
ListServiceInstanceProvisionedResourcesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListServiceInstanceProvisionedResourcesResponse -> Int
httpStatus :: Prelude.Int,
ListServiceInstanceProvisionedResourcesResponse
-> [ProvisionedResource]
provisionedResources :: [ProvisionedResource]
}
deriving (ListServiceInstanceProvisionedResourcesResponse
-> ListServiceInstanceProvisionedResourcesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListServiceInstanceProvisionedResourcesResponse
-> ListServiceInstanceProvisionedResourcesResponse -> Bool
$c/= :: ListServiceInstanceProvisionedResourcesResponse
-> ListServiceInstanceProvisionedResourcesResponse -> Bool
== :: ListServiceInstanceProvisionedResourcesResponse
-> ListServiceInstanceProvisionedResourcesResponse -> Bool
$c== :: ListServiceInstanceProvisionedResourcesResponse
-> ListServiceInstanceProvisionedResourcesResponse -> Bool
Prelude.Eq, ReadPrec [ListServiceInstanceProvisionedResourcesResponse]
ReadPrec ListServiceInstanceProvisionedResourcesResponse
Int -> ReadS ListServiceInstanceProvisionedResourcesResponse
ReadS [ListServiceInstanceProvisionedResourcesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListServiceInstanceProvisionedResourcesResponse]
$creadListPrec :: ReadPrec [ListServiceInstanceProvisionedResourcesResponse]
readPrec :: ReadPrec ListServiceInstanceProvisionedResourcesResponse
$creadPrec :: ReadPrec ListServiceInstanceProvisionedResourcesResponse
readList :: ReadS [ListServiceInstanceProvisionedResourcesResponse]
$creadList :: ReadS [ListServiceInstanceProvisionedResourcesResponse]
readsPrec :: Int -> ReadS ListServiceInstanceProvisionedResourcesResponse
$creadsPrec :: Int -> ReadS ListServiceInstanceProvisionedResourcesResponse
Prelude.Read, Int -> ListServiceInstanceProvisionedResourcesResponse -> ShowS
[ListServiceInstanceProvisionedResourcesResponse] -> ShowS
ListServiceInstanceProvisionedResourcesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListServiceInstanceProvisionedResourcesResponse] -> ShowS
$cshowList :: [ListServiceInstanceProvisionedResourcesResponse] -> ShowS
show :: ListServiceInstanceProvisionedResourcesResponse -> String
$cshow :: ListServiceInstanceProvisionedResourcesResponse -> String
showsPrec :: Int -> ListServiceInstanceProvisionedResourcesResponse -> ShowS
$cshowsPrec :: Int -> ListServiceInstanceProvisionedResourcesResponse -> ShowS
Prelude.Show, forall x.
Rep ListServiceInstanceProvisionedResourcesResponse x
-> ListServiceInstanceProvisionedResourcesResponse
forall x.
ListServiceInstanceProvisionedResourcesResponse
-> Rep ListServiceInstanceProvisionedResourcesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListServiceInstanceProvisionedResourcesResponse x
-> ListServiceInstanceProvisionedResourcesResponse
$cfrom :: forall x.
ListServiceInstanceProvisionedResourcesResponse
-> Rep ListServiceInstanceProvisionedResourcesResponse x
Prelude.Generic)
newListServiceInstanceProvisionedResourcesResponse ::
Prelude.Int ->
ListServiceInstanceProvisionedResourcesResponse
newListServiceInstanceProvisionedResourcesResponse :: Int -> ListServiceInstanceProvisionedResourcesResponse
newListServiceInstanceProvisionedResourcesResponse
Int
pHttpStatus_ =
ListServiceInstanceProvisionedResourcesResponse'
{ $sel:nextToken:ListServiceInstanceProvisionedResourcesResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListServiceInstanceProvisionedResourcesResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:provisionedResources:ListServiceInstanceProvisionedResourcesResponse' :: [ProvisionedResource]
provisionedResources =
forall a. Monoid a => a
Prelude.mempty
}
listServiceInstanceProvisionedResourcesResponse_nextToken :: Lens.Lens' ListServiceInstanceProvisionedResourcesResponse (Prelude.Maybe Prelude.Text)
listServiceInstanceProvisionedResourcesResponse_nextToken :: Lens' ListServiceInstanceProvisionedResourcesResponse (Maybe Text)
listServiceInstanceProvisionedResourcesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceInstanceProvisionedResourcesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListServiceInstanceProvisionedResourcesResponse' :: ListServiceInstanceProvisionedResourcesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListServiceInstanceProvisionedResourcesResponse
s@ListServiceInstanceProvisionedResourcesResponse' {} Maybe Text
a -> ListServiceInstanceProvisionedResourcesResponse
s {$sel:nextToken:ListServiceInstanceProvisionedResourcesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListServiceInstanceProvisionedResourcesResponse)
listServiceInstanceProvisionedResourcesResponse_httpStatus :: Lens.Lens' ListServiceInstanceProvisionedResourcesResponse Prelude.Int
listServiceInstanceProvisionedResourcesResponse_httpStatus :: Lens' ListServiceInstanceProvisionedResourcesResponse Int
listServiceInstanceProvisionedResourcesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceInstanceProvisionedResourcesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListServiceInstanceProvisionedResourcesResponse' :: ListServiceInstanceProvisionedResourcesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListServiceInstanceProvisionedResourcesResponse
s@ListServiceInstanceProvisionedResourcesResponse' {} Int
a -> ListServiceInstanceProvisionedResourcesResponse
s {$sel:httpStatus:ListServiceInstanceProvisionedResourcesResponse' :: Int
httpStatus = Int
a} :: ListServiceInstanceProvisionedResourcesResponse)
listServiceInstanceProvisionedResourcesResponse_provisionedResources :: Lens.Lens' ListServiceInstanceProvisionedResourcesResponse [ProvisionedResource]
listServiceInstanceProvisionedResourcesResponse_provisionedResources :: Lens'
ListServiceInstanceProvisionedResourcesResponse
[ProvisionedResource]
listServiceInstanceProvisionedResourcesResponse_provisionedResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceInstanceProvisionedResourcesResponse' {[ProvisionedResource]
provisionedResources :: [ProvisionedResource]
$sel:provisionedResources:ListServiceInstanceProvisionedResourcesResponse' :: ListServiceInstanceProvisionedResourcesResponse
-> [ProvisionedResource]
provisionedResources} -> [ProvisionedResource]
provisionedResources) (\s :: ListServiceInstanceProvisionedResourcesResponse
s@ListServiceInstanceProvisionedResourcesResponse' {} [ProvisionedResource]
a -> ListServiceInstanceProvisionedResourcesResponse
s {$sel:provisionedResources:ListServiceInstanceProvisionedResourcesResponse' :: [ProvisionedResource]
provisionedResources = [ProvisionedResource]
a} :: ListServiceInstanceProvisionedResourcesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Prelude.NFData
ListServiceInstanceProvisionedResourcesResponse
where
rnf :: ListServiceInstanceProvisionedResourcesResponse -> ()
rnf
ListServiceInstanceProvisionedResourcesResponse' {Int
[ProvisionedResource]
Maybe Text
provisionedResources :: [ProvisionedResource]
httpStatus :: Int
nextToken :: Maybe Text
$sel:provisionedResources:ListServiceInstanceProvisionedResourcesResponse' :: ListServiceInstanceProvisionedResourcesResponse
-> [ProvisionedResource]
$sel:httpStatus:ListServiceInstanceProvisionedResourcesResponse' :: ListServiceInstanceProvisionedResourcesResponse -> Int
$sel:nextToken:ListServiceInstanceProvisionedResourcesResponse' :: ListServiceInstanceProvisionedResourcesResponse -> Maybe Text
..} =
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ProvisionedResource]
provisionedResources