{-# 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.Compute.NetworkEndpointGroups.ListNetworkEndpoints
(
NetworkEndpointGroupsListNetworkEndpointsResource
, networkEndpointGroupsListNetworkEndpoints'
, NetworkEndpointGroupsListNetworkEndpoints'
, neglneOrderBy
, neglneProject
, neglneZone
, neglnePayload
, neglneNetworkEndpointGroup
, neglneFilter
, neglnePageToken
, neglneMaxResults
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type NetworkEndpointGroupsListNetworkEndpointsResource
=
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"networkEndpointGroups" :>
Capture "networkEndpointGroup" Text :>
"listNetworkEndpoints" :>
QueryParam "orderBy" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
NetworkEndpointGroupsListEndpointsRequest
:>
Post '[JSON]
NetworkEndpointGroupsListNetworkEndpoints
data NetworkEndpointGroupsListNetworkEndpoints' =
NetworkEndpointGroupsListNetworkEndpoints''
{ _neglneOrderBy :: !(Maybe Text)
, _neglneProject :: !Text
, _neglneZone :: !Text
, _neglnePayload :: !NetworkEndpointGroupsListEndpointsRequest
, _neglneNetworkEndpointGroup :: !Text
, _neglneFilter :: !(Maybe Text)
, _neglnePageToken :: !(Maybe Text)
, _neglneMaxResults :: !(Textual Word32)
}
deriving (Eq, Show, Data, Typeable, Generic)
networkEndpointGroupsListNetworkEndpoints'
:: Text
-> Text
-> NetworkEndpointGroupsListEndpointsRequest
-> Text
-> NetworkEndpointGroupsListNetworkEndpoints'
networkEndpointGroupsListNetworkEndpoints' pNeglneProject_ pNeglneZone_ pNeglnePayload_ pNeglneNetworkEndpointGroup_ =
NetworkEndpointGroupsListNetworkEndpoints''
{ _neglneOrderBy = Nothing
, _neglneProject = pNeglneProject_
, _neglneZone = pNeglneZone_
, _neglnePayload = pNeglnePayload_
, _neglneNetworkEndpointGroup = pNeglneNetworkEndpointGroup_
, _neglneFilter = Nothing
, _neglnePageToken = Nothing
, _neglneMaxResults = 500
}
neglneOrderBy :: Lens' NetworkEndpointGroupsListNetworkEndpoints' (Maybe Text)
neglneOrderBy
= lens _neglneOrderBy
(\ s a -> s{_neglneOrderBy = a})
neglneProject :: Lens' NetworkEndpointGroupsListNetworkEndpoints' Text
neglneProject
= lens _neglneProject
(\ s a -> s{_neglneProject = a})
neglneZone :: Lens' NetworkEndpointGroupsListNetworkEndpoints' Text
neglneZone
= lens _neglneZone (\ s a -> s{_neglneZone = a})
neglnePayload :: Lens' NetworkEndpointGroupsListNetworkEndpoints' NetworkEndpointGroupsListEndpointsRequest
neglnePayload
= lens _neglnePayload
(\ s a -> s{_neglnePayload = a})
neglneNetworkEndpointGroup :: Lens' NetworkEndpointGroupsListNetworkEndpoints' Text
neglneNetworkEndpointGroup
= lens _neglneNetworkEndpointGroup
(\ s a -> s{_neglneNetworkEndpointGroup = a})
neglneFilter :: Lens' NetworkEndpointGroupsListNetworkEndpoints' (Maybe Text)
neglneFilter
= lens _neglneFilter (\ s a -> s{_neglneFilter = a})
neglnePageToken :: Lens' NetworkEndpointGroupsListNetworkEndpoints' (Maybe Text)
neglnePageToken
= lens _neglnePageToken
(\ s a -> s{_neglnePageToken = a})
neglneMaxResults :: Lens' NetworkEndpointGroupsListNetworkEndpoints' Word32
neglneMaxResults
= lens _neglneMaxResults
(\ s a -> s{_neglneMaxResults = a})
. _Coerce
instance GoogleRequest
NetworkEndpointGroupsListNetworkEndpoints'
where
type Rs NetworkEndpointGroupsListNetworkEndpoints' =
NetworkEndpointGroupsListNetworkEndpoints
type Scopes
NetworkEndpointGroupsListNetworkEndpoints'
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly"]
requestClient
NetworkEndpointGroupsListNetworkEndpoints''{..}
= go _neglneProject _neglneZone
_neglneNetworkEndpointGroup
_neglneOrderBy
_neglneFilter
_neglnePageToken
(Just _neglneMaxResults)
(Just AltJSON)
_neglnePayload
computeService
where go
= buildClient
(Proxy ::
Proxy
NetworkEndpointGroupsListNetworkEndpointsResource)
mempty