{-# 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.Locations.Clusters.NodePools.SetSize
(
ProjectsLocationsClustersNodePoolsSetSizeResource
, projectsLocationsClustersNodePoolsSetSize
, ProjectsLocationsClustersNodePoolsSetSize
, plcnpssXgafv
, plcnpssUploadProtocol
, plcnpssAccessToken
, plcnpssUploadType
, plcnpssPayload
, plcnpssName
, plcnpssCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsLocationsClustersNodePoolsSetSizeResource
=
"v1" :>
CaptureMode "name" "setSize" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SetNodePoolSizeRequest :>
Post '[JSON] Operation
data ProjectsLocationsClustersNodePoolsSetSize = ProjectsLocationsClustersNodePoolsSetSize'
{ _plcnpssXgafv :: !(Maybe Xgafv)
, _plcnpssUploadProtocol :: !(Maybe Text)
, _plcnpssAccessToken :: !(Maybe Text)
, _plcnpssUploadType :: !(Maybe Text)
, _plcnpssPayload :: !SetNodePoolSizeRequest
, _plcnpssName :: !Text
, _plcnpssCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsClustersNodePoolsSetSize
:: SetNodePoolSizeRequest
-> Text
-> ProjectsLocationsClustersNodePoolsSetSize
projectsLocationsClustersNodePoolsSetSize pPlcnpssPayload_ pPlcnpssName_ =
ProjectsLocationsClustersNodePoolsSetSize'
{ _plcnpssXgafv = Nothing
, _plcnpssUploadProtocol = Nothing
, _plcnpssAccessToken = Nothing
, _plcnpssUploadType = Nothing
, _plcnpssPayload = pPlcnpssPayload_
, _plcnpssName = pPlcnpssName_
, _plcnpssCallback = Nothing
}
plcnpssXgafv :: Lens' ProjectsLocationsClustersNodePoolsSetSize (Maybe Xgafv)
plcnpssXgafv
= lens _plcnpssXgafv (\ s a -> s{_plcnpssXgafv = a})
plcnpssUploadProtocol :: Lens' ProjectsLocationsClustersNodePoolsSetSize (Maybe Text)
plcnpssUploadProtocol
= lens _plcnpssUploadProtocol
(\ s a -> s{_plcnpssUploadProtocol = a})
plcnpssAccessToken :: Lens' ProjectsLocationsClustersNodePoolsSetSize (Maybe Text)
plcnpssAccessToken
= lens _plcnpssAccessToken
(\ s a -> s{_plcnpssAccessToken = a})
plcnpssUploadType :: Lens' ProjectsLocationsClustersNodePoolsSetSize (Maybe Text)
plcnpssUploadType
= lens _plcnpssUploadType
(\ s a -> s{_plcnpssUploadType = a})
plcnpssPayload :: Lens' ProjectsLocationsClustersNodePoolsSetSize SetNodePoolSizeRequest
plcnpssPayload
= lens _plcnpssPayload
(\ s a -> s{_plcnpssPayload = a})
plcnpssName :: Lens' ProjectsLocationsClustersNodePoolsSetSize Text
plcnpssName
= lens _plcnpssName (\ s a -> s{_plcnpssName = a})
plcnpssCallback :: Lens' ProjectsLocationsClustersNodePoolsSetSize (Maybe Text)
plcnpssCallback
= lens _plcnpssCallback
(\ s a -> s{_plcnpssCallback = a})
instance GoogleRequest
ProjectsLocationsClustersNodePoolsSetSize where
type Rs ProjectsLocationsClustersNodePoolsSetSize =
Operation
type Scopes ProjectsLocationsClustersNodePoolsSetSize
= '["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsClustersNodePoolsSetSize'{..}
= go _plcnpssName _plcnpssXgafv
_plcnpssUploadProtocol
_plcnpssAccessToken
_plcnpssUploadType
_plcnpssCallback
(Just AltJSON)
_plcnpssPayload
containerService
where go
= buildClient
(Proxy ::
Proxy
ProjectsLocationsClustersNodePoolsSetSizeResource)
mempty