{-# 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.VerifySoftwareToken
(
verifySoftwareToken
, VerifySoftwareToken
, vstAccessToken
, vstFriendlyDeviceName
, vstSession
, vstUserCode
, verifySoftwareTokenResponse
, VerifySoftwareTokenResponse
, vstrsStatus
, vstrsSession
, vstrsResponseStatus
) 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 VerifySoftwareToken = VerifySoftwareToken'
{ _vstAccessToken :: !(Maybe (Sensitive Text))
, _vstFriendlyDeviceName :: !(Maybe Text)
, _vstSession :: !(Maybe Text)
, _vstUserCode :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
verifySoftwareToken
:: Text
-> VerifySoftwareToken
verifySoftwareToken pUserCode_ =
VerifySoftwareToken'
{ _vstAccessToken = Nothing
, _vstFriendlyDeviceName = Nothing
, _vstSession = Nothing
, _vstUserCode = pUserCode_
}
vstAccessToken :: Lens' VerifySoftwareToken (Maybe Text)
vstAccessToken = lens _vstAccessToken (\ s a -> s{_vstAccessToken = a}) . mapping _Sensitive
vstFriendlyDeviceName :: Lens' VerifySoftwareToken (Maybe Text)
vstFriendlyDeviceName = lens _vstFriendlyDeviceName (\ s a -> s{_vstFriendlyDeviceName = a})
vstSession :: Lens' VerifySoftwareToken (Maybe Text)
vstSession = lens _vstSession (\ s a -> s{_vstSession = a})
vstUserCode :: Lens' VerifySoftwareToken Text
vstUserCode = lens _vstUserCode (\ s a -> s{_vstUserCode = a})
instance AWSRequest VerifySoftwareToken where
type Rs VerifySoftwareToken =
VerifySoftwareTokenResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
VerifySoftwareTokenResponse' <$>
(x .?> "Status") <*> (x .?> "Session") <*>
(pure (fromEnum s)))
instance Hashable VerifySoftwareToken where
instance NFData VerifySoftwareToken where
instance ToHeaders VerifySoftwareToken where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.VerifySoftwareToken"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON VerifySoftwareToken where
toJSON VerifySoftwareToken'{..}
= object
(catMaybes
[("AccessToken" .=) <$> _vstAccessToken,
("FriendlyDeviceName" .=) <$> _vstFriendlyDeviceName,
("Session" .=) <$> _vstSession,
Just ("UserCode" .= _vstUserCode)])
instance ToPath VerifySoftwareToken where
toPath = const "/"
instance ToQuery VerifySoftwareToken where
toQuery = const mempty
data VerifySoftwareTokenResponse = VerifySoftwareTokenResponse'
{ _vstrsStatus :: !(Maybe VerifySoftwareTokenResponseType)
, _vstrsSession :: !(Maybe Text)
, _vstrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
verifySoftwareTokenResponse
:: Int
-> VerifySoftwareTokenResponse
verifySoftwareTokenResponse pResponseStatus_ =
VerifySoftwareTokenResponse'
{ _vstrsStatus = Nothing
, _vstrsSession = Nothing
, _vstrsResponseStatus = pResponseStatus_
}
vstrsStatus :: Lens' VerifySoftwareTokenResponse (Maybe VerifySoftwareTokenResponseType)
vstrsStatus = lens _vstrsStatus (\ s a -> s{_vstrsStatus = a})
vstrsSession :: Lens' VerifySoftwareTokenResponse (Maybe Text)
vstrsSession = lens _vstrsSession (\ s a -> s{_vstrsSession = a})
vstrsResponseStatus :: Lens' VerifySoftwareTokenResponse Int
vstrsResponseStatus = lens _vstrsResponseStatus (\ s a -> s{_vstrsResponseStatus = a})
instance NFData VerifySoftwareTokenResponse where