{-# 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.Restart
(
ProjectsLocationsInstancesRestartResource
, projectsLocationsInstancesRestart
, ProjectsLocationsInstancesRestart
, plirXgafv
, plirUploadProtocol
, plirAccessToken
, plirUploadType
, plirPayload
, plirName
, plirCallback
) where
import Network.Google.DataFusion.Types
import Network.Google.Prelude
type ProjectsLocationsInstancesRestartResource =
"v1beta1" :>
CaptureMode "name" "restart" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] RestartInstanceRequest :>
Post '[JSON] Operation
data ProjectsLocationsInstancesRestart =
ProjectsLocationsInstancesRestart'
{ _plirXgafv :: !(Maybe Xgafv)
, _plirUploadProtocol :: !(Maybe Text)
, _plirAccessToken :: !(Maybe Text)
, _plirUploadType :: !(Maybe Text)
, _plirPayload :: !RestartInstanceRequest
, _plirName :: !Text
, _plirCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsInstancesRestart
:: RestartInstanceRequest
-> Text
-> ProjectsLocationsInstancesRestart
projectsLocationsInstancesRestart pPlirPayload_ pPlirName_ =
ProjectsLocationsInstancesRestart'
{ _plirXgafv = Nothing
, _plirUploadProtocol = Nothing
, _plirAccessToken = Nothing
, _plirUploadType = Nothing
, _plirPayload = pPlirPayload_
, _plirName = pPlirName_
, _plirCallback = Nothing
}
plirXgafv :: Lens' ProjectsLocationsInstancesRestart (Maybe Xgafv)
plirXgafv
= lens _plirXgafv (\ s a -> s{_plirXgafv = a})
plirUploadProtocol :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)
plirUploadProtocol
= lens _plirUploadProtocol
(\ s a -> s{_plirUploadProtocol = a})
plirAccessToken :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)
plirAccessToken
= lens _plirAccessToken
(\ s a -> s{_plirAccessToken = a})
plirUploadType :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)
plirUploadType
= lens _plirUploadType
(\ s a -> s{_plirUploadType = a})
plirPayload :: Lens' ProjectsLocationsInstancesRestart RestartInstanceRequest
plirPayload
= lens _plirPayload (\ s a -> s{_plirPayload = a})
plirName :: Lens' ProjectsLocationsInstancesRestart Text
plirName = lens _plirName (\ s a -> s{_plirName = a})
plirCallback :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)
plirCallback
= lens _plirCallback (\ s a -> s{_plirCallback = a})
instance GoogleRequest
ProjectsLocationsInstancesRestart
where
type Rs ProjectsLocationsInstancesRestart = Operation
type Scopes ProjectsLocationsInstancesRestart =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsInstancesRestart'{..}
= go _plirName _plirXgafv _plirUploadProtocol
_plirAccessToken
_plirUploadType
_plirCallback
(Just AltJSON)
_plirPayload
dataFusionService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsInstancesRestartResource)
mempty