{-# 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.Zones.GetServerConfig
(
ProjectsZonesGetServerConfigResource
, projectsZonesGetServerConfig
, ProjectsZonesGetServerConfig
, pzgscXgafv
, pzgscUploadProtocol
, pzgscPp
, pzgscAccessToken
, pzgscUploadType
, pzgscZone
, pzgscBearerToken
, pzgscProjectId
, pzgscCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsZonesGetServerConfigResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"zones" :>
Capture "zone" Text :>
"serverconfig" :>
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 :>
Get '[JSON] ServerConfig
-- | Returns configuration info about the Container Engine service.
--
-- /See:/ 'projectsZonesGetServerConfig' smart constructor.
data ProjectsZonesGetServerConfig = ProjectsZonesGetServerConfig'
{ _pzgscXgafv :: !(Maybe Text)
, _pzgscUploadProtocol :: !(Maybe Text)
, _pzgscPp :: !Bool
, _pzgscAccessToken :: !(Maybe Text)
, _pzgscUploadType :: !(Maybe Text)
, _pzgscZone :: !Text
, _pzgscBearerToken :: !(Maybe Text)
, _pzgscProjectId :: !Text
, _pzgscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ProjectsZonesGetServerConfig' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'pzgscXgafv'
--
-- * 'pzgscUploadProtocol'
--
-- * 'pzgscPp'
--
-- * 'pzgscAccessToken'
--
-- * 'pzgscUploadType'
--
-- * 'pzgscZone'
--
-- * 'pzgscBearerToken'
--
-- * 'pzgscProjectId'
--
-- * 'pzgscCallback'
projectsZonesGetServerConfig
:: Text -- ^ 'pzgscZone'
-> Text -- ^ 'pzgscProjectId'
-> ProjectsZonesGetServerConfig
projectsZonesGetServerConfig pPzgscZone_ pPzgscProjectId_ =
ProjectsZonesGetServerConfig'
{ _pzgscXgafv = Nothing
, _pzgscUploadProtocol = Nothing
, _pzgscPp = True
, _pzgscAccessToken = Nothing
, _pzgscUploadType = Nothing
, _pzgscZone = pPzgscZone_
, _pzgscBearerToken = Nothing
, _pzgscProjectId = pPzgscProjectId_
, _pzgscCallback = Nothing
}
-- | V1 error format.
pzgscXgafv :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscXgafv
= lens _pzgscXgafv (\ s a -> s{_pzgscXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
pzgscUploadProtocol :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscUploadProtocol
= lens _pzgscUploadProtocol
(\ s a -> s{_pzgscUploadProtocol = a})
-- | Pretty-print response.
pzgscPp :: Lens' ProjectsZonesGetServerConfig Bool
pzgscPp = lens _pzgscPp (\ s a -> s{_pzgscPp = a})
-- | OAuth access token.
pzgscAccessToken :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscAccessToken
= lens _pzgscAccessToken
(\ s a -> s{_pzgscAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
pzgscUploadType :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscUploadType
= lens _pzgscUploadType
(\ s a -> s{_pzgscUploadType = a})
-- | The name of the Google Compute Engine
-- [zone](\/compute\/docs\/zones#available) to return operations for.
pzgscZone :: Lens' ProjectsZonesGetServerConfig Text
pzgscZone
= lens _pzgscZone (\ s a -> s{_pzgscZone = a})
-- | OAuth bearer token.
pzgscBearerToken :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscBearerToken
= lens _pzgscBearerToken
(\ s a -> s{_pzgscBearerToken = a})
-- | The Google Developers Console [project ID or project
-- number](https:\/\/support.google.com\/cloud\/answer\/6158840).
pzgscProjectId :: Lens' ProjectsZonesGetServerConfig Text
pzgscProjectId
= lens _pzgscProjectId
(\ s a -> s{_pzgscProjectId = a})
-- | JSONP
pzgscCallback :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscCallback
= lens _pzgscCallback
(\ s a -> s{_pzgscCallback = a})
instance GoogleRequest ProjectsZonesGetServerConfig
where
type Rs ProjectsZonesGetServerConfig = ServerConfig
type Scopes ProjectsZonesGetServerConfig =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsZonesGetServerConfig'{..}
= go _pzgscProjectId _pzgscZone _pzgscXgafv
_pzgscUploadProtocol
(Just _pzgscPp)
_pzgscAccessToken
_pzgscUploadType
_pzgscBearerToken
_pzgscCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy :: Proxy ProjectsZonesGetServerConfigResource)
mempty