{-# 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.AdminUpdateAuthEventFeedback
(
adminUpdateAuthEventFeedback
, AdminUpdateAuthEventFeedback
, auaefUserPoolId
, auaefUsername
, auaefEventId
, auaefFeedbackValue
, adminUpdateAuthEventFeedbackResponse
, AdminUpdateAuthEventFeedbackResponse
, auaefrsResponseStatus
) 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 AdminUpdateAuthEventFeedback = AdminUpdateAuthEventFeedback'
{ _auaefUserPoolId :: !Text
, _auaefUsername :: !(Sensitive Text)
, _auaefEventId :: !Text
, _auaefFeedbackValue :: !FeedbackValueType
} deriving (Eq, Show, Data, Typeable, Generic)
adminUpdateAuthEventFeedback
:: Text
-> Text
-> Text
-> FeedbackValueType
-> AdminUpdateAuthEventFeedback
adminUpdateAuthEventFeedback pUserPoolId_ pUsername_ pEventId_ pFeedbackValue_ =
AdminUpdateAuthEventFeedback'
{ _auaefUserPoolId = pUserPoolId_
, _auaefUsername = _Sensitive # pUsername_
, _auaefEventId = pEventId_
, _auaefFeedbackValue = pFeedbackValue_
}
auaefUserPoolId :: Lens' AdminUpdateAuthEventFeedback Text
auaefUserPoolId = lens _auaefUserPoolId (\ s a -> s{_auaefUserPoolId = a})
auaefUsername :: Lens' AdminUpdateAuthEventFeedback Text
auaefUsername = lens _auaefUsername (\ s a -> s{_auaefUsername = a}) . _Sensitive
auaefEventId :: Lens' AdminUpdateAuthEventFeedback Text
auaefEventId = lens _auaefEventId (\ s a -> s{_auaefEventId = a})
auaefFeedbackValue :: Lens' AdminUpdateAuthEventFeedback FeedbackValueType
auaefFeedbackValue = lens _auaefFeedbackValue (\ s a -> s{_auaefFeedbackValue = a})
instance AWSRequest AdminUpdateAuthEventFeedback
where
type Rs AdminUpdateAuthEventFeedback =
AdminUpdateAuthEventFeedbackResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
AdminUpdateAuthEventFeedbackResponse' <$>
(pure (fromEnum s)))
instance Hashable AdminUpdateAuthEventFeedback where
instance NFData AdminUpdateAuthEventFeedback where
instance ToHeaders AdminUpdateAuthEventFeedback where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.AdminUpdateAuthEventFeedback"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AdminUpdateAuthEventFeedback where
toJSON AdminUpdateAuthEventFeedback'{..}
= object
(catMaybes
[Just ("UserPoolId" .= _auaefUserPoolId),
Just ("Username" .= _auaefUsername),
Just ("EventId" .= _auaefEventId),
Just ("FeedbackValue" .= _auaefFeedbackValue)])
instance ToPath AdminUpdateAuthEventFeedback where
toPath = const "/"
instance ToQuery AdminUpdateAuthEventFeedback where
toQuery = const mempty
newtype AdminUpdateAuthEventFeedbackResponse = AdminUpdateAuthEventFeedbackResponse'
{ _auaefrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
adminUpdateAuthEventFeedbackResponse
:: Int
-> AdminUpdateAuthEventFeedbackResponse
adminUpdateAuthEventFeedbackResponse pResponseStatus_ =
AdminUpdateAuthEventFeedbackResponse'
{_auaefrsResponseStatus = pResponseStatus_}
auaefrsResponseStatus :: Lens' AdminUpdateAuthEventFeedbackResponse Int
auaefrsResponseStatus = lens _auaefrsResponseStatus (\ s a -> s{_auaefrsResponseStatus = a})
instance NFData AdminUpdateAuthEventFeedbackResponse
where