{-# 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.SourceRepo.Projects.Repos.Get
(
ProjectsReposGetResource
, projectsReposGet
, ProjectsReposGet
, prgXgafv
, prgUploadProtocol
, prgAccessToken
, prgUploadType
, prgName
, prgCallback
) where
import Network.Google.Prelude
import Network.Google.SourceRepo.Types
type ProjectsReposGetResource =
"v1" :>
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] Repo
data ProjectsReposGet = ProjectsReposGet'
{ _prgXgafv :: !(Maybe Xgafv)
, _prgUploadProtocol :: !(Maybe Text)
, _prgAccessToken :: !(Maybe Text)
, _prgUploadType :: !(Maybe Text)
, _prgName :: !Text
, _prgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsReposGet
:: Text
-> ProjectsReposGet
projectsReposGet pPrgName_ =
ProjectsReposGet'
{ _prgXgafv = Nothing
, _prgUploadProtocol = Nothing
, _prgAccessToken = Nothing
, _prgUploadType = Nothing
, _prgName = pPrgName_
, _prgCallback = Nothing
}
prgXgafv :: Lens' ProjectsReposGet (Maybe Xgafv)
prgXgafv = lens _prgXgafv (\ s a -> s{_prgXgafv = a})
prgUploadProtocol :: Lens' ProjectsReposGet (Maybe Text)
prgUploadProtocol
= lens _prgUploadProtocol
(\ s a -> s{_prgUploadProtocol = a})
prgAccessToken :: Lens' ProjectsReposGet (Maybe Text)
prgAccessToken
= lens _prgAccessToken
(\ s a -> s{_prgAccessToken = a})
prgUploadType :: Lens' ProjectsReposGet (Maybe Text)
prgUploadType
= lens _prgUploadType
(\ s a -> s{_prgUploadType = a})
prgName :: Lens' ProjectsReposGet Text
prgName = lens _prgName (\ s a -> s{_prgName = a})
prgCallback :: Lens' ProjectsReposGet (Maybe Text)
prgCallback
= lens _prgCallback (\ s a -> s{_prgCallback = a})
instance GoogleRequest ProjectsReposGet where
type Rs ProjectsReposGet = Repo
type Scopes ProjectsReposGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/source.full_control",
"https://www.googleapis.com/auth/source.read_only",
"https://www.googleapis.com/auth/source.read_write"]
requestClient ProjectsReposGet'{..}
= go _prgName _prgXgafv _prgUploadProtocol
_prgAccessToken
_prgUploadType
_prgCallback
(Just AltJSON)
sourceRepoService
where go
= buildClient
(Proxy :: Proxy ProjectsReposGetResource)
mempty