module Network.AWS.WorkDocs.ActivateUser
(
activateUser
, ActivateUser
, auAuthenticationToken
, auUserId
, activateUserResponse
, ActivateUserResponse
, aursUser
, aursResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkDocs.Types
import Network.AWS.WorkDocs.Types.Product
data ActivateUser = ActivateUser'
{ _auAuthenticationToken :: !(Maybe (Sensitive Text))
, _auUserId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
activateUser
:: Text
-> ActivateUser
activateUser pUserId_ =
ActivateUser' {_auAuthenticationToken = Nothing, _auUserId = pUserId_}
auAuthenticationToken :: Lens' ActivateUser (Maybe Text)
auAuthenticationToken = lens _auAuthenticationToken (\ s a -> s{_auAuthenticationToken = a}) . mapping _Sensitive;
auUserId :: Lens' ActivateUser Text
auUserId = lens _auUserId (\ s a -> s{_auUserId = a});
instance AWSRequest ActivateUser where
type Rs ActivateUser = ActivateUserResponse
request = postJSON workDocs
response
= receiveJSON
(\ s h x ->
ActivateUserResponse' <$>
(x .?> "User") <*> (pure (fromEnum s)))
instance Hashable ActivateUser where
instance NFData ActivateUser where
instance ToHeaders ActivateUser where
toHeaders ActivateUser'{..}
= mconcat
["Authentication" =# _auAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON ActivateUser where
toJSON = const (Object mempty)
instance ToPath ActivateUser where
toPath ActivateUser'{..}
= mconcat
["/api/v1/users/", toBS _auUserId, "/activation"]
instance ToQuery ActivateUser where
toQuery = const mempty
data ActivateUserResponse = ActivateUserResponse'
{ _aursUser :: !(Maybe User)
, _aursResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activateUserResponse
:: Int
-> ActivateUserResponse
activateUserResponse pResponseStatus_ =
ActivateUserResponse'
{_aursUser = Nothing, _aursResponseStatus = pResponseStatus_}
aursUser :: Lens' ActivateUserResponse (Maybe User)
aursUser = lens _aursUser (\ s a -> s{_aursUser = a});
aursResponseStatus :: Lens' ActivateUserResponse Int
aursResponseStatus = lens _aursResponseStatus (\ s a -> s{_aursResponseStatus = a});
instance NFData ActivateUserResponse where