ChangePassword.hs

{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.CognitoIdentityProvider.ChangePassword
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Changes the password for a specified user in a user pool.
--
--
module Network.AWS.CognitoIdentityProvider.ChangePassword
    (
    -- * Creating a Request
      changePassword
    , ChangePassword
    -- * Request Lenses
    , cpAccessToken
    , cpPreviousPassword
    , cpProposedPassword

    -- * Destructuring the Response
    , changePasswordResponse
    , ChangePasswordResponse
    -- * Response Lenses
    , cprsResponseStatus
    ) 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

-- | Represents the request to change a user password.
--
--
--
-- /See:/ 'changePassword' smart constructor.
data ChangePassword = ChangePassword'
    { _cpAccessToken      :: !(Maybe (Sensitive Text))
    , _cpPreviousPassword :: !(Sensitive Text)
    , _cpProposedPassword :: !(Sensitive Text)
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'ChangePassword' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cpAccessToken' - The access token in the change password request.
--
-- * 'cpPreviousPassword' - The old password in the change password request.
--
-- * 'cpProposedPassword' - The new password in the change password request.
changePassword
    :: Text -- ^ 'cpPreviousPassword'
    -> Text -- ^ 'cpProposedPassword'
    -> ChangePassword
changePassword pPreviousPassword_ pProposedPassword_ =
    ChangePassword'
    { _cpAccessToken = Nothing
    , _cpPreviousPassword = _Sensitive # pPreviousPassword_
    , _cpProposedPassword = _Sensitive # pProposedPassword_
    }

-- | The access token in the change password request.
cpAccessToken :: Lens' ChangePassword (Maybe Text)
cpAccessToken = lens _cpAccessToken (\ s a -> s{_cpAccessToken = a}) . mapping _Sensitive;

-- | The old password in the change password request.
cpPreviousPassword :: Lens' ChangePassword Text
cpPreviousPassword = lens _cpPreviousPassword (\ s a -> s{_cpPreviousPassword = a}) . _Sensitive;

-- | The new password in the change password request.
cpProposedPassword :: Lens' ChangePassword Text
cpProposedPassword = lens _cpProposedPassword (\ s a -> s{_cpProposedPassword = a}) . _Sensitive;

instance AWSRequest ChangePassword where
        type Rs ChangePassword = ChangePasswordResponse
        request = postJSON cognitoIdentityProvider
        response
          = receiveEmpty
              (\ s h x ->
                 ChangePasswordResponse' <$> (pure (fromEnum s)))

instance Hashable ChangePassword

instance NFData ChangePassword

instance ToHeaders ChangePassword where
        toHeaders
          = const
              (mconcat
                 ["X-Amz-Target" =#
                    ("AWSCognitoIdentityProviderService.ChangePassword"
                       :: ByteString),
                  "Content-Type" =#
                    ("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON ChangePassword where
        toJSON ChangePassword'{..}
          = object
              (catMaybes
                 [("AccessToken" .=) <$> _cpAccessToken,
                  Just ("PreviousPassword" .= _cpPreviousPassword),
                  Just ("ProposedPassword" .= _cpProposedPassword)])

instance ToPath ChangePassword where
        toPath = const "/"

instance ToQuery ChangePassword where
        toQuery = const mempty

-- | The response from the server to the change password request.
--
--
--
-- /See:/ 'changePasswordResponse' smart constructor.
newtype ChangePasswordResponse = ChangePasswordResponse'
    { _cprsResponseStatus :: Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'ChangePasswordResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cprsResponseStatus' - -- | The response status code.
changePasswordResponse
    :: Int -- ^ 'cprsResponseStatus'
    -> ChangePasswordResponse
changePasswordResponse pResponseStatus_ =
    ChangePasswordResponse'
    { _cprsResponseStatus = pResponseStatus_
    }

-- | -- | The response status code.
cprsResponseStatus :: Lens' ChangePasswordResponse Int
cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});

instance NFData ChangePasswordResponse