{-# 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.Aggregated.UsableSubnetworks.List
(
ProjectsAggregatedUsableSubnetworksListResource
, projectsAggregatedUsableSubnetworksList
, ProjectsAggregatedUsableSubnetworksList
, pauslParent
, pauslXgafv
, pauslUploadProtocol
, pauslAccessToken
, pauslUploadType
, pauslFilter
, pauslPageToken
, pauslPageSize
, pauslCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsAggregatedUsableSubnetworksListResource
=
"v1" :>
Capture "parent" Text :>
"aggregated" :>
"usableSubnetworks" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListUsableSubnetworksResponse
data ProjectsAggregatedUsableSubnetworksList =
ProjectsAggregatedUsableSubnetworksList'
{ _pauslParent :: !Text
, _pauslXgafv :: !(Maybe Xgafv)
, _pauslUploadProtocol :: !(Maybe Text)
, _pauslAccessToken :: !(Maybe Text)
, _pauslUploadType :: !(Maybe Text)
, _pauslFilter :: !(Maybe Text)
, _pauslPageToken :: !(Maybe Text)
, _pauslPageSize :: !(Maybe (Textual Int32))
, _pauslCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsAggregatedUsableSubnetworksList
:: Text
-> ProjectsAggregatedUsableSubnetworksList
projectsAggregatedUsableSubnetworksList pPauslParent_ =
ProjectsAggregatedUsableSubnetworksList'
{ _pauslParent = pPauslParent_
, _pauslXgafv = Nothing
, _pauslUploadProtocol = Nothing
, _pauslAccessToken = Nothing
, _pauslUploadType = Nothing
, _pauslFilter = Nothing
, _pauslPageToken = Nothing
, _pauslPageSize = Nothing
, _pauslCallback = Nothing
}
pauslParent :: Lens' ProjectsAggregatedUsableSubnetworksList Text
pauslParent
= lens _pauslParent (\ s a -> s{_pauslParent = a})
pauslXgafv :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Xgafv)
pauslXgafv
= lens _pauslXgafv (\ s a -> s{_pauslXgafv = a})
pauslUploadProtocol :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Text)
pauslUploadProtocol
= lens _pauslUploadProtocol
(\ s a -> s{_pauslUploadProtocol = a})
pauslAccessToken :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Text)
pauslAccessToken
= lens _pauslAccessToken
(\ s a -> s{_pauslAccessToken = a})
pauslUploadType :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Text)
pauslUploadType
= lens _pauslUploadType
(\ s a -> s{_pauslUploadType = a})
pauslFilter :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Text)
pauslFilter
= lens _pauslFilter (\ s a -> s{_pauslFilter = a})
pauslPageToken :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Text)
pauslPageToken
= lens _pauslPageToken
(\ s a -> s{_pauslPageToken = a})
pauslPageSize :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Int32)
pauslPageSize
= lens _pauslPageSize
(\ s a -> s{_pauslPageSize = a})
. mapping _Coerce
pauslCallback :: Lens' ProjectsAggregatedUsableSubnetworksList (Maybe Text)
pauslCallback
= lens _pauslCallback
(\ s a -> s{_pauslCallback = a})
instance GoogleRequest
ProjectsAggregatedUsableSubnetworksList
where
type Rs ProjectsAggregatedUsableSubnetworksList =
ListUsableSubnetworksResponse
type Scopes ProjectsAggregatedUsableSubnetworksList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsAggregatedUsableSubnetworksList'{..}
= go _pauslParent _pauslXgafv _pauslUploadProtocol
_pauslAccessToken
_pauslUploadType
_pauslFilter
_pauslPageToken
_pauslPageSize
_pauslCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy ::
Proxy
ProjectsAggregatedUsableSubnetworksListResource)
mempty