{-# 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.File.Projects.Locations.Get
(
ProjectsLocationsGetResource
, projectsLocationsGet
, ProjectsLocationsGet
, plgXgafv
, plgUploadProtocol
, plgAccessToken
, plgUploadType
, plgName
, plgCallback
) where
import Network.Google.File.Types
import Network.Google.Prelude
type ProjectsLocationsGetResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Location
data ProjectsLocationsGet = ProjectsLocationsGet'
{ _plgXgafv :: !(Maybe Xgafv)
, _plgUploadProtocol :: !(Maybe Text)
, _plgAccessToken :: !(Maybe Text)
, _plgUploadType :: !(Maybe Text)
, _plgName :: !Text
, _plgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsGet
:: Text
-> ProjectsLocationsGet
projectsLocationsGet pPlgName_ =
ProjectsLocationsGet'
{ _plgXgafv = Nothing
, _plgUploadProtocol = Nothing
, _plgAccessToken = Nothing
, _plgUploadType = Nothing
, _plgName = pPlgName_
, _plgCallback = Nothing
}
plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv)
plgXgafv = lens _plgXgafv (\ s a -> s{_plgXgafv = a})
plgUploadProtocol :: Lens' ProjectsLocationsGet (Maybe Text)
plgUploadProtocol
= lens _plgUploadProtocol
(\ s a -> s{_plgUploadProtocol = a})
plgAccessToken :: Lens' ProjectsLocationsGet (Maybe Text)
plgAccessToken
= lens _plgAccessToken
(\ s a -> s{_plgAccessToken = a})
plgUploadType :: Lens' ProjectsLocationsGet (Maybe Text)
plgUploadType
= lens _plgUploadType
(\ s a -> s{_plgUploadType = a})
plgName :: Lens' ProjectsLocationsGet Text
plgName = lens _plgName (\ s a -> s{_plgName = a})
plgCallback :: Lens' ProjectsLocationsGet (Maybe Text)
plgCallback
= lens _plgCallback (\ s a -> s{_plgCallback = a})
instance GoogleRequest ProjectsLocationsGet where
type Rs ProjectsLocationsGet = Location
type Scopes ProjectsLocationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsGet'{..}
= go _plgName _plgXgafv _plgUploadProtocol
_plgAccessToken
_plgUploadType
_plgCallback
(Just AltJSON)
fileService
where go
= buildClient
(Proxy :: Proxy ProjectsLocationsGetResource)
mempty