{-# 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.Snapshots.List
(
ProjectsSnapshotsListResource
, projectsSnapshotsList
, ProjectsSnapshotsList
, pslXgafv
, pslUploadProtocol
, pslLocation
, pslAccessToken
, pslUploadType
, pslProjectId
, pslCallback
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsSnapshotsListResource =
"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 "alt" AltJSON :>
Get '[JSON] ListSnapshotsResponse
data ProjectsSnapshotsList =
ProjectsSnapshotsList'
{ _pslXgafv :: !(Maybe Xgafv)
, _pslUploadProtocol :: !(Maybe Text)
, _pslLocation :: !(Maybe Text)
, _pslAccessToken :: !(Maybe Text)
, _pslUploadType :: !(Maybe Text)
, _pslProjectId :: !Text
, _pslCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsSnapshotsList
:: Text
-> ProjectsSnapshotsList
projectsSnapshotsList pPslProjectId_ =
ProjectsSnapshotsList'
{ _pslXgafv = Nothing
, _pslUploadProtocol = Nothing
, _pslLocation = Nothing
, _pslAccessToken = Nothing
, _pslUploadType = Nothing
, _pslProjectId = pPslProjectId_
, _pslCallback = Nothing
}
pslXgafv :: Lens' ProjectsSnapshotsList (Maybe Xgafv)
pslXgafv = lens _pslXgafv (\ s a -> s{_pslXgafv = a})
pslUploadProtocol :: Lens' ProjectsSnapshotsList (Maybe Text)
pslUploadProtocol
= lens _pslUploadProtocol
(\ s a -> s{_pslUploadProtocol = a})
pslLocation :: Lens' ProjectsSnapshotsList (Maybe Text)
pslLocation
= lens _pslLocation (\ s a -> s{_pslLocation = a})
pslAccessToken :: Lens' ProjectsSnapshotsList (Maybe Text)
pslAccessToken
= lens _pslAccessToken
(\ s a -> s{_pslAccessToken = a})
pslUploadType :: Lens' ProjectsSnapshotsList (Maybe Text)
pslUploadType
= lens _pslUploadType
(\ s a -> s{_pslUploadType = a})
pslProjectId :: Lens' ProjectsSnapshotsList Text
pslProjectId
= lens _pslProjectId (\ s a -> s{_pslProjectId = a})
pslCallback :: Lens' ProjectsSnapshotsList (Maybe Text)
pslCallback
= lens _pslCallback (\ s a -> s{_pslCallback = a})
instance GoogleRequest ProjectsSnapshotsList where
type Rs ProjectsSnapshotsList = ListSnapshotsResponse
type Scopes ProjectsSnapshotsList =
'["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 ProjectsSnapshotsList'{..}
= go _pslProjectId _pslXgafv _pslUploadProtocol
_pslLocation
_pslAccessToken
_pslUploadType
_pslCallback
(Just AltJSON)
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsSnapshotsListResource)
mempty