{-# 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.AdminAddUserToGroup
(
adminAddUserToGroup
, AdminAddUserToGroup
, aautgUserPoolId
, aautgUsername
, aautgGroupName
, adminAddUserToGroupResponse
, AdminAddUserToGroupResponse
) 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 AdminAddUserToGroup = AdminAddUserToGroup'
{ _aautgUserPoolId :: !Text
, _aautgUsername :: !(Sensitive Text)
, _aautgGroupName :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
adminAddUserToGroup
:: Text
-> Text
-> Text
-> AdminAddUserToGroup
adminAddUserToGroup pUserPoolId_ pUsername_ pGroupName_ =
AdminAddUserToGroup'
{ _aautgUserPoolId = pUserPoolId_
, _aautgUsername = _Sensitive # pUsername_
, _aautgGroupName = pGroupName_
}
aautgUserPoolId :: Lens' AdminAddUserToGroup Text
aautgUserPoolId = lens _aautgUserPoolId (\ s a -> s{_aautgUserPoolId = a})
aautgUsername :: Lens' AdminAddUserToGroup Text
aautgUsername = lens _aautgUsername (\ s a -> s{_aautgUsername = a}) . _Sensitive
aautgGroupName :: Lens' AdminAddUserToGroup Text
aautgGroupName = lens _aautgGroupName (\ s a -> s{_aautgGroupName = a})
instance AWSRequest AdminAddUserToGroup where
type Rs AdminAddUserToGroup =
AdminAddUserToGroupResponse
request = postJSON cognitoIdentityProvider
response = receiveNull AdminAddUserToGroupResponse'
instance Hashable AdminAddUserToGroup where
instance NFData AdminAddUserToGroup where
instance ToHeaders AdminAddUserToGroup where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.AdminAddUserToGroup"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AdminAddUserToGroup where
toJSON AdminAddUserToGroup'{..}
= object
(catMaybes
[Just ("UserPoolId" .= _aautgUserPoolId),
Just ("Username" .= _aautgUsername),
Just ("GroupName" .= _aautgGroupName)])
instance ToPath AdminAddUserToGroup where
toPath = const "/"
instance ToQuery AdminAddUserToGroup where
toQuery = const mempty
data AdminAddUserToGroupResponse =
AdminAddUserToGroupResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
adminAddUserToGroupResponse
:: AdminAddUserToGroupResponse
adminAddUserToGroupResponse = AdminAddUserToGroupResponse'
instance NFData AdminAddUserToGroupResponse where