{-# 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.Dataflow.Projects.Locations.Snapshots.Delete
(
ProjectsLocationsSnapshotsDeleteResource
, projectsLocationsSnapshotsDelete
, ProjectsLocationsSnapshotsDelete
, plsdXgafv
, plsdUploadProtocol
, plsdLocation
, plsdAccessToken
, plsdUploadType
, plsdProjectId
, plsdCallback
, plsdSnapshotId
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsLocationsSnapshotsDeleteResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"locations" :>
Capture "location" Text :>
"snapshots" :>
Capture "snapshotId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] DeleteSnapshotResponse
data ProjectsLocationsSnapshotsDelete =
ProjectsLocationsSnapshotsDelete'
{ _plsdXgafv :: !(Maybe Xgafv)
, _plsdUploadProtocol :: !(Maybe Text)
, _plsdLocation :: !Text
, _plsdAccessToken :: !(Maybe Text)
, _plsdUploadType :: !(Maybe Text)
, _plsdProjectId :: !Text
, _plsdCallback :: !(Maybe Text)
, _plsdSnapshotId :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsSnapshotsDelete
:: Text
-> Text
-> Text
-> ProjectsLocationsSnapshotsDelete
projectsLocationsSnapshotsDelete pPlsdLocation_ pPlsdProjectId_ pPlsdSnapshotId_ =
ProjectsLocationsSnapshotsDelete'
{ _plsdXgafv = Nothing
, _plsdUploadProtocol = Nothing
, _plsdLocation = pPlsdLocation_
, _plsdAccessToken = Nothing
, _plsdUploadType = Nothing
, _plsdProjectId = pPlsdProjectId_
, _plsdCallback = Nothing
, _plsdSnapshotId = pPlsdSnapshotId_
}
plsdXgafv :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Xgafv)
plsdXgafv
= lens _plsdXgafv (\ s a -> s{_plsdXgafv = a})
plsdUploadProtocol :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
plsdUploadProtocol
= lens _plsdUploadProtocol
(\ s a -> s{_plsdUploadProtocol = a})
plsdLocation :: Lens' ProjectsLocationsSnapshotsDelete Text
plsdLocation
= lens _plsdLocation (\ s a -> s{_plsdLocation = a})
plsdAccessToken :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
plsdAccessToken
= lens _plsdAccessToken
(\ s a -> s{_plsdAccessToken = a})
plsdUploadType :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
plsdUploadType
= lens _plsdUploadType
(\ s a -> s{_plsdUploadType = a})
plsdProjectId :: Lens' ProjectsLocationsSnapshotsDelete Text
plsdProjectId
= lens _plsdProjectId
(\ s a -> s{_plsdProjectId = a})
plsdCallback :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
plsdCallback
= lens _plsdCallback (\ s a -> s{_plsdCallback = a})
plsdSnapshotId :: Lens' ProjectsLocationsSnapshotsDelete Text
plsdSnapshotId
= lens _plsdSnapshotId
(\ s a -> s{_plsdSnapshotId = a})
instance GoogleRequest
ProjectsLocationsSnapshotsDelete
where
type Rs ProjectsLocationsSnapshotsDelete =
DeleteSnapshotResponse
type Scopes ProjectsLocationsSnapshotsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsLocationsSnapshotsDelete'{..}
= go _plsdProjectId _plsdLocation _plsdSnapshotId
_plsdXgafv
_plsdUploadProtocol
_plsdAccessToken
_plsdUploadType
_plsdCallback
(Just AltJSON)
dataflowService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsSnapshotsDeleteResource)
mempty