{-# 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.Composer.Projects.Locations.Operations.Get
(
ProjectsLocationsOperationsGetResource
, projectsLocationsOperationsGet
, ProjectsLocationsOperationsGet
, plogXgafv
, plogUploadProtocol
, plogAccessToken
, plogUploadType
, plogName
, plogCallback
) where
import Network.Google.Composer.Types
import Network.Google.Prelude
type ProjectsLocationsOperationsGetResource =
"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] Operation
data ProjectsLocationsOperationsGet = ProjectsLocationsOperationsGet'
{ _plogXgafv :: !(Maybe Xgafv)
, _plogUploadProtocol :: !(Maybe Text)
, _plogAccessToken :: !(Maybe Text)
, _plogUploadType :: !(Maybe Text)
, _plogName :: !Text
, _plogCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsOperationsGet
:: Text
-> ProjectsLocationsOperationsGet
projectsLocationsOperationsGet pPlogName_ =
ProjectsLocationsOperationsGet'
{ _plogXgafv = Nothing
, _plogUploadProtocol = Nothing
, _plogAccessToken = Nothing
, _plogUploadType = Nothing
, _plogName = pPlogName_
, _plogCallback = Nothing
}
plogXgafv :: Lens' ProjectsLocationsOperationsGet (Maybe Xgafv)
plogXgafv
= lens _plogXgafv (\ s a -> s{_plogXgafv = a})
plogUploadProtocol :: Lens' ProjectsLocationsOperationsGet (Maybe Text)
plogUploadProtocol
= lens _plogUploadProtocol
(\ s a -> s{_plogUploadProtocol = a})
plogAccessToken :: Lens' ProjectsLocationsOperationsGet (Maybe Text)
plogAccessToken
= lens _plogAccessToken
(\ s a -> s{_plogAccessToken = a})
plogUploadType :: Lens' ProjectsLocationsOperationsGet (Maybe Text)
plogUploadType
= lens _plogUploadType
(\ s a -> s{_plogUploadType = a})
plogName :: Lens' ProjectsLocationsOperationsGet Text
plogName = lens _plogName (\ s a -> s{_plogName = a})
plogCallback :: Lens' ProjectsLocationsOperationsGet (Maybe Text)
plogCallback
= lens _plogCallback (\ s a -> s{_plogCallback = a})
instance GoogleRequest ProjectsLocationsOperationsGet
where
type Rs ProjectsLocationsOperationsGet = Operation
type Scopes ProjectsLocationsOperationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsOperationsGet'{..}
= go _plogName _plogXgafv _plogUploadProtocol
_plogAccessToken
_plogUploadType
_plogCallback
(Just AltJSON)
composerService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsOperationsGetResource)
mempty