{-# 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.DeleteSnapshots
(
ProjectsDeleteSnapshotsResource
, projectsDeleteSnapshots
, ProjectsDeleteSnapshots
, pdsXgafv
, pdsUploadProtocol
, pdsLocation
, pdsAccessToken
, pdsUploadType
, pdsProjectId
, pdsCallback
, pdsSnapshotId
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsDeleteSnapshotsResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"snapshots" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "location" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "snapshotId" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] DeleteSnapshotResponse
data ProjectsDeleteSnapshots =
ProjectsDeleteSnapshots'
{ _pdsXgafv :: !(Maybe Xgafv)
, _pdsUploadProtocol :: !(Maybe Text)
, _pdsLocation :: !(Maybe Text)
, _pdsAccessToken :: !(Maybe Text)
, _pdsUploadType :: !(Maybe Text)
, _pdsProjectId :: !Text
, _pdsCallback :: !(Maybe Text)
, _pdsSnapshotId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsDeleteSnapshots
:: Text
-> ProjectsDeleteSnapshots
projectsDeleteSnapshots pPdsProjectId_ =
ProjectsDeleteSnapshots'
{ _pdsXgafv = Nothing
, _pdsUploadProtocol = Nothing
, _pdsLocation = Nothing
, _pdsAccessToken = Nothing
, _pdsUploadType = Nothing
, _pdsProjectId = pPdsProjectId_
, _pdsCallback = Nothing
, _pdsSnapshotId = Nothing
}
pdsXgafv :: Lens' ProjectsDeleteSnapshots (Maybe Xgafv)
pdsXgafv = lens _pdsXgafv (\ s a -> s{_pdsXgafv = a})
pdsUploadProtocol :: Lens' ProjectsDeleteSnapshots (Maybe Text)
pdsUploadProtocol
= lens _pdsUploadProtocol
(\ s a -> s{_pdsUploadProtocol = a})
pdsLocation :: Lens' ProjectsDeleteSnapshots (Maybe Text)
pdsLocation
= lens _pdsLocation (\ s a -> s{_pdsLocation = a})
pdsAccessToken :: Lens' ProjectsDeleteSnapshots (Maybe Text)
pdsAccessToken
= lens _pdsAccessToken
(\ s a -> s{_pdsAccessToken = a})
pdsUploadType :: Lens' ProjectsDeleteSnapshots (Maybe Text)
pdsUploadType
= lens _pdsUploadType
(\ s a -> s{_pdsUploadType = a})
pdsProjectId :: Lens' ProjectsDeleteSnapshots Text
pdsProjectId
= lens _pdsProjectId (\ s a -> s{_pdsProjectId = a})
pdsCallback :: Lens' ProjectsDeleteSnapshots (Maybe Text)
pdsCallback
= lens _pdsCallback (\ s a -> s{_pdsCallback = a})
pdsSnapshotId :: Lens' ProjectsDeleteSnapshots (Maybe Text)
pdsSnapshotId
= lens _pdsSnapshotId
(\ s a -> s{_pdsSnapshotId = a})
instance GoogleRequest ProjectsDeleteSnapshots where
type Rs ProjectsDeleteSnapshots =
DeleteSnapshotResponse
type Scopes ProjectsDeleteSnapshots =
'["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 ProjectsDeleteSnapshots'{..}
= go _pdsProjectId _pdsXgafv _pdsUploadProtocol
_pdsLocation
_pdsAccessToken
_pdsUploadType
_pdsCallback
_pdsSnapshotId
(Just AltJSON)
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsDeleteSnapshotsResource)
mempty