module Network.Google.Resource.Dataproc.Projects.Regions.Operations.Get
(
ProjectsRegionsOperationsGetResource
, projectsRegionsOperationsGet
, ProjectsRegionsOperationsGet
, progXgafv
, progUploadProtocol
, progPp
, progAccessToken
, progUploadType
, progBearerToken
, progName
, progCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsOperationsGetResource =
"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] Operation
data ProjectsRegionsOperationsGet = ProjectsRegionsOperationsGet'
{ _progXgafv :: !(Maybe Text)
, _progUploadProtocol :: !(Maybe Text)
, _progPp :: !Bool
, _progAccessToken :: !(Maybe Text)
, _progUploadType :: !(Maybe Text)
, _progBearerToken :: !(Maybe Text)
, _progName :: !Text
, _progCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRegionsOperationsGet
:: Text
-> ProjectsRegionsOperationsGet
projectsRegionsOperationsGet pProgName_ =
ProjectsRegionsOperationsGet'
{ _progXgafv = Nothing
, _progUploadProtocol = Nothing
, _progPp = True
, _progAccessToken = Nothing
, _progUploadType = Nothing
, _progBearerToken = Nothing
, _progName = pProgName_
, _progCallback = Nothing
}
progXgafv :: Lens' ProjectsRegionsOperationsGet (Maybe Text)
progXgafv
= lens _progXgafv (\ s a -> s{_progXgafv = a})
progUploadProtocol :: Lens' ProjectsRegionsOperationsGet (Maybe Text)
progUploadProtocol
= lens _progUploadProtocol
(\ s a -> s{_progUploadProtocol = a})
progPp :: Lens' ProjectsRegionsOperationsGet Bool
progPp = lens _progPp (\ s a -> s{_progPp = a})
progAccessToken :: Lens' ProjectsRegionsOperationsGet (Maybe Text)
progAccessToken
= lens _progAccessToken
(\ s a -> s{_progAccessToken = a})
progUploadType :: Lens' ProjectsRegionsOperationsGet (Maybe Text)
progUploadType
= lens _progUploadType
(\ s a -> s{_progUploadType = a})
progBearerToken :: Lens' ProjectsRegionsOperationsGet (Maybe Text)
progBearerToken
= lens _progBearerToken
(\ s a -> s{_progBearerToken = a})
progName :: Lens' ProjectsRegionsOperationsGet Text
progName = lens _progName (\ s a -> s{_progName = a})
progCallback :: Lens' ProjectsRegionsOperationsGet (Maybe Text)
progCallback
= lens _progCallback (\ s a -> s{_progCallback = a})
instance GoogleRequest ProjectsRegionsOperationsGet
where
type Rs ProjectsRegionsOperationsGet = Operation
type Scopes ProjectsRegionsOperationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsRegionsOperationsGet'{..}
= go _progName _progXgafv _progUploadProtocol
(Just _progPp)
_progAccessToken
_progUploadType
_progBearerToken
_progCallback
(Just AltJSON)
dataprocService
where go
= buildClient
(Proxy :: Proxy ProjectsRegionsOperationsGetResource)
mempty