{-# 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.WorkDocs.DeactivateUser
(
deactivateUser
, DeactivateUser
, dAuthenticationToken
, dUserId
, deactivateUserResponse
, DeactivateUserResponse
) 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 DeactivateUser = DeactivateUser'
{ _dAuthenticationToken :: !(Maybe (Sensitive Text))
, _dUserId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
deactivateUser
:: Text
-> DeactivateUser
deactivateUser pUserId_ =
DeactivateUser' {_dAuthenticationToken = Nothing, _dUserId = pUserId_}
dAuthenticationToken :: Lens' DeactivateUser (Maybe Text)
dAuthenticationToken = lens _dAuthenticationToken (\ s a -> s{_dAuthenticationToken = a}) . mapping _Sensitive
dUserId :: Lens' DeactivateUser Text
dUserId = lens _dUserId (\ s a -> s{_dUserId = a})
instance AWSRequest DeactivateUser where
type Rs DeactivateUser = DeactivateUserResponse
request = delete workDocs
response = receiveNull DeactivateUserResponse'
instance Hashable DeactivateUser where
instance NFData DeactivateUser where
instance ToHeaders DeactivateUser where
toHeaders DeactivateUser'{..}
= mconcat
["Authentication" =# _dAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath DeactivateUser where
toPath DeactivateUser'{..}
= mconcat
["/api/v1/users/", toBS _dUserId, "/activation"]
instance ToQuery DeactivateUser where
toQuery = const mempty
data DeactivateUserResponse =
DeactivateUserResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deactivateUserResponse
:: DeactivateUserResponse
deactivateUserResponse = DeactivateUserResponse'
instance NFData DeactivateUserResponse where