module Network.Google.Resource.StorageTransfer.TransferOperations.Delete
(
TransferOperationsDeleteResource
, transferOperationsDelete
, TransferOperationsDelete
, todXgafv
, todUploadProtocol
, todPp
, todAccessToken
, todUploadType
, todBearerToken
, todName
, todCallback
) where
import Network.Google.Prelude
import Network.Google.StorageTransfer.Types
type TransferOperationsDeleteResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data TransferOperationsDelete = TransferOperationsDelete'
{ _todXgafv :: !(Maybe Text)
, _todUploadProtocol :: !(Maybe Text)
, _todPp :: !Bool
, _todAccessToken :: !(Maybe Text)
, _todUploadType :: !(Maybe Text)
, _todBearerToken :: !(Maybe Text)
, _todName :: !Text
, _todCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
transferOperationsDelete
:: Text
-> TransferOperationsDelete
transferOperationsDelete pTodName_ =
TransferOperationsDelete'
{ _todXgafv = Nothing
, _todUploadProtocol = Nothing
, _todPp = True
, _todAccessToken = Nothing
, _todUploadType = Nothing
, _todBearerToken = Nothing
, _todName = pTodName_
, _todCallback = Nothing
}
todXgafv :: Lens' TransferOperationsDelete (Maybe Text)
todXgafv = lens _todXgafv (\ s a -> s{_todXgafv = a})
todUploadProtocol :: Lens' TransferOperationsDelete (Maybe Text)
todUploadProtocol
= lens _todUploadProtocol
(\ s a -> s{_todUploadProtocol = a})
todPp :: Lens' TransferOperationsDelete Bool
todPp = lens _todPp (\ s a -> s{_todPp = a})
todAccessToken :: Lens' TransferOperationsDelete (Maybe Text)
todAccessToken
= lens _todAccessToken
(\ s a -> s{_todAccessToken = a})
todUploadType :: Lens' TransferOperationsDelete (Maybe Text)
todUploadType
= lens _todUploadType
(\ s a -> s{_todUploadType = a})
todBearerToken :: Lens' TransferOperationsDelete (Maybe Text)
todBearerToken
= lens _todBearerToken
(\ s a -> s{_todBearerToken = a})
todName :: Lens' TransferOperationsDelete Text
todName = lens _todName (\ s a -> s{_todName = a})
todCallback :: Lens' TransferOperationsDelete (Maybe Text)
todCallback
= lens _todCallback (\ s a -> s{_todCallback = a})
instance GoogleRequest TransferOperationsDelete where
type Rs TransferOperationsDelete = Empty
type Scopes TransferOperationsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient TransferOperationsDelete'{..}
= go _todName _todXgafv _todUploadProtocol
(Just _todPp)
_todAccessToken
_todUploadType
_todBearerToken
_todCallback
(Just AltJSON)
storageTransferService
where go
= buildClient
(Proxy :: Proxy TransferOperationsDeleteResource)
mempty