{-# 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.List
(
ProjectsLocationsSnapshotsListResource
, projectsLocationsSnapshotsList
, ProjectsLocationsSnapshotsList
, plslXgafv
, plslUploadProtocol
, plslLocation
, plslAccessToken
, plslUploadType
, plslProjectId
, plslCallback
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsLocationsSnapshotsListResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"locations" :>
Capture "location" Text :>
"snapshots" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListSnapshotsResponse
data ProjectsLocationsSnapshotsList =
ProjectsLocationsSnapshotsList'
{ _plslXgafv :: !(Maybe Xgafv)
, _plslUploadProtocol :: !(Maybe Text)
, _plslLocation :: !Text
, _plslAccessToken :: !(Maybe Text)
, _plslUploadType :: !(Maybe Text)
, _plslProjectId :: !Text
, _plslCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsSnapshotsList
:: Text
-> Text
-> ProjectsLocationsSnapshotsList
projectsLocationsSnapshotsList pPlslLocation_ pPlslProjectId_ =
ProjectsLocationsSnapshotsList'
{ _plslXgafv = Nothing
, _plslUploadProtocol = Nothing
, _plslLocation = pPlslLocation_
, _plslAccessToken = Nothing
, _plslUploadType = Nothing
, _plslProjectId = pPlslProjectId_
, _plslCallback = Nothing
}
plslXgafv :: Lens' ProjectsLocationsSnapshotsList (Maybe Xgafv)
plslXgafv
= lens _plslXgafv (\ s a -> s{_plslXgafv = a})
plslUploadProtocol :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
plslUploadProtocol
= lens _plslUploadProtocol
(\ s a -> s{_plslUploadProtocol = a})
plslLocation :: Lens' ProjectsLocationsSnapshotsList Text
plslLocation
= lens _plslLocation (\ s a -> s{_plslLocation = a})
plslAccessToken :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
plslAccessToken
= lens _plslAccessToken
(\ s a -> s{_plslAccessToken = a})
plslUploadType :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
plslUploadType
= lens _plslUploadType
(\ s a -> s{_plslUploadType = a})
plslProjectId :: Lens' ProjectsLocationsSnapshotsList Text
plslProjectId
= lens _plslProjectId
(\ s a -> s{_plslProjectId = a})
plslCallback :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
plslCallback
= lens _plslCallback (\ s a -> s{_plslCallback = a})
instance GoogleRequest ProjectsLocationsSnapshotsList
where
type Rs ProjectsLocationsSnapshotsList =
ListSnapshotsResponse
type Scopes ProjectsLocationsSnapshotsList =
'["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 ProjectsLocationsSnapshotsList'{..}
= go _plslProjectId _plslLocation _plslXgafv
_plslUploadProtocol
_plslAccessToken
_plslUploadType
_plslCallback
(Just AltJSON)
dataflowService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsSnapshotsListResource)
mempty