{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Vault.Matters.RemovePermissions
(
MattersRemovePermissionsResource
, mattersRemovePermissions
, MattersRemovePermissions
, mrpXgafv
, mrpUploadProtocol
, mrpAccessToken
, mrpUploadType
, mrpPayload
, mrpMatterId
, mrpCallback
) where
import Network.Google.Prelude
import Network.Google.Vault.Types
type MattersRemovePermissionsResource =
"v1" :>
"matters" :>
CaptureMode "matterId" "removePermissions" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] RemoveMatterPermissionsRequest :>
Post '[JSON] Empty
data MattersRemovePermissions = MattersRemovePermissions'
{ _mrpXgafv :: !(Maybe Xgafv)
, _mrpUploadProtocol :: !(Maybe Text)
, _mrpAccessToken :: !(Maybe Text)
, _mrpUploadType :: !(Maybe Text)
, _mrpPayload :: !RemoveMatterPermissionsRequest
, _mrpMatterId :: !Text
, _mrpCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
mattersRemovePermissions
:: RemoveMatterPermissionsRequest
-> Text
-> MattersRemovePermissions
mattersRemovePermissions pMrpPayload_ pMrpMatterId_ =
MattersRemovePermissions'
{ _mrpXgafv = Nothing
, _mrpUploadProtocol = Nothing
, _mrpAccessToken = Nothing
, _mrpUploadType = Nothing
, _mrpPayload = pMrpPayload_
, _mrpMatterId = pMrpMatterId_
, _mrpCallback = Nothing
}
mrpXgafv :: Lens' MattersRemovePermissions (Maybe Xgafv)
mrpXgafv = lens _mrpXgafv (\ s a -> s{_mrpXgafv = a})
mrpUploadProtocol :: Lens' MattersRemovePermissions (Maybe Text)
mrpUploadProtocol
= lens _mrpUploadProtocol
(\ s a -> s{_mrpUploadProtocol = a})
mrpAccessToken :: Lens' MattersRemovePermissions (Maybe Text)
mrpAccessToken
= lens _mrpAccessToken
(\ s a -> s{_mrpAccessToken = a})
mrpUploadType :: Lens' MattersRemovePermissions (Maybe Text)
mrpUploadType
= lens _mrpUploadType
(\ s a -> s{_mrpUploadType = a})
mrpPayload :: Lens' MattersRemovePermissions RemoveMatterPermissionsRequest
mrpPayload
= lens _mrpPayload (\ s a -> s{_mrpPayload = a})
mrpMatterId :: Lens' MattersRemovePermissions Text
mrpMatterId
= lens _mrpMatterId (\ s a -> s{_mrpMatterId = a})
mrpCallback :: Lens' MattersRemovePermissions (Maybe Text)
mrpCallback
= lens _mrpCallback (\ s a -> s{_mrpCallback = a})
instance GoogleRequest MattersRemovePermissions where
type Rs MattersRemovePermissions = Empty
type Scopes MattersRemovePermissions =
'["https://www.googleapis.com/auth/ediscovery"]
requestClient MattersRemovePermissions'{..}
= go _mrpMatterId _mrpXgafv _mrpUploadProtocol
_mrpAccessToken
_mrpUploadType
_mrpCallback
(Just AltJSON)
_mrpPayload
vaultService
where go
= buildClient
(Proxy :: Proxy MattersRemovePermissionsResource)
mempty