{-# 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.Jobs.Projects.Complete
(
ProjectsCompleteResource
, projectsComplete
, ProjectsComplete
, pcLanguageCodes
, pcXgafv
, pcLanguageCode
, pcUploadProtocol
, pcCompanyName
, pcAccessToken
, pcUploadType
, pcName
, pcScope
, pcQuery
, pcType
, pcPageSize
, pcCallback
) where
import Network.Google.Jobs.Types
import Network.Google.Prelude
type ProjectsCompleteResource =
"v3p1beta1" :>
CaptureMode "name" "complete" Text :>
QueryParams "languageCodes" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "languageCode" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "companyName" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "scope" Text :>
QueryParam "query" Text :>
QueryParam "type" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] CompleteQueryResponse
data ProjectsComplete = ProjectsComplete'
{ _pcLanguageCodes :: !(Maybe [Text])
, _pcXgafv :: !(Maybe Xgafv)
, _pcLanguageCode :: !(Maybe Text)
, _pcUploadProtocol :: !(Maybe Text)
, _pcCompanyName :: !(Maybe Text)
, _pcAccessToken :: !(Maybe Text)
, _pcUploadType :: !(Maybe Text)
, _pcName :: !Text
, _pcScope :: !(Maybe Text)
, _pcQuery :: !(Maybe Text)
, _pcType :: !(Maybe Text)
, _pcPageSize :: !(Maybe (Textual Int32))
, _pcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsComplete
:: Text
-> ProjectsComplete
projectsComplete pPcName_ =
ProjectsComplete'
{ _pcLanguageCodes = Nothing
, _pcXgafv = Nothing
, _pcLanguageCode = Nothing
, _pcUploadProtocol = Nothing
, _pcCompanyName = Nothing
, _pcAccessToken = Nothing
, _pcUploadType = Nothing
, _pcName = pPcName_
, _pcScope = Nothing
, _pcQuery = Nothing
, _pcType = Nothing
, _pcPageSize = Nothing
, _pcCallback = Nothing
}
pcLanguageCodes :: Lens' ProjectsComplete [Text]
pcLanguageCodes
= lens _pcLanguageCodes
(\ s a -> s{_pcLanguageCodes = a})
. _Default
. _Coerce
pcXgafv :: Lens' ProjectsComplete (Maybe Xgafv)
pcXgafv = lens _pcXgafv (\ s a -> s{_pcXgafv = a})
pcLanguageCode :: Lens' ProjectsComplete (Maybe Text)
pcLanguageCode
= lens _pcLanguageCode
(\ s a -> s{_pcLanguageCode = a})
pcUploadProtocol :: Lens' ProjectsComplete (Maybe Text)
pcUploadProtocol
= lens _pcUploadProtocol
(\ s a -> s{_pcUploadProtocol = a})
pcCompanyName :: Lens' ProjectsComplete (Maybe Text)
pcCompanyName
= lens _pcCompanyName
(\ s a -> s{_pcCompanyName = a})
pcAccessToken :: Lens' ProjectsComplete (Maybe Text)
pcAccessToken
= lens _pcAccessToken
(\ s a -> s{_pcAccessToken = a})
pcUploadType :: Lens' ProjectsComplete (Maybe Text)
pcUploadType
= lens _pcUploadType (\ s a -> s{_pcUploadType = a})
pcName :: Lens' ProjectsComplete Text
pcName = lens _pcName (\ s a -> s{_pcName = a})
pcScope :: Lens' ProjectsComplete (Maybe Text)
pcScope = lens _pcScope (\ s a -> s{_pcScope = a})
pcQuery :: Lens' ProjectsComplete (Maybe Text)
pcQuery = lens _pcQuery (\ s a -> s{_pcQuery = a})
pcType :: Lens' ProjectsComplete (Maybe Text)
pcType = lens _pcType (\ s a -> s{_pcType = a})
pcPageSize :: Lens' ProjectsComplete (Maybe Int32)
pcPageSize
= lens _pcPageSize (\ s a -> s{_pcPageSize = a}) .
mapping _Coerce
pcCallback :: Lens' ProjectsComplete (Maybe Text)
pcCallback
= lens _pcCallback (\ s a -> s{_pcCallback = a})
instance GoogleRequest ProjectsComplete where
type Rs ProjectsComplete = CompleteQueryResponse
type Scopes ProjectsComplete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/jobs"]
requestClient ProjectsComplete'{..}
= go _pcName (_pcLanguageCodes ^. _Default) _pcXgafv
_pcLanguageCode
_pcUploadProtocol
_pcCompanyName
_pcAccessToken
_pcUploadType
_pcScope
_pcQuery
_pcType
_pcPageSize
_pcCallback
(Just AltJSON)
jobsService
where go
= buildClient
(Proxy :: Proxy ProjectsCompleteResource)
mempty