{-# 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.Redshift.DescribeEndpointAuthorization
(
DescribeEndpointAuthorization (..),
newDescribeEndpointAuthorization,
describeEndpointAuthorization_account,
describeEndpointAuthorization_clusterIdentifier,
describeEndpointAuthorization_grantee,
describeEndpointAuthorization_marker,
describeEndpointAuthorization_maxRecords,
DescribeEndpointAuthorizationResponse (..),
newDescribeEndpointAuthorizationResponse,
describeEndpointAuthorizationResponse_endpointAuthorizationList,
describeEndpointAuthorizationResponse_marker,
describeEndpointAuthorizationResponse_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 Amazonka.Redshift.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeEndpointAuthorization = DescribeEndpointAuthorization'
{
DescribeEndpointAuthorization -> Maybe Text
account :: Prelude.Maybe Prelude.Text,
DescribeEndpointAuthorization -> Maybe Text
clusterIdentifier :: Prelude.Maybe Prelude.Text,
DescribeEndpointAuthorization -> Maybe Bool
grantee :: Prelude.Maybe Prelude.Bool,
DescribeEndpointAuthorization -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeEndpointAuthorization -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int
}
deriving (DescribeEndpointAuthorization
-> DescribeEndpointAuthorization -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEndpointAuthorization
-> DescribeEndpointAuthorization -> Bool
$c/= :: DescribeEndpointAuthorization
-> DescribeEndpointAuthorization -> Bool
== :: DescribeEndpointAuthorization
-> DescribeEndpointAuthorization -> Bool
$c== :: DescribeEndpointAuthorization
-> DescribeEndpointAuthorization -> Bool
Prelude.Eq, ReadPrec [DescribeEndpointAuthorization]
ReadPrec DescribeEndpointAuthorization
Int -> ReadS DescribeEndpointAuthorization
ReadS [DescribeEndpointAuthorization]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEndpointAuthorization]
$creadListPrec :: ReadPrec [DescribeEndpointAuthorization]
readPrec :: ReadPrec DescribeEndpointAuthorization
$creadPrec :: ReadPrec DescribeEndpointAuthorization
readList :: ReadS [DescribeEndpointAuthorization]
$creadList :: ReadS [DescribeEndpointAuthorization]
readsPrec :: Int -> ReadS DescribeEndpointAuthorization
$creadsPrec :: Int -> ReadS DescribeEndpointAuthorization
Prelude.Read, Int -> DescribeEndpointAuthorization -> ShowS
[DescribeEndpointAuthorization] -> ShowS
DescribeEndpointAuthorization -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEndpointAuthorization] -> ShowS
$cshowList :: [DescribeEndpointAuthorization] -> ShowS
show :: DescribeEndpointAuthorization -> String
$cshow :: DescribeEndpointAuthorization -> String
showsPrec :: Int -> DescribeEndpointAuthorization -> ShowS
$cshowsPrec :: Int -> DescribeEndpointAuthorization -> ShowS
Prelude.Show, forall x.
Rep DescribeEndpointAuthorization x
-> DescribeEndpointAuthorization
forall x.
DescribeEndpointAuthorization
-> Rep DescribeEndpointAuthorization x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEndpointAuthorization x
-> DescribeEndpointAuthorization
$cfrom :: forall x.
DescribeEndpointAuthorization
-> Rep DescribeEndpointAuthorization x
Prelude.Generic)
newDescribeEndpointAuthorization ::
DescribeEndpointAuthorization
newDescribeEndpointAuthorization :: DescribeEndpointAuthorization
newDescribeEndpointAuthorization =
DescribeEndpointAuthorization'
{ $sel:account:DescribeEndpointAuthorization' :: Maybe Text
account =
forall a. Maybe a
Prelude.Nothing,
$sel:clusterIdentifier:DescribeEndpointAuthorization' :: Maybe Text
clusterIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:grantee:DescribeEndpointAuthorization' :: Maybe Bool
grantee = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeEndpointAuthorization' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeEndpointAuthorization' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing
}
describeEndpointAuthorization_account :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Text)
describeEndpointAuthorization_account :: Lens' DescribeEndpointAuthorization (Maybe Text)
describeEndpointAuthorization_account = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorization' {Maybe Text
account :: Maybe Text
$sel:account:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
account} -> Maybe Text
account) (\s :: DescribeEndpointAuthorization
s@DescribeEndpointAuthorization' {} Maybe Text
a -> DescribeEndpointAuthorization
s {$sel:account:DescribeEndpointAuthorization' :: Maybe Text
account = Maybe Text
a} :: DescribeEndpointAuthorization)
describeEndpointAuthorization_clusterIdentifier :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Text)
describeEndpointAuthorization_clusterIdentifier :: Lens' DescribeEndpointAuthorization (Maybe Text)
describeEndpointAuthorization_clusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorization' {Maybe Text
clusterIdentifier :: Maybe Text
$sel:clusterIdentifier:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
clusterIdentifier} -> Maybe Text
clusterIdentifier) (\s :: DescribeEndpointAuthorization
s@DescribeEndpointAuthorization' {} Maybe Text
a -> DescribeEndpointAuthorization
s {$sel:clusterIdentifier:DescribeEndpointAuthorization' :: Maybe Text
clusterIdentifier = Maybe Text
a} :: DescribeEndpointAuthorization)
describeEndpointAuthorization_grantee :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Bool)
describeEndpointAuthorization_grantee :: Lens' DescribeEndpointAuthorization (Maybe Bool)
describeEndpointAuthorization_grantee = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorization' {Maybe Bool
grantee :: Maybe Bool
$sel:grantee:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Bool
grantee} -> Maybe Bool
grantee) (\s :: DescribeEndpointAuthorization
s@DescribeEndpointAuthorization' {} Maybe Bool
a -> DescribeEndpointAuthorization
s {$sel:grantee:DescribeEndpointAuthorization' :: Maybe Bool
grantee = Maybe Bool
a} :: DescribeEndpointAuthorization)
describeEndpointAuthorization_marker :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Text)
describeEndpointAuthorization_marker :: Lens' DescribeEndpointAuthorization (Maybe Text)
describeEndpointAuthorization_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorization' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeEndpointAuthorization
s@DescribeEndpointAuthorization' {} Maybe Text
a -> DescribeEndpointAuthorization
s {$sel:marker:DescribeEndpointAuthorization' :: Maybe Text
marker = Maybe Text
a} :: DescribeEndpointAuthorization)
describeEndpointAuthorization_maxRecords :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Int)
describeEndpointAuthorization_maxRecords :: Lens' DescribeEndpointAuthorization (Maybe Int)
describeEndpointAuthorization_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorization' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeEndpointAuthorization
s@DescribeEndpointAuthorization' {} Maybe Int
a -> DescribeEndpointAuthorization
s {$sel:maxRecords:DescribeEndpointAuthorization' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeEndpointAuthorization)
instance Core.AWSPager DescribeEndpointAuthorization where
page :: DescribeEndpointAuthorization
-> AWSResponse DescribeEndpointAuthorization
-> Maybe DescribeEndpointAuthorization
page DescribeEndpointAuthorization
rq AWSResponse DescribeEndpointAuthorization
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeEndpointAuthorization
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEndpointAuthorizationResponse (Maybe Text)
describeEndpointAuthorizationResponse_marker
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 DescribeEndpointAuthorization
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeEndpointAuthorizationResponse
(Maybe [EndpointAuthorization])
describeEndpointAuthorizationResponse_endpointAuthorizationList
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.$ DescribeEndpointAuthorization
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeEndpointAuthorization (Maybe Text)
describeEndpointAuthorization_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeEndpointAuthorization
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEndpointAuthorizationResponse (Maybe Text)
describeEndpointAuthorizationResponse_marker
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
DescribeEndpointAuthorization
where
type
AWSResponse DescribeEndpointAuthorization =
DescribeEndpointAuthorizationResponse
request :: (Service -> Service)
-> DescribeEndpointAuthorization
-> Request DescribeEndpointAuthorization
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 DescribeEndpointAuthorization
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeEndpointAuthorization)))
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
"DescribeEndpointAuthorizationResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [EndpointAuthorization]
-> Maybe Text -> Int -> DescribeEndpointAuthorizationResponse
DescribeEndpointAuthorizationResponse'
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
"EndpointAuthorizationList"
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 (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
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))
)
instance
Prelude.Hashable
DescribeEndpointAuthorization
where
hashWithSalt :: Int -> DescribeEndpointAuthorization -> Int
hashWithSalt Int
_salt DescribeEndpointAuthorization' {Maybe Bool
Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
grantee :: Maybe Bool
clusterIdentifier :: Maybe Text
account :: Maybe Text
$sel:maxRecords:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Int
$sel:marker:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
$sel:grantee:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Bool
$sel:clusterIdentifier:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
$sel:account:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
account
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clusterIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
grantee
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxRecords
instance Prelude.NFData DescribeEndpointAuthorization where
rnf :: DescribeEndpointAuthorization -> ()
rnf DescribeEndpointAuthorization' {Maybe Bool
Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
grantee :: Maybe Bool
clusterIdentifier :: Maybe Text
account :: Maybe Text
$sel:maxRecords:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Int
$sel:marker:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
$sel:grantee:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Bool
$sel:clusterIdentifier:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
$sel:account:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
account
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
grantee
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 Maybe Int
maxRecords
instance Data.ToHeaders DescribeEndpointAuthorization where
toHeaders :: DescribeEndpointAuthorization -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeEndpointAuthorization where
toPath :: DescribeEndpointAuthorization -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeEndpointAuthorization where
toQuery :: DescribeEndpointAuthorization -> QueryString
toQuery DescribeEndpointAuthorization' {Maybe Bool
Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
grantee :: Maybe Bool
clusterIdentifier :: Maybe Text
account :: Maybe Text
$sel:maxRecords:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Int
$sel:marker:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
$sel:grantee:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Bool
$sel:clusterIdentifier:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
$sel:account:DescribeEndpointAuthorization' :: DescribeEndpointAuthorization -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeEndpointAuthorization" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-12-01" :: Prelude.ByteString),
ByteString
"Account" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
account,
ByteString
"ClusterIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clusterIdentifier,
ByteString
"Grantee" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
grantee,
ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
ByteString
"MaxRecords" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxRecords
]
data DescribeEndpointAuthorizationResponse = DescribeEndpointAuthorizationResponse'
{
DescribeEndpointAuthorizationResponse
-> Maybe [EndpointAuthorization]
endpointAuthorizationList :: Prelude.Maybe [EndpointAuthorization],
DescribeEndpointAuthorizationResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeEndpointAuthorizationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeEndpointAuthorizationResponse
-> DescribeEndpointAuthorizationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEndpointAuthorizationResponse
-> DescribeEndpointAuthorizationResponse -> Bool
$c/= :: DescribeEndpointAuthorizationResponse
-> DescribeEndpointAuthorizationResponse -> Bool
== :: DescribeEndpointAuthorizationResponse
-> DescribeEndpointAuthorizationResponse -> Bool
$c== :: DescribeEndpointAuthorizationResponse
-> DescribeEndpointAuthorizationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeEndpointAuthorizationResponse]
ReadPrec DescribeEndpointAuthorizationResponse
Int -> ReadS DescribeEndpointAuthorizationResponse
ReadS [DescribeEndpointAuthorizationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEndpointAuthorizationResponse]
$creadListPrec :: ReadPrec [DescribeEndpointAuthorizationResponse]
readPrec :: ReadPrec DescribeEndpointAuthorizationResponse
$creadPrec :: ReadPrec DescribeEndpointAuthorizationResponse
readList :: ReadS [DescribeEndpointAuthorizationResponse]
$creadList :: ReadS [DescribeEndpointAuthorizationResponse]
readsPrec :: Int -> ReadS DescribeEndpointAuthorizationResponse
$creadsPrec :: Int -> ReadS DescribeEndpointAuthorizationResponse
Prelude.Read, Int -> DescribeEndpointAuthorizationResponse -> ShowS
[DescribeEndpointAuthorizationResponse] -> ShowS
DescribeEndpointAuthorizationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEndpointAuthorizationResponse] -> ShowS
$cshowList :: [DescribeEndpointAuthorizationResponse] -> ShowS
show :: DescribeEndpointAuthorizationResponse -> String
$cshow :: DescribeEndpointAuthorizationResponse -> String
showsPrec :: Int -> DescribeEndpointAuthorizationResponse -> ShowS
$cshowsPrec :: Int -> DescribeEndpointAuthorizationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeEndpointAuthorizationResponse x
-> DescribeEndpointAuthorizationResponse
forall x.
DescribeEndpointAuthorizationResponse
-> Rep DescribeEndpointAuthorizationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEndpointAuthorizationResponse x
-> DescribeEndpointAuthorizationResponse
$cfrom :: forall x.
DescribeEndpointAuthorizationResponse
-> Rep DescribeEndpointAuthorizationResponse x
Prelude.Generic)
newDescribeEndpointAuthorizationResponse ::
Prelude.Int ->
DescribeEndpointAuthorizationResponse
newDescribeEndpointAuthorizationResponse :: Int -> DescribeEndpointAuthorizationResponse
newDescribeEndpointAuthorizationResponse Int
pHttpStatus_ =
DescribeEndpointAuthorizationResponse'
{ $sel:endpointAuthorizationList:DescribeEndpointAuthorizationResponse' :: Maybe [EndpointAuthorization]
endpointAuthorizationList =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeEndpointAuthorizationResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeEndpointAuthorizationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeEndpointAuthorizationResponse_endpointAuthorizationList :: Lens.Lens' DescribeEndpointAuthorizationResponse (Prelude.Maybe [EndpointAuthorization])
describeEndpointAuthorizationResponse_endpointAuthorizationList :: Lens'
DescribeEndpointAuthorizationResponse
(Maybe [EndpointAuthorization])
describeEndpointAuthorizationResponse_endpointAuthorizationList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorizationResponse' {Maybe [EndpointAuthorization]
endpointAuthorizationList :: Maybe [EndpointAuthorization]
$sel:endpointAuthorizationList:DescribeEndpointAuthorizationResponse' :: DescribeEndpointAuthorizationResponse
-> Maybe [EndpointAuthorization]
endpointAuthorizationList} -> Maybe [EndpointAuthorization]
endpointAuthorizationList) (\s :: DescribeEndpointAuthorizationResponse
s@DescribeEndpointAuthorizationResponse' {} Maybe [EndpointAuthorization]
a -> DescribeEndpointAuthorizationResponse
s {$sel:endpointAuthorizationList:DescribeEndpointAuthorizationResponse' :: Maybe [EndpointAuthorization]
endpointAuthorizationList = Maybe [EndpointAuthorization]
a} :: DescribeEndpointAuthorizationResponse) 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
describeEndpointAuthorizationResponse_marker :: Lens.Lens' DescribeEndpointAuthorizationResponse (Prelude.Maybe Prelude.Text)
describeEndpointAuthorizationResponse_marker :: Lens' DescribeEndpointAuthorizationResponse (Maybe Text)
describeEndpointAuthorizationResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorizationResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeEndpointAuthorizationResponse' :: DescribeEndpointAuthorizationResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeEndpointAuthorizationResponse
s@DescribeEndpointAuthorizationResponse' {} Maybe Text
a -> DescribeEndpointAuthorizationResponse
s {$sel:marker:DescribeEndpointAuthorizationResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeEndpointAuthorizationResponse)
describeEndpointAuthorizationResponse_httpStatus :: Lens.Lens' DescribeEndpointAuthorizationResponse Prelude.Int
describeEndpointAuthorizationResponse_httpStatus :: Lens' DescribeEndpointAuthorizationResponse Int
describeEndpointAuthorizationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEndpointAuthorizationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeEndpointAuthorizationResponse' :: DescribeEndpointAuthorizationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeEndpointAuthorizationResponse
s@DescribeEndpointAuthorizationResponse' {} Int
a -> DescribeEndpointAuthorizationResponse
s {$sel:httpStatus:DescribeEndpointAuthorizationResponse' :: Int
httpStatus = Int
a} :: DescribeEndpointAuthorizationResponse)
instance
Prelude.NFData
DescribeEndpointAuthorizationResponse
where
rnf :: DescribeEndpointAuthorizationResponse -> ()
rnf DescribeEndpointAuthorizationResponse' {Int
Maybe [EndpointAuthorization]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
endpointAuthorizationList :: Maybe [EndpointAuthorization]
$sel:httpStatus:DescribeEndpointAuthorizationResponse' :: DescribeEndpointAuthorizationResponse -> Int
$sel:marker:DescribeEndpointAuthorizationResponse' :: DescribeEndpointAuthorizationResponse -> Maybe Text
$sel:endpointAuthorizationList:DescribeEndpointAuthorizationResponse' :: DescribeEndpointAuthorizationResponse
-> Maybe [EndpointAuthorization]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [EndpointAuthorization]
endpointAuthorizationList
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