{-# 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.Exports.Delete
(
MattersExportsDeleteResource
, mattersExportsDelete
, MattersExportsDelete
, medXgafv
, medUploadProtocol
, medAccessToken
, medUploadType
, medMatterId
, medExportId
, medCallback
) where
import Network.Google.Prelude
import Network.Google.Vault.Types
type MattersExportsDeleteResource =
"v1" :>
"matters" :>
Capture "matterId" Text :>
"exports" :>
Capture "exportId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data MattersExportsDelete = MattersExportsDelete'
{ _medXgafv :: !(Maybe Xgafv)
, _medUploadProtocol :: !(Maybe Text)
, _medAccessToken :: !(Maybe Text)
, _medUploadType :: !(Maybe Text)
, _medMatterId :: !Text
, _medExportId :: !Text
, _medCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
mattersExportsDelete
:: Text
-> Text
-> MattersExportsDelete
mattersExportsDelete pMedMatterId_ pMedExportId_ =
MattersExportsDelete'
{ _medXgafv = Nothing
, _medUploadProtocol = Nothing
, _medAccessToken = Nothing
, _medUploadType = Nothing
, _medMatterId = pMedMatterId_
, _medExportId = pMedExportId_
, _medCallback = Nothing
}
medXgafv :: Lens' MattersExportsDelete (Maybe Xgafv)
medXgafv = lens _medXgafv (\ s a -> s{_medXgafv = a})
medUploadProtocol :: Lens' MattersExportsDelete (Maybe Text)
medUploadProtocol
= lens _medUploadProtocol
(\ s a -> s{_medUploadProtocol = a})
medAccessToken :: Lens' MattersExportsDelete (Maybe Text)
medAccessToken
= lens _medAccessToken
(\ s a -> s{_medAccessToken = a})
medUploadType :: Lens' MattersExportsDelete (Maybe Text)
medUploadType
= lens _medUploadType
(\ s a -> s{_medUploadType = a})
medMatterId :: Lens' MattersExportsDelete Text
medMatterId
= lens _medMatterId (\ s a -> s{_medMatterId = a})
medExportId :: Lens' MattersExportsDelete Text
medExportId
= lens _medExportId (\ s a -> s{_medExportId = a})
medCallback :: Lens' MattersExportsDelete (Maybe Text)
medCallback
= lens _medCallback (\ s a -> s{_medCallback = a})
instance GoogleRequest MattersExportsDelete where
type Rs MattersExportsDelete = Empty
type Scopes MattersExportsDelete =
'["https://www.googleapis.com/auth/ediscovery"]
requestClient MattersExportsDelete'{..}
= go _medMatterId _medExportId _medXgafv
_medUploadProtocol
_medAccessToken
_medUploadType
_medCallback
(Just AltJSON)
vaultService
where go
= buildClient
(Proxy :: Proxy MattersExportsDeleteResource)
mempty