module Network.Google.Resource.IAM.Projects.ServiceAccounts.Get
(
ProjectsServiceAccountsGetResource
, projectsServiceAccountsGet
, ProjectsServiceAccountsGet
, psagXgafv
, psagUploadProtocol
, psagPp
, psagAccessToken
, psagUploadType
, psagBearerToken
, psagName
, psagCallback
) where
import Network.Google.KnowledgeGraphSearch.Types
import Network.Google.Prelude
type ProjectsServiceAccountsGetResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ServiceAccount
data ProjectsServiceAccountsGet = ProjectsServiceAccountsGet'
{ _psagXgafv :: !(Maybe Text)
, _psagUploadProtocol :: !(Maybe Text)
, _psagPp :: !Bool
, _psagAccessToken :: !(Maybe Text)
, _psagUploadType :: !(Maybe Text)
, _psagBearerToken :: !(Maybe Text)
, _psagName :: !Text
, _psagCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsServiceAccountsGet
:: Text
-> ProjectsServiceAccountsGet
projectsServiceAccountsGet pPsagName_ =
ProjectsServiceAccountsGet'
{ _psagXgafv = Nothing
, _psagUploadProtocol = Nothing
, _psagPp = True
, _psagAccessToken = Nothing
, _psagUploadType = Nothing
, _psagBearerToken = Nothing
, _psagName = pPsagName_
, _psagCallback = Nothing
}
psagXgafv :: Lens' ProjectsServiceAccountsGet (Maybe Text)
psagXgafv
= lens _psagXgafv (\ s a -> s{_psagXgafv = a})
psagUploadProtocol :: Lens' ProjectsServiceAccountsGet (Maybe Text)
psagUploadProtocol
= lens _psagUploadProtocol
(\ s a -> s{_psagUploadProtocol = a})
psagPp :: Lens' ProjectsServiceAccountsGet Bool
psagPp = lens _psagPp (\ s a -> s{_psagPp = a})
psagAccessToken :: Lens' ProjectsServiceAccountsGet (Maybe Text)
psagAccessToken
= lens _psagAccessToken
(\ s a -> s{_psagAccessToken = a})
psagUploadType :: Lens' ProjectsServiceAccountsGet (Maybe Text)
psagUploadType
= lens _psagUploadType
(\ s a -> s{_psagUploadType = a})
psagBearerToken :: Lens' ProjectsServiceAccountsGet (Maybe Text)
psagBearerToken
= lens _psagBearerToken
(\ s a -> s{_psagBearerToken = a})
psagName :: Lens' ProjectsServiceAccountsGet Text
psagName = lens _psagName (\ s a -> s{_psagName = a})
psagCallback :: Lens' ProjectsServiceAccountsGet (Maybe Text)
psagCallback
= lens _psagCallback (\ s a -> s{_psagCallback = a})
instance GoogleRequest ProjectsServiceAccountsGet
where
type Rs ProjectsServiceAccountsGet = ServiceAccount
type Scopes ProjectsServiceAccountsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsServiceAccountsGet'{..}
= go _psagName _psagXgafv _psagUploadProtocol
(Just _psagPp)
_psagAccessToken
_psagUploadType
_psagBearerToken
_psagCallback
(Just AltJSON)
knowledgeGraphSearchService
where go
= buildClient
(Proxy :: Proxy ProjectsServiceAccountsGetResource)
mempty