{-# 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.Container.Projects.Zones.Operations.Get
(
ProjectsZonesOperationsGetResource
, projectsZonesOperationsGet
, ProjectsZonesOperationsGet
, pzogXgafv
, pzogUploadProtocol
, pzogPp
, pzogAccessToken
, pzogUploadType
, pzogZone
, pzogBearerToken
, pzogProjectId
, pzogOperationId
, pzogCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsZonesOperationsGetResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"zones" :>
Capture "zone" Text :>
"operations" :>
Capture "operationId" 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
-- | Gets the specified operation.
--
-- /See:/ 'projectsZonesOperationsGet' smart constructor.
data ProjectsZonesOperationsGet = ProjectsZonesOperationsGet'
{ _pzogXgafv :: !(Maybe Text)
, _pzogUploadProtocol :: !(Maybe Text)
, _pzogPp :: !Bool
, _pzogAccessToken :: !(Maybe Text)
, _pzogUploadType :: !(Maybe Text)
, _pzogZone :: !Text
, _pzogBearerToken :: !(Maybe Text)
, _pzogProjectId :: !Text
, _pzogOperationId :: !Text
, _pzogCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ProjectsZonesOperationsGet' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'pzogXgafv'
--
-- * 'pzogUploadProtocol'
--
-- * 'pzogPp'
--
-- * 'pzogAccessToken'
--
-- * 'pzogUploadType'
--
-- * 'pzogZone'
--
-- * 'pzogBearerToken'
--
-- * 'pzogProjectId'
--
-- * 'pzogOperationId'
--
-- * 'pzogCallback'
projectsZonesOperationsGet
:: Text -- ^ 'pzogZone'
-> Text -- ^ 'pzogProjectId'
-> Text -- ^ 'pzogOperationId'
-> ProjectsZonesOperationsGet
projectsZonesOperationsGet pPzogZone_ pPzogProjectId_ pPzogOperationId_ =
ProjectsZonesOperationsGet'
{ _pzogXgafv = Nothing
, _pzogUploadProtocol = Nothing
, _pzogPp = True
, _pzogAccessToken = Nothing
, _pzogUploadType = Nothing
, _pzogZone = pPzogZone_
, _pzogBearerToken = Nothing
, _pzogProjectId = pPzogProjectId_
, _pzogOperationId = pPzogOperationId_
, _pzogCallback = Nothing
}
-- | V1 error format.
pzogXgafv :: Lens' ProjectsZonesOperationsGet (Maybe Text)
pzogXgafv
= lens _pzogXgafv (\ s a -> s{_pzogXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
pzogUploadProtocol :: Lens' ProjectsZonesOperationsGet (Maybe Text)
pzogUploadProtocol
= lens _pzogUploadProtocol
(\ s a -> s{_pzogUploadProtocol = a})
-- | Pretty-print response.
pzogPp :: Lens' ProjectsZonesOperationsGet Bool
pzogPp = lens _pzogPp (\ s a -> s{_pzogPp = a})
-- | OAuth access token.
pzogAccessToken :: Lens' ProjectsZonesOperationsGet (Maybe Text)
pzogAccessToken
= lens _pzogAccessToken
(\ s a -> s{_pzogAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
pzogUploadType :: Lens' ProjectsZonesOperationsGet (Maybe Text)
pzogUploadType
= lens _pzogUploadType
(\ s a -> s{_pzogUploadType = a})
-- | The name of the Google Compute Engine
-- [zone](\/compute\/docs\/zones#available) in which the cluster resides.
pzogZone :: Lens' ProjectsZonesOperationsGet Text
pzogZone = lens _pzogZone (\ s a -> s{_pzogZone = a})
-- | OAuth bearer token.
pzogBearerToken :: Lens' ProjectsZonesOperationsGet (Maybe Text)
pzogBearerToken
= lens _pzogBearerToken
(\ s a -> s{_pzogBearerToken = a})
-- | The Google Developers Console [project ID or project
-- number](https:\/\/support.google.com\/cloud\/answer\/6158840).
pzogProjectId :: Lens' ProjectsZonesOperationsGet Text
pzogProjectId
= lens _pzogProjectId
(\ s a -> s{_pzogProjectId = a})
-- | The server-assigned \`name\` of the operation.
pzogOperationId :: Lens' ProjectsZonesOperationsGet Text
pzogOperationId
= lens _pzogOperationId
(\ s a -> s{_pzogOperationId = a})
-- | JSONP
pzogCallback :: Lens' ProjectsZonesOperationsGet (Maybe Text)
pzogCallback
= lens _pzogCallback (\ s a -> s{_pzogCallback = a})
instance GoogleRequest ProjectsZonesOperationsGet
where
type Rs ProjectsZonesOperationsGet = Operation
type Scopes ProjectsZonesOperationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsZonesOperationsGet'{..}
= go _pzogProjectId _pzogZone _pzogOperationId
_pzogXgafv
_pzogUploadProtocol
(Just _pzogPp)
_pzogAccessToken
_pzogUploadType
_pzogBearerToken
_pzogCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy :: Proxy ProjectsZonesOperationsGetResource)
mempty