module Network.Google.Resource.Container.Projects.Zones.Clusters.Create
(
ProjectsZonesClustersCreateResource
, projectsZonesClustersCreate
, ProjectsZonesClustersCreate
, pzccXgafv
, pzccUploadProtocol
, pzccPp
, pzccAccessToken
, pzccUploadType
, pzccZone
, pzccPayload
, pzccBearerToken
, pzccProjectId
, pzccCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsZonesClustersCreateResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"zones" :>
Capture "zone" Text :>
"clusters" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] CreateClusterRequest :>
Post '[JSON] Operation
data ProjectsZonesClustersCreate = ProjectsZonesClustersCreate'
{ _pzccXgafv :: !(Maybe Text)
, _pzccUploadProtocol :: !(Maybe Text)
, _pzccPp :: !Bool
, _pzccAccessToken :: !(Maybe Text)
, _pzccUploadType :: !(Maybe Text)
, _pzccZone :: !Text
, _pzccPayload :: !CreateClusterRequest
, _pzccBearerToken :: !(Maybe Text)
, _pzccProjectId :: !Text
, _pzccCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsZonesClustersCreate
:: Text
-> CreateClusterRequest
-> Text
-> ProjectsZonesClustersCreate
projectsZonesClustersCreate pPzccZone_ pPzccPayload_ pPzccProjectId_ =
ProjectsZonesClustersCreate'
{ _pzccXgafv = Nothing
, _pzccUploadProtocol = Nothing
, _pzccPp = True
, _pzccAccessToken = Nothing
, _pzccUploadType = Nothing
, _pzccZone = pPzccZone_
, _pzccPayload = pPzccPayload_
, _pzccBearerToken = Nothing
, _pzccProjectId = pPzccProjectId_
, _pzccCallback = Nothing
}
pzccXgafv :: Lens' ProjectsZonesClustersCreate (Maybe Text)
pzccXgafv
= lens _pzccXgafv (\ s a -> s{_pzccXgafv = a})
pzccUploadProtocol :: Lens' ProjectsZonesClustersCreate (Maybe Text)
pzccUploadProtocol
= lens _pzccUploadProtocol
(\ s a -> s{_pzccUploadProtocol = a})
pzccPp :: Lens' ProjectsZonesClustersCreate Bool
pzccPp = lens _pzccPp (\ s a -> s{_pzccPp = a})
pzccAccessToken :: Lens' ProjectsZonesClustersCreate (Maybe Text)
pzccAccessToken
= lens _pzccAccessToken
(\ s a -> s{_pzccAccessToken = a})
pzccUploadType :: Lens' ProjectsZonesClustersCreate (Maybe Text)
pzccUploadType
= lens _pzccUploadType
(\ s a -> s{_pzccUploadType = a})
pzccZone :: Lens' ProjectsZonesClustersCreate Text
pzccZone = lens _pzccZone (\ s a -> s{_pzccZone = a})
pzccPayload :: Lens' ProjectsZonesClustersCreate CreateClusterRequest
pzccPayload
= lens _pzccPayload (\ s a -> s{_pzccPayload = a})
pzccBearerToken :: Lens' ProjectsZonesClustersCreate (Maybe Text)
pzccBearerToken
= lens _pzccBearerToken
(\ s a -> s{_pzccBearerToken = a})
pzccProjectId :: Lens' ProjectsZonesClustersCreate Text
pzccProjectId
= lens _pzccProjectId
(\ s a -> s{_pzccProjectId = a})
pzccCallback :: Lens' ProjectsZonesClustersCreate (Maybe Text)
pzccCallback
= lens _pzccCallback (\ s a -> s{_pzccCallback = a})
instance GoogleRequest ProjectsZonesClustersCreate
where
type Rs ProjectsZonesClustersCreate = Operation
type Scopes ProjectsZonesClustersCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsZonesClustersCreate'{..}
= go _pzccProjectId _pzccZone _pzccXgafv
_pzccUploadProtocol
(Just _pzccPp)
_pzccAccessToken
_pzccUploadType
_pzccBearerToken
_pzccCallback
(Just AltJSON)
_pzccPayload
containerService
where go
= buildClient
(Proxy :: Proxy ProjectsZonesClustersCreateResource)
mempty