{-# 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.InitiateAuth
(
initiateAuth
, InitiateAuth
, iaClientMetadata
, iaAuthParameters
, iaAuthFlow
, iaClientId
, initiateAuthResponse
, InitiateAuthResponse
, iarsChallengeName
, iarsChallengeParameters
, iarsAuthenticationResult
, iarsSession
, iarsResponseStatus
) 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 InitiateAuth = InitiateAuth'
{ _iaClientMetadata :: !(Maybe (Map Text Text))
, _iaAuthParameters :: !(Maybe (Map Text Text))
, _iaAuthFlow :: !AuthFlowType
, _iaClientId :: !(Sensitive Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
initiateAuth
:: AuthFlowType
-> Text
-> InitiateAuth
initiateAuth pAuthFlow_ pClientId_ =
InitiateAuth'
{ _iaClientMetadata = Nothing
, _iaAuthParameters = Nothing
, _iaAuthFlow = pAuthFlow_
, _iaClientId = _Sensitive # pClientId_
}
iaClientMetadata :: Lens' InitiateAuth (HashMap Text Text)
iaClientMetadata = lens _iaClientMetadata (\ s a -> s{_iaClientMetadata = a}) . _Default . _Map;
iaAuthParameters :: Lens' InitiateAuth (HashMap Text Text)
iaAuthParameters = lens _iaAuthParameters (\ s a -> s{_iaAuthParameters = a}) . _Default . _Map;
iaAuthFlow :: Lens' InitiateAuth AuthFlowType
iaAuthFlow = lens _iaAuthFlow (\ s a -> s{_iaAuthFlow = a});
iaClientId :: Lens' InitiateAuth Text
iaClientId = lens _iaClientId (\ s a -> s{_iaClientId = a}) . _Sensitive;
instance AWSRequest InitiateAuth where
type Rs InitiateAuth = InitiateAuthResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
InitiateAuthResponse' <$>
(x .?> "ChallengeName") <*>
(x .?> "ChallengeParameters" .!@ mempty)
<*> (x .?> "AuthenticationResult")
<*> (x .?> "Session")
<*> (pure (fromEnum s)))
instance Hashable InitiateAuth
instance NFData InitiateAuth
instance ToHeaders InitiateAuth where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.InitiateAuth" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON InitiateAuth where
toJSON InitiateAuth'{..}
= object
(catMaybes
[("ClientMetadata" .=) <$> _iaClientMetadata,
("AuthParameters" .=) <$> _iaAuthParameters,
Just ("AuthFlow" .= _iaAuthFlow),
Just ("ClientId" .= _iaClientId)])
instance ToPath InitiateAuth where
toPath = const "/"
instance ToQuery InitiateAuth where
toQuery = const mempty
data InitiateAuthResponse = InitiateAuthResponse'
{ _iarsChallengeName :: !(Maybe ChallengeNameType)
, _iarsChallengeParameters :: !(Maybe (Map Text Text))
, _iarsAuthenticationResult :: !(Maybe AuthenticationResultType)
, _iarsSession :: !(Maybe Text)
, _iarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
initiateAuthResponse
:: Int
-> InitiateAuthResponse
initiateAuthResponse pResponseStatus_ =
InitiateAuthResponse'
{ _iarsChallengeName = Nothing
, _iarsChallengeParameters = Nothing
, _iarsAuthenticationResult = Nothing
, _iarsSession = Nothing
, _iarsResponseStatus = pResponseStatus_
}
iarsChallengeName :: Lens' InitiateAuthResponse (Maybe ChallengeNameType)
iarsChallengeName = lens _iarsChallengeName (\ s a -> s{_iarsChallengeName = a});
iarsChallengeParameters :: Lens' InitiateAuthResponse (HashMap Text Text)
iarsChallengeParameters = lens _iarsChallengeParameters (\ s a -> s{_iarsChallengeParameters = a}) . _Default . _Map;
iarsAuthenticationResult :: Lens' InitiateAuthResponse (Maybe AuthenticationResultType)
iarsAuthenticationResult = lens _iarsAuthenticationResult (\ s a -> s{_iarsAuthenticationResult = a});
iarsSession :: Lens' InitiateAuthResponse (Maybe Text)
iarsSession = lens _iarsSession (\ s a -> s{_iarsSession = a});
iarsResponseStatus :: Lens' InitiateAuthResponse Int
iarsResponseStatus = lens _iarsResponseStatus (\ s a -> s{_iarsResponseStatus = a});
instance NFData InitiateAuthResponse