{-# 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.IAM.ListPoliciesGrantingServiceAccess
(
ListPoliciesGrantingServiceAccess (..),
newListPoliciesGrantingServiceAccess,
listPoliciesGrantingServiceAccess_marker,
listPoliciesGrantingServiceAccess_arn,
listPoliciesGrantingServiceAccess_serviceNamespaces,
ListPoliciesGrantingServiceAccessResponse (..),
newListPoliciesGrantingServiceAccessResponse,
listPoliciesGrantingServiceAccessResponse_isTruncated,
listPoliciesGrantingServiceAccessResponse_marker,
listPoliciesGrantingServiceAccessResponse_httpStatus,
listPoliciesGrantingServiceAccessResponse_policiesGrantingServiceAccess,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListPoliciesGrantingServiceAccess = ListPoliciesGrantingServiceAccess'
{
ListPoliciesGrantingServiceAccess -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListPoliciesGrantingServiceAccess -> Text
arn :: Prelude.Text,
ListPoliciesGrantingServiceAccess -> NonEmpty Text
serviceNamespaces :: Prelude.NonEmpty Prelude.Text
}
deriving (ListPoliciesGrantingServiceAccess
-> ListPoliciesGrantingServiceAccess -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListPoliciesGrantingServiceAccess
-> ListPoliciesGrantingServiceAccess -> Bool
$c/= :: ListPoliciesGrantingServiceAccess
-> ListPoliciesGrantingServiceAccess -> Bool
== :: ListPoliciesGrantingServiceAccess
-> ListPoliciesGrantingServiceAccess -> Bool
$c== :: ListPoliciesGrantingServiceAccess
-> ListPoliciesGrantingServiceAccess -> Bool
Prelude.Eq, ReadPrec [ListPoliciesGrantingServiceAccess]
ReadPrec ListPoliciesGrantingServiceAccess
Int -> ReadS ListPoliciesGrantingServiceAccess
ReadS [ListPoliciesGrantingServiceAccess]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListPoliciesGrantingServiceAccess]
$creadListPrec :: ReadPrec [ListPoliciesGrantingServiceAccess]
readPrec :: ReadPrec ListPoliciesGrantingServiceAccess
$creadPrec :: ReadPrec ListPoliciesGrantingServiceAccess
readList :: ReadS [ListPoliciesGrantingServiceAccess]
$creadList :: ReadS [ListPoliciesGrantingServiceAccess]
readsPrec :: Int -> ReadS ListPoliciesGrantingServiceAccess
$creadsPrec :: Int -> ReadS ListPoliciesGrantingServiceAccess
Prelude.Read, Int -> ListPoliciesGrantingServiceAccess -> ShowS
[ListPoliciesGrantingServiceAccess] -> ShowS
ListPoliciesGrantingServiceAccess -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListPoliciesGrantingServiceAccess] -> ShowS
$cshowList :: [ListPoliciesGrantingServiceAccess] -> ShowS
show :: ListPoliciesGrantingServiceAccess -> String
$cshow :: ListPoliciesGrantingServiceAccess -> String
showsPrec :: Int -> ListPoliciesGrantingServiceAccess -> ShowS
$cshowsPrec :: Int -> ListPoliciesGrantingServiceAccess -> ShowS
Prelude.Show, forall x.
Rep ListPoliciesGrantingServiceAccess x
-> ListPoliciesGrantingServiceAccess
forall x.
ListPoliciesGrantingServiceAccess
-> Rep ListPoliciesGrantingServiceAccess x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListPoliciesGrantingServiceAccess x
-> ListPoliciesGrantingServiceAccess
$cfrom :: forall x.
ListPoliciesGrantingServiceAccess
-> Rep ListPoliciesGrantingServiceAccess x
Prelude.Generic)
newListPoliciesGrantingServiceAccess ::
Prelude.Text ->
Prelude.NonEmpty Prelude.Text ->
ListPoliciesGrantingServiceAccess
newListPoliciesGrantingServiceAccess :: Text -> NonEmpty Text -> ListPoliciesGrantingServiceAccess
newListPoliciesGrantingServiceAccess
Text
pArn_
NonEmpty Text
pServiceNamespaces_ =
ListPoliciesGrantingServiceAccess'
{ $sel:marker:ListPoliciesGrantingServiceAccess' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:arn:ListPoliciesGrantingServiceAccess' :: Text
arn = Text
pArn_,
$sel:serviceNamespaces:ListPoliciesGrantingServiceAccess' :: NonEmpty Text
serviceNamespaces =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
forall t b. AReview t b -> b -> t
Lens.# NonEmpty Text
pServiceNamespaces_
}
listPoliciesGrantingServiceAccess_marker :: Lens.Lens' ListPoliciesGrantingServiceAccess (Prelude.Maybe Prelude.Text)
listPoliciesGrantingServiceAccess_marker :: Lens' ListPoliciesGrantingServiceAccess (Maybe Text)
listPoliciesGrantingServiceAccess_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccess' {Maybe Text
marker :: Maybe Text
$sel:marker:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListPoliciesGrantingServiceAccess
s@ListPoliciesGrantingServiceAccess' {} Maybe Text
a -> ListPoliciesGrantingServiceAccess
s {$sel:marker:ListPoliciesGrantingServiceAccess' :: Maybe Text
marker = Maybe Text
a} :: ListPoliciesGrantingServiceAccess)
listPoliciesGrantingServiceAccess_arn :: Lens.Lens' ListPoliciesGrantingServiceAccess Prelude.Text
listPoliciesGrantingServiceAccess_arn :: Lens' ListPoliciesGrantingServiceAccess Text
listPoliciesGrantingServiceAccess_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccess' {Text
arn :: Text
$sel:arn:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Text
arn} -> Text
arn) (\s :: ListPoliciesGrantingServiceAccess
s@ListPoliciesGrantingServiceAccess' {} Text
a -> ListPoliciesGrantingServiceAccess
s {$sel:arn:ListPoliciesGrantingServiceAccess' :: Text
arn = Text
a} :: ListPoliciesGrantingServiceAccess)
listPoliciesGrantingServiceAccess_serviceNamespaces :: Lens.Lens' ListPoliciesGrantingServiceAccess (Prelude.NonEmpty Prelude.Text)
listPoliciesGrantingServiceAccess_serviceNamespaces :: Lens' ListPoliciesGrantingServiceAccess (NonEmpty Text)
listPoliciesGrantingServiceAccess_serviceNamespaces = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccess' {NonEmpty Text
serviceNamespaces :: NonEmpty Text
$sel:serviceNamespaces:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> NonEmpty Text
serviceNamespaces} -> NonEmpty Text
serviceNamespaces) (\s :: ListPoliciesGrantingServiceAccess
s@ListPoliciesGrantingServiceAccess' {} NonEmpty Text
a -> ListPoliciesGrantingServiceAccess
s {$sel:serviceNamespaces:ListPoliciesGrantingServiceAccess' :: NonEmpty Text
serviceNamespaces = NonEmpty Text
a} :: ListPoliciesGrantingServiceAccess) 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
Core.AWSRequest
ListPoliciesGrantingServiceAccess
where
type
AWSResponse ListPoliciesGrantingServiceAccess =
ListPoliciesGrantingServiceAccessResponse
request :: (Service -> Service)
-> ListPoliciesGrantingServiceAccess
-> Request ListPoliciesGrantingServiceAccess
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 ListPoliciesGrantingServiceAccess
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ListPoliciesGrantingServiceAccess)))
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
"ListPoliciesGrantingServiceAccessResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Bool
-> Maybe Text
-> Int
-> [ListPoliciesGrantingServiceAccessEntry]
-> ListPoliciesGrantingServiceAccessResponse
ListPoliciesGrantingServiceAccessResponse'
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
"IsTruncated")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Marker")
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.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PoliciesGrantingServiceAccess"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member"
)
)
instance
Prelude.Hashable
ListPoliciesGrantingServiceAccess
where
hashWithSalt :: Int -> ListPoliciesGrantingServiceAccess -> Int
hashWithSalt
Int
_salt
ListPoliciesGrantingServiceAccess' {Maybe Text
NonEmpty Text
Text
serviceNamespaces :: NonEmpty Text
arn :: Text
marker :: Maybe Text
$sel:serviceNamespaces:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> NonEmpty Text
$sel:arn:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Text
$sel:marker:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
arn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty Text
serviceNamespaces
instance
Prelude.NFData
ListPoliciesGrantingServiceAccess
where
rnf :: ListPoliciesGrantingServiceAccess -> ()
rnf ListPoliciesGrantingServiceAccess' {Maybe Text
NonEmpty Text
Text
serviceNamespaces :: NonEmpty Text
arn :: Text
marker :: Maybe Text
$sel:serviceNamespaces:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> NonEmpty Text
$sel:arn:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Text
$sel:marker:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty Text
serviceNamespaces
instance
Data.ToHeaders
ListPoliciesGrantingServiceAccess
where
toHeaders :: ListPoliciesGrantingServiceAccess -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
ListPoliciesGrantingServiceAccess
where
toPath :: ListPoliciesGrantingServiceAccess -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
ListPoliciesGrantingServiceAccess
where
toQuery :: ListPoliciesGrantingServiceAccess -> QueryString
toQuery ListPoliciesGrantingServiceAccess' {Maybe Text
NonEmpty Text
Text
serviceNamespaces :: NonEmpty Text
arn :: Text
marker :: Maybe Text
$sel:serviceNamespaces:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> NonEmpty Text
$sel:arn:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Text
$sel:marker:ListPoliciesGrantingServiceAccess' :: ListPoliciesGrantingServiceAccess -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"ListPoliciesGrantingServiceAccess" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
ByteString
"Arn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
arn,
ByteString
"ServiceNamespaces"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" NonEmpty Text
serviceNamespaces
]
data ListPoliciesGrantingServiceAccessResponse = ListPoliciesGrantingServiceAccessResponse'
{
ListPoliciesGrantingServiceAccessResponse -> Maybe Bool
isTruncated :: Prelude.Maybe Prelude.Bool,
ListPoliciesGrantingServiceAccessResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListPoliciesGrantingServiceAccessResponse -> Int
httpStatus :: Prelude.Int,
ListPoliciesGrantingServiceAccessResponse
-> [ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess :: [ListPoliciesGrantingServiceAccessEntry]
}
deriving (ListPoliciesGrantingServiceAccessResponse
-> ListPoliciesGrantingServiceAccessResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListPoliciesGrantingServiceAccessResponse
-> ListPoliciesGrantingServiceAccessResponse -> Bool
$c/= :: ListPoliciesGrantingServiceAccessResponse
-> ListPoliciesGrantingServiceAccessResponse -> Bool
== :: ListPoliciesGrantingServiceAccessResponse
-> ListPoliciesGrantingServiceAccessResponse -> Bool
$c== :: ListPoliciesGrantingServiceAccessResponse
-> ListPoliciesGrantingServiceAccessResponse -> Bool
Prelude.Eq, ReadPrec [ListPoliciesGrantingServiceAccessResponse]
ReadPrec ListPoliciesGrantingServiceAccessResponse
Int -> ReadS ListPoliciesGrantingServiceAccessResponse
ReadS [ListPoliciesGrantingServiceAccessResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListPoliciesGrantingServiceAccessResponse]
$creadListPrec :: ReadPrec [ListPoliciesGrantingServiceAccessResponse]
readPrec :: ReadPrec ListPoliciesGrantingServiceAccessResponse
$creadPrec :: ReadPrec ListPoliciesGrantingServiceAccessResponse
readList :: ReadS [ListPoliciesGrantingServiceAccessResponse]
$creadList :: ReadS [ListPoliciesGrantingServiceAccessResponse]
readsPrec :: Int -> ReadS ListPoliciesGrantingServiceAccessResponse
$creadsPrec :: Int -> ReadS ListPoliciesGrantingServiceAccessResponse
Prelude.Read, Int -> ListPoliciesGrantingServiceAccessResponse -> ShowS
[ListPoliciesGrantingServiceAccessResponse] -> ShowS
ListPoliciesGrantingServiceAccessResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListPoliciesGrantingServiceAccessResponse] -> ShowS
$cshowList :: [ListPoliciesGrantingServiceAccessResponse] -> ShowS
show :: ListPoliciesGrantingServiceAccessResponse -> String
$cshow :: ListPoliciesGrantingServiceAccessResponse -> String
showsPrec :: Int -> ListPoliciesGrantingServiceAccessResponse -> ShowS
$cshowsPrec :: Int -> ListPoliciesGrantingServiceAccessResponse -> ShowS
Prelude.Show, forall x.
Rep ListPoliciesGrantingServiceAccessResponse x
-> ListPoliciesGrantingServiceAccessResponse
forall x.
ListPoliciesGrantingServiceAccessResponse
-> Rep ListPoliciesGrantingServiceAccessResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListPoliciesGrantingServiceAccessResponse x
-> ListPoliciesGrantingServiceAccessResponse
$cfrom :: forall x.
ListPoliciesGrantingServiceAccessResponse
-> Rep ListPoliciesGrantingServiceAccessResponse x
Prelude.Generic)
newListPoliciesGrantingServiceAccessResponse ::
Prelude.Int ->
ListPoliciesGrantingServiceAccessResponse
newListPoliciesGrantingServiceAccessResponse :: Int -> ListPoliciesGrantingServiceAccessResponse
newListPoliciesGrantingServiceAccessResponse
Int
pHttpStatus_ =
ListPoliciesGrantingServiceAccessResponse'
{ $sel:isTruncated:ListPoliciesGrantingServiceAccessResponse' :: Maybe Bool
isTruncated =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:ListPoliciesGrantingServiceAccessResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListPoliciesGrantingServiceAccessResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:policiesGrantingServiceAccess:ListPoliciesGrantingServiceAccessResponse' :: [ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess =
forall a. Monoid a => a
Prelude.mempty
}
listPoliciesGrantingServiceAccessResponse_isTruncated :: Lens.Lens' ListPoliciesGrantingServiceAccessResponse (Prelude.Maybe Prelude.Bool)
listPoliciesGrantingServiceAccessResponse_isTruncated :: Lens' ListPoliciesGrantingServiceAccessResponse (Maybe Bool)
listPoliciesGrantingServiceAccessResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccessResponse' {Maybe Bool
isTruncated :: Maybe Bool
$sel:isTruncated:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse -> Maybe Bool
isTruncated} -> Maybe Bool
isTruncated) (\s :: ListPoliciesGrantingServiceAccessResponse
s@ListPoliciesGrantingServiceAccessResponse' {} Maybe Bool
a -> ListPoliciesGrantingServiceAccessResponse
s {$sel:isTruncated:ListPoliciesGrantingServiceAccessResponse' :: Maybe Bool
isTruncated = Maybe Bool
a} :: ListPoliciesGrantingServiceAccessResponse)
listPoliciesGrantingServiceAccessResponse_marker :: Lens.Lens' ListPoliciesGrantingServiceAccessResponse (Prelude.Maybe Prelude.Text)
listPoliciesGrantingServiceAccessResponse_marker :: Lens' ListPoliciesGrantingServiceAccessResponse (Maybe Text)
listPoliciesGrantingServiceAccessResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccessResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListPoliciesGrantingServiceAccessResponse
s@ListPoliciesGrantingServiceAccessResponse' {} Maybe Text
a -> ListPoliciesGrantingServiceAccessResponse
s {$sel:marker:ListPoliciesGrantingServiceAccessResponse' :: Maybe Text
marker = Maybe Text
a} :: ListPoliciesGrantingServiceAccessResponse)
listPoliciesGrantingServiceAccessResponse_httpStatus :: Lens.Lens' ListPoliciesGrantingServiceAccessResponse Prelude.Int
listPoliciesGrantingServiceAccessResponse_httpStatus :: Lens' ListPoliciesGrantingServiceAccessResponse Int
listPoliciesGrantingServiceAccessResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccessResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListPoliciesGrantingServiceAccessResponse
s@ListPoliciesGrantingServiceAccessResponse' {} Int
a -> ListPoliciesGrantingServiceAccessResponse
s {$sel:httpStatus:ListPoliciesGrantingServiceAccessResponse' :: Int
httpStatus = Int
a} :: ListPoliciesGrantingServiceAccessResponse)
listPoliciesGrantingServiceAccessResponse_policiesGrantingServiceAccess :: Lens.Lens' ListPoliciesGrantingServiceAccessResponse [ListPoliciesGrantingServiceAccessEntry]
listPoliciesGrantingServiceAccessResponse_policiesGrantingServiceAccess :: Lens'
ListPoliciesGrantingServiceAccessResponse
[ListPoliciesGrantingServiceAccessEntry]
listPoliciesGrantingServiceAccessResponse_policiesGrantingServiceAccess = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPoliciesGrantingServiceAccessResponse' {[ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess :: [ListPoliciesGrantingServiceAccessEntry]
$sel:policiesGrantingServiceAccess:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse
-> [ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess} -> [ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess) (\s :: ListPoliciesGrantingServiceAccessResponse
s@ListPoliciesGrantingServiceAccessResponse' {} [ListPoliciesGrantingServiceAccessEntry]
a -> ListPoliciesGrantingServiceAccessResponse
s {$sel:policiesGrantingServiceAccess:ListPoliciesGrantingServiceAccessResponse' :: [ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess = [ListPoliciesGrantingServiceAccessEntry]
a} :: ListPoliciesGrantingServiceAccessResponse) 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
ListPoliciesGrantingServiceAccessResponse
where
rnf :: ListPoliciesGrantingServiceAccessResponse -> ()
rnf ListPoliciesGrantingServiceAccessResponse' {Int
[ListPoliciesGrantingServiceAccessEntry]
Maybe Bool
Maybe Text
policiesGrantingServiceAccess :: [ListPoliciesGrantingServiceAccessEntry]
httpStatus :: Int
marker :: Maybe Text
isTruncated :: Maybe Bool
$sel:policiesGrantingServiceAccess:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse
-> [ListPoliciesGrantingServiceAccessEntry]
$sel:httpStatus:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse -> Int
$sel:marker:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse -> Maybe Text
$sel:isTruncated:ListPoliciesGrantingServiceAccessResponse' :: ListPoliciesGrantingServiceAccessResponse -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isTruncated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
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 [ListPoliciesGrantingServiceAccessEntry]
policiesGrantingServiceAccess