module Network.Google.Resource.CloudUserAccounts.GlobalAccountsOperations.Get
(
GlobalAccountsOperationsGetResource
, globalAccountsOperationsGet
, GlobalAccountsOperationsGet
, gaogProject
, gaogOperation
) where
import Network.Google.Prelude
import Network.Google.UserAccounts.Types
type GlobalAccountsOperationsGetResource =
"clouduseraccounts" :>
"beta" :>
"projects" :>
Capture "project" Text :>
"global" :>
"operations" :>
Capture "operation" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Operation
data GlobalAccountsOperationsGet = GlobalAccountsOperationsGet'
{ _gaogProject :: !Text
, _gaogOperation :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
globalAccountsOperationsGet
:: Text
-> Text
-> GlobalAccountsOperationsGet
globalAccountsOperationsGet pGaogProject_ pGaogOperation_ =
GlobalAccountsOperationsGet'
{ _gaogProject = pGaogProject_
, _gaogOperation = pGaogOperation_
}
gaogProject :: Lens' GlobalAccountsOperationsGet Text
gaogProject
= lens _gaogProject (\ s a -> s{_gaogProject = a})
gaogOperation :: Lens' GlobalAccountsOperationsGet Text
gaogOperation
= lens _gaogOperation
(\ s a -> s{_gaogOperation = a})
instance GoogleRequest GlobalAccountsOperationsGet
where
type Rs GlobalAccountsOperationsGet = Operation
type Scopes GlobalAccountsOperationsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only",
"https://www.googleapis.com/auth/cloud.useraccounts",
"https://www.googleapis.com/auth/cloud.useraccounts.readonly"]
requestClient GlobalAccountsOperationsGet'{..}
= go _gaogProject _gaogOperation (Just AltJSON)
userAccountsService
where go
= buildClient
(Proxy :: Proxy GlobalAccountsOperationsGetResource)
mempty