module Network.AWS.CognitoIdentity.LookupDeveloperIdentity
(
lookupDeveloperIdentity
, LookupDeveloperIdentity
, ldiDeveloperUserIdentifier
, ldiNextToken
, ldiIdentityId
, ldiMaxResults
, ldiIdentityPoolId
, lookupDeveloperIdentityResponse
, LookupDeveloperIdentityResponse
, ldirsNextToken
, ldirsIdentityId
, ldirsDeveloperUserIdentifierList
, ldirsResponseStatus
) where
import Network.AWS.CognitoIdentity.Types
import Network.AWS.CognitoIdentity.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data LookupDeveloperIdentity = LookupDeveloperIdentity'
{ _ldiDeveloperUserIdentifier :: !(Maybe Text)
, _ldiNextToken :: !(Maybe Text)
, _ldiIdentityId :: !(Maybe Text)
, _ldiMaxResults :: !(Maybe Nat)
, _ldiIdentityPoolId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lookupDeveloperIdentity
:: Text
-> LookupDeveloperIdentity
lookupDeveloperIdentity pIdentityPoolId_ =
LookupDeveloperIdentity'
{ _ldiDeveloperUserIdentifier = Nothing
, _ldiNextToken = Nothing
, _ldiIdentityId = Nothing
, _ldiMaxResults = Nothing
, _ldiIdentityPoolId = pIdentityPoolId_
}
ldiDeveloperUserIdentifier :: Lens' LookupDeveloperIdentity (Maybe Text)
ldiDeveloperUserIdentifier = lens _ldiDeveloperUserIdentifier (\ s a -> s{_ldiDeveloperUserIdentifier = a});
ldiNextToken :: Lens' LookupDeveloperIdentity (Maybe Text)
ldiNextToken = lens _ldiNextToken (\ s a -> s{_ldiNextToken = a});
ldiIdentityId :: Lens' LookupDeveloperIdentity (Maybe Text)
ldiIdentityId = lens _ldiIdentityId (\ s a -> s{_ldiIdentityId = a});
ldiMaxResults :: Lens' LookupDeveloperIdentity (Maybe Natural)
ldiMaxResults = lens _ldiMaxResults (\ s a -> s{_ldiMaxResults = a}) . mapping _Nat;
ldiIdentityPoolId :: Lens' LookupDeveloperIdentity Text
ldiIdentityPoolId = lens _ldiIdentityPoolId (\ s a -> s{_ldiIdentityPoolId = a});
instance AWSRequest LookupDeveloperIdentity where
type Rs LookupDeveloperIdentity =
LookupDeveloperIdentityResponse
request = postJSON cognitoIdentity
response
= receiveJSON
(\ s h x ->
LookupDeveloperIdentityResponse' <$>
(x .?> "NextToken") <*> (x .?> "IdentityId") <*>
(x .?> "DeveloperUserIdentifierList" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders LookupDeveloperIdentity where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityService.LookupDeveloperIdentity"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON LookupDeveloperIdentity where
toJSON LookupDeveloperIdentity'{..}
= object
(catMaybes
[("DeveloperUserIdentifier" .=) <$>
_ldiDeveloperUserIdentifier,
("NextToken" .=) <$> _ldiNextToken,
("IdentityId" .=) <$> _ldiIdentityId,
("MaxResults" .=) <$> _ldiMaxResults,
Just ("IdentityPoolId" .= _ldiIdentityPoolId)])
instance ToPath LookupDeveloperIdentity where
toPath = const "/"
instance ToQuery LookupDeveloperIdentity where
toQuery = const mempty
data LookupDeveloperIdentityResponse = LookupDeveloperIdentityResponse'
{ _ldirsNextToken :: !(Maybe Text)
, _ldirsIdentityId :: !(Maybe Text)
, _ldirsDeveloperUserIdentifierList :: !(Maybe [Text])
, _ldirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lookupDeveloperIdentityResponse
:: Int
-> LookupDeveloperIdentityResponse
lookupDeveloperIdentityResponse pResponseStatus_ =
LookupDeveloperIdentityResponse'
{ _ldirsNextToken = Nothing
, _ldirsIdentityId = Nothing
, _ldirsDeveloperUserIdentifierList = Nothing
, _ldirsResponseStatus = pResponseStatus_
}
ldirsNextToken :: Lens' LookupDeveloperIdentityResponse (Maybe Text)
ldirsNextToken = lens _ldirsNextToken (\ s a -> s{_ldirsNextToken = a});
ldirsIdentityId :: Lens' LookupDeveloperIdentityResponse (Maybe Text)
ldirsIdentityId = lens _ldirsIdentityId (\ s a -> s{_ldirsIdentityId = a});
ldirsDeveloperUserIdentifierList :: Lens' LookupDeveloperIdentityResponse [Text]
ldirsDeveloperUserIdentifierList = lens _ldirsDeveloperUserIdentifierList (\ s a -> s{_ldirsDeveloperUserIdentifierList = a}) . _Default . _Coerce;
ldirsResponseStatus :: Lens' LookupDeveloperIdentityResponse Int
ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});