{-# 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.CognitoIdentity.LookupDeveloperIdentity
(
LookupDeveloperIdentity (..),
newLookupDeveloperIdentity,
lookupDeveloperIdentity_developerUserIdentifier,
lookupDeveloperIdentity_identityId,
lookupDeveloperIdentity_maxResults,
lookupDeveloperIdentity_nextToken,
lookupDeveloperIdentity_identityPoolId,
LookupDeveloperIdentityResponse (..),
newLookupDeveloperIdentityResponse,
lookupDeveloperIdentityResponse_developerUserIdentifierList,
lookupDeveloperIdentityResponse_identityId,
lookupDeveloperIdentityResponse_nextToken,
lookupDeveloperIdentityResponse_httpStatus,
)
where
import Amazonka.CognitoIdentity.Types
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
data LookupDeveloperIdentity = LookupDeveloperIdentity'
{
LookupDeveloperIdentity -> Maybe Text
developerUserIdentifier :: Prelude.Maybe Prelude.Text,
LookupDeveloperIdentity -> Maybe Text
identityId :: Prelude.Maybe Prelude.Text,
LookupDeveloperIdentity -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
LookupDeveloperIdentity -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
LookupDeveloperIdentity -> Text
identityPoolId :: Prelude.Text
}
deriving (LookupDeveloperIdentity -> LookupDeveloperIdentity -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LookupDeveloperIdentity -> LookupDeveloperIdentity -> Bool
$c/= :: LookupDeveloperIdentity -> LookupDeveloperIdentity -> Bool
== :: LookupDeveloperIdentity -> LookupDeveloperIdentity -> Bool
$c== :: LookupDeveloperIdentity -> LookupDeveloperIdentity -> Bool
Prelude.Eq, ReadPrec [LookupDeveloperIdentity]
ReadPrec LookupDeveloperIdentity
Int -> ReadS LookupDeveloperIdentity
ReadS [LookupDeveloperIdentity]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LookupDeveloperIdentity]
$creadListPrec :: ReadPrec [LookupDeveloperIdentity]
readPrec :: ReadPrec LookupDeveloperIdentity
$creadPrec :: ReadPrec LookupDeveloperIdentity
readList :: ReadS [LookupDeveloperIdentity]
$creadList :: ReadS [LookupDeveloperIdentity]
readsPrec :: Int -> ReadS LookupDeveloperIdentity
$creadsPrec :: Int -> ReadS LookupDeveloperIdentity
Prelude.Read, Int -> LookupDeveloperIdentity -> ShowS
[LookupDeveloperIdentity] -> ShowS
LookupDeveloperIdentity -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LookupDeveloperIdentity] -> ShowS
$cshowList :: [LookupDeveloperIdentity] -> ShowS
show :: LookupDeveloperIdentity -> String
$cshow :: LookupDeveloperIdentity -> String
showsPrec :: Int -> LookupDeveloperIdentity -> ShowS
$cshowsPrec :: Int -> LookupDeveloperIdentity -> ShowS
Prelude.Show, forall x. Rep LookupDeveloperIdentity x -> LookupDeveloperIdentity
forall x. LookupDeveloperIdentity -> Rep LookupDeveloperIdentity x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep LookupDeveloperIdentity x -> LookupDeveloperIdentity
$cfrom :: forall x. LookupDeveloperIdentity -> Rep LookupDeveloperIdentity x
Prelude.Generic)
newLookupDeveloperIdentity ::
Prelude.Text ->
LookupDeveloperIdentity
newLookupDeveloperIdentity :: Text -> LookupDeveloperIdentity
newLookupDeveloperIdentity Text
pIdentityPoolId_ =
LookupDeveloperIdentity'
{ $sel:developerUserIdentifier:LookupDeveloperIdentity' :: Maybe Text
developerUserIdentifier =
forall a. Maybe a
Prelude.Nothing,
$sel:identityId:LookupDeveloperIdentity' :: Maybe Text
identityId = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:LookupDeveloperIdentity' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:LookupDeveloperIdentity' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:identityPoolId:LookupDeveloperIdentity' :: Text
identityPoolId = Text
pIdentityPoolId_
}
lookupDeveloperIdentity_developerUserIdentifier :: Lens.Lens' LookupDeveloperIdentity (Prelude.Maybe Prelude.Text)
lookupDeveloperIdentity_developerUserIdentifier :: Lens' LookupDeveloperIdentity (Maybe Text)
lookupDeveloperIdentity_developerUserIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentity' {Maybe Text
developerUserIdentifier :: Maybe Text
$sel:developerUserIdentifier:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
developerUserIdentifier} -> Maybe Text
developerUserIdentifier) (\s :: LookupDeveloperIdentity
s@LookupDeveloperIdentity' {} Maybe Text
a -> LookupDeveloperIdentity
s {$sel:developerUserIdentifier:LookupDeveloperIdentity' :: Maybe Text
developerUserIdentifier = Maybe Text
a} :: LookupDeveloperIdentity)
lookupDeveloperIdentity_identityId :: Lens.Lens' LookupDeveloperIdentity (Prelude.Maybe Prelude.Text)
lookupDeveloperIdentity_identityId :: Lens' LookupDeveloperIdentity (Maybe Text)
lookupDeveloperIdentity_identityId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentity' {Maybe Text
identityId :: Maybe Text
$sel:identityId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
identityId} -> Maybe Text
identityId) (\s :: LookupDeveloperIdentity
s@LookupDeveloperIdentity' {} Maybe Text
a -> LookupDeveloperIdentity
s {$sel:identityId:LookupDeveloperIdentity' :: Maybe Text
identityId = Maybe Text
a} :: LookupDeveloperIdentity)
lookupDeveloperIdentity_maxResults :: Lens.Lens' LookupDeveloperIdentity (Prelude.Maybe Prelude.Natural)
lookupDeveloperIdentity_maxResults :: Lens' LookupDeveloperIdentity (Maybe Natural)
lookupDeveloperIdentity_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentity' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: LookupDeveloperIdentity
s@LookupDeveloperIdentity' {} Maybe Natural
a -> LookupDeveloperIdentity
s {$sel:maxResults:LookupDeveloperIdentity' :: Maybe Natural
maxResults = Maybe Natural
a} :: LookupDeveloperIdentity)
lookupDeveloperIdentity_nextToken :: Lens.Lens' LookupDeveloperIdentity (Prelude.Maybe Prelude.Text)
lookupDeveloperIdentity_nextToken :: Lens' LookupDeveloperIdentity (Maybe Text)
lookupDeveloperIdentity_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentity' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: LookupDeveloperIdentity
s@LookupDeveloperIdentity' {} Maybe Text
a -> LookupDeveloperIdentity
s {$sel:nextToken:LookupDeveloperIdentity' :: Maybe Text
nextToken = Maybe Text
a} :: LookupDeveloperIdentity)
lookupDeveloperIdentity_identityPoolId :: Lens.Lens' LookupDeveloperIdentity Prelude.Text
lookupDeveloperIdentity_identityPoolId :: Lens' LookupDeveloperIdentity Text
lookupDeveloperIdentity_identityPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentity' {Text
identityPoolId :: Text
$sel:identityPoolId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Text
identityPoolId} -> Text
identityPoolId) (\s :: LookupDeveloperIdentity
s@LookupDeveloperIdentity' {} Text
a -> LookupDeveloperIdentity
s {$sel:identityPoolId:LookupDeveloperIdentity' :: Text
identityPoolId = Text
a} :: LookupDeveloperIdentity)
instance Core.AWSRequest LookupDeveloperIdentity where
type
AWSResponse LookupDeveloperIdentity =
LookupDeveloperIdentityResponse
request :: (Service -> Service)
-> LookupDeveloperIdentity -> Request LookupDeveloperIdentity
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 LookupDeveloperIdentity
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse LookupDeveloperIdentity)))
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]
-> Maybe Text
-> Maybe Text
-> Int
-> LookupDeveloperIdentityResponse
LookupDeveloperIdentityResponse'
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
"DeveloperUserIdentifierList"
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
"IdentityId")
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 LookupDeveloperIdentity where
hashWithSalt :: Int -> LookupDeveloperIdentity -> Int
hashWithSalt Int
_salt LookupDeveloperIdentity' {Maybe Natural
Maybe Text
Text
identityPoolId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
identityId :: Maybe Text
developerUserIdentifier :: Maybe Text
$sel:identityPoolId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Text
$sel:nextToken:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
$sel:maxResults:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Natural
$sel:identityId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
$sel:developerUserIdentifier:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
developerUserIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
identityId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identityPoolId
instance Prelude.NFData LookupDeveloperIdentity where
rnf :: LookupDeveloperIdentity -> ()
rnf LookupDeveloperIdentity' {Maybe Natural
Maybe Text
Text
identityPoolId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
identityId :: Maybe Text
developerUserIdentifier :: Maybe Text
$sel:identityPoolId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Text
$sel:nextToken:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
$sel:maxResults:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Natural
$sel:identityId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
$sel:developerUserIdentifier:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
developerUserIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
identityId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
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
identityPoolId
instance Data.ToHeaders LookupDeveloperIdentity where
toHeaders :: LookupDeveloperIdentity -> 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
"AWSCognitoIdentityService.LookupDeveloperIdentity" ::
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 LookupDeveloperIdentity where
toJSON :: LookupDeveloperIdentity -> Value
toJSON LookupDeveloperIdentity' {Maybe Natural
Maybe Text
Text
identityPoolId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
identityId :: Maybe Text
developerUserIdentifier :: Maybe Text
$sel:identityPoolId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Text
$sel:nextToken:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
$sel:maxResults:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Natural
$sel:identityId:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
$sel:developerUserIdentifier:LookupDeveloperIdentity' :: LookupDeveloperIdentity -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DeveloperUserIdentifier" 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
developerUserIdentifier,
(Key
"IdentityId" 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
identityId,
(Key
"MaxResults" 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
maxResults,
(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
"IdentityPoolId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
identityPoolId)
]
)
instance Data.ToPath LookupDeveloperIdentity where
toPath :: LookupDeveloperIdentity -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery LookupDeveloperIdentity where
toQuery :: LookupDeveloperIdentity -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data LookupDeveloperIdentityResponse = LookupDeveloperIdentityResponse'
{
LookupDeveloperIdentityResponse -> Maybe [Text]
developerUserIdentifierList :: Prelude.Maybe [Prelude.Text],
LookupDeveloperIdentityResponse -> Maybe Text
identityId :: Prelude.Maybe Prelude.Text,
LookupDeveloperIdentityResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
LookupDeveloperIdentityResponse -> Int
httpStatus :: Prelude.Int
}
deriving (LookupDeveloperIdentityResponse
-> LookupDeveloperIdentityResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LookupDeveloperIdentityResponse
-> LookupDeveloperIdentityResponse -> Bool
$c/= :: LookupDeveloperIdentityResponse
-> LookupDeveloperIdentityResponse -> Bool
== :: LookupDeveloperIdentityResponse
-> LookupDeveloperIdentityResponse -> Bool
$c== :: LookupDeveloperIdentityResponse
-> LookupDeveloperIdentityResponse -> Bool
Prelude.Eq, ReadPrec [LookupDeveloperIdentityResponse]
ReadPrec LookupDeveloperIdentityResponse
Int -> ReadS LookupDeveloperIdentityResponse
ReadS [LookupDeveloperIdentityResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LookupDeveloperIdentityResponse]
$creadListPrec :: ReadPrec [LookupDeveloperIdentityResponse]
readPrec :: ReadPrec LookupDeveloperIdentityResponse
$creadPrec :: ReadPrec LookupDeveloperIdentityResponse
readList :: ReadS [LookupDeveloperIdentityResponse]
$creadList :: ReadS [LookupDeveloperIdentityResponse]
readsPrec :: Int -> ReadS LookupDeveloperIdentityResponse
$creadsPrec :: Int -> ReadS LookupDeveloperIdentityResponse
Prelude.Read, Int -> LookupDeveloperIdentityResponse -> ShowS
[LookupDeveloperIdentityResponse] -> ShowS
LookupDeveloperIdentityResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LookupDeveloperIdentityResponse] -> ShowS
$cshowList :: [LookupDeveloperIdentityResponse] -> ShowS
show :: LookupDeveloperIdentityResponse -> String
$cshow :: LookupDeveloperIdentityResponse -> String
showsPrec :: Int -> LookupDeveloperIdentityResponse -> ShowS
$cshowsPrec :: Int -> LookupDeveloperIdentityResponse -> ShowS
Prelude.Show, forall x.
Rep LookupDeveloperIdentityResponse x
-> LookupDeveloperIdentityResponse
forall x.
LookupDeveloperIdentityResponse
-> Rep LookupDeveloperIdentityResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep LookupDeveloperIdentityResponse x
-> LookupDeveloperIdentityResponse
$cfrom :: forall x.
LookupDeveloperIdentityResponse
-> Rep LookupDeveloperIdentityResponse x
Prelude.Generic)
newLookupDeveloperIdentityResponse ::
Prelude.Int ->
LookupDeveloperIdentityResponse
newLookupDeveloperIdentityResponse :: Int -> LookupDeveloperIdentityResponse
newLookupDeveloperIdentityResponse Int
pHttpStatus_ =
LookupDeveloperIdentityResponse'
{ $sel:developerUserIdentifierList:LookupDeveloperIdentityResponse' :: Maybe [Text]
developerUserIdentifierList =
forall a. Maybe a
Prelude.Nothing,
$sel:identityId:LookupDeveloperIdentityResponse' :: Maybe Text
identityId = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:LookupDeveloperIdentityResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:LookupDeveloperIdentityResponse' :: Int
httpStatus = Int
pHttpStatus_
}
lookupDeveloperIdentityResponse_developerUserIdentifierList :: Lens.Lens' LookupDeveloperIdentityResponse (Prelude.Maybe [Prelude.Text])
lookupDeveloperIdentityResponse_developerUserIdentifierList :: Lens' LookupDeveloperIdentityResponse (Maybe [Text])
lookupDeveloperIdentityResponse_developerUserIdentifierList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentityResponse' {Maybe [Text]
developerUserIdentifierList :: Maybe [Text]
$sel:developerUserIdentifierList:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Maybe [Text]
developerUserIdentifierList} -> Maybe [Text]
developerUserIdentifierList) (\s :: LookupDeveloperIdentityResponse
s@LookupDeveloperIdentityResponse' {} Maybe [Text]
a -> LookupDeveloperIdentityResponse
s {$sel:developerUserIdentifierList:LookupDeveloperIdentityResponse' :: Maybe [Text]
developerUserIdentifierList = Maybe [Text]
a} :: LookupDeveloperIdentityResponse) 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
lookupDeveloperIdentityResponse_identityId :: Lens.Lens' LookupDeveloperIdentityResponse (Prelude.Maybe Prelude.Text)
lookupDeveloperIdentityResponse_identityId :: Lens' LookupDeveloperIdentityResponse (Maybe Text)
lookupDeveloperIdentityResponse_identityId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentityResponse' {Maybe Text
identityId :: Maybe Text
$sel:identityId:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Maybe Text
identityId} -> Maybe Text
identityId) (\s :: LookupDeveloperIdentityResponse
s@LookupDeveloperIdentityResponse' {} Maybe Text
a -> LookupDeveloperIdentityResponse
s {$sel:identityId:LookupDeveloperIdentityResponse' :: Maybe Text
identityId = Maybe Text
a} :: LookupDeveloperIdentityResponse)
lookupDeveloperIdentityResponse_nextToken :: Lens.Lens' LookupDeveloperIdentityResponse (Prelude.Maybe Prelude.Text)
lookupDeveloperIdentityResponse_nextToken :: Lens' LookupDeveloperIdentityResponse (Maybe Text)
lookupDeveloperIdentityResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentityResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: LookupDeveloperIdentityResponse
s@LookupDeveloperIdentityResponse' {} Maybe Text
a -> LookupDeveloperIdentityResponse
s {$sel:nextToken:LookupDeveloperIdentityResponse' :: Maybe Text
nextToken = Maybe Text
a} :: LookupDeveloperIdentityResponse)
lookupDeveloperIdentityResponse_httpStatus :: Lens.Lens' LookupDeveloperIdentityResponse Prelude.Int
lookupDeveloperIdentityResponse_httpStatus :: Lens' LookupDeveloperIdentityResponse Int
lookupDeveloperIdentityResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LookupDeveloperIdentityResponse' {Int
httpStatus :: Int
$sel:httpStatus:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: LookupDeveloperIdentityResponse
s@LookupDeveloperIdentityResponse' {} Int
a -> LookupDeveloperIdentityResponse
s {$sel:httpStatus:LookupDeveloperIdentityResponse' :: Int
httpStatus = Int
a} :: LookupDeveloperIdentityResponse)
instance
Prelude.NFData
LookupDeveloperIdentityResponse
where
rnf :: LookupDeveloperIdentityResponse -> ()
rnf LookupDeveloperIdentityResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
identityId :: Maybe Text
developerUserIdentifierList :: Maybe [Text]
$sel:httpStatus:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Int
$sel:nextToken:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Maybe Text
$sel:identityId:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Maybe Text
$sel:developerUserIdentifierList:LookupDeveloperIdentityResponse' :: LookupDeveloperIdentityResponse -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
developerUserIdentifierList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
identityId
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