{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CognitoIdentityProvider.AdminListUserAuthEvents
(
adminListUserAuthEvents
, AdminListUserAuthEvents
, aluaeNextToken
, aluaeMaxResults
, aluaeUserPoolId
, aluaeUsername
, adminListUserAuthEventsResponse
, AdminListUserAuthEventsResponse
, aluaersNextToken
, aluaersAuthEvents
, aluaersResponseStatus
) where
import Network.AWS.CognitoIdentityProvider.Types
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AdminListUserAuthEvents = AdminListUserAuthEvents'
{ _aluaeNextToken :: !(Maybe Text)
, _aluaeMaxResults :: !(Maybe Nat)
, _aluaeUserPoolId :: !Text
, _aluaeUsername :: !(Sensitive Text)
} deriving (Eq, Show, Data, Typeable, Generic)
adminListUserAuthEvents
:: Text
-> Text
-> AdminListUserAuthEvents
adminListUserAuthEvents pUserPoolId_ pUsername_ =
AdminListUserAuthEvents'
{ _aluaeNextToken = Nothing
, _aluaeMaxResults = Nothing
, _aluaeUserPoolId = pUserPoolId_
, _aluaeUsername = _Sensitive # pUsername_
}
aluaeNextToken :: Lens' AdminListUserAuthEvents (Maybe Text)
aluaeNextToken = lens _aluaeNextToken (\ s a -> s{_aluaeNextToken = a})
aluaeMaxResults :: Lens' AdminListUserAuthEvents (Maybe Natural)
aluaeMaxResults = lens _aluaeMaxResults (\ s a -> s{_aluaeMaxResults = a}) . mapping _Nat
aluaeUserPoolId :: Lens' AdminListUserAuthEvents Text
aluaeUserPoolId = lens _aluaeUserPoolId (\ s a -> s{_aluaeUserPoolId = a})
aluaeUsername :: Lens' AdminListUserAuthEvents Text
aluaeUsername = lens _aluaeUsername (\ s a -> s{_aluaeUsername = a}) . _Sensitive
instance AWSRequest AdminListUserAuthEvents where
type Rs AdminListUserAuthEvents =
AdminListUserAuthEventsResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
AdminListUserAuthEventsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "AuthEvents" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable AdminListUserAuthEvents where
instance NFData AdminListUserAuthEvents where
instance ToHeaders AdminListUserAuthEvents where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.AdminListUserAuthEvents"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AdminListUserAuthEvents where
toJSON AdminListUserAuthEvents'{..}
= object
(catMaybes
[("NextToken" .=) <$> _aluaeNextToken,
("MaxResults" .=) <$> _aluaeMaxResults,
Just ("UserPoolId" .= _aluaeUserPoolId),
Just ("Username" .= _aluaeUsername)])
instance ToPath AdminListUserAuthEvents where
toPath = const "/"
instance ToQuery AdminListUserAuthEvents where
toQuery = const mempty
data AdminListUserAuthEventsResponse = AdminListUserAuthEventsResponse'
{ _aluaersNextToken :: !(Maybe Text)
, _aluaersAuthEvents :: !(Maybe [AuthEventType])
, _aluaersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
adminListUserAuthEventsResponse
:: Int
-> AdminListUserAuthEventsResponse
adminListUserAuthEventsResponse pResponseStatus_ =
AdminListUserAuthEventsResponse'
{ _aluaersNextToken = Nothing
, _aluaersAuthEvents = Nothing
, _aluaersResponseStatus = pResponseStatus_
}
aluaersNextToken :: Lens' AdminListUserAuthEventsResponse (Maybe Text)
aluaersNextToken = lens _aluaersNextToken (\ s a -> s{_aluaersNextToken = a})
aluaersAuthEvents :: Lens' AdminListUserAuthEventsResponse [AuthEventType]
aluaersAuthEvents = lens _aluaersAuthEvents (\ s a -> s{_aluaersAuthEvents = a}) . _Default . _Coerce
aluaersResponseStatus :: Lens' AdminListUserAuthEventsResponse Int
aluaersResponseStatus = lens _aluaersResponseStatus (\ s a -> s{_aluaersResponseStatus = a})
instance NFData AdminListUserAuthEventsResponse where