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
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)
projectsZonesGetServerConfig
:: Text
-> Text
-> ProjectsZonesGetServerConfig
projectsZonesGetServerConfig pPzgscZone_ pPzgscProjectId_ =
ProjectsZonesGetServerConfig'
{ _pzgscXgafv = Nothing
, _pzgscUploadProtocol = Nothing
, _pzgscPp = True
, _pzgscAccessToken = Nothing
, _pzgscUploadType = Nothing
, _pzgscZone = pPzgscZone_
, _pzgscBearerToken = Nothing
, _pzgscProjectId = pPzgscProjectId_
, _pzgscCallback = Nothing
}
pzgscXgafv :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscXgafv
= lens _pzgscXgafv (\ s a -> s{_pzgscXgafv = a})
pzgscUploadProtocol :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscUploadProtocol
= lens _pzgscUploadProtocol
(\ s a -> s{_pzgscUploadProtocol = a})
pzgscPp :: Lens' ProjectsZonesGetServerConfig Bool
pzgscPp = lens _pzgscPp (\ s a -> s{_pzgscPp = a})
pzgscAccessToken :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscAccessToken
= lens _pzgscAccessToken
(\ s a -> s{_pzgscAccessToken = a})
pzgscUploadType :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscUploadType
= lens _pzgscUploadType
(\ s a -> s{_pzgscUploadType = a})
pzgscZone :: Lens' ProjectsZonesGetServerConfig Text
pzgscZone
= lens _pzgscZone (\ s a -> s{_pzgscZone = a})
pzgscBearerToken :: Lens' ProjectsZonesGetServerConfig (Maybe Text)
pzgscBearerToken
= lens _pzgscBearerToken
(\ s a -> s{_pzgscBearerToken = a})
pzgscProjectId :: Lens' ProjectsZonesGetServerConfig Text
pzgscProjectId
= lens _pzgscProjectId
(\ s a -> s{_pzgscProjectId = a})
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