{-# 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.DataFusion.Projects.Locations.Instances.Upgrade
(
ProjectsLocationsInstancesUpgradeResource
, projectsLocationsInstancesUpgrade
, ProjectsLocationsInstancesUpgrade
, pliuXgafv
, pliuUploadProtocol
, pliuAccessToken
, pliuUploadType
, pliuPayload
, pliuName
, pliuCallback
) where
import Network.Google.DataFusion.Types
import Network.Google.Prelude
type ProjectsLocationsInstancesUpgradeResource =
"v1beta1" :>
CaptureMode "name" "upgrade" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] UpgradeInstanceRequest :>
Post '[JSON] Operation
data ProjectsLocationsInstancesUpgrade =
ProjectsLocationsInstancesUpgrade'
{ _pliuXgafv :: !(Maybe Xgafv)
, _pliuUploadProtocol :: !(Maybe Text)
, _pliuAccessToken :: !(Maybe Text)
, _pliuUploadType :: !(Maybe Text)
, _pliuPayload :: !UpgradeInstanceRequest
, _pliuName :: !Text
, _pliuCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsInstancesUpgrade
:: UpgradeInstanceRequest
-> Text
-> ProjectsLocationsInstancesUpgrade
projectsLocationsInstancesUpgrade pPliuPayload_ pPliuName_ =
ProjectsLocationsInstancesUpgrade'
{ _pliuXgafv = Nothing
, _pliuUploadProtocol = Nothing
, _pliuAccessToken = Nothing
, _pliuUploadType = Nothing
, _pliuPayload = pPliuPayload_
, _pliuName = pPliuName_
, _pliuCallback = Nothing
}
pliuXgafv :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Xgafv)
pliuXgafv
= lens _pliuXgafv (\ s a -> s{_pliuXgafv = a})
pliuUploadProtocol :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)
pliuUploadProtocol
= lens _pliuUploadProtocol
(\ s a -> s{_pliuUploadProtocol = a})
pliuAccessToken :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)
pliuAccessToken
= lens _pliuAccessToken
(\ s a -> s{_pliuAccessToken = a})
pliuUploadType :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)
pliuUploadType
= lens _pliuUploadType
(\ s a -> s{_pliuUploadType = a})
pliuPayload :: Lens' ProjectsLocationsInstancesUpgrade UpgradeInstanceRequest
pliuPayload
= lens _pliuPayload (\ s a -> s{_pliuPayload = a})
pliuName :: Lens' ProjectsLocationsInstancesUpgrade Text
pliuName = lens _pliuName (\ s a -> s{_pliuName = a})
pliuCallback :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)
pliuCallback
= lens _pliuCallback (\ s a -> s{_pliuCallback = a})
instance GoogleRequest
ProjectsLocationsInstancesUpgrade
where
type Rs ProjectsLocationsInstancesUpgrade = Operation
type Scopes ProjectsLocationsInstancesUpgrade =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsInstancesUpgrade'{..}
= go _pliuName _pliuXgafv _pliuUploadProtocol
_pliuAccessToken
_pliuUploadType
_pliuCallback
(Just AltJSON)
_pliuPayload
dataFusionService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsInstancesUpgradeResource)
mempty